123b app.pulse
$771
‘TRH MAINTENANCE DIAGNOSTIC PRocRAR "046 FILE CONTROL UNIT PLT SECTION 1 ERR LOC OBJECT CODE gag
- SKU:1
- Category:Casino Games
- Tags:roulette
Product description
‘TRH MAINTENANCE DIAGNOSTIC PRocRAR
"046 FILE CONTROL UNIT PLT SECTION 1
ERR LOC OBJECT CODE
gage
oace
Ba02
BA03.
OA04
OA06
oa0e
OADA
oa0D
0A10
oat
0a12
Oats
oa18 3
AIC
0a20
OA28
OA2ZA
OA2E ;
0A32
0A36
OA3A
OAND
Oasu
OAG8
OAuC
0a50
OA54
0a58
OASE 0
OGY
0a68
OAGE
0a72
DATE
OA77
oa79
On7B
oa7F
0483
0289
OAD
0293
0497
DASB
OA9T
Ona
oaas
OAAD
0aB3
OABT
OABD
Oac3
OAC7
OAeD
0aD1
OADS
OADB
OaDF-
OBE3
OAES
OAEF
Oar3
Oar?
OAFD
803
0807
DATE
EC NO.
BO1k
50
69
GOD
Oat
A0-4000
ce 87
co 87
0c 03
3¢ 00
oc 01
35 01
3c 07
3c F1
oc 03
co 87
CO 87
oc 01
35 01
oc 01
oc 03
co 87
oc 03
cO 87
CO 87
oc 03
co 87
35 01
Oc 01
oC 03
co 87
co 87
oc 03
oc 01
35 04
oc 03
O2HAR7
571512
1Aa25
12F2
749B
149D
1350
TA1D
J21E
OB5C
1521
1525
12DB
1ZDA
0as8
12 DB
OA58
0a83
12C7
1B98
IBAS
TBA4
1B52
O21E
1219
TATA
FES
WEA
OCD7
1927
1269
1521
1825
0c98
0c 39
1207
t6D0
OCD7
1525
13D2
IFES
0c98
0c39
FEY
0c39
15C3
OCD?
41525
0c938
0c 39
IFES
OCD?
1687
1525
6
SOURCE
ADDL STMT STATESENT
2 CLKSTP START 2560
3 "DECK 4
0a01 4 BC 8 -XL2*aO148"
0a02 5 pC XLIOOF
0a03 6 CHUM DC xXL1*00°
0405 7 BC X12*00008
0Aa07 8 RTIADR DC «AL 2 (RTN1)
0A 09 9 DS = CL2
CACC §='110 «OWA DC =—._s« XL3*a040008
OAOF 11 UNB DC XL3*BO1000°
0A10 #12 RTN1~=6 DC XL1"018
oati = 13 pC 8 s«XL1¢*008
0ai3 14 pC =—-_- AL2. (RT N2-1)
15 LA GOOUT, XR1
46 SUDS MMVI BRAD-1,X*FO
17 LIQ = BESS, X* au?
18 LIO ANNE,X*A6
*1331 19 SVC VIPER(4O) , BLANK
20 ST END+3,XR1
21 MVI =‘ ONLY+1,.X°878
22 MVI «- PILET#1,X*87
*23 MVI- ALMS-4, X* FO
*1462 24 MYC = ALBS (4) , TRUCK
25 SNS _KHIT-2,X*A2"
26 TSF KNIT-3,X'SO
*27 BF FIRS
28 TBN KNIT-2,X"109
29 BI FIRS
30 B PINT
144uC 31 FIRS VC GOUT+3(2) ,GAUDY
1BAB 32 MVC =-MSK-1 (3) ,MSK2
33 MVI «EXP, X*00!
1BAS 34 MVC =- EXP-1(7) , EXP
35 B FAKE
36 B Ua PACK
OA76 ©6337 pc XL 1°03"
0A78 «= 38 DC AL2{ EXP-5)
OA7A = 339 DC ‘AL2 (VIPER~23) |
40 B TURW
41 B - ERD
1c? 42 PINT MVC ARNE+3(4) ,MOPE
43 BVI ABNER-1,X*00!
14B5 44 MVC «= ETTA+2(2) , MAY
45 L MAX ,XR1
46 MVI «- STAR+1,X"07!
47 MVI «= ALMS-4,X"F1!
1462 48 MVC 8 ALMS (4) , TRUCK
49 B GNAT
50 B TRUST
1B1IF 51 RAPT MVC GOUT+3(2),SAT
52 i WOFE,XR1
1457 53 MVC 9 ETTA4#2 (2) , NOR
1460 54 MVC = ALMS (4) , TRUCK-2
55 B BASS
148 56 MVC = ARNE+3 (4) ,ROPE
57 B GNAT
58 B TRUST
1453 59 RAFT MVC ARNE#3(4),COFE
60 2 TRUST
61 L PEN, XR1
1437 62 MVC —- ETTA+2 (2) , NOR
1466 63 MVC =ALMS (4) ,T RICK-2
64 B GNAT
65 B TRUST
tac 66 RAST MYC ARNE+3(4),RCEE
14BD 67 HVC) 80 -ETTA42 (2), RAT
68 1 ROT, XR1
146C 63 B¥C ALNS (&} ,THIC K-2
O7APR70 O6NAY70 0155L70 O1HBR71
571516 571513 571524 571573
‘PERT WO.
PAGE
PROGRAB ID
FLAGS
CURRENT ROUTINE wR
RESERVED
ADDE FIRST RTS
DDT PRIMARY SPINDLE
UDI SECOND SPINDLE
SET UP KORHAL TERMINATION
RESET ERROR COUNT
ELANK [XP KESULT AREA
SET UP FOR HEADING
DONT STOP AFTER FIRST GROUP
SET UP FOR 000000 msSG
SNS 01
TEST FOR INV REQ OR EQU CHK
BR. IF EITHER
CHECK FOR SEEK BUSY
SET UP DONT CARE MASK
SET UP EXP FIELD
BR. TO ADJUST EXPECTED BITS
CONVERT EXPECTED STATUS
SET UP CTL FLD
RESTORE CE BYTE TO 00
RD ID SstIoO
RESET PR MOD SW
SETUP ROUTINE WUMBER
BOUTINE 10
GO TO TERMINATE OP
READ DATA SIO
ROUTINE 11
SELECT 8D 0
SET uP CTL FLD
GO TO TERMINATE OP
SET UP CTRL FLD
READ DATA SIO
ROUTINE 72
GO TO TERMINATE op
SET UP CTL FLD
WRITE DATA SiG
ROUTINE 13
PROG ID QAGI~&
PAGE 4
§129611
1
00 0000.60 4 @
ee —— a NLT LES OE ITO TL LE AI, NA tN ree tatters rere LEN, teehee en
QO Oo
i)
oO oO
">
e
ow Oo OO ODO &
oO ao oo ©
@
on ® © @& &@ @ & 6 1
o 9 8 8 ® @.
Oo a oO
&
Oo OO @
O
oO
IBN MAINTENANCE DIAGNOSTIC PROGRAM
A018 FILE CONTROL UNIT FLT SECTION 1
ERR LOC
OB0D
0511
0315
OBIB
O0B21
0B25
0828
OB2F
0335
0839
053D
OBd3
O0B49
OB4D
0853
0£57
OBSB
OBSF
6863
OB69
OBSD
0373
0879
OB7D
0881
OB8S
0889
OB8D
0893
0B97
OB9D
OBA1
OBa5
OBAB
OBF1
OBB?
OPEB
OBBF
OBCc3
oBCc9
OBCF
OBDS
OBDS
OBDD
OBE
OBE?
OBED
OBF3
OBF7
OBFB
OBFF
ocos
OcOoOB
0c11
0c1S
9c19
OCiID
6C23
ec29
OC2D
0c371
0c35
0C39
8c3D
ocai
oc4as
OcKHs
DATE
EC NO.
OBJECT CODE
co
co8
oc
oc
35
oC
c3
6c
co
co
OC
oc
35
0c
co
co
co
co
oc
3c
Oc
0c
35
3c
co
3c
co
Oc
3c
oc
3c
3c
oc
Oc
0c
35
co
co
oc
oc
Oc
35
co
co
oc
0c
oc
35
co
co
Oc
0c
oc
35
co
co
Oc
oc
35
co
co
co
34
ci
31
F3
34
87
87
01
01
01
03
87
03
87
87
03
01
01
03
87
87
87
87
03
F2
03
01
01
80
87
00
87
03
00
FE
71
FF
0B
03
01
91
87
87
03
03
01
01
87
87
C3
03
01
01
87
87
03
03
01
01
87
87
03
01
01
87
87
387
08
A2
A3
Ai
a3
ec98
0c39
12C7
ocD7
172P
1525
13cC4
1PES
oc98
0c39
1IFEQ
OCD?
17C2
1525
0C98
0c39
0B63
TATA
IPES
1521
1525
OcD7
1897
18EA
oc 98
WEA
0c 39
IFES
1? DF
1FDE
1ZE0
1EF&
1EF3
1525
OCD7
18B8
0c98
0c39
IFES
1525
OCD?
1921
oc98s
0C 39
1FEG
1525
OCD?
1967
0c 98
0c39
IFES
1525
OCD7
19AD
0c98
0c 39
IFEQ
OcD7
19D7
0c98
0c39
VATA
Oc67
ocasB
1UEB
07
1895
O2nMAarF 76
S77SizZ
1B1D
14B9
1872
1899
150¢ ©
T4BF
1478
1499
1462
14B9
1494
1FDF
VEF4
1466
14BD
1491
146C
14C1
1491
W472
14C3
1491
1878
148D
1446
14BB
OIAPRTO
571546
ADDER STHT
70
71
72
73
78
75
76
77
78
39
80
81
82
83
84
85
B86
87
88
89
90
91
32
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
136
131
132
SOURCE STA SESEST
B
8
avec
ayvc
VASE
xvC
nyc
FILET 8B
DELTA
DOUGH
SOLAR
SOUND
NOLA
BRAND
VIRG B
GNAT
TRUST
GOUT+3 (2) , SATE
ETTA+2(2) ,OPERA
CAT, XR
ALBS(4) , TSAT-2
BOSS
ARNE*¢3 (4), ABYSS
GNAT
TRUST
ARNE+3(&) ,TCRY
ETTA42 (2) ¢SET
TROT, XB1
ALMS (4) ,THES-2
GHAT
TRUST
DELTA
END
ARNE+3 (4), ABYSS
ALNS-4&,X*F2
*ALS (4) ,TRUC
*ETTA¢2(2) ,OPERA
BLCB,XR1
ABNER-1,X* 80°
GNAT
ABNER-1,X* 00
*TRUST
ABRNE+3 (&), SOAP
BARN+255,X*0C
*PART BO. 5129611
= PAGE . WR
GO TO TERMINATE OF
MOVE READ DIAG S10
SET UP PARA abDoR
ROUTINE 14
SELECT HD 1 --
MOVE READ DATA DIAG CTL FLD In
GO TO TERMIMATE oP
WRITE ID ¥.T.
BOUTINE 15
GO TO TERKINATE OP
READ DIAG CTRL PLD
SET UP ROUTIEE NUSDEB
ROUTINE 20
READ DIAG SIO
ADDR OF PARA
SET INDEX BEFORE SIO
RESTORE CE BYTE TO 80
SEI OP CTRL FLD
CLEAR DATA FLD
BARN+254 (255), BARN¢ 255
BARN, X*11°
BARN¢20,X° FF®
BARN+ 19 (12) , BARR+20
ALMS (4%) ,TRICK-2
ETTA+2 (2) , RAT
BLCT, XR1
GAT
TRUST
ARNE+3 (4) ,SCAE
ALMS (4) ,-THICK-2
ETTAt2(2) , TAP
BLAB,XR1
GNAT
TRUST
ARNE¢3(4) , SOAP
ALMS (4) ,THAT-2
ETTA+2 (2) -VIF
BRAN, XB1
GNAT
TRUST
ARNE+3 (4) ,SOAE
AL&S (4), THEN-2
ETTA+2 (2) ,LAP
BIRD, XB1
GREAT
TRUST
ARNE+3(4),PASS
ETTA42(2) ,PLBE
HAND, XR1
GHAT
TRUST
END
¥*C*eECSROUTINE TC TERMINATE
133 TRUST ST TRYST?#3,%° 08"
136 TIO CRUST, X*s2?
135 LITO ABRER,X*°a3®
136 Sio X°Ou?,x*a7°
137 CRUST LIC CORD,X*A3
*J6NAY7IG CIOL7TG OINART4
571513 $713 28 S71873
SEI OP DATA CHAR
SEI UP DATA FLD FOR @B AND SCAB
FOUTINE 22
WRITE DATA SIO
ADDR OF PARA
SET UP CTBL FLD FOR SCAN £Q LU
ROUTINE 23
SCAN EQ LO SIO
ADCR OF PARA
SET UP CTRE FLD FOR SCam EQ BI
FOUTINE 28
SCAN EQ #I SIO
ADDR OF PARA
SET UP CTRL FLO FOR SCAN EQ
ROUTINE 25
Sas EQ SIO
ADDER OF PARA
SEI OP CTRL FLD
SET UP SIO REAL VERIFY
AN OPERATIONS ¢#4¢454¢08e¢02329%
STORE RETURE
SEST FOR BUSY
NOT INDEX
PROG ID SADi--
PAGE Pe
IBE HAINTEBANCE DIAGNOSTIC PROGRAS
A010 FILE CONTROL UNIT FLT SECTION 4.
“SER LOC
ocac
oC50
ocs4
oc5e
ocsc
060
O64
6C68
OCGA
OC6E
0c71
oc7s
oc??
0c73
ocr
oceo
0c81
— 0C82
OcBS4s
0C86
oc8a
ocec
oc90
0c98
ocsc
Ocad
OCAN
Ocas
ocac
OcBO
OCBS
OCRS
occ
OCco
9cc3
occ9
occD
ocp1
ocDs
OcD8
OcpD
OCE3
OCES
OCED
OCF1
OCS
ocra
OcFC
Ocrr
oD0s
oD0B
ODOF
oD11
0D73
oD14
0D18
onic
oDn20
on24
0D28
0D2c
8D30
OD34
0D38
OD3c
one
eDey
eDes
BATE
EC NO.
ADDR STMT SOURCE STATEMERT
OBJECT CODE
31 a3 OC6s 138 ‘LIO YORE, Z*A3#
ci a2 0c58 139 TIO CRUSH, X?A2¢
cO 87 OCé64 140 B TRYST
37 a3 7NG5 181 CRUSH LIO CORB, xX*A3!
347 a3 OCS9 142 LIO = YORE, X?23?
C1 AZ SCBA 143 TIO BRUSH, X*aze
cO B7 0C6s ; 144 TRYST 8 TRYST
8000 CC69 145 YORE oc ZL.2? 80008
3p 07 121£ 186 BRUSH CLI ONRLY+7,xX'O75
F2 01 OB 147 INE FEE
cO 87 021A 148 B PRINT
8€ 08 0C76 149 DC XL2* 0608!
0¢97 0c78 150 DC AL2 (FRESH)
F2 87 OA 154 3 DUN
CO 87 021A 152 PEE 8B PRINT
C6 0c80 153 DC XL7°C6?
oe 0c81 754 BC XL1 "98"
097 0cB83 155 pc AL2 (FRESH)
ACS3 0c85 156 DC XL2*2093¢
CO 87 0222 157 DUN B HALT
A093 OcB8B 158 pc XL2*A093
cO 87 0C3D 159 B TRUST+4
KODSCSC64BSOFIPO 0C97 16u FRESH DC CL8" REF. 10°
34 08 712C7 167 GNAT ST souTe3,x'08?
31 AG 149D 162 LIO ANNE,X'A6
*31 AG 1498 163 LIO BESS, X*Aau'
3C 87 OFIB 164 BVI RINK+1,X*87
*3C 07 OFSF 165 MVI FOES+1,%°07°
3C 07 10D0 166 NVI EON+1,X'07?
3C 07 OFSB 167 MVI ZONE+1,X*078
3c 07 oDCcs 168 NVI DLYSH+1,x*07!
317 43 14EB 169 LIO ABNER,X'A3?
ci a2 0cc3 170 TIO. FAULT, X*A2
*F2 87 12 171 J ETTA
OC 04 1207 7455 172 FAULT MYC GOUT#3(2),SAND
3C DS 138A 173 NVI VIPER-38,C'HNt
cO 87 1279 174 B TURN
cO 87 1A1A 175 B END
?3 00 09 176 ETTA SIO x*'O00',x008
ic 04 FHDD On 177 PANDA MVC FAY+#4{ 5),4{ , X81)
OC 27 1330 1381 178 HVC VIPER(40), BLANK
06 11 1525 14688 179 AZ ALMS (3) , TEN (2)
38 02 14D9 180 TBH FAY,xX?02#
CO 30 ODC1 181 BF ANILE
38 03 14D9 182 TBN. FAY,X*O1!
F2 10 98 183 aT PEER
3D 7A 148D9 188 CLI FAY,X'7a
*F2 84 91 185 JH PEER
Oc 01 ODOE OD10 186 MVC = STAND43(2) , STALL
OE 01 ODOE 14D9 187 ALC STAND+3(2) ,FAY
CO 87 0D12 188 STAND 8B STALE
opiz 0p10 189 STALL DC AL2(STALE)
0000 0D12 190 STALE pC XL2 70000'
0p13 191 DS CL 1
CO 87 OESE 192 B PROD
cO 87 OETS 193 B BANA
CO 87 OES8 194 B CHERI
CO 87 OEB7 195 3 FACT
cO 87 GEC7 196 B TACT
CO 87 OECF 197 B CAPE
CO 87 OEEA 198 B TRACT
CO 87 1011 199 B WORK
cO 87 1019 200 B SHARK
CO 87 1062 201 B SALT
CO 87 106A 202 B SAINT
CO 87 1074 203 B FOOD
CO 87 5D90 204 B PEER
CO 87 OD90 205 B PEER
O2MAR7O O1APR70 06MAY70 0150170 01MAR71
571512 571516 571513 571524 ‘571573
“PART NO.
PAGE
FORCE INDEX IN CE
SEST FOR BUSY
HODE
NOG INDEX
FORCE INDEX IN CE HODE
SEST FOR BUSY ,
RETU REE
STORE RETURN FOR ERROR PRINT
SET UP DFCR
SET UP DFDR
RESET TEST FOR BUSY ERR S#
RESET SB
SET PR SNS SW OFF
RESET DATA FLD SB
SEI DELAY SH OFF
FORCE CE MODE
8729841
; 2
START I/O IS SET UP BEFORE EXECUTION
MOVE PARA TO WORK AREA
ADD ONE TO MSG CNTR
GO TO LIO RCOUTIRE
IS THIS A BAD PARA
RESET BRANCH ADDRESS TO ORIG VALUE
ADD PARA TO BRANCH TO ADDR
COMP CTL FLD
COHP DFDR
COMP DFCR
GO TO ALT PARA
RIN TO MAJOR PARA
COMP DATA CHAR
DATA CHAR ROUTINE
INDEX INITIALIZE
SET 8 INITIALIZE
RESET DFDR
COHP BUSY AND ERROR
TEST SENES PROBES
PROG XID
PAGE
Oa0i-s
2
mo
O O89 OG 8 ©
fo 7
oy
oc
ry
a
oO
oO O ©® O
QO
PM - Gee
O
e.
oOo oOo 6
eo 8 8 8 |
Oo Oo .8 @% & 4
>
©)
a)
OO
O
©}
O.
cy 7
ww
9
G
G
Q
@
&
IBN MAINTERANCE DIAGHOSTIC PROCRAZ .
ADi& FILE CONTROL USIT FLT SECTION 2
“ERR Loc
opac
OB50
ODS4
oD58
ODse
“OD69
0D64
ODES
OD6c
0D70
OD7u
0D78
OD7c
0D80
ODB4
OD88
opsc
0D90
op94
0D95
0D96
0p98
OD9A
OD9E
ODAO
ODAS
ODAC
ODB4
orBe
0DC1
ODCc7
ODCB
ODDi
ODDS
ODDB
. ODDF
ODE3
ODE7
ODE
ODEF
ODF3
ODF7
ODFS
O£01
O07
O§EOB
OEOF
0513
OF17
OE1B
OEIF
0E23
OE27
OE2B
OCE£2F
OE33
OE36
OE3A
GE3E
GER2
GELE
OESA
QEGE
OES2
OES6
DATE
EC NO.
&
OBJECT CODE _SBDR STHT SOURCE STATERERT
cO 87 i9A1 206 8B PLAT.
CO Sy. VIA 207 8 ARTE
co 87 4112 208 2 ‘ BRP:
co B87 71776 203 3 SHOP
CO 87 1122 210 B #HELK
cO 87 17338 277 B STAT
CO 87 7168 212 B _ VARY
©O 87 7777 273 B BARY
ce 87 1183 274 B SINE
co 87 7188 215 B TIBZ
CO 87 1793 246 8 @IRE
co 87 1798 217 B WIRY
cO 87 4743 218 8 HINT
cO 87 11A8B 219 B SINE
CO 87 1189 229 8 LINT
co 87 11C5 221 B ‘ACRID
cO 87 11D5 222 B POOR
CO 87 O27a 223 PEER B PRIRT
cé OD94 224 pc XL1¢°c6#
1D 095 225 DC ITL1*298
oDpco OD97 226 Bc AL 2 (BDPARM)
AOCF OD39 227 DC XL2*aOCr®
cO 87 0222 228 B BALT
AOCF OD9F 229 DC XL2*aQCP?
c@ 87 1A25 230 B GoouT
D7DIDSCTDSCIDS4O ODCO 231 BDPARN DC CL29"PROGRAM ERROR -
C5D9IDIDED 9406040 231
C2CITCRUODICIDSCI 231
D&CIE3C5D9 231
232 **#%eee%2% SUR ROUTINE TOC CONTROL BY BIT
Oc 00 1325 44DA 233 AMILE #YC ANDY{ 1) ,FAY¢7
CO 87 ODFB 234 DLYSH B ERGO
Oc 00 THEC 18D9 235 FANCY AVC ELLA-1(1) .FAY
31 A3 i8ED 236 L1G ELLA,X*A3
*OF 00 1325 1562 237 SLC aANDY{ 1),ONE
cO 01 ODCc7 238 BRZ DLYSHY
CO 87 ODEF 239 B ADVZ
36 01 1502 240 ADY5 A GNE,iR1
36 01 1502 241 ADVS A ONE, XB1
36 07 1502 242 ADV3 A OWE, XR1
36 071 1502 243 ADV2 A ONE, XR1
36 01 1502 244 ADY? A ONE, XR1
cO 87 OcDS 265 B PANDA ;
246 ##34¢¢¢44% SUBROUTINE FOR DELAY
OC 02 1UF6 14F9 247 ERGO MVC BEIGE(2},TAN
OF 02 WF6& 1502 248 ENGO SLC BEIGE (3) ,ONE
CO 01 OF01 245 BNZ EXGO
cO 87 ODCcs 250 B FANCY
251 **%**2 SUBROUTINE TO COSP BUSY AND ERROR
34 98 OEUD 252 DANTE ST PGRT+3,3°08
*3c 00 i51A 253 NVI ANNA, X* 00
*Ci AO OEE 2548 TIO AVA,X*aG?
Ci A2 OF56 255 CART TIO BETH, X*A2
*3D OO 151A 256 DART CLI ANNA,X*00
*CO 81 OF4: 257 BE PGRT
3C DS 138C 258 NVI VIPER-36,C°N®
3c DS 138A 259 NVI VIPER-38,C*Nn?
38 01 OF20 260 TBN DART+71,X%°0 2°
F2 90 04 261 JF vic.
3c £8 7138C 262 NVI VIPER-26,C*z
*38 10 GE20 263 vic TBN DART?1,X*10
*co $0 41219 264 BF TURE
3C ES 136A Z65 AVI VIPER-35,C* Ys
co 87 1219 266 B TORN
CO 87 OESA 267 PGRT B PGRT ‘
3A 07 151A 268 AVA SBN ANNA,X°64
*CO 87 O£1B 269 B CART
3A 10 1S7A 270 BETH SBN ANRA,X*170°
028A; 70 QiAPR7O G6HAY70 0155L70 O1maR 71
571542 571516 571513 57 1528 5714573
“PART BO.
PAGE
h-® ROUTIES
‘Stt 3 To 0
END OF EOLTIBE BaiT = - |
258 &E OSS TIMES CHT
AE TO NES ROUTIRE
STaTDS ROUTINE
5129617
: aa
SET SR CSC BIT GH SER DATA RODT IRE
SET BR OSC BIT OFF SER DATA RODTIEE
SEY SEYSE BY BIT
SET SESSE BY BITE
SEI SEP CLK OFF SER DATA ROUTIBZE
SET SEP CLK OB SEE DATA ROUTIZE
SERZALIZE DET& CH>R BITH SEBSE
SERIALIZE DATA CHAR SEXSE AND CCAP
GO TG SCLO FUD TOUTI KE
BAD PARABATER®
SSSSEASES
SET PARA CHT IE PARK CHTR
DELAY SWITCH
HOVE PARA CHAR TO CE LIO
cE Lio
SUBT ONE FEOA P&RA CHET
CONTIEUVE UNTIL O
GO GET NEXT PaRA
$4 HFSTREKEOKLEKRSISAESSED
LELAY COUNTER
SIBVWOVSSS
COSP BOSY AED ERPOR
I[2ST BUSY
SEE IF ERR EXP
BR. IF wOoT
SEE IF BUSY EXP
BR. IF NOT
SET IND FOR ERROR
SET IND FOR BUSY
FROG ID
PAGE
Oadi-&
2é
(3
IBA MAINTENANCE DIAGROSTIC PROGRAS
agt1s FILE CONTROL UNIT FLT SECTIO“ 14
ERR LOC
OESA
ESE
OEG4
OE68
QE6C
OE6D
GEOF
OE71
OE75
0E79
OE7D
0E83
0587
OESB
OESC
OE8E
OE90
OES4
OE98
CEOC
OEA2
QEAG
OEAA
GEAB
GEAD
OEAF
QER3
OEB?
CEBB
OQEEF
QEC3
OEC7
OECB
OECF
QEDS
QEDD
OEDD
OEDE
OEEO
QEE2
OEEG
OFEA
OEFO
OEF6
OEFA
OEFE
Orda
OFUS
OFOB
OFOF
OF13
OF17
OFA
OFTE
OF24
OF28
OFZC
OF30
OF34
OF38
OF3E
DATE
Ec
#6.
GBIECT CODE
‘CO
OD
co
co
O4
87
03°
81
87
T&DD
13a0
co
co
30
OD
OD
co
co
01
87
87
Au
14UDA
1380
co
co
oc
oc
3c
3c
oc
38
F2
3B
3B
38
F2
co
OF
co
3c
3c
3c
co
OE
38
87
87
00
00
64
ay
02
08
90
ou
O48
01
90
87
00
01
87
07
07
87
03
O1
OEIF
IFES&
ODE3
O2tE
1219
ODE3
1513
1513
ODEB
O21E
1219
ODEB
1515
1515
ODEB
021E
1219
ODEB
1505
1519
14DB
OCD8
1519
ocDs
TEEO
ODEF
O2Z1E
1219
ODEF
1325
14D2
4151D
1S1F
1491
1kDO
08
151D
151F
V4cFr
1E
OEOF
1325
OEFO
OFTB
OFSF
OFSB
ODEB
14D2
16D 1
O2NAR70
571512
14&DD
74DB
18D5
TODA
TUDB
4DA
1503
1502
1&D2
ADDR STHT
OF6C
OE6E
O70
OE88B
OESD
OESF
OEAA
O EAC
OEAE
OEDD
OED?
OEE1
OTAPR79
571516
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
3171
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
SOURCE
*eeee4
PROD
48688
BANA
£84448
CHERI
42444
FACT
FECES
TACT
EEE
CAPE
+4448
TRACT
PART
ORE
STCNE
RACY
RINK
BRACT
O6MAY70
571513
PART NO. 5129611
PAGE 3
STATESRENT |
B DART
SUBROUTINE TO COMPARE CTL FLD +ObeeSbeS8
CLC ARNE+3 (4) ,FAY¢4 COMP CONTROL FIELD
BE aDvs
B UNPACK
pc XL1°Ou
*pc AL2 (PAY+4)
DC AL2 (VIPEB- 16)
B TURE
B ADV5
SUBROUTINE TO COMPARE DFDR ceeeeeees
SNS BROAD,X*A4?* SENSE DFDR
CLC BROAD(2),FAY+2 COMPARE TO PARA
BE ADY3
B UNPACK
pc XL1°02°
pc AL2 (PAY+#2)
DC AL2 (VIPER-4)
B TURE
B ADV3
SUBROUTINE TO COMP DFCR Fee eeeees
SRS TOAD,X*A6* CHECK DFCR
CLC TOAD(2) ,FAY+2
BE ADV3 BRANCH TO ADD 3 TO PTR
B UNPACK
cc XL1¢02"
DC AL2(FAY¢2)
Dc AL2 (VI PER-10)
B TURN
B ADVY3)
SUBROUTINE TO GO TO ALT PARA $44 See88%
A THREE, 181
ST ALTAR, X81
L FAY+2, XB1
B PANDA
SUBROUTINE TO BTN TO MAJOR PARA +#eeee208
L BLTAR,XR1
B PANDA
SUBROUTINE TO COMPARE DATA CHAR +e eteeses
CLC BARN(1),FAY+1 COMP DATA CHAR
BE ADV2 BRANCH TO ADD 2 TO PTR
B UNPACK
DC XL1*018
DC AL2 (FAY41)
pc AL2 (VIPER)
B TURN
B ADV2
SUBROUTINE TO DATA CHAR | Seeeeeses
MVC ANDY(1),FAY+2 ;
MVC CAREA(1),FAY+1
MVI CLK1-1,X°64! RDSET CLOCK LIO BYTE
MVI FETE-1,x"44! RESET DATA LIO BYTE
MVC CAREA—1(3) ,ONE+1
TBN CAREA-2,X*O8* IS THIS BIT RING 1
JF RACY
SBF CLK1I-1,x"O4! RESET INH DATA CYCLE REQ
SBF FETE-1,X'08! RESET INH DATA CYCLE REQ
TBH CAREA-3,X401' IS THIS BIT RING 6
JF BRACT
B DANTE
SLC ANDY(1),ONE
BNZ PART
NVI - RINK+1,x"°87°
*MVI FOES+1,X'0O7° RESET SHS PROBES SW
BVI ZONE+?,x*0O7* RESET DATA FLD SB
B ADV3
ALC CAREA(8),CAREA SHIFT BITS
TBH CAREA-1,X°01!
0130L70 04BAR71 PROG ID GAS1-4
571524 571573 PAGE 3
o 9 09 Oo G0 OO 8
©
G
oO 89 08 90 9 8
oO 8&8 ®06® © @ &
o o &
Oo Oo ff 9898 8 @ & ® 8&6 &@ 2® @ @
Seeseesesvseedoenenoeooneneeoe oe
IBE BAINTEWARSCE DIAGHOSTIC PROGRAA
0 © @ @ 90 8 90 8 60 0 060 90 08 0 60 @O
PART BO. 5129629
P&GE 3. &
2018 FILE CCHTROL ONIT FLT SECTION 1 y ; a
ERR LOC OBJECT CODE ADDR STHT SOURCE STATEMEBT |
OFS2 CO SO OF4E 339 BF RACE : e
OF&6 3a 08 151F 340 SBN PETE-1,Z*°O8
*OFSA CO 87 OF52 341 B TRACY @
OFSE 3B 08 151F 342 RACE SBF PETE-1,x%°08
*OFS2 31 43 151E 383 TRACY LIO CLK1,x*a3? CE L3O CLOCK
OF56 31 A3 1520 344 LIO 8 =—- PETE, &* a3* CE 110 DATA °
OFSA CO 87 OFDS 345 ZONE 8B BAMA ~~ CATA FLD CHAR a
OFSE CO 87 OFF9 346 FOES B GALA S#ITCH TO ALLOW PROBE SERSE
OF62 CO 87 OFO04 347 Lacy 8B STONE os
OF66 38 80 OFFA 348 FROG TBH GALA+1,X*80* SES AT BIT RATE «
OF6A F2 10 12 349 IT SNAG a
OP6D 38 20 1882 350 TBN ART-7,X°20° | “ aN
OF71 F2 10 13 351 JT. s#oc
OF78 38 20 18283 352 TBN ART-6,X*20¢
OF78 F2 10 Oc 353 aT SHOG C
OF7s8 CO 87 10D3 3598 B ANT
OF7F CO 87 OF87 355 SHAG 8B SHOG
OF83 CO 87 10D3 356 B ART &
OF87 34 O08 OFBB 357 SHOG ST GAS+3,x*08* STORE RETURE z
OF8B 36 01 1502 358 FRUIT A ONE, XR1 |
OF8SF 06 31 1881 1488 359 BRUTE az CROX(5) ,TEN(2) aDD 1 TO CTk a
OF95 30 A3 12DD 360 SNS KNIT,X*A3* SENSE PROBES ‘
OF99 3C EO 1899 361 BVI #MSK,X*EO* SEI UP DONT CARE MASK |
OF9D 1c 00 1BAS 02 362 MVC) = EX P(1) 2 (X81)
*OFA2 CO 87 1852 363 B FAKE BR. TO ADJUST EXPECTED BITS te
OFA6 OD 00 1BA1 12DD 364 CLC EXP-8(1), KUIT COMPARE 2DIJUSTED SENSE PROBES
OFAC CO 01 OFCO 365 BNE YELP rt
OFBO 3C 07 OF1B 366 BVI RINK+1,x°07° as
OFB& CO 87 OE0F 367 B DANTE |
OFBS8 CO 87 OPBS 368 GAS B GAS re
OFBC CO 87 OF62 369 B Lacy .
OFCO 38 O8 OFDS 370 YELP sT KELP¢3,x*98°* |
Orca CO 87 0218 371 EPoUT B UN PACK CONVERT EXPECTED PRCBES
OFCB 01 CrFcs8 372 Dc XL1°O1¢ —
OFC9S 1BA1 OFCA 373 pc AL2 (EXP-4) )
OFCB 1396 OFCC 374 pc AL2(VIPER-26)
*OPCD CO 87 1219 375 B TURN a
OFD1 CO 87 OFD1 376 KELP 3B KELP
OFPD5 38 08 14D0 377 BYANA TBN CAREA~2,x*08* IS THIS BUT RING O a
OFDS CO 10 OFE1 378 BT CRIME :
OFDD CO 87 OF62 379 B LACY
OFE1 31 AS 1898 380 CRIME LIO BESS,xX*Aa* RESET DFDE 2
OFES 3C 11 EEO 381 SVI BARN,X*11?
OPES CO 87 OFF! 382 B RUBE
OFED CO 87 OF62 383 B Lacy — @
OFF1 38 O8 OFBB 38% RUBE ST GAS+3,x*08* STCRE RETURB-
OFFS CO 87 OF8P 385 B BRUTE
OFF9 CO 87 1009 386 GALA 8B SKOG 2
OFFD 38 08 14D0 387 TBH CAREA-2,x*08* IS THIS BUT RING O
1001 CO 10 OF87 388 BT SHOG
1005 CO 87 OF62 389 B LACY e,
1009 CO 87 OF87 390 SKOG. B SMOG ~
100D CO 87 OF62 391 B LACY
392 **#*** SUBROUTINE TO INITIALIZE INDEX Ssesessses nn
1011 3C CO IEE 393 WORK &MVI BELL-1,x*CO? ~
1015 CO 87 101D 394 B YORK
395
SUBROUTINE TO INITIALIZE SEI TO 8 St eeseses a1019 3C 4O 14EE 336 SHARK svI BELL-1,X "40
*101D 30 a3 12DD 397 YORK SNS KNIT,X*A3* SERSE PROBES
1021 3c 02 1BAS 398 SVI EXP,X*02® SET UP EXPECTED FIELD &
1025 3c PD 1899 399 BVI MSK,X*FD* SET UP DOET CARE BITS o
1029 CO 87 1B52 400 B PAKE ER. TO ALJUST EXPECTED BITS
102D 38 02 12DD 401 TBN KNIT,X?°02°* JEST FOR BIT RIBG 0 “
103% CO 10 ODF3 802 BT ADV1 ~
1035 31 A3 14EF 4803 LI0 BELL, xta3* BRITE OSC
1039 30 A3 12DD 808 SNS KRIT,X*A3* Q
103D 3C 02 1Ba5 “os HVI EXP,X°628 SET UP EXP FIELD
1087 3C PD 1599 206 NVI MSK,X*FD? SET UP DOKT CARE BITS
3
DATE O2HR 270 OTBPR7G OGMAY70 CIIUL70 O1MAR 7? PROS ID O207-%
FC we. 571512 571516 577513 571528 571573 PAGE | 38 a
> ©
BE BAINTEMANCE DIAGNOSTIC PROGRES
5429611
PRE. 8G.
PAGE &
aoa PILE CONTROL UNIT FLT SECTFISE 1
ERR LOC OBJECT COBE &DDE STR SGURCE STATERERT
1085 cO 87 1852 &O7 B PAKE BR. TO ADJUST EXPECTED BITS
1089 38 @2 12DD Ses TBR KNIT,X*O2!' 4EST FOR BIT ELHG 0
204D CG 10 ODFS &OS Br ADVi
1051 €CO 87 O2Z7E &16 B UNP ACK BR. TO CORVERT PROBES
1055 61 1055 &t7 Dc ZL71*O0178
7056 1BAi 57 412 pc AL2 (EXP-4}
1058 1396 1659 &13 pe AL2(VIPER-25)
1058 CO 87 1219 &1& B TORN
OSE CO 87 ODF3 RTS B ADV1
416 #¢&4+%% SUBROUTINE TG BESET DFDR SESKESKTS
1062 31 BY 14898 S17 SALT Lio BESS, X*Ax?t RESET F DFDR
1066 CO 87 ODF3 &18 B ADV!
479 were CHANGE BUSY OB ERROR ROUTINE
106A OC 00 OF20 14DA S20 SBINT NVC DART4+1(14) , FAY+1
1070 ¢O 87 ODEF 424 B ADV2
&22 €eesee SUBROUTINE TO TEST SENSE PROBES SVESLERSS
1078 30 A3 12DD &23 FOOD SNS KNIT, X*a3° SENSE PROBES
7078 CC 07 1BA5S WDA 82g 4VC EXP, FAY+1 SET UP EXP FIELDS
TO7VE 3C PE 1899 &25 AVI SSK,X*FE* SET UP DONT CARE BITS
1082 CO 87 1852 826 B FAKE BR. TO ADJUST EXPECTED BITS
1086 OD 00 12DD 1BA1 &27 CcL¢e KNIT (1), EXP-4 COHPARE ADJUSTED PROBES
108C CO 81 ODEF R26 BE ADV2
1090 CO 87 O21TE &2g9 B UNPACK CONVERT PROBES
1095 01 1034 &30 pc XL 1°018
1095 1BAT 1096 431 pc AL2 (EXP-4)
1097 1396 1898 «32 pe AL2 (VIPEB-26)
1099 CO 87 1219 &33 B TURN
109D CO 87 ODEF gza B ADV2
1041 OC 00 T4E9 TUDA &35 FLAT svc ART (1) ,FAY+1 * AM CHAR ROUTINE
10R7 OC OO I4E8 14UDA &36 svc ART~-1 (1) , FAY+1
1O0AD OC 00 148E7 14DB 437 MVC ART-2(1) ,FAY+2
160B3 0C 00 14E6 T4DB a3s MYC ART-3 (1) ,FAY+2
1OB9 OC O4& IHE5 1508 &3¢g MVC ART-4 (5) ,ONE#2
TOBF 3 24 TUBER 4&6 ELAN BVI ABNER-1,X*24! CLOCK BYTE RESET
10cC3 3¢C Cu 14EC R414 GRAIN MVI ELLA-1,X'O4? DATA BYTE RESET
10C7 38 01 14E1 8&2 TSN ART~8,X*O1®
10CB CO 10 1102 uaz BT ORGY
10CF CO 87 OFf65 &&& EON B FROG
10D3 38 80 14E6 4a5 ENT TBa ART-3,X'80! TURN ON AM BIT
10D7 F2 10 OA GEE JT ACT
10DA 38 80 14E8 &at BAT TBN ART-1,X'80# TURK ON DATA BIT
1O0DE F2 10 OB ase JT AXE
WOE F2 87 OC &&S J BAT
10E4 3A 10 18EA &50 acT SBN ABNER-1,X' 10! SET AM BIT ORF
10E8 CO 87 TODA &51T B MAT
GEC 3A 08 18EC 4S2 EXE SBN ELLA-1,xX'* 08! SET DATA BIT O8
10FO 31 A3 14EB &53 BAT LIO ABNER,X'*a3? CE LIO FOR CLOCK TIME
TOFU 31 A3 I4HED &S4a Lio ELLA, X*A3* CE LIO FOB DATA TIBE
10F8 OF 09 14E9 14E9 &55. ALC ART (10) , ART SHIFT BITS
1O0FE CO 87 10BF 856 B ELAN
1102 3c 07 10D0 &57 ORGY MVI EON+1,X*O7# SET SW OFF FOR SENSE PR
1706 CO 87 ODEB a56& B ADV3
4S €£eee% SUBROUTINE TO SET B TO 0 SeEEESESE
V10A 3C 00 1FE4 860 ANTE MVI ARNE+3,xX'0O0O# SET 8 BYTE TO 0
TI0E CO 87 ODF3 &§61 B ADV1
462 *#%*%* SUBROUTINE TO END CF ROUTINE BALT +TESHEK SS
1112 CO 87 TATA &63 AEP B END
46% ##e4%* SUBROUTINE TO FORCE 256 X PARA CHT OSC VEKEKTE SE
1116 OC 00 151A 14DA 465 SHOP BYC ANO-1(1),FAY+1 MOVE COURT TO COUNTER
111C 31 83 1UCE &66 SEPAL LIO ARID, X°A3! CE LIO &8R OSC
4120 OF 01 151B 1502 S67 SLC ANO (2) ,CONE SUET ONE
1126 CO 01 T11Cc 468 BNZ SEPAL CORT TILL 3 ZERO
112A CO 87 ODEF &63 B ADV2 GET NEXT PARA
%7Q See%% SUBROUTINE TO BRANCH TO NE@ ROUTINE FFSITSRASE
T12E oc 01 4137 14uDB &7T GHELK YC BEAT+3 (2) , FAY+2
1134 cO 87 7134 §T2Z BEART B BEAT
Q7Z S#SeeLEKKE SUBROUTINE TO CHK STATOS SERECSESOE
1138 30 A2 12DB &7& STAT SNS KNIT-2,X*A2?* SENSE STATUS 0 ¢ 1
BATE ####$O2MAR70 O1APR70 OGRAY70 0130L70 O1MAR71 PROG ID OA01-4
EC WO. 571512 571516 5714513 571524 571573 PAGE u
>
oO o 9 8 0 080 08 0 9 9 8 @
O ©
©
ee)
O
Oo ©
®o © 9 0 90 9 © &
@° © @ © o
oe @? @® © @
Oo oO 8 8 8 98 8 © 8 8 @ 8@ 8 @ @ 8&8 @ 8
@
@
@
EBN ABRINTENANCE DIAGNOSTIC PROGRAB PRET BO. 3129674
. PAGE a «OCG
201% #$FILE CONTROL UNIT FLT SECTION 4 - . o
$ .
BRR LOC OBJECT CODE ADDR STMT SOURCE STATERE.
*413C 30 a3 72DD 475 SNS KBIT,X*A3* SEESE STATUS 2 ¢ 3 3
7180 OC 02 1BAS 14DC 596 MYC EXP-1(3) ,FAYe3 SEZ UP EXP PIELD
7186 0c O02 1B98 1BA8 “77 HYC MSK-1(3),8SK?2 SET GP DONT CARE BIK’S Be
114C CO 87 1B52 a7s B FAKE BR. TO ADJUST EXPECTED Sv ares !
4150 OD G2 12DC 1BAO a79 CLC KBLT<-1(3) , EX E-5 COBPARE ADJUSTED STATUS
1156 CO 81 ODE3 880 BE ADYS =
115A CO 87 O2Z1E 48t 8 UNPACK CONVERT EXPECTED STATUS a
115E 03 415E 482 pc XL1*°03°
115F 1BA0 1160 4e3 pc AL2(EXP-5) . eo
4161 1398 1162 488 pe AL2 (VI PEB-28) i
1163 CO 87 1239 &B5 8 TURE
1167 CO 87 ODE3 4 86 B aDvS $e
kQ7 *#eee6eSFT WR OSC BIT ON SERIAL DATA ROUTINE*¢eceseesensose we
116B 3A 4O OEFT 888 VARY SBH ORE+*1,X%4u0¢ SETSET OSC BIL OF
116F 3A 40 OEPB & 89 SBN ORE*S,x*°a@0?* SET OSC BIT OB a
41173 CO 87 ODF3 8390 B ADV1 ve
uO} seeeeteSET WR OSC BIT OFF SERIAL DATA ROUTIBNESessecescseacesess
1177 3B 4&0 OEF7 &92 WARY Siy ORE+1,x*°8O® SEZ OSC BIT OFF a
117B 3B SC OEFFB 493 SBF ORE+5,X*s0° od
117F CO 87 ODF3 494 8 ADV1
495 RSeSesee SET SEWSE BY BIT $# CSSOSESSSSSSSESSTHEESS ae
1183 3C 87 OFFA 896 WINE SYI GALA¢1,xX*87* SET SENSE TO BIT BATE ai
1187 CO 87 ODF3 u97 B ADV?
G98 ¢eeeeESET SENSE BY BYTE*Q tS OCS OF 86 S9SSSSSSEs
118B 3C 07 OFFA 499 TINE MYI GALAt1,xX*07* SEZ SEKSE TO BYTE RATE
118F CO 87 ODF3 500 B aADV1
S01 *#*¢s*eSET SEP CLK OFF SERIAL DATA ROUTINE *eeceeecseasoesese
1193 3B 20 OEF7 502 WIRE SBF ORE+1,x*20° SET SEP CLK Bit OFF
1197 CO 87 ODF3 503 B ADV1
50% **#e¢e°SET SPP CLK ON SERIAL DATA RUUTIEES¢¢eesecusoescese
119B 3A 20 OEF7 505 wIRY SBE ORE+*1,X°20°* SET SEP CLK BIT OF
119F CO 87 ODF3 506 -B ADV1 .
507 RSTSOCSSSERIALIZE DATA CHAR WITH SERS SESeSsesseese see esseseesee
11A3 3C 87 OFSFP 508 MIET NVI FOES+1,x*87# SET S® FOR SES PPBEX
11A7 CO &7 OFFA 509 B TRACT
510 S¥StkS*eERM CHAR WITH SERSE FAKSESSEESESTCSKESESS
11AB 0C 09 14E9 14AF 511 SIBE BYC ART(10),SHA8T7
11B1 3C 87 10D0 512 HY¥YI EOR¢1,xX°87? SET SH FOR SNS PROBES
11B5 CO 87 10BF 513 B ELAN
514 *##eeeee3SPRIRLIZE DATA CHAR WITH SENSE AND RESET DFDR?#teeeeseee9
11B9 3C 87 OFSB 515 LINT EVI ZONE+1,X°87
*11BD 36 01 1502 516 A ONE,XR1
11C1 CO 87 OEEA 517 B TRACT
518 €$4SE44RT EST CE LIO ROUTIB FEROS Se SS SF SSSESCESSS
11C5 31 A& 1493 519 ACRID LIO CORN,X*AS
*1109 37 Aw 1495 520 LIO CORD,X*Au®
11CD 31 AY 1893 521 LIO §=6cCoRN, X*AG
*11D1 CO 87 ODF3 522 B ADV1i
523 S*eSEKSES*EROUTINE TO CHECK SCAB POORD SKFSESSESKSESSESRSESSK
11D5 3C 01 11E2 524 POOR VI FOR+1,X*01" a
11D9 C1 AS 1121 525 TIO FOR,X*A!
11DD 3B 01 11E2 526 SBF POR+1,x*01°
11E1 3p 00 14DA 527 FOR CLI FAY+¢1,x#00°
*11E5 CO 81 ODEF 528 BE ADV2
11E9 OC 11 13B0 13c3 ~< 529 SYC VIPER(18),SCAS
11EF 38 01 14DA 530 TBR PAY+1,x*O7* JEST FOR EXP SCE HIT
11P3 CO 90 1219 531 BF TURN BR IF “OT
11F7 OC 07 13A0 1341 §32 KVC WIPER-16{ 2) , VIPEB-15
11FD CO 87 1219 532 B TURE
1201 CO 87 ODEP 538 B ADV2
535 RBECEKKSIS PRINT SUBEOCUTIBE SBSCSESESSSESCCKSSoeensese
7205 8OD540D54u6480 120A 536 OGLE oC CL6" BR °
*120B 3C E8 12FE 537 ELF HVI WIBS+2,X°ES* BOVE Y TO P2IET
120F F2 87 8E 536 3 FLY
1212 3C E8 1300 539 BUG NVI HIBS+4,X*ES* BOVE Y TO PRIET
1216 F2 87 8B 540 J FLIT
1219 34 08 12c3 5481 TURN St PoUT,x*08
*121D CO 87 1326 542 ONLY B OSCE
DATE 0284R70 01APR70 OG6MAY70 01301L70 OTMAR71 PROG ID 0007-8
EC NO. 571512 571516 571524 571573 PAGE aa
571513
ws.
© @ & © : @-- @ 0-0-0. @. -@ o--@. -@ [email protected]@..
“IBS MAINTENANCE DIAGNOSTIC PROGRAM
agian.
ERR LOC
1221
1227
1228
122F
1233
1239
123F
1243
7249
1248D
1251
1255
1259
125F
1263
1264
1266
1268
126C
1272
1278
‘ 127¢
1282
1288
126E
12948
4298
129C
12A0
T2A4
1248
12A9
T2AR
I2AC
4280
1282
1284
1288
T2BC
12€0
12C4
12C8
12CE
12D2
12D6
12D7
T2DE
12E3
12E6
12E9
12EB
12F3
T2FR
12FD
1325
1326
132A
1325
1332
1333
1334
1336
1338
133¢
1344
DATE
EC NO.
FILE CONTROL UNIT FLT SECTION 1
SOURCE STATEMENT
PART RO. 5129617
PAGE 5
OBJECT CODE ADDR SiMT
06 01 12F3 1488 543 AZ BRAD (2) , TEN (2) ADD 1 TO ERROR COUNT
3C 40 12F3 544 BVI BRAD,X*4O! MOVE BLANK TO PRINT
3C 40 12F1 545 MVI BPAD-2,X'40? MOVE BLANK TO PRINT
3C 00 122A 546 EVI OPINE,X*00* CLEAR UNPACK AREA
OC 15 12E9 12EA 547 MVC OPINE-1(22) ,OPINE
OC 00 12D6 1325 588 MVC ANDES(1) , ARDY
3&8 01 12D5 549 ST AN DES-1,XR1 STORE MSG COUNTR IN PR AREA
OC 03 12E2 1FE4 550 NEON VC KITE(4) ,ARNES3
30 a2 12DB 551 SNS KNIT-2,X*a2!* SENSE 01
30 a3 12DD 552 SNS KNIT, X*A3* SENSE 23
30 A6 12E5 553 SNS KIT,X*A6? SENSE DFCR
30 Au’ 12E8 554 SNS KAT,X*Au* SNSE DFDR
Oc 00 12EA 1£E0 555 MVC OPINE(1),BARN
CO 8? 021E 556 B UNPACK
18 1263 557 DC XL1*18"
12EA 1265 558 DC AL2 (OPINE)
1324 1267 559 pc AL2 (UNIT)
cO 87 12c8 560 STAR B BURN
Oc 03 12FA 1524 561 MVC) = NIBS-2(4) , ALMS-1 BOVE MSG NOMBER TP PR
OC OS 1302 120A 562 SLAB VC NIBS+6 (6),O0GLE
3C 40 12F6 563 NVI NIBS-6,X'40! MOVE BLANK TO PR
Oc 01 1322 120A 564 MYC. UNIT-2(2), OGLE MOVE BLANKS BETWEEN FLDS TO PR
Oc 01 131C 120A 565 MVC =- UNI T-8 (2) ,OGLE MOVE BLANKS BETWEEN FLDS TO PR
OC 01 1316 120A 566 MVC UNIT-14(2) ,OGLE MOVE BLANKS BETWEEN FLDS TO PR
OC 01 130C 120a 567 HVC) UNIT-24 (2) ,OGLE MOVE BLANKS BETWEEN FLDS TO PR
3C 40 12F4 568 MVI BRAD+1,X*40! MOVE BLANKS TO PR AREA
3C 40 12F5 569 MVI BRAD+2,X'40' MOVE BLANKS TO PR AREA
C1 a2 120B 570 TIO ELF,X'A2? EST FOR BUSY
C1 a0 1212 571 FLY TIO BUG, X*AO? TEST FOR ERROR
CO 87 O21A 572 FLIT 8B PRINT
81 12A8 573 pc XL1*91°#
39 12A9 574 DC XL 1* 39"
1324 12AB 575 pc AL2 (UNIT)
CO 87 021A 576 B PRINT
0139 12B1 577 Dc XL2'01398
13B0 12B3 578 ie AL 2 (VIPER)
3C 07 OS5C 579 MVI = FILET+1,x'07# STOP AFTER FIRST GROUP
C2 01 027A 580 LA PRINT ,XR1
34 01 1A1D 581 ST END+3,XB1
C0071000 12C3 582 POUT DC XL4 "C007 1000 °
*cO 87 12c4 583 GOUT 8B GOUT
Oc 05 12FC 1480 584 BURH YC NIBS(6),CRUX-1
cO 87 1272 585 B SLAB
0218 586 PRINT EQU X*217A~!
021E S87 UNPACK EQU X*21E?
12D5 588 KUT DS CL4
00 12D6 589 ANDES DC XL 1*00
*12DD 590 KNIT DS CL7
12E2 591 KITE Ds CLS
12E5 592 KIT DS CL3
12E8 593 KAT DS cL3
12EA 594 OPINE DS CL2
4OCSD9DIDEDS4OFO 12F3 595 BRAD DC CL9* ERROR 0 !
40 595
12FC 596 NIBS DS CL9
1324 597 UNIT DS CL40
00 1325 598 ANDY DC XL1°00
*599 ¢¢#*#e"ee¢PRINT HEADING ROUTINE ONLY ONCE PER LOADteesaeeees
34 08 133B 600 ONCE sf HERE+3,X*08!
3C 07 121E 601 MVI = ONLY+1,X°078
cO 87 O21A 602 B PRINT
C1 1332 603 pc XL1'c1°
*3, 1333 604 Dc XL1*3a
*1376 1335 605 pc AL2 (OPUS)
A001 1337 606 Dc XL2'a0018
CO 87 1338 607 HERE 8B HERE
4OCSDSDSDED94ODS 1345 608 pc CL10* EBRGR KO.
*D64B 608
02HAR70 O7APR70 O6MAY70 0150170 O1MAR71 PROG ID OA01-4
571512 571516 571513 571524 571573 PAGE 5
© 9200 00 60000003 0 ©
o
QO
Q
Oo od 9 8 @ @ 8 8 @ 8 86 6 6 08 4
oO 9898 908 © 9
© 6 6 8 Oo 9
o ©
|
|
@
0 0 ® © @ © 80 6 6 6 @
oO
@
.-&. Wt we @. ~~ & won ae ©... %: @ ee ae @ "ei is 2S. .& ee oo we ©. ie eo. © nae tbe x ) shee ate o& ee he @ Sus @ :
a wee , : te Bue Pe &
IBM MAINTENANCE DIAGROSTIC PROGRAS
ao1i48
ERR LOC
1346
1345
1356
135E
1366
136E
1376
1377
137¥F
1387
41389
1381
13B2
13BA
13C2
13C4&
13c8
13CE
13D2
13D6
13DCc
13E0
i3E3
1357
13EB
T3EF
13F5
13F9
13FD
1403
1407
140D
1441
1815
1816
1418
147A
1420
1424
1428
182C
1430
1434
1438
1438
143F
1443
TaaT
TRaB
14aayp
14854
1456
1458
145c
1463
1469
TU6F
1475
T47B
1482
1487
148C
188E
1492
1494
DETE
EC WO.
FILE CONTROL UNIT
OBJECT CODE
FLT SECTION 1
ADDR STEHT
SOURCE STATESERT
PART BO.
PAGE
| $4129614
Sa
SOD4E2ZCTRODSDE4NB 1376 609 OPUS bc CL49t BSG BO. BE SI220S CTRL FLD DFCR ODFDR naTa
*8OC2Z40CS4ON0R0E2 €09
EICIEZEXE2K4O08040 609
C3E3D9D340C6D3C4 609
4¥O040CUCEC3DS&040 609
C4&C6C4D94U0CHCIE3 609
c1 609
SO4OCSE7TD7ICSC3E3 1388 610 pc C1L18* EXPECTED 8
CS5C44 08040400080 676
4040 610
13B0 611 VIPER ovDS CL4ao
40 13B1 612 BLANK pC CLi® 8
DSD6SOC2D94BNOD6 13C3 613 SCAN pc CL18*#O BR. ON SCAN HIT
*DS80E2C3C 1D5480C8 613
CSE3 613
614 ¢eeexeseseROUTINES 4 SELECT HEAD 0 OR 1 steeseerscescosseoseses
34 08 13EA 615 Boss St SASK+43,X*°08° STORE RETOUR
Oc 03 1FES 144A 616 avc ARNE+3(4&) , BASK SET UP FOR HD 1
CO 87 13DC 617 8 sass e
3% 08 13EA 618 BASS ST MASK*3,x°08* STORE RETURE
OC 03 1FE4 1846 619 HVC ARNE+3(4), PASS SET UP POR HD 0
31 A6 1149p 620 SASS LIo ARNE, xX*a6
*F3 AO 00 621 sto X'00*,x*a0°® SEEK
CO 87 13EB 622 B ANISE
CO 87 #13E7 623 MASK B MASK
624 *#800848¢88 SUBROUTIKE TC CHK SK BUSY *#¢8ee0eee08¢88
34 06 1442 625 ANISE ST ANVIL+3,X* 08° STCRE RETURNS
Oc 00 t4F4 1502 626 aVC BEIGE-2(1) ,ONE SET UP TIME OUT CTR
30 A2 12DB 627 ATTIC SKS KNIT-2,X*A2* SENSE STATUS 0 e 13
30 A3 12DD 628 SNS KNIT,X*A3?* SENSE STATUS 2 # 3
OC 02 1398 1IBAE 629 mvc BS K-1(3) ,8SK3 SET UP DOBT CARE BITS
3c 00 1BAS 630 AVI EXP, x*00* SET UP EXPECTED BITS
Oc 06 1BA4% 1Ba5 631 BVC EXP-1(7) , EXP
CO 87 1B52 632 B FAKE ER. TO ADJUST EXPECTED BITS
Co) 87 O21E 633 B UNPACK BR. TO CONVERT STATUS
03 1415 634 Dc XL1'03°
1BA0 1417 635 pe AL 2 (EXP-5)
1394 1419 630 pc AL2{ VIPEB-28)
OF 02 14F6 1562 637 SLC BEIGE (3) , ONE SOTRACT OSE FROS TISEOUT CTR
CO 01 %42C 638 BNZ AEBBOR
co 87 1219 639 B TUBN
CO 87 AIA 6&0 3 END
38 10 12DB 641 ARBOR TSS KNIT-2,X*10* TEST FOR SEEK BUSY
cO 10 13F5 642 BT ATTIC LOOP IF BUSY
38 01 12DA 643 TBN KNIT-3,xX*01* TEST FOR SEEK CHECK
F2 90 0&8 644 JF ANVIL
cO 87 1219 645 B TURE
CO 87 143F 646 ANVIL 3B ANVIL
00000000 1446 647 PASS oe XL& §*00000000 ® SEEK CTL FLD HO SOTION HD O
00008100 QUA 648 BASK DC XL4& *00008 100
*TAIA 1ugc 0 =6689 GAUDY DC AL2 (ERD)
§5c5cc5 p5cuscsc 1453 650 LANE be CL] *#*# ENDS eet
ATA 1455 651 SAND pc AL2 (END)
1458 1457 652 SA@ bec AL2 (CAKE-3)
000001DF 145B 653 CAKE DC XL4*Q00001DF
*FOFTFOFOFOPOFO 1462 654 TRUCK oDC XL7 * FOF1FO FO FGFO FO
F2 FOFOFOFOFO 1468 655 TRICK pc XL6' F2FOFGFOFOF 0®
F3FOFOFOFOFO 1846E 656 THICK pbc XL6 *F3POFOFOFOFO?
F4& FOFOFOFOFO 1474 657 THAT pc XL6° FUFOFOFOFOFO®
PSFOFOFOFOFO TU7A 46658 THES pc XL6 'FSFOFOFO FOFO®
FOFOFOFOFOPOFO 1481 659 CRUX Dc CL7* 0000000"
FOFOFOFOFO 1486 660 FLUX c CL5 *00000
*FOFOFOFIFO 148B 661 TER Lc CL51 000108
A300 148D 662 LAP oc ZL2 *A3008
*00005403 1491 663 SOAP pc XL4*60005403
*PFFF 1493 664 CORK pe XL2 'FPFF®
*0000 71495 665 CORD pc XL 2*G0G0°
000% 666 XR1 EQu 4
O2MAR70 OTAPE70 OGHAY7G O13UL70 O1HBE?1 PROG ID Ca01-4
571512 571516 571543 5775248 57 7ST3. PAGE SA
my
€9
oO 8 8
wr)
>
cf
©
oO
©
oO 9. ©
von ate Nee AP AN ae dana as eee ea an Pe i tan en Bar SR AES att ia NE Sliver lagi Dhan ba he eS ie Ra bee te te
IBS MAINTENANCE DIAGNOSTIC PROGRAH
a0is
ERR Loc
1696
TH9A
149C
14SE
T4A3
T4A4g
14,a8
1480
18Ba
1486
14888
TOBA
T&BC
TUBE
18C0
148C2
18cu
14cB
14c9
14CB
14cD
14CF
14D3
TAD’
14D5
T4aDd7
14&D9
14DA
TUDE
THEO
14E8
THEA
T4EC
T4EE
14FO0
VuF2
14P4
T4F7
VaFa
TaFE
14FF
1500
1503
1506
1509
150D
150F
1512
1514
1516
1518
151k
1S51B
15tc
151D
151F
1521
15 26
1528
1529
152A
152D
152Y
1530
1533
1536
1539
153c
DATE
EC NO.
FILE CONTROL UNIT FLI SECTION 1
OBJECT CODE ADDR
00000005 14899
TEEO THOB
1PE1 149D
DICSCE4SOF 1 THA 2
00 14a3
00000000 TAT
000100001818C2c2 14AaP
OOFFO401 1483
A101 14B5
A100 14B7
A102 18B9
A103 18BB
A200 SBD
A201 14BF
4301 14C1
A302 14&C3
00000000 TNC?
03 14c8
0000 T4CA
0000 T4acc
4000 1aCE
‘00000000 T8D2 -
00 T4HD3
$5 14D4
0900 T4D6
0000 Tabs
00 14D9
TVaDD
0600 T4&DF
39500000000000000 1459
0000
0000 14EB
0000 T&ED
0000 T4EF
0000 WaFI
9000 T48F3
000600 14F6
007000 14P9
00000000 T4FD
00 T4FE
00 14FF
0600001 1502
000002 1505
000004 1508
10100000 50C
0003 ISOE
S114
0000 1513
0000 1515
0000 1517
0000 1519
00 TS1A
00 151B
00 151¢
6000 I51E
4000 1520
0000000000 1525
1528 4527
40 1528
02 1529
525866 1S2c
2410 I52E
22 1527
1A0005 1532
3A4C218 1535
1A0E01 1538
IAFFO1 1538
120005 I5S3E
O28AR70 CTAPR7O
571512 571516
alt ee He AG GE Sender ea pe
PART NO. 51296114
PAGE 6
STBT SOURCE STATENENT
667 ABYSS DC XL 4*00000005
*668 BESS DC AL2 (BARR) ADDRESS OF DATA FIELD
669 ANNE pc AL 2 (ARNE) ADDRESS OF CONTROL FLD
670 PALMS DC CLS*REF 1°
671 SAY DC X1L7*°008
672 bc XL4& *90000000°
673 SMART DC XL8 00010000 1818CzCc2
*67& COPE pc XL4*OOFFOR01' READ DATA 2 CTL FLD
675 MAY bc XL2°A1018
676 HOR bc XL2°A100
*677 OPERA DC XL2'2102
*678 PINE pc X1L2*A103
*673 RAT pc XL 2* 42008
680 SET DC XL2‘a201
*681 TAP Dc XL2*a307
*682 WIP Dc X32 *A302
*683 HOPE pc XL4*00000000° CTL FLD WR ID BD ID
684 ROPE DC XL1 ‘03! CTL FLD WR DATA RD DIAG
685 WAD Dc XL2*0000!
686 WED Dc X1L2 ‘0000
687 AkID bc XL 2* 40008
6@8 CAREA DC XL4 *00000000°
*689 CCHTR DC XL 1°00"
690 FTYS oe XL1°55"
691 ANY pc XL2*0000* DFCR PARA
692 ENY Dc XL2*0000" DCFDR PARA
633 FAY DC XL1*008 PARA WKG AREA
694 DS CL4
635 GAY be XL2* 0006! PARA POINTER
696 ART pC XL10*00000000000000000000"
636
697 ABNER DC XL2*0000
*698 ELLA BC XL2"00008
69S BELL pe XL2*00008
700 BaN bc XiL2* 0000"
701 FLUID DC XL2*00008
702 BEIGE DC XL3*000000°
703 TAN DC XL3 007000!
708 CANT bc XL4* 600000008
765 BSIND DC XL1*00¢
706 ERIN bec XL17* 008
787 ONE Dc X13 *000001'
708 TYO Dc XL3*000002
*709 FOUR pc X13 "000004"
710 TONY DC XL 4* 101000008
731 THREE DC XL2 £0003
712 DS CL3
713 BROAD Dc X1L2 #00008
71& TOAD Dc XL2* 00008
715 BYWAR DC XL2 500008
716 ALTAR DC XL2*00008
717 ANNA pc X1L1*00°
718 ANO Dc XL 1* 008
713 POND pc XL1*00!
720 CLK1 pe XL2* 60008
721 FETE pc X12 *4000
*F722 ALES pc XL5* 0000000000
723 MAX be AL2 (MORN)
728 MORN be XL1*40!
725 bc XL1*0O2! 2 osc
726 bc XL3*5255E66° RESET
T27 bec XL2*2A10! SEI BUSY NO ERROR
728 pc XL1°22¢ INITIALIZE SET TO 8
723 pc XL3*1A000B"* 11 BYTES 0
730 pc X1L3 *3AC218° GOOD AM
73t BC XL3*° 1A0EO1* SYNC CHAR
732 BC XL3 *1AFFO1* IST BYTE ID FF
733 pec XL3* 1A0005* 2 BYTE 0 ID 3 BYTE CC DATA CHK
OGHAYTO 0130170 O1MAR71 PROG ID OA01-4&
5774513 $71524 571573 PAGE 6
*
8
SP ee a ee
ole
ole
ole
ole
cle
ols
ole
oe
ole
ale
Ole
O16
cle
Clo
clo
| 6
Gio
O16
CO
°o 6G
a.
C. 5c
6: 4
o/0
clo
°°
© 8
e ©
we Ae ee ee
sate Se ae ee ee ad Ne eR
tyne
IBH HAINTESARCE DIAGHCSTIC PROGRAS
A01&
ERR LOC
153F
1544
1544
1549
154C
1S4uF
1552
1555
1558
155B
155E
1561
15648
1567
156A
156D
1570
1573
1576
1579
157C
157F
1582
1585
1588
158B
158E
1591
1594
1597
159A
159D
1580
15A3
15 a6
15a9
15ac
1SAE
15B1
15B4
15B7
15BA
1SBC
15BF
715c0
15C2
15¢c4
15c5
15c6
15¢c9
15CB
15cc
15CF
15D2
15D5
15D7
ISDA
15DD
15E2
15E5
1558
15EB
15EE
YSF1
15F4
1SF7
1SFA
15FD
DATE
EC NO.
9e@eeoeeeedeeee7ed?ee?20 @ @.-
OBJECT CODE
2a11
TAQOOE
02 FF000000
3A 8218
146002
3A4218
1A0002
3aC018
130002
3AC210
720092
3AC208
Tk0002
3AE218
130002
3AD218
440002
3ACA18
1A0002
3A8C628
129002
3kC0318
130002
3AC298
120002
3AC258
TA0002
3AC238
120002
3AC21IC
1A0002
3AC21Aa
1R0002
3AC219
140002
3AC218
2410
1A0E01
1AQ003
TAFFO3
1AQ00A
2400
7180001
GA
OAAD
15C4
&O0
02
525566
2410
22
1A000B
34C218
TA0EO1
2A 71
1AFFO1
TA0006
%E0A000000
TAQOOE
$AC218
TAGEO!
780004
TAFFO1
1A 0401
tA0001
TAFBO1
TA F601
2410
02MAP 70
571572
PILE CONTROL UNIT FLT SECTION 1
ADDR STMT SOURCE STATENERT
1540
1543
1548
1548
154UE
1551
15548
1557
15528
iSSD
1560
1563
1566
1569
156C
156F
1572
1575
1578
15783
IS57E
15814
1584
1587
158A
i58D
1590
1893
1596
1599
159¢
159F
1SA2
15a5
15A8
15AB
15akD
15B0
15B3
15B6
1559
15BB
1SBE
1SBF
18C1
153
15C4&
15¢5
158
1SCA
15CB
J5CE
15D1
15D4
15D6
15D9
15DC
15E1
15E4
T5E7
ISEA
I5ED
15F0
15F3
15F6
iSF9
1SFC
15FE
QTAPR70O
73%
735
736
737
738
739
740
741
742
743
744
7&5
746
F4a7
748
749
750
751
752
753
758
755
756°
757
758
759
760
761
762
763
76u
765
766
767
768
763
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
765
786
787
788
789
790
791
792
733
794
795
796
797
798
789
800
801
PEN
SHED
O6MAY70
571513
pc ZL2* 2A77
*Dc XL3* TAOQO0E®
pc XL5*O2FFO00000
*pc XL3°3a8218
*DC XL 3* 1A0002°
Dc XL3°3A4218°
DC XL3*1A0002°
pc XL 3*3aco018°
bc XL3*71a0002
*pe XL3* 34C 270°?
Dc XL3 *120002¢
pc XL 3* 3aC208°
BC XL3* 1000028
Dc XL3*°3AB218
*pc XL 3* 120002
*Dc XL3*3AD218°
Dc XL 3* 120002
*pc XL3"*3ACA1B°
pc XL3* 1400028
DC XL3*3aC623°
DC XL3* 140002"
eal XL3*3aC318
*vc XL3 *1a0002°
DC XL 3* 3ac298°
pc XL3*1Aa0002¢
pc XL3*3AC258"
pc XL3*120C02
*Dc XL 3* 3aC238°
pc XL3*1A0002¢
pc XL3*3aC21C?
pc XL 3* 129002!
DC XL3*3AC21~a°
Dc XL3* 10002
Dc XL3*3aC219°
DC XL3* 1A0002
*Dc XL3*3AC218
*eS XL2* 2A170°
DC XL3*1AQEO1
*pc XL3* 7A0003
*DC XL3*1AFFO3
*pe XL3* 1A000a
*pc XL2*2a008
DC XL 3* 1A0001
*DC XL1*438
pe AL 2 (RAPT)
pc AL2 (SHED)
DC XL1*40#
DC XL 1°02?
DC XL3*525E66°
pc XL2* 22108
pe XL1#22°
DC XL3* 1AC00B
*DC XL3*3ac2198°
DC XL3" 1A0E01°
DC XL2*2A117°
*pc XL3* 1AFFO1®
pc XL3*1a0006"
DC XLS*4EOA000000°
Dc XL3*1AQ00E
*DC XL3* 3ac218°
pc XL3"1A0E01
*pc XL3* 140001°
pe XL3"VAFFO1
*DC XL3* 1004018
pc XL3"1A0007°
pc XL 3* 1AFBO1
*Dc XL3*1AF601°
DC XL2* 2a 10°
01350170 O1HAR71
571524 571573
PART WO. $129611
PAGE 6:
SEI BUSY ERROR
1@ BYTES 0
ADR BAEK
2 BITES 0
ADR BARK ASG BIT 1
2 BYTES 0
ADE HABK ASG
2 EYTES 0
ADE HARK ASG AB BIT 2
2 BYTES 0
ADR BARK SSG AB BIT 3
2 EYTES 0
ADR BARK EXTRA
2 BYTES 0
ADR MARK EXTRA
2 BYTZS 0
ADR BARK EXTRA
2 BYTES O
ADR HARK EXTEA
2 EYTES 0
ADA BARK EXTRA
2 BYTES 0
ADR HARK EXTRA
2 EYTES O
ADR EARK EXTRA
2 BYTES O
A EH EXTRA AB IT &
2 BYTES O =
RDR HARK EXTEA AB BIT
2 BYTES 0
BDREARK BISSIEG A # BIT
2 BYTES 0
ADESERK HISSING AB BIT
2 BYTES 0
GOOD AA
SEIT BUSY KO ERROR
SYBC CHAR
ID S//1//
ID cc
POST ID
SET HOT BUSY HO ERROR
ASG BIT 0
BIT 6
BIT 2
BIT 3
BIT 4&
BIT 5
BIT 7
A& BIT
AB BIT
ERANCH TO REXT ROUTINE
2 osc
RESET
SET BUSY WO ERROR
IEITIALIZE SET TO 8
11 BYTES 0
GOOD 4AM
SYNC CHAR
SET BUSY AND ERROR
1ST BYTE ID FF
6 BYTES O
TEST STATUS
14 BYTES O
GOOD AS
SYNC CHAR
FLAG
CYLINDER
SECTOR
CC CHAR
CC CHAR
ECA
SET BUSY HO ERROR
PkOG ID OA01-5&
PAGE 6k
a a nO ee
(2
vr,
Nat
3
F sais
sae R ‘ Cees A rae : : ! ot t : ; 4 : ; 1
= i ast = 5 ; 7 cat i" i ares Poe be ments ee ne Re roeike opt: mo ve rents tine ae ol pss hes te nme Sore en
then war a i pone iebiccca A feed “ten Te eee a sas’ aaa Kan N a vie nee [Nee ac eee Sane Lear ae s os se eee fens 95 ean een some
IBM MAINTEWANCZ DIAGHOSTIC PROGRAN
A014
ERR LOC
1S FF
1602
1605
1608
1608
160D
160E
16 10
1611
1614
16 16
1617
16 TA
161D
1620
4623
7625
1628
16 2B
162E
1630
. 1633
1636
1639
16 3C
163F
1642
7645
1648
1645
164E
1651
1654
1657
165A
165D
1666
1663
1666
1669
166A
166C
166F
1672
1675
1678
1678
167E
1680
1683
16848
1686
1688
1689
168A
168D
16 8F
1690
1693
1696
1639
169C
169F
16R2
16A4
1647
1GAA
1G6AaD
DATE
EC KO.
FILE CONTROL UNIT FLT SECTION 1
OBJECT CODE
1A000E
WAODEOT
TAFF3F
16FF
TAEFG1
06
1FiF
26
1R00CO0
16EF
26
TAFFO1
VAEFO1
1A0001
120014
E010
TACOOA
3AC218
1R80E01
8410
TA000A
3AC218
1A0E01
1A0001
JAFFO1
1A2801
720001
TAD701
TAFSO1
JAOOCE
TAOAO1
120601
TA8EO1
TRHEO
VA2EO1
IA1E01
TROFO1
1A0EO1
1R0008
06
1EEB
TAQEO1
TAOOFS
TAFFO1
JAF101
1AFCO1
TA000E
2400
1A0001
aA
OAF?7
1688
40
02
525866
2410
22
TAOOOB
3AC218
1A0EO1
1A0003
IAFFO3
140005
4010
140000
146029
3aC218
TR0EO1
OZ2MAR7TO
577512
ADDR
1601
1604
1607
1609
160C
160D
160F
1610
1613
1615
1616
1619
161C
161F
1622
1624
162
1628
162D
162F
1632
1635
1638
1638
163E
1641
1644
1647
168A
164D
1650
1653
1656
1659
165C
165F
1662
1665
1668
1669
186B
166E
1671
1674
1677
167A
167D
167F
1682
1683
1685
1687
1688
1689
168C
168E
168F
1692
1695
1698
1695
169E
16A1
7643
1626
1629
16AC
16AF
OVAPR7O
STMT SOURCE STATESERT
802
803
804
805
806
807
808
809
810
611
812
813
814
815
816
817
878
819
820
821
€22
823
824
825
826
827
828
8239
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
B45
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
ROT
RUNT
OGHAY79
571573
Dc
01JUL70
571524
XL 3*1A000E"
XL3* 1A0 501°
XL3*1APF3F!
XL2"16FF¢
XL3* TAEFO1!
XL1'06¢
AL 2 (BARN+63)
XL1*26°
XL3"1A00CO0!
XL2"16EF
*XL1°26!
XL3"1AFFO1!
XL3*1AEFO1'
XL 3* 1A0001°
XL3*1A0014"
XL 2*E010°
XL3°72000a!
XL3* 3aC218°
XL3"1A0E01!
X22°4410!
XL3*1A000A'
XL3"'3AC218!
XL3*1A0E01
*XL3* 100018
XL3*1AFFO1"
XL3*1A2801°
XL3*"1A0001°
XL3 *1AD701°
XL3' 1AF501!
XL3"1A000E
*XL3*1A0A01"
XL3*7A0601'
XL3' 1ABEO1!
XL3*1A4EO1!
XL3'1A2E01°
XL3*1A1E01°
XL3"'1A0F01!
XL3"'7A0 E01!
XL3"1A000B"
XL1 #06!
AL 2 (BARN+11)
XL3*1A0E01!
XL3'1A00F4!
XL3*1AFFO1!
XL3"1AF101°
XL3"1AFCO1!
XL3*1A000E!
XL2' 2,200!
XL3*1A0001'
XL1°Ga
*AL2 (RAST) |
AL2 (RUNT) —
XL1*°40¢
XL1"02
*XL3'525E66!
XL2'2A10°
XL1"22
*XL3*1A000B¢
XL 3" 3ac218°
XL3*1A0EO1!
XL3' 140003!
XL3'1AFFO3°
XL3* 140005?
XL2"80108
XL 3* 1400008
XL3*140029°
XL3* 3ac218!
XL3*1A0E01"
OINAR71
571573
PART BO.
$129611
PAGE : 7
14 BYTES 0
SYNC CHAR
63 DATA CHAR*S FF
COMP DATA CHAR FF
1 DATA EF
COMP DFDR
RESET DFDR
192 BYTES 0
COMP DATA CHAR 00
RESET DFDR
CC CHAR
CC CHAR
BCA CHAR
14 BYTES 0
16 WR OSC AND INDEX
10 BYTES 0
GOOD AB
SYNC CHAR
16 SEP CLK +DATA CYC IH
10 BYTES O
GOOD A A
SYNC CHAR
1 BYTE 0
1 BYTE FF ID C BYTE
1 BYTE 28 S 3] )
1 BYTE 0 CC1
1 BYTED7 CC2
1 BYTE FS BCA
14 BYTES O
TEST SYNC CHAR RECOGRITIOR
TEST SYNC CHAR RECOGNITION
TEST SYNC CHAR RECOGNITION
TEST SYNC CHAR RECOGNITION
TEST SYNC CHAR RECOGNITION
TEST SYNC CHAR RECOGNITION
TEST SYNC CHAR RECOGNITIOB
TEST SYNC CHAR RECOGNITION
11 BYTES O
COMP DFDR
1 OF TESTS NO ADV OF CCR RING
244 BYTES O
1 BYTE FF
1 BYTE F1
1 BYTE FC
14 BYTES 0
SET IND BUSY OFF ERROR OFF
1 BYTE O
BRANCH TO WRITE DATA
WRITE DATA ROUTINE
2 OSC
RESET
SET BUSY NO ERROR
INITIALIZE SET TO 8
11 BYTES O
GOOD AS
SYNC CHAR
3 BYTES 0 ID
3 EYTES FF IDCC
5 BYTES 0 TO PREDATA
16 osc
256 BYTES OSC
TO AS TINE
GOOD A#
SYNC CHAR
FROG ID GADT~4
PAGE 7
& a
oOo Oo 59 60 80 G0 80 6&6 89 O89 & ©
oO
oO 0 9 GG GC &
o
+
é
@ °°
oO AO G4 9
jee ee ho ee lea
Q Q oo
@ ..
o o 0 0 8 &@ 42 8 6 8G 8&8 & @
Oo ® 8 Oo 9
0 Q 9
e
9
a014&
ERR LOC
16B0
1683
16B8
16BA
T6BD
16BF
16C2
16C7
16C9
16CC
16CD
16CF
16D1
26D2
16D3
16 D6
16D8
16D9
16DC
16DF
16E2
16E4
16E7
16EC
162F
16F2
16F7
16FA
16FD
1700
1703
1706
1709
1708
1711
1716
1719
I7IC
171F
1721
1723
1728
1728
172C
17 2E
4730
1731
1732
1735
1737
1739
173B
173C
173E
1740
1743
1746
1749
174B
VINE
41751
1754
1756
1753
175C
175F
1760
DATE
EC WO.
OBJECT CODE
120003
4%£00000000
2ai1
TAFFO3
2A11
TAFFO4U
4E24000000
2Aa01
130001
aA
0B15
16D1
40
02
525866
2410
22
TA000B
3AC218
1A0E01
2ai1
TAFFO1
§E£02900000
140002
TAFFO1
4E020000C0
1A0901
TAFIO1
TACOOE
3aC218
1a0E01
1A0004
4E02000000
140003
4EOA000000
TROOOE
3AC218
TA0E01
2411
2416
4E0A 040000
120000
UA
OADS
1730
20
03
525566
2E01
8001
coos
1E
coop
2A10
TAOOOA
3AC218
1A0E01
4410
1A000A
3AC21C
IAOEO1
2A11
IAFFO1
740001
1A0002
OA
IPE
O2HAi70
571512
QIAPRIG
ae ee & oto .@. Pa ©. 2 es ©. =e @ “ @ ahs © ete @ Bah sie ©.
IBS HAINTENANCE DIAGNOSTIC PROGRAS
“~
*
iaee
ao
FILE CONTROL UNIT FLT SECTION 4
ADDS STMT SOURCE STATEMENT
1682 870 pc 0 s«XL3*1a0003°
16B7 871 EBC XL5*#EG00000C0®
16B9 872 DC 8 «XL2 *2a71°
16BC 873 pc XL3* 1AFFO3
*16BE 874 pC «XL2*2a11°
16C1 875 DC 0s«éXL3" 1AFPOS
*16C6 876 DC —«- XLS. *4E24000000°
16c8 877 DCs XL2*2a01°
16CB 878 pcs XL3* 1A0001°
16CC 879 pc 8 s«XL4 "wat
16CE 880 pe AL2 (VASE)
16D0 881 KOPE DC AL2(HONE)
16D1 882 NONE DC XL1"4O®
16D2 +883 oe XL 7°O02¢
*16D5 884 DC —-_- XL "525 B66
*16D7_ 885 DC = XL2" zA10?
*16D8 886 pe 8 «xXL17*228
16DB 887 pc XL 3' 120008
*16DE 888 pc XL3*3ac218
*16E1 889 DC -—-« XL3* 1A0£01°
16E3 890 pc 8 s«XL2*2a117°
1656 891 pc XL3* WAFFO1®
16EB 892 DC XL5*4£02000000°
16EE 893 pC 8s XL3" 1400028
16F1i 894 pc XL3*1A7FO1
*16F6 895 DC = XL5*4E02000000°
16F9 896 Dc XL3*1A0001°
16FC 897 DC —-s«sXL3* 1AF701°
16FF 898 DC =—- XL3"° 1A000E* -
1702 599 DC 8—« XL3 *3aC218
*1705 900 DC —_- XL3" 1A0E01
*1708 901 DC XL3 *720:-08°
170D 902 DC —-« XLS" GEG_900000°
1710 903 DC 0s XL.3* 1400038
1715 904 DC —-« KL5 "4 BOA000000
*1718 905 DC —- XL3* 1A000E
*171B 906 DC —s«XL3*3aC218°
I71E 907 DC —«- XL3* 1A0E01
*1729 9308 Dc XL2*2A17
*1722 909 DC —« XL2* 2416!
1727. 910 DC —«- XLS *G@EOa040000°
172A (911 DC —-_—« XL" 120000"
1728 912 DC «XL1¢G a!
172D 913 DC AL2 (RAFT)
914 *##*4*844¢*READ DATA DISG CLOCK STEP
172F 915 CAT DC AL2 (TOR)
1730 916 TOR DC XL1*4OF
1731 917 De XL17*03°
1734 918 DC —«- XL3"5 25 E36"
1736 919 DC = XL2*2E07
*1728 920 DC —_- XL2* 80017"
173A 921 pcs XL“2"C005
*173B 922 DC «xXL1*1E
*473D 923 bc XL2*coOoD
*173F 924 DC —_- XL2*2A10°
1742 925 DC —-—s XL3* 1a000a"
1745 926 DC —-« XKL3" 3AC218°
1783 927 DC —- XL3 "1A E01°
174A 923 Dc XL2*a410
*174D 929 bc XL3*1A000A
*1750 930 DC —-«xXL3* ac21¢
*1753 931 DC =—- XL3 "1AG EO7
*1755 932 Do «XL2" 2a11
*1758 933 BC XL3*1aFFO%
*175B 934 BC XL 3° T200074°
17SE 9335 bc XL3* TEOGEZ
*1ISF 936 pe «XL 1*OR
*1761 937 bc AL2 (AERE+ 3)
O6HAY70 O1JUL70 O1MRR74
571513 571528 SFISRs
PART #0.
3129611
PAGE 7a
3 EYTES O ID FORCE MISSING AB
SET BUSY OM ERR OF
3 BYTES FF IpDcCc
SET BUSY ERROR O8
& BYTES FF POST ID DEC 1
TEST STAT MISSING AM BO REC PHD
SET BUSY OFF ERROR O8
1 BYts 0
BRANCH TO WRITE ID PT
BEAD DATA 1 PARA
2 ose
RESET
SET ISD BUSY OB ERROR OFF
INIT SET TO 8
11 BYTES 0
GOOD A &
SYuc CHAR
SET IND BUSY ERR
7 sBYTE FF ID TREK CD CBX
TEST STATUS
2 BYTES O ID
1 BYTE FF CC CHAR 1
CC CHAR 2
cc CBRAR 3
1 BYTE 0
1 EYTE F7
14 BYTES 0
GOOD AB
SYKC CHAR
4BYTES ID AXD 1 CC
STAT TRK CORD
3 BYTES 0
STAT TRK CD A3SS A @ DATA CK
18 BYTES 0
GOOD A A
SYEC CHAR
SET IED KOT BUSY ERROR
22 OSC WITH 18H DATA CE REQ
2 BYTES 0
ERABCH TO READ DATA 2
PURCTION TEST 89 8tdee8tt6¢8
READ DIAG PARA
TESTS ABSENCE OF SET TO 8
RESET
TEST SENS
1 INDEX
5 INDEX AND OSC
IND INITIALIZE TO BRO DEC 1
13 IND AKD OSC TO BR 6
SEI BUSY OM ERROR OFF
10 BYTES 00
GOOD AS
1 SYNC CHAR
16 OSC AKD INH DATA CY REQ
10 BYTES 00
SAD ABS
SYHC CHAR
SET BUSY OB ERR OF
PHOG ID GEOtH&
PAGE 78
~ i |
o
£m
nS
ey
eS
Cs
gr
¢3
ts
ek
ars ™y Ee
gry
fe
Tle anecsiithernny Sarre ke Mian be AERA oN Te ver en atte +
ce Me eae mr tte
eee aes weet ae EE nee eet Sine nee Re 2 se eeie Mane a ee
IBM HAINTENANCE DIAGNOSTIC PROGRAN
aAgts
ERR LOC
1762
1763
1765
176A
176D
176F
W772
1778
1777
772
V77D
VITE
1780
1785
1788
T7848
178D
4790
1792
1793
1795
1798
1792
179D
1740
17A3
T7A5
T7A6
T7A8&
17Ak3
T7AD
V7B2
T7B4
17B6
T7B9
T7BE
17BF
171
37C3
17¢c4
17¢5
17C8
T7Ch
17¢Cc
TICE
17D0
17D1
17D3
17D6
17D7
17D9
17DC
T7DD
17DF
VTEY
V7E7
17E8
T7ER
17EB
I7EE
17F 1
47F3
T7F6
T7F38
T7¥FD
1800
1801
1803
DATE
EC WO.
PILE CQNTROL UNIT FLT SECTION 4
CRIECT CODE ADDR
OE 3762
1803 T7648
Y¥EOEOOO000 1769
3ac318 476C
2Aa70 T76E
TAOEO1 1771
2A11 1773
VAFFO1 4776
180001 19779
TA0u01 177C
OE 177D
1803 177F
4#EOEO00000 1784
3A8378 1787
2410 1789
VAOFO1 178¢
7AR0003 178F
2414 4791
OE 1792
4803 1795
3AC218 4797
2A10 1799
TAQEO1 179¢C
TA0002 179F
120401 17A2
2411 17a
OE TTAS
1803 7A?
TA0002 T7AA
80071 T7AC
4EOc000800 1751
£003 17B3
2401 17B5
120001 17B8
4E0C200000 17BD
UR 17BE
OB3D 17C8
17¢3 1702
40 17C3
03 17C4
52S5E66 17C7
2410 17c9
2E01 17CB
8001 17CD
£005 17CF
TE 47D0
400D 17D2
720038 17D5
OA 17D6
TFE& 17D8
1a0010 17DB
OA T7DC
TFET I7DE
0210100016 17E3
TAOCOO 4I7EG
06 TVET
TEEO I7E9
3E 17EA
1a9G00 47ED
7A0000 47F0
E016 VIF 2
TADO04 47F5
2800 VIF?
O2701004FF WFC
1a0003 Y7FF
42 1800
0B5B 4802
06 1803
O2MAR70 OTAPR70
571512 §71516
STHT SOURCE STATEBENT
938 Dc XL1T°OE!
939 Dec AL2(OBOE}
940 pc EL5 '4 E0E0900005
941 DC XL3" 3aC318°
942 pc XL2 424108
943 De XL3°1AR0E01°
98a Dc XL2 "21175
945 pe IL3" VAFFO1?
946 pc XL3 *720001°
947 pc XL3" 7A048018
S48 Dc XL1°OE#
949 Dc AL2 (OBCE)
$50 Cc XL5"4&EOEON0000!
951 pe XYL3*3A8318°
952 pc XL2*2a108
953 pc XL3*1A0 £01?
954 pc XL3* 140003!
955 DC XL2*2A11?
956 Dc XL1*°OE?
957 pc AL2 (OBOE)
958 pc XL3*3AC218!
959 Dc XL2'2A108
560 pc XL3"1A0E01°
961 Dc XL3* 140002!
962 pc XL3*17A0401!
963 Dc XL2*2a11!
968 c XL1°O0E
*965 DC AL 2 (OBOE)
966 pc XL3"1A0002!
967 pe XL2"8001°
$68 DC XL 5*4ENCO00800!
36S pec XL2*E003'
370 DC XL2'2a018
971 pe XL3*140001°
972 DC XL5"*4E0C2000008
973 Dc XLi'gat
974 Dc AL2 (SOFT)
975 TROT DC AL2 (TREK)
976 TREX DC XL7*40!
977 DC XL 1°03"
978 pc XL3 *525E66°
979 DC XL2'*2A10!
380 DC XL2*2E01!
981 DC XL2*8001!
982 DC XLZ2"E005#
$83 DC XL 1! 1E*.
988 pe XL2"*4O00D!
985 Dc XL3* 120038!
986 pc XL1°OaA?
987 DC AL 2 (ARNE#*3)
988 DC XL3* 120010"
989 DC XL1"OA?
390 DC AL 2 (ARNE)
391 pc XL5 '0216 1000 16°
992 pe XL3* 140000!
993 DC XL1°06!
994 pc AL 2 (BARN)
995 DC XL1*3E°
396: pC XL3*140000!
997 Dc XL 3*71A00008
$98 pc XL2*E0108
339 DC XL3*1A00088
1000 bc XL2*2A00°
1001 DC IL5°02701004FF
*1002 DC XL3 #1400035
1003 ac XLU°uqe
1008 Dc AL2 (FILET)
1005 OBOE DC XL1° 06?
O6MAY70 01350170 018aR71
571513 571528 571573
cee ee ee
PART NG. §$129671
PAGE &
GO TO ALT PARA FOR
DIAG IDCC TO POST DATA
TEST STATUS
BAD AB
SET BUSY ON ERROR OFF
SET BUSY ON ERR OF
ONE BYTE FF
1 BYTE 00
1 BYTE 04
GO TO ALT PARA FOR
DIAG IDCC TO POST DATA
TEST STAUUS
EAI AS
SET BUSY ON ERR OFF
SYNC CHAR
3 BYTES 00 ID
SET BUSY ON ERR OW
GO TO ALT PARA FOR
TIaG IDCC TO POST DATA
GOOD ABS
SET BUSY NO ERR
SYNC CHAR
2 BYTES 00
1 BYTE 04%
SET BUSY ON ERR ON
GO TO ALT PARA
DIAG IDCC TO POST DATA
IWO BYTES 0
3 INDEX AND OSC
SEI BUSY OFF ERROR OB
7 EYTE 00
RESET
SET BUSY, NO ERROR
TEST SENSE PROBES
BRANCH TO HEXT ROUTINE
PROG ID OA0T-4
PAGE 8
CY
©
O
QO
Oo
OQ
o
©
oO 8 ODO ®@
oeeoee
Qo © @
QoQ QG @ GB
BOW
Qo @ @
ERR LOC
)
1808
4806
1807
1809
180C
180F
4812
1815
1818
181B
481E
181F
1821
1822
1823
1825
1827
1828
182D
4830
1832
1835
1838
183B
183E
1841
& 1844
i 1846
1847
1848
1849
18uC
G 184E
2 184F
1852
4853
& 1854
1856
1859
3 485C
185F
1862
1865
1866
1868
1869
186A
186C
186F
1872
1875
1878
1878
187C
187E
187F
1680
1882
4885
1886
1887
1889
1882
188C
188F
4892
1893
1895
¢?
)
O
w
Q O88 @ OO 9 ©
Q
DATE
EC WO.
IBN HAINTEBARCE
OBJECT CODE
FEEO
OA
TPER
FAFFOS
1A04801
TA F601
1a000C
1A0E01
120000
TA0074
OB
TPE
12
3A
cz18
2A 10
TA0EO 4
1200902
1A5891
2aTi
TAFFOW
TAABO1
TAFCO2
71200170
TAOEO1
130000
1609
12
40
02
525866
2:A10
22
120008
42
TA
0E01
TA0OO2
1A 54904
TAPFO1
TAABO
VAFCO1
TAFDO1
1A0GOE
06
1EEO
12
028..276
571512
ADDR
7805
F806
1808
180B
18CE
1811
18348
1817
iBiA
18 4D
T61E
7820
1824
1822
7824
7826
1829
¥82C
T82F
1831
1834
1837
T83A
183D
1840
1843
1845
1846
1847
1848
T84B
e4b
TB4E
1851
1852
1853
1855
1858
1858
185E
1861
18648
7865
1867
1868
1869
186B
786E
1871
1878,
1877
TB7A
1678
487D
1B7E
i87F
7887
1888
1885
1886
1868
1889
1868
1682
1891
1892
7894
1895
O1APR7O0
DIAGNOSTIC PEOGRAS
FILE CONTROL OWRIT FLT SECTICH 4
STHT SOORCE STATENENT
1006
1067
1008
1909
1010
10171
1012
1013
1074
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
7025
1026
1027
1028
1029
1030
1037
1032
1033
1034
1035
1036
1037
1638
1039
1040
1081
1042
1043
1044
1085
1046
1047
1048
1049
1950
1051
1052
1053
1054
1055
10656
1057
1058
1059
1060
1061
1062
1063
1064
3065
1066
1067
1068
7106S
1070
1071
1072
1073
FLO
ISP
URE
ALICE
PORY
FOLKS
O6NAY70
571513
pc AL 2 (BARB)
DC XL1°OR
*DC AL 2 (ARNE*3)
pc XL3* 1aFPFOT®
pc XL3°1a0401°
DC XL3°1AF60%°
pc XL3*1Aa000C
*pc XL3* 1A0E01°
Dc XL3*1Aa0000°
pc XL 3° 1A0074°
Dc XL1°Oa?
pc AL2 (AR HE)
pc XL7°72°
pc XLi*3a°
pc XL2°C218!
DC XL2*2a10°
pc XL3*1A0EO 1°
DC XL3*1A0002
*Dc XL3 °1a5401°
cc XL2*2a11
*DC XL3*1AFFO1
*pC XL 3° 1AAB01
*dc XL3*1APCO2
*Dc XL3*1a0010°
pc XL3*1A0E01
*bc XL3*1A0000
*oc XL2°1600
*pc XL1#12°
pe XL1°40?
pc XL7*028
Dc XL3*525E66°
pC =. XL2*2A10
*DC XL7*228
DC ©XL3*1A000B
*pCO «XLW*°128
pc XLi* 1a?
a XL2*OEO1
*pc XL 3* 1300028
pc XL3*1A5401#
DC XL3"1APFO1
*DC XL3 *1AABO1
*pe XL 3* 1AFCO1
*pc XL1"'Oa!
rec AL 2 (ARBE: 3)
DC - XL1#128
Te XL1°1a°
pc AL2*OEO1
*DC XL3 *1A20002°
DC XL3*1A5801°
DC XL3*1AFFOV®
pc XL3*1aa7018
DC XL3 *1AFCO1
*pe XL17°Oa
*DC AL2 (ARHE*+3)
pC XL1°12¢
Dc XL7°1A
*pc XL2*0010!
DC XL3* 1A0E07"
DC XL3212°
ne KL? 4a
DC XL2'FFO1!
DC 2L7°06
Dc 2RL2(BARH4#256}
DC XL3'1AFDO1!
BC XL3* 1A000E
*DC XL1°06
*pe AL 2 (BARR)
pc XL3°12!
01JUL70 01MAR71
571524 571573
ew tae HT ae ee
PART BO. 5129611
PAGE 83
COSY DFCE
cc i
cc 2
cc 3
42 BYTES 06
1 BITE O£
256 EYTES 00
20 BYTES 00
COBP DFCB
cone
REIORN TO B&JOR PARES
ALT PARA FOR AH THEU DATA
GOOD AS
EUSY ON ERROR OFF
SYBC CHAR
2 BYTES 0O ID
1 BYTE 5S&
SET BUSY AHD ERRCE O8
1 BYTE FF
1 BYTE AB
2 EYTES FC
16 EYTES 00
SYKC CHAR
256 BYTES 00
COMP DaTa
RETUEN TO H&JOB PARA
BLITPARA FOR IBIT SET TO 8 #/O SES
RESET
SEIT BUSY EO ERROR
SET TO 8 INITIALIZE
71 BYTES 00
RETURN TO SAJOR PRKRA
ALT PARA FOR ODD ADDEESS
SYUC CHAR
2 BYTES 00
1 BYTE 5&
1 BYTE FF
1 BITE AB
1 BYTE FC
COsP DFCR
BETUEN TO SAJOR PARA
ALT PARA FOR EVES ALDR
SYuC CHAR
2 EXYTES 00 ID
1 BYTE 58
1 BYTE FF
1 BYTE a7
i BYTE FC
COMP DFCE
RETURN TO HAJOER PARA
ALZ PARA FOR POST ID AND PRE DaTA
16 BYTES 00
SYNC CHAR
BETGRE TO HaJOR PBRS
ALT PARA FOR DATA CC 243 , POST DAT
1 BYTE FF
CORP DFDR
1 BYTE FD CC3
44 BYTES 00 POST DATA
COMP DFDE
RETORE TO H&JOR PREA
PROG XID
0201-8
PAGE 8A
inate
»
ww
ae aig en
: . # wet
- ne Vaal ar Sat ment! te amet we anaemia ne Rem ene oo a ee
IBM MAINTENANCE DIAGNOSTIC PROGRAS
aois
ERR LOC
1896
1896
1899
189A
189C
189E
18A1
18A3
18A5
18A6
18A8
18AB
18ac
16AE
18B1
18B2
18B4
18B5
18B7
18B9
T8BA
18BC
18BF
18C2
18C5
18C8
18CB
18CE
18D1
18D4
18D7
18D9
18DB
1EDE
18E1
18E2
18E4
T8E6
18E9
18EB
T8ED
18EF
18F%
18F3
18F6
18F9
18FC
18FF
1902
7905
1907
190A
190D
1910
1913
1915
194A
19 1D
IDE
1920
1922
1923
1925
1928
1929
1928
192C
192E
DATE
EC NO.
OBJECT CODE
1898
FO
07
2E01
2A10
JAFFO1
8001
E005
1E
coop
140020
OE
1822
7A0025
OE
1822
4A
12c4
18B9
OE
7847
3AC218
TAOEO1
TAFCO1
180301
1A5801
TAFCO1
145301
13 F401
TAOOTYS
E000
2a
180020
3AC218
OE
4853
2410
4200171
4008
2E01
8002
2E00
4006
1A0000
1A0014
3AC218
TA0E01
¥A0002
TA5401
2471
TAFFO1
1AAB01
1AFCO1
120004
2A01
8E04000000
1A0001
QA
0BC3
1922
OE
1847
3AC218
OE
71853
OE
TS7F
1281201
O2KARTO
577572
CTAPRT
571576
FILE CONTROL UNIT FLT SECTION 1
tat Bote ne Ake et abe + ney Bae eras
ADDR STST SOURCE STATEMENT
1897
1898
1899
1898
189D
1840
1BA2
T8A4
18A5
18A7
IBAA
18AB
T8AD
18B0
18B14
1853
18B4
18B6
18B8
18B9
18 BB
18BE
18C1
18C4
18C7
18CA
t8CD
18D0
18D3
48 D6
18D8
18DA
18DD
18=0
18E1
18E3
18E5
18E8
18 EA
T8EC
18EE
18F0
18F2
18F5
18F8
18FB
18FE
1901
1904
1906
1909
190C
190F
1912
1914
1919
191C
191D
19 1F
1921
1922
1924
1927
1928
192A
1925
192D
1830
o
1074 BLOB
1075 BLOB1
1076
1077
1078
1079
1080
1081
1082
1083
1084
7085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1704
4105
11706
1107
1108
1109
1110
1171
1112
1113
1174
1115
1116
1117
1118
4119
1126
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
17134
1135
1736
1137
7138
1139
TT40
17141
BLOT
BLOT!
BLAB
ELAB1
O6HAY70
577513
DC AL2(BLOB1)
pc XL1* 50?
DC XL1°07°
Dc XL2*2E01
*DC XL2* 210°
DC XL3*7AFFO1!
DC XL2*8001!
DC XL2*E905
*DC XL1°1E
*Dc XL2*COOD
*bc XL3*1A0020!
Dc XL1°OE!
Dc AL2 (FLO)
pC XL3* 140025"
pc XL1°0E?
DC AL2 (FLO)
DC XL1*GaA?
pc AL2 (GOUT)
pc AL2{ BLOT1)
DC XL1'OE
*pc AL2 (IMP)
Dc XL3*3aC218!
DC XL3"1A0E01
*Dc XL3"1AFCO1
*Dc XL3*1A0301°
Dc XL3*14A5801°
DC XL3"1AFCO1
*DC XL3"12a5501!
pc XL3*1AF401°
pc XL3* 1000148
DC XL2*E000#
pc KL2"2A11°
pc XL3 "1400208
ac XL3*3aC218!
pc XL1'OE?
*pc AL 2 (URR)
DC =XL2*2A10+
pc XL3*1a00118
pc XL2*8008"
Dec XL2"2E01"
Dc XL2'4002!
Dc XL2*2E00
*Dc XL2* 48006!
Dc XL3"1A0000°
pc XL3* 1a0014!
Dc XL3*'3aC218!
DC XL3"1A0F01!
DC X13 *120002°
pc XL3* 145401!
DC XL2"2A11
*Dc XL3"1AFFO1!
Dc XL3"1AABO1°
DC XL3* 1AFCO1®
pc XL3 10004"
DC XL2*2a01!
Dc XL5 '4E08000000!
pc XL3*1A0001°
DC XL1"4at
DC AL2 (SOLAR)
pc AL2(BLAB1)
DC XL1°0E!
DC AL2 (IMP)
DC XL3*3aC218¢
pc XLISOE
*pc AL2 (URN)
DC EL1° OE?
Dc AL2 (PONY)
DC XL3*4A72078
O1JUL7O CIMAR?1
577524 571573
ee EAR ee et RR tee :
PART HO.
57296171
PAGE 3
7 OSC INDEX AND SEP CLK
TEST NOT BIT RING O
SEIT BUSY ON ERR OFF
1 BYTE FF
1 INDEX
5 INDEX AND OSC AND SEP CLK
INDEX INITIALIZE
13 IND AND OSC TO BR 6
32 BYTES 00
GO TO ALT PARA FOR
37 BYTES 00
GO TO ALT PARA FOR
GO TO NEXT ROUTINE
GO TO ALT PARA FOR
GOOD AS
SYNC CHAR
1 BYTE FC
1 BYTE 03
1 BYTE 53
1 BYTE FC
1 BYTE 5 B
20 BYTES 00
256 INDEX OSC SEP CLK
SET BUSY AND ERROR OB
32 BYTES 00
GOOD A
GO TO ALT PARA FOR
SEIT BUSY NO ERROR
17 BYTES 00
8 OSC
TEST SENSE PROBES
2 osc
TEST SENSE PROBES
6 OSC
256 BYTES 00
20 BYTES 00
GOOD AS
SYNC CHAR
2 BYTES 00 ID
1 BYTE 54
“SET BUSY AND ERROR OW
1 BYTE FF
1 BYTE AB
1 BYTE FC
4 BYTES 00
SEI BUSY OFF ERR ON
TEST STATNO REC FND
1 BYTE 00
GO TO NEXT ROUTINE
GO TO ALT ROUTINE
GOOD AA
GO TO ALT PREA FOR
SO TO ALT PARRA FOR
1 BYTE 12
PROG ID QAGT-4
PAGE 3
cee ree
oO
©
Oo O G © 09 890 6 9 &® 8 86
|
oO
Oo OO 89 9 8&4 8 ©
©
ei)
S
Qo 98 O 8 @ 02 8& 8&8 0 8 O@ &
oO O98 9 8 8 08 & O OO @
>)
SAL Suet ee tet spe
IBH HAINTENANRCE DIAGROSTIC PROGRAS
A014
ERR Loc
1931
1938
1937
1938
193A
193C
193F
1940
1942
1945
1986
1948
1949
1948
I94E
1951
19548
1955
1957
195¢
195E
1960
1963
1964
1966
1968
1969
196B
196E
196F
3971
1972
1974
1977
197A
197D
197E
1980
1982
1985
1986
1988
198B
198C
19BE
198F
1994
1994
1997
199A
1998
199D
19A2
19a4
19A6
19Aa9
19AA
19aC
19AE
19AF
19B1
19BYu
19B5
1SB6
1968
1339
1SBB
ISBE
™! SOR
QALE
EC RG.
FILE CONTROL UNIT FLT SECTION 1
OBJECT CODE
1AO0OFF
TAEDO?1
OE
1886
7A00
100004
06
1EEO
3AC218
TAF901
OE
1886
4£Z00000000
7A01
2A00
WAFFO1
QA
OBE
1968
OE
1847
3aC218
OE
1853
OE
187F
1A0601
IA00FF
1AFo91
oe
1886
7A00
TA0004
06
1EEO
3AC218
4£00000000
7A01
2400
TAFFO1
GA
OBFF
19AE
OE
1847
3AC218
26
DE
1853
ADDR
1933
1936
1937
1939
1938
193E
193F
1941
1944
1945
1947
1948
194A
194D
1950
1953
1954
1956
1958
195D
195FP
1962
1963
1965
1967
1968
196A
196D
196E
1970
1971
1973
1976
1979
197C
197D
197F
1981
1984
1985
13987
198A
198B
198D
198E
1990
1993
1996
1999
199A
199C
79A1
19A3
1945
1SA8
19 B89
19AB
19AD
ISAE
19B0
19B3
19B4
1985
19B7
1938
13BA
ISBD
19Cg
STMT SOURCE
1142
71483
1144
11405
1186
11487
1188
1149
7150
1151
1152
1153
11548
1155
1156
1157
1158
1159
71160
17161
1162
1163
1168
1165
1166
1167
1168
1169
1170
F471
172
1173
1174
1175
1176
1177
1178
1179
1180
1781
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1795
1196
1197
1198
1199
1200
1201
1202
1203
1204
1205
4206
BRAN
BRAN1
BIRD
BIRD1
Be eh ke ee ee tt Bh ey Ta Bees ray : wee
we Bae ee
sad RI Be me
STATEREMT
oc XL3°IVsA00FF
*DC XL 3° 1AEDO1®
pc XL1°OE?
pc AL2 (FOLKS)
pe XL2*7aA00
*DC XL3*7a0008°
pc XL 1°06
pc AL2 (BARB)
Dc XL 3* 3ac218°
*pc XL1°OE
*DC AL 2 (ALICE)
pc XL1I*OE
*pc AL2 (POBY)
Dc XL3*1A0601°
DC XL3*1A00FF
*BC 1L3* 1AF9018
DC XL1°0E
*pc AL2 (FOLKS)
pc XL5*8E09000000°
pc XL2*7a01
*DC XL2*2A00°
DC XL3°1AFFO1
*pc XL 1° 4a?
pc AL2 (SOUSD)
DC AL2 (BRANT)
pc XL1°OE?
pc AL2 (IMP)
DC XL 3*3ac218
*pc XL1"9E
*DC Al 2 (UEM)
Dc XLI*OE
*DC AL2 (PORY)
DC XL 3" 120601°
DC XL3* 1A00PF°
pc XL3* 1aF901°
DC XL1*OE
*2 gC ALZ (FOLKS)
Dc IL2"*7a00"
DC XL3*1a0008
*DC XL 1"06
*Dc AL2 (BABB)
DC XL3* 3aC218°
DC XL1°Oi
*Dc AL2 (ALICE)
DC XL1"OE
*pc AL2 (PORY)
DC XL3* 1817201"
DC YL? *7A00FF
*pc XL3* 1KEDO1
*pc XL1*OE®
rc AL 2 (FOLKS)
Dec XL5*&E00000000"
DC XL2*7aQ%
*DC XL2* 2003
pc XL3"1APF£01
*DC XL1*aat
DC AL2 (CLA)
DC AL2 (BIRD4)
Dc XL1°OE
*DC ALZ (I BP)
DC XL 3" 3aC218°
Dc ¥L1°268
BC XL 7*OE
*DC AL2 { UBER}
pc XL1°O¥?
pc AL2(POHY)
be EL3*TR7101#
DC XL 3° 1RGOPF®
*GPTIIL7TS CLEBE? 1
577324 STISFS
PART NO. 5129611
PaGE 94
255 BU
1 BYTZ ED
GO TO ALT ROUTINE
TEST WOT SCAR
& BYTES 00
COBP DFDR
FOUND
GOOD AB
GO TO ALT PARA FOR
GO TO ALT ROUTINE
1 BYTE 06
255 BYTES 00
1 BYTE F9
GO TO ALT PABA FOR
TEST STATUS
TEST SCAN FOUED
BUSY OFF ERROR CrFr
1 EYTE FF
GO TO HEXT ROUTIRE
GO TO ALT RCUTIBE
GOOD AS
GO TO ALT PARA POR
GO TO ALT PARA FOR
1 BYTE 06
255 BU
1 BYTE F9
GO TO ALT ROUTINE
TEST EOT SCAE FOURD
4 EYTES 00
COMP DFDR
GOOD AS
GO TO ALT PARA FOR
GO TO ALT ROUTINE
1 BYTE 12
255 BYTES 00
1 BYTE ED
GO TO ALT PARA FOR
TEST STATCS
TEST SCAN FOUND
BUSY OFF ERROR OFF
1 BYTE FF
GO TO NEXT ROUTINE
GO TO ALT ROUTIBE
GOOD AS
BESET DFDR
GO TQ ALT PARA FOR
GO TO ALT PARA FOS
1 BYTE 47
255 BB
Oe tee ete sar das TB Tim eae a a a a nae ee te ae
oO 4 © ©} &@
&3
Ss
“ae
ray
Qn
ff
gf
f
“Ye
€3
a
ee
“EBM MAINTENANCE DIAGNOSTIC PROGRAH
“R018 = FILE CONTROL ONIT FLT SECTION 1
ERR LOC
19C1
19C4
19C5
19C7
19C9
19CE
19D0
19D3
19D4
19D6
19D8
19D9
19DA
19DB
19DD
I9EO
19E2
19 E4
19E6
T9E8
19EB
IS9EE
‘19FO
19F3
19F6
19F9
19FB
19FE
1401
1A03
106
1409
TAOB
1A0E
1810
VA12
1A14
1A17
1218
1A1A
IAVE
TAIP
1A23
VaA25
IA29
TA2D
1A31
1435
TA39
1A3D
TA4S1
TA45
TAKS
TAaD
1A51
TASS
JA58
TASC
1Aa60
1A64
1A68
1A6B
TAGP
1A73
1477
1A7B
lEkTP
DATE
EC NO.
OBJECT CODE ADDR
TAEEO1 19¢3
OF 19¢4
1886 1906
7a01 19C8
4£00800000 19CD
2400 19CF
JAFFO1 19D2
ua 19D3
0c1D 19D5
19D8 19D7
40 19D8
02 19D9
22 19DA
2210 19DC
1AFFO3 19DF
40048 1951
2E01 19E3
802C_ 19E5
202 19E7
100008 19EA
3AC218 19ED
2210 19EF
TA0E01 19P2
120003 19F5
1AFFOU 19F8
6410 19FA
1AFFOF 19FD
1A0E01 1A00
2400 1A02
TAOCEO 1205
iAFF11 1208
2a00 TAOA
1AFFO1 1A 0D
8008 1A0F
0001 1A11
8001 1A13
TAFFO1 1A16
Ha 1417
0c31 1A19
cO 87 021A
15 MATE
CO 87 0222
A001 1A24
30 A2 12DB
30 43 -12DD
30 B2 1B21
38 20 OAOE
CO 710 1A9B
3c 01 1B21
38 40 1320
CO 90 12EA
3¢ 03 1821
38 01 OA0C
CO 10 1AEA
38 02 OAC
F2 10 23
3c 07 1821
38 08 12DB
CO 10 1AEA
38 01 12Dc
F2 10 20
3¢ 15 1B21
3D C2 0200
cO 81 1AEA
CO 87 1BOB
3¢ 0S 1B21
38 08 12DB
028AR70 O7APRT7O
571512 571516
STuT
1210
1271
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232.
1233
1234
1235
1236
1237
1238
1239
1240
12484
1242
1283
1244
1245
1246
12487
1248
1289
1250
1251
1252
1253
SOURCE STATEMENT
Dec XL3* 1AEEO1
*pc KL1°OQE?
pc AL2 (FOLKS)
pc XL2"*7a01#
DC XL5*4E£008000008
DC Xz 2* 2a008
DC XL3*1AFFO1
*pc XL1* 4a?
DC AL2 (BRAND)
HAND DC AL2 (HAXDS)
HANDS DC XL1*90!
DC XL1*02°
DC XL1*22!
pc XL2*2A10°
pc XL3" 1AFFO3°
pc XL2 *a004
*Dc XL2* 2E01°
pc XL2"402C
*DC XL2*2E02!
cc XL3* 100004
Dc XL3 "3AC218"
pc XL2*2A10
*pC XL3 *1A0E01
*pc XL3*1A0003"
pc XL3 *1AFFO4
*DC XL2"6410¢
Dc XL3 *1AFFOF
*pc XL3* 1A0E01"
DC XL2*2400!
DC XL3" 1A00E0!
DC XL3 *1AFF11°
DC XL2*2A00!
Dc XL3"1AFFO1!
DC XL2* 8008!
DC XL2*0001°
pc XE 2¢80018
DC XL3"1APFFO1'
DC XL1* gat
DC AL2 (YIRG)
EXD B PRINT
DC XL17#15°
B HALT
Dc XL2*Aa0018
* CHECK UDT WITH SENSE STATUS FOR
1254 GOOUT SNS KNIT-2,x*a2?
1255 SNS KWIT,X*A3
*1256 SNS FAR,X'B2?
*1257 TBN UNB-1,X'20!
1258 BT TST2
1259 MVI FAR,X*O1
*1260 TBN FAR~1,xX*40!
1261 BF SCREAM
1262 MVI FAR,X*03
*1263 TBN UNA,X*01
*1268 BT SCREARS
1265 VICY TBN UNA,X"02°
1266 JT VICKY
1267 MVI FAR,X#O78
1268 TBN KNIT-2,xX*O8?
1269 Br SCREAK
1270 DON TBH KNIT-1,X°01?
1271 JT JERRY
1272 NVI FAR,X*°15!
1273 CLI SYSMOD,X'C2
*1274 BE SCREAM
1275 B ZCO
1276 VICKY MMVI FAR,x*05#
1277 TBN KNIT-2,x"°08"
O6HAY70 01J0L70 01HAR71
571513 571524 571573
PART HO. 5129612
PAGE 10
1 BYTE EF
GO TO ALT ROUTINE
TEST SCAN FOUND
TEST STATUS EQUAL HY4
BOSY OFF ERROR OFF
1 BYTE FF
GO TO NEXT ROUTINE
READ VERIFY ROUTINE
2 osc
INIT SET TO 8 CHK
SET BUSY ON ERROR OFF
3 BYTES FF
§ osc
TEST noT CC 17
84 osc
TEST CC 17 AND BIT RING 9
& BYTES 00
GOOD Aa
BUSY ON ERROR OFF
SYNC CHAR
IS BYTE
SYNC CHAR
256 SEP CLK AND IDC
224 BYTES 00
17 BYTES FF
BUSY OFF ERROR OFF
1 BYTE FF
INDEX
NO INDEX
INDEX
1 BYTE FF
GO TO NEXT ROUTIRE
PROPER CONFIGURATION
SENSE STATUS 0 + 1 DRIVE 1 RES
SERSE STATUS 2 + 3 DRIVE 1 RES
SENSE STATUS 0 + 1 DRIVE 2 RES
SEE IF B DEFINED IN DDT
BR. IF YES
SEE IF 3 READY
BR. IF YES
SEE IF HOD III DEFINED
BR. IF YES
SEE IF 190 CYL DEFINED UDT
BR. IF YES
SEE IF 100 CYL EN SHS
BR. IF YES
SEE IF MOD B OH IB SES
BR. IF YES
SEE IF HOD B DEFINED
BR. IF YES
SEE IF 100 CYL I8 SES
PROG ID OA0T-4&
PAGE 10
@ © G 8B 8 @W
Oo &
Oo Oo
i)
S
©
o
©
OQ
OQ
S
o
2
©
6
00 0 0600 0 0)
-a—aeeememvntvveie_ yvonne fe te aA SPURS RARORL Sti AONORERAARTEAADEA IRA ME IRMRIES XLS. SETAE, IO oO eee NY SRS FEY SRT NUR pre 6 se A sr nm enshntnnNeryeenacnsimsinnsiharSeAnnnt,sit-enpssitntontunanannnntenabe
eo e@ 06 8@ @ 808 @ 6 8 @6hmUmOmmhCUMODUCUCUOUCHUC WC HUCOUCOlUCMOLUC OCU CUO
A074
ERR LOC
1A83
1A87
1A8B
1A 8F
1A93
1497
1A9B
1A9F
1AA3
1AA7
1AAB
1AAF
1AB3
1AB7
1ABB
TABF
1AC3
TACT
1ACA
1ACE
iAD2
TAD6
lADA
1ADE
1AE2
1AE6
IAEA
1AEE
1AEF
1AFI
1AF3
1A¥7
IAF9
TAFB
TAFD
1301
1B02
1B03
1805
1B09
1BOB
1BOF
1B12
1B16
1B18
1B1Cc
IBIE
1B26
1B22
1B2A
1832
1B3A
1B42
IBSA
8
1B5S2
1B56
1B5A
1BE0
1B64
1BS7
1BEB
TB6E
1B72
1P78
Q @
Gd
DATE
EC NO.
oe eo 9
OBJECT CODE
co 90
co 87
3C 16
3D C2
co 81
co 87
3c 09
38 40
co 10
3c 10
39 03
co 90
3¢ 12
38 98
co 10
30 BA 1B21
38 01 OAOF
F2 10 10
3C 14 1821
38 80 1820
CO 10 TAEA
CO 87 1A64
3C 13 1821
38 40 1820
CO 90 1AEA
CO 87 1A64
CO 87 O21E
01
1B21
1BS1
cO 87
ci18
1B39
AUEA
co 87
03
38
1851
co 87
AOEA
31 86 1B17 ©
F3 AO GO
cO 87 0216
1B78
00000000
0B39
OAD1
0000
EGC4EZYOC4DECSE2
SODSD6E340DAC 1E3
C3C84 0E2C5SDSE2C5
E2C5C540D7C 1¢- 7C5
HOFSFSFOSOCEC3IES&
HODUC IDTE2Z60E 7E7
IAEA
TA64
1B 21
02090
1BOB
1AEA
1B21
1320
IAEA
1B21
Oa 0c
TAEA
1B21
12DB
IAEA
O21A
O21A
0222
34 08
3c G4
Oc 03 iB9D
38 80 1395
F2 90 O08
38 80 IB9A
F2 90 O48
3A 80 4BA2
OF 03 1599
OF 03 1B9D
1BS4
TBAF
¥2DD
1B9S
IB9D
O2MAR70
571592
OTRPR7
5771516
TAEE
1AFO
iAF2
VAF8
APA
TAFC
1301
TBO2
TBO4
TBOA
1B17
1B 1B
1B1D
IBF
1B214
1839
1B51
0
IBS HAINTENARCE DIAGHOSTIC PROGRAS
FILE CONTROL UNIT FLT SECTION 1
ADDR STMT SOURCE STATEMENT
5129611
Oa
PART 8O.
PAGE
BR. IPF NOT
SEE IP HOD 8S DEFINED
BR. IF YES
SEE IF DRIVE 2 READY RES
BR. IF KOT
SEE IF ABY FEATURES DEFINED FOR A
ER. IF ABBY
SEE IF 100 CYL IB SgS
ER. IF YES
SENSE 0 ¢ 1 DRIVE 2 FIXED
SEE IF SOD KIX DEFINED
BR. I? YES
SEE DRIVE 2 FIXED READY
BR. IP KOT
SEE IF DRIVE 2 FIXED READY
ER.
IF YES
CL24*UBT DOES NOT BATCH SENSE
*CL23*SZE PAGE 550 FCU MAPS-XzZ
*SREEKSE CH THK ESSE SE SES HEKKS SS AST ISEKS SL SEKLHKSSKS SSKSSKSLS SAAS SESLESTSESSLSOKSESRSS
* ROUTINE TO INCLUDE I CONT CARE BITS EITH EXPECTED BITS
SESKETHTEKKESHEKSEAEL GSS $OKESCSS RSS SSE TLE RES SEKKS SET SSS LAS SSE OSHS ESS SD
SAVE RETORE aLDRESS
ZERO BIT COUNTER
1278 BF SCREAB
1279 B DON
1280 JERRY VI PAR,X'16
*1281 CLI SYSHOD,X*C2°
*1282 BE zoo
1283 B SCREAR
1284 TST2 MMVI PAR,X*09
*1285 TBN FAR-1,X'a0
*1286 BT SCREAM
1287 MVI FAR,X*10°
*1288 TBF vUNA,X'03?
1289 BF SCROAS
1290 MVI FAP,X*12¢
1291 TBH KNIT-2,X*°08°
1292 BT SCREAB
1293 SNS FAR,X*BA‘
1294 TBN OUNB,X'O1
*1295 Ry DICK
1296 NVI PAR,x¢14°
1297 TBR PAR-1,x°80°
1298 BT SCREAB
1299 B DOE
1300 DICK sVI FAR,X*13°
1301 TBN FAR-1,X'8O
*1302 BF SCREAB
1303 3 DOR
1304 SCREAS B UNPACK
1305 DC XL1*01°
1306 Dc AL 2 (FAR)
1307 DC AL2(ACID)
1308 B PRIBT
1309 DC XL2°C118
*1310 Dc AL2 (UDTASG)
1311 DC XL 2" AQEA®
1312 B PRINT
1313 DC XL1903
*1318 DC XL1°16°
1315 DC AL2 { ACID)
1316 B HALT
1317 DC XL2*a0Ea®
1318 ZOO LIG AZEROS,X*A6
*13149 SIO x*00*,X*A0®
1320 B LINK
1321 AZEROS DC AL 2(ZEROS— 3)
1322 ZEROS pc XL4& *00000000"
1323 SATE 0c AL2 (SOFT-8)}
1324 SAT pc AL2(RAFT—&)
1325 FAR DC XL2*0060
*1326 UDTHSG DC
1326
1326
1327 ACID pc
1327
1327
) 1328 SYSHOD FOU x* 2008
1329
1330
1331
9332 FAKE sf CRUDE+3,Z°08?
1332 HVE CKCTR,X'O7
*4334 HVC aCTL¢&} ,KBIT
4335 FOOT TBH ESK-3,X°80
*1336 JF ADD
4337 TBH aCTI-3,2°89°
1338 JF ADD
1339 SBN EXP-3,%°80
*1380 ADD ALC =- BSK { 8} - HSK
1381 ALC = ACTL (4) , ACTL
C6HAY70 0130L70 0184R71
571513 571524 571573
TEST FOR DOT
BR.
CaRE Sit
IF EORZ
ZEST FOR ACTUAL Bit
BR.
IF BOKE
ADD BIT TO EXPECTED FIELD
SHIFT ALI FIELDS
0a01-a8
10a
PROG ID
PAGE
O
Ff
£3
‘4
C8: 0-0:0: 9:0 © O80 9.0 0:9. 018
ree RSTATERAICE. PIReECS TSS PROGRAN
"4018
ERR LOC
“BIE
“9384
458A
1BSE
1B92
1B96
1BOA
1BS9E
4BA6
14BA9
IBAC
IBAF
1BB0
1BB2
1BB4
1BBB
1BBC
1BCO
1BC4
1BC8
iBCC
4BDO
iBD4&
1BD8
1BDC
TBEO
1BE4
4IBESB
1BEC
1BFO
1BF4
1BE8
IBFE
1€02
1c05
1c09
1COD
1c11
1015
1019
1CiD
1021
1€25
1029
1C2D
1031
1033
1035
“4037
1C3B
4C3D
1041
1049
1C51
1052
1056
1C5A
1C5E
1062
1066
1C6A
1C6E
1C72
1076
IC7A
1C7E
182
DATE
EC NO.
OBJECT CODE ALDR
OE 07 1BAS 18A5
O£ 09 IBAPF 1502
3D 21 BAF
cO 81 1B8E
cO 87 1860
00000000
00000000
0000000060000000
1B99
1B9D
1BAS
0002
004873 1BA8
AFEF7F 1BAB
FEEFFF 1BAE
00 1BAF
0200 1BB1
FFFF 1BB3
C2 01
34 01
3B 10
3B 10
3B 10
3B 10
3B 10
3B 10
3B 10
3B 10,
38 04
co 10
CO 87
C2 02
3C 4B
cO 87
36 02
OF 00 1E4KE
CO 01 1BFO
F3 Al 01
31 A3 1E65
31 A3 1E66
31 A3 1E65
c0s00000
C1 A2 1C2D
38 10 1C9D
cO 10 1B0B
38 20 OAOE
cO 10 1¢52
CO 87 1BOB
CO 87 021A
c511
1C51
A033
cO 87
A033
cO 87 1¢2D
C3C540D4DECHC5YO 1C514
‘DSD6E340D9C5E2C5
E3
3A 10
C2 01
34 061
3A 10
3A 10
3a 10
3a 10
3a 10
32 10
3A 10
C2 02
34 02
co 87
OASC
IBDF
CAC
1CBB
ICBF
1D OF
1D46
1D6D
1D69
1c9D
0a OC
1BE8
1019
1DB8
1EGE
1C 86
1505
1502
1c1a
1032.
1034
- 136
0222
1C3C
1c SD
OAOP
IBDF
1cac
1CBB
CBF
1DOF
ID 4&6
1D6D
1D69
OAOF
IBDF
1BpCc
O1APR70
571516
O2MAR70
571512
STHT
1382
1343
1344
1345
13486
1347
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1371
1372
1373
1374
1375
1376
1377
1378
1379
1380
13817
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391
1392
1393
1394
1394
1394
1395
1396
1397
1398
1399
1800
1401
1402
4403
1404
1405
1806
1407
. FILE CONTROL UNIT FLT SECTION 1
SOURCE STATESENT
CRUDE
BSK
ACTL
EXP
XR2
MSK1
MSK2
MSK3
CKCTR
RTN2
LATE
AJAX
AGAIN
Fuz
EDDY
WHAT
CENOD
HUNG
TOOT
O6NAY70
571513
EXP (8) ,EXP
PART
‘PAGE
ALC .
ALC CKCTR(1),ONE ADD 1 TO BIT COURTER
cLry CKCTR,X*27! SEE IF ALL BITS TESTED
BE CRUDE , * SUB-ROUTINE EXIT
B FOOT
DC XL4&* 00000000
*pc XL4 400000000
*pc XL8*0000000000000000"
EQU) 2
pc XL 3*004873* NORMAL STATUS I DONT CARE BITS
pc XL3 *AFEF7F* USED ON INITIAL SENSE ONLY
Dc XL3°FEEFFF* USED ON SEEK BOSY HANG UP ONLY
Dc XL1°00°
pc XL 2*0200! ROUTINE RUMBER
DC XL2'FFFF* LAST ROUTINE
LA UNA, XB1
St LATE+3,XR1
SBF UPNOW+1,X°10
*SBF JOE+1,X*10
*SBF BILL+1, X*10
*SBF TED+¢1,X*10
*SBF TON+1,Xx*10!
SBF JOHN+1,x*170°
SBF TIMOCUT+1,xX°108
SBF FIRE+#1,X*10? SET UP FOR DRIVE 1
TBN UNA, X*O4u? SEE IF HIGH SPEED DEFINED
BT AJAX
B WHAT
LA MAT RIX-3 ,XR2 INITIALIZE TEST VALUE POINTER
VI COUNT, X*4aB* INITIALIZE TEST COURT
B IOHAN
A TWO,XR2 UPDATE VALUE POIRTER
SLC COUNT(1) ,ONE
BRZ AGAIN
SIo X'01*,x*a1?
LIo INDEX, X*A3!* INDEX
LIO INDEX+1,X*A3!* NO INDEX
LIO INDEX,X'A3! INDEX
pc XL4 *C0800000
*TIO CEMOD, BUSY TEST FOR BUSY
TBN FIRE+1,X*10# SEE IF DRIVE 2 TESTED
BT zoo
TBN UNB-1,X'20!* SEE IF DRIVE 2 DEFINED
BT TOOT
B ZOO
B PRINT -PRINT HANG MSG
pc XL2 '€511°
pc AL 2 (HUNG)
pc XL2*a033
*B HALT
DC XL 2#*A033! **€% 33
B CEMOD
Dc CLi17'CE NODE NOT RESE‘
*SBN FIRE+1,X*10* SET UP FOR DRIVE 2
LA UNB, XR1
Sst LATE+3,XB1
SBN UPNOK+1,X* 10¢
SBN JOE+1,X*106?
SBN BILL+1,X*10
*SBN TED+4¢1,X*10?
SBN TON+1,X*10?
SBN JOHN+1,X*"170#
SBN TIMOUT+1,x°708
LA UNB, XR2
ST LATE+3 , 182
B LATE
013U0L70 01MAR71 PROG ID
571524 571573 PAGE
wo.
$129614
nN
OA01-—4
17
oO © © 8 &6 8 0 8 86 0
o Oo © 0606 000 0
eo 0 8 $9 89 0 04 8 9
RRL et reesnrnanatetireldasaynnantties mtitehthenanipaeenAnietias euletntn nthe ner AAN Senne INANE PAN asta A sna sorters irvenereamentittuanahimiraenen hainasstsanimicass
MORO ne
A014
*Ceeoeeeeeeeeeeece se.
1086
1CSA
1C8F
1¢c94
1098
1c9¢
1C9F
1CAa3
1CA7
1CAB
1CAF
1CB3
1CB6
1CBA
ICBE
1CC2
1CC6
1Cc7
1cc9
1CCB
1CCF
1CD3
1CD6
1CDA
1CDE
1CE2
ICES
1CE6
1CE8
1ICEC
1CEE
1CFO
1CFu
1CE6
ICPA
ICFE
1D02
1D08
IDOE
1D12
1D16
IDIA
IDIE
ID22
1D26
1D2A
1D2E
1D32
1D36
1D39
1D3D
1D41
1D45
1Dp4ag
ID&D
1D50
1D54
IDSA
1DSE
1D62
1D68
1D6C
1D70
1D74
1D78
DATE
EC WO.
ERR LOC OBJECT CODE
IBS MAINTENANCE DIAGNOSTIC PROGRAA
FILE CONTROL UNIT FLT SECTION 1
@
SOURCE STATEMENT
ADDR STHT
1808 ©
1409
1410 @
34 08 1D95 1411 IOHAB
2C 00 ID9D 00 1412
2c 00 1251 01 1413
31 A3 1DBe8 1014
31 A6 1D9FP 1415
F3 a0 00 1416 FIRE
3D 03 1D9D 1417
CO 8& 1CA8 1418
cO 87 1D2E 1819
30 A2 1D97 1420 UPNOW
38 40 1D97 1421
F2 10 4a 7422
3C F2 1DB5 1823 OUTIT
30 A2 1D97 1428 JOE
36 A3 1D99 1425 BILL
CO 87 O21£ 1426
O48 1CC6 1427
1D99 1cc8 1428
1E63 ICCA 1429
3C BO -I1CE6 1830
38 10 1C9D 1431
F2 10 08 1832
3C AO 1CE6 1433
3C F1 1DB5 1¥34
cO 87 O21A 1835 TELL
C116 1CE3 1436
1D385 ICES 1837
0066 1CE7 1438 FLAG
CO 87 O2TA 1439 HORE
050F ICED 1440
1£63 ICEF 1441
cO &7 0222 T1842 STOP
A066 ICF5 1843
cO 87 1CFO 1444
31 A3 1DB7 1445 STEPIT
31 A3 1DB8 1846
OF 00 1D9D 1502 14487
OF 00 1251 1502 1448
30 A2 1D97 1449 TED
CO 81 1D22 1450
38 40 1D97 1451
cO 10 1CFA 14852
cO 87 1CB6 1453
39 40 1D97 1454 DOWN
cO 10 1D2E 1455
CO 87 1CB6 1456
30 A3 1D99 1457 ENDOUT
38 0&8 1D98 1858
F2 90 04 1459
cO 87 1CB6 1460
31 A3 1DB7 1461 DAVE
37 A3 1DB8 1462
30 A2 1D97 1463 TON
38 40 1D97 1464
F2 90 04 1465
CO 87 1CB6 1966
OF 00 1D9D 1502 1467 CIFEND
3D 00 1D9D 1468
cO 01 1D2E 1469
Oc 01 1253 1E50 1470
30 A2 1D97 1471 TIMOUT
30 A3 1D99 1472 JOHN
38 40 1D97 1473
co 90 1D7Cc 1474
cO 87 1CB6 1875
028 R70 OTAPR70 O6HAY70
571512 $71516 571513
wth
Se
St IRET¢3, ABR
MVC =—- CFLD1) 0 (,XB-)
BYC DROP(1),1(,X 82)
LIO MODE¢1,X°A3
*LIO CADR,X*A6®
SIO x*00*,x*a0
*CLI CFLD,X*03
*BH UPHOY
B EWDOUT
SNS BYTEO1,B01
TBR BYTEC1,2%°80°
JT STEPIT
MVI ERRNSG,C*2°
SKS BYTEO1,B01
SWS BYTE23,B23
B UNPACK
DC XL. 17°08"
pc AL2 (BYTE23)
DC AL2 (S8SG)
MYI FLAG-1,2°BO
*TBR PIRE*1,X*°10°
IT TELL
MVI FLAG-1,X"~A0
*NVI ERRESG,C'1°
*B PRIMT
DC XL 2°C1168
pc AL2 (ERBESG)
DC XL2*0066
*B PRIBT
pc XL2*050F
*pc AL 2(SBSG)
B HALT
Bc XL2¢* a066°
B STOP
LIO #ODE,X*Aa3
*LIO HODE¢1,xX*a2
*SLC CFLD(i),ONE
SLC DROP{ (1) ONE
SNS BYTEO1,BO1
BZ DouN
TBM BYTEO1,X°&0
*BT STEPIT
B OUTIT
TBF BYTEO1,x*40
*BT ERDCUT
B OUTIT
SRS BYTE23,823
TB BYTE23-17,X*O8
*JF DAVE
B OUTIT
LIO MODE,X*~A3
*LIO #ODE*#1,x°A3?
*SNS BYTEOQ1,501
TBN BYTEO1,xZ*40
*JF CIFEND
B OUTIT
SLC CFLD(1) ,ORE
CLI CFLD,x*00°
BRE ENDOUT
MVC SETTLE(2) ,TINE
SNS BYTEO1,5B01
SNS BYTE23,B23
TBR BYTEO?,2°90<
BF TSTBSY
B OUTIT
0130L70 018aR71
571524 571573
PART KO.
PAGE
31296171
Via
seeeeeeseesel/O HANCLER SUBROUTIN Eteeesesesesssse
SAVE RETORE aALOBESS —
SET UP SEEK CousT
SET UP DROP COURT
PLACE IN CE NODE
LOAD DFCR
SEEK
CHECK SEEK CouNT
BR. IF GREATER THAN 3
TEST HI SPEED LISE
JUBP IF OW
TEST FOR DRIVE 2
ee ERROR 66
IEHIBIT CPU REQ - TRACK CBOSSING
TEST HI SPEED LINE
TEST HI SPEED LIBRE
ZEST HEAD SETTLING
INHIBIT CPU REQ - TRK CROSSING
SEST HIGH SPEED LIBE
SEE IF SEEK ENDED
SET UP HEAD SETTLING DELAY
0a01-8
VA
PROG ID
PAGE
g3
ey
ee
Nip PERS “Sarecgma AN SE Bae sane nc tare see SME EGE’ 6 Deer EG INE tha BPR alt LS a acta fae Me athe RAE eb dr Canta AS Te en te ES gw EN oe eR Ain ne
IBS MAINTENANCE DIAGNOSTIC PROGRAS
Tad sy to, : uh
PART EO. 5129611
PAGE 12
A014 FILE CONTROL UNIT FLT SECTION 1
ERR LOC OBJECT CODE ADD. STHT SOURCE STATEMENT
1D?7C 38 10 1D97 1476 TSTBSY TBN BYTEO1,X¢10° TEST SEEK BUSY
1D80 CO 90 1D92 14877 BF IRET
1D84 OF 01 1£53 1502 1978 SLC SETTLE(2),ONE DECRIWENT DELAY COUNTER
1D8A CO 01 1D68 1479 BNZ TIMOUT
1D8E CO 87 1CB6 1480 B OUTIT
1D92 CO 87 1D92 7481 IRET 8B IRET RETORN
1482 * KESSEEHESEEKKEOCU AT ES FE HE SKKECESE
0010 1483 IAR EQU = X* 708
0008 1484 ARR EQU x*OB?
0CO% 1485 PSR FOU = X# OWE
0200 1486 SRT EQU x*z008
0202 1487 SMOD EQU x*202"
0204 1488 CPU ECU x*204"
0208 1489 SBYTEO EQU x*208
*0209 1490 SBYTE1 EQU x*209°
0212 1491 TEST EQU X*212°
0232 1492 UTAR EQU x*'232"
O1F1 1493 RUNTAB EQU) X*1F1
*OOA4 1494 DFDR EQU X*a4?
OOA6 1495 DFCR QU X*aAé6!
OCA2 1496 BUSY EQU X*A2!
OOAD 1497 EREGR EQU X*A0
*VEQR KEEKHEEKGKEEEREKE ES
OOA2 1499 BOI EQU sX*a2?
00A3 1500 B23 EQU) xX*a3
*1D96 0000 1D97 1501 BYTEO1 DC XL2*00008
1D98 0000 1D99 1502 BYTE23 DC XL2'0000"
1D9A 00000000 1D9D 1503 CFLD nC XL4* 00000000!
IDQE 1D9A 1D9F 1504 CADR DC AL2 (CFLD-3)
1DAO C8C940E2D7C5C5C4 1DB5 1505 ERRMSG DC CL22*HI SPEED ERROR DRIVE X
*1DAB® 4YOCSDIDSDEDS4OCY 1505
1DBO DSCSESCS4OE7 1505
IDB6 0400 1DB7 1506 MODE Cc XL2*04008
1DE8 00000300 1DBB 1507 MATRIX DC XL4 000003008
IDBC 0402050207040804 1DD1 1508 pc XL 22' 040205020704 0804 04060306 ODO80E08 150A 110A130C?
1DCH CACKOBOGODNB0E0S 1508
TDCC 100R110A730C 1508
1DD2 140C160E170E1910 1DE7 1509 pc XL22*140C160E170E19 10 1410 1012 1D121F 14201822 1623 16°
1DDA 1A101C121D121F14 1509
WWE2 201422162316 1509
1IDE8 251826182AK1C2B1C 1DFD 1510 pc XL 22" 2518261 2A 1C2B 1C 2F 203020342435 24 39 28 3A 283E2C
*IDFO 2F20930203424352u 1510
IDF8 39283A283E2C 1510
IDFE 3F2C 433044304834 1£13 1511 pc XL22'3F2C433044 30483449 344038 4£38523C533C57405840°
1E06 49354D384E38523C 1511
TEOE 533¢57405840 1511
TE1% 5C445D4461486248 1E29 1512 Dc XL22' 5C445D6.461486248664C 674C 685060507458 7558 7D60"
1E1C 664C674C6B506C50 1512
1E24 745875587 D60 1512
1E2A TE60866887688F70 1E3F 1513 pc XL22 7260866 887688F 709070 9878997841802 80AAS8AB88?
1E32 907098789978 A180 1513
1E3A A28Q0AA8SAB88 1513
1ESO B390B490BCIS8BD9IS TE&D 1514 DC XL14'B390B49CBC 98BD 98CS5AQC6A0CCAGS
1E4B CSAOC6AOCCA6 1514
1E4E 00 1TE4E 1515 COUNT DC XL1* 008
1EUF 0187 1E50 1516 TIME DC XL2*0187° 26.15008 mS
1£51 00 1E51 1517 DROP DC XL 100%
1E52 0000 1253 1518 SETTLE DC XL2 "09000"
1E54 4OE2ZE3C1E3ESE240 1263 1519 SMSG DC CL16" STATUS XXXXXXXx!
1ESC EVEVEVETEVEVETE7 1519
1E6% 8000 1E65 1520 INDEX DC XL 2*8000
*1EEO 1521 ORG X*1EEO!
1EEO 00 1EEO 1522 BARN DC XL1°00° DATA FIELD
1EE1 1IFEO 1523 DS CL256
1FE1 00 1FE1 1524 ARNE DC XL1°00% CONTROL FIELD
1FE2 IFE4 1525 DS CL3
IFES 0001DC01 1FE8 1526 LION DC XL4*0001DC01°
0222 1527 HALT EQU x*222!
DATE O2MART7O 01APR70 O6MAY70 0130L70 O1MAR71 PROG ID OA01-4
EC NO. 571512 571516 571513 571524 571573 PAGE 12
ENE WOO e eee tie o Ft ne Be Tile ta dee
2
©
eo 0Q0 6 6 0 68 G@G o& 9 GG 8 6 8 8
oO © 9
oO Oo 0 0 060 @¢ 6 83 0 8
>
*
cee a nr Re tae eminnsmmin +
© 8 9 0 0 @ OG GC 0 O80 GCG 8&8 8G 8G 86 8G @ 8G 8 & @ 6 @
a
j
e@ CG ea 8 98
IBM MAINTENAHCE DIAGHOSTIC PROGRAS
A014
ERR LOC OBJECT CODE
DATE
EC WO.
O2MAR70
571512
O1APR?
571516
PILE CONTRCL UNIT PLT SECTION i
ADDR STEHT SOURCE
0216 1528 LINK
FFPF 1529
0 O6MAY70
571513
ene aE a en ney ae es a ie = dls Shatin BR ORI beter eile Se ete ee a oe
STATEMENT
EQD x*216¢
END
0130L70
571524
6 1maR71
571573
PART BO.
PAGE
PROG ID
PASE
5129614
12a
0acdi1-4
12a
* , ;
8
G
fs
>
C9
ry,
5
Set
e:
IBM SAINTEWANCE DIAGROSTIC PROGRAN
FILE CONTROL UNIT FLT SECTION 1
a014&
SYMBOL T LEN VALUE DEZFN REFERENCES
ABNER A 002 14EB 0697 0883* 0093
*ABYSS A 0048 1899 0667 6077 o088
ACID A 028 1851 1327 1307 1315
ACKEID a 004 11C5 0519 0221
act A 0048 10E4 0450 O84a6
ACTL A 004 IBID 1348 1334* 1337
ALD A 006 1372 1340 1336 1338
ADYV1 A 008 ODF3 0244 O8G2 a09
ALV2 A 008 ODEF 0243 02329 0311
ADV3 A 0046 ODEB O22 028% 0290
ADVGa A 004 ODE? 0241
ADVS A 0048 ODE3 0240 O27& 6280
AGAIN 2 004 BFO 1372 4375
AJAX A 004 1BE8 1370 1368
ALICE A 001 1869 14051 7152 1185
ALMS A 005 1525 0722 0023 GO24a
*OTCS* O7154
ALTAR A 002 1519 0716 0303* 6307
AMILE A 006 ODC1 0233 O84
AMP A 00% 1112 0863 o02¢c8 ,
ANDES A001 12D6 0589 OS88* 05494
ANDY A 007 1325 0598 0233* 0237
*ARISE A 004 13EB 0625 0622
ANNA A 001 <IS1A O717 O253* 0256
ANKE A 002 149D 0669 O08t6 0162
AKO A 001 1518 0718 O465* 0467
ANT A OC 8 10D3 O4RAd 0354 0356
ANTE A 0C& 110A 06460 0207
ANVIL A O0O&8 183F 0646 0625* 06488
ANY A 002 1436 0691
ARBECR A 0048 742C 6641 0638
ARID A 002 1&CE 0687 O&66
ARNE A 004 FEI 17528 0082* €056
*0273 GO460
*1059
ARR c 001 0068 1484 TAtt
ART A010 1459 0696 0350 6352
O511
*ATTIC A OCH ‘13FS 0627 0882
AVA BR 004 OEE 0268 0258
AXE A 004 1T0EC 0452 Oaa8
AZEROS A 002 1817 1321 $378
BAS A 002 14F1 0700
BANA A 004 OEFE79 0282 6133
BARN A 001 #TEEO 14522 g0S8* 0039
0842 0994
BASK A 004 484A 0648 O616
BASS A 004 13D2 0618 0055
BAT A 008 OFO 0453 oags
BDPARM A 029 ODCO 0231 0226
BEAT A 008 1134 0472 O4FI* QRT2
BEIGE A 003 14F6 0792 O2&7* O206
BELL A 002 14EF 0699 0393* 0396
BESS A 002 189B 0668 0071? 0163
BETH A 004 OES6 ©6270 0255
BILL A 00% CBE 1425 1367% 74800¢
BIRD A002 19AD 11929 0123
BIRD? A 001 19AE 14200 TI99
BLAB Rk 002 1921 1133 OFT
BLaBT 2 001 1922 11348 4133
BLANK A 001 13831 0612 0019 0178
BLOB A 902 41897 1074 0092
BLOB1 A 001 1898 1075 tO7&
BLOT BR 002 18B8 1092 061465
BLOT? A 001 1889 1093 1092
BOSS A 008 130% 0615 6076
DATE 024aR70 OTAPR70 O6HAT70
~EC NO. 571512 57 1516 571813
CROSS~ REFERENCE
mee So ; * ote os eons of geek ah em +. ye ae M
@.- -@- ied -@---@ - -@- . © wee ote ©. - ©. . -©@ @. ~ @& te
3 . : : 2. mes eg
0095* 0135 0169 O4880* 0450
1381 13418
0415 0418 04617 0490 0494
0317 0421 O428 O838 0469
02948 0300 0336 0458
oaso 0486
0987* 0088* 0054* 0063* 00694
0721* 0179* 0561
0319* 0331* 0548
0268* 0270
*0620
06456
0059* 0066* 0077* 0080* 0088
*0550 0615* 0619* 0669 0937
O835* 0436* 0437* 0438* 0439
*0099* 0100* 0101 0102 0102
*1006 1068 1072 1149 1182
0626* 0637
*0403
0380 0817
0130L70 O1BAR71
571528 571573
@®-@- @ @ @.
PART WO.
PAGE
5129611
13
0453
0497 0500 0503 0506 0522
0528 0534
0075* 0083* 0089* 0090* 0103
9097* 0708* 01174* 0120* 0126¢
0987 0390 1008 1017 1089
O442 O485 O447 0455 0455*%
0310 0381* 0555 0668 0808
PROG iD OA01-4
PAGE 13
Oo 8 8 & Oo
Oo Oo 9 9 4
fate at eR Oe RR LL Ne een
*eo 8 © 0 6 0 0 6 60 8@ 86 G&G 6 G6 0 @ @ @
@
oO ©
0 0 8®© 606 0 0 09 9 9 28 8 & G6
09 989 © 0 08® 0 909 696 0 © @ 9
i & x
IB MAINTENANCE DIAGHOSTIC PROGEAS
ao14 FILE CONTROL UNIT FLT SECTION 1
CROSS-REFPERESCE
SYMBOL T LEN VALUE DEFNH REFERENCES
BRACT A 006 OF38 0337 0329
BRAD aA 009 12F3 0595 0016 0543% 05846 0595* 0568° 0569¢
BRAN A 002 1967 1166 0117
BRAND A 006 OC1D 0126 1218
BRANT A001 1968 14167 1166
BROAD A 002 1513 0713 0282¢ 0283
BRUSH A 008 OC6A 0146 0143
BRUTE A 006 OF8SF 0359 0385
BSIND A 001 ‘1&FE 0705
BOG A 008 1212 0539 0571
BURN A006 12Cc8 O5&& 0560
BUSY C 001 OOA2 1896 1381
BWANA A 0OU OFDS 0377 0345
BYTEO? A 002 1D97 1501 1420 1421 1424% 1849¢ 1451 1858 1463¢ 1468
BYTE23 A 002 1D99 1502 7825* 1828 1857% 14858 1872¢
B01 C 001 OO0OA2 1499 1420 718428 1849 1863 1471
B23 Cc 001 OO0A3 1500 1425 1857 1872
CADR A 002 1ID9F 1504 1815
CAKE A004 1858 0653 0652
CANT A 0048 ‘48FD 0704
CAPE A 006 OECF 0310 0197.
CAREA A 004% 14D2 0688 0320*% 0323* 0324 0328 0337 0337% 0338 0377
CART A 004% OE1B 0255 0269
CAT A 002 172F 0915 0074
CCRTR A 001 18D3 0689
CENOB A 004 1C2D 1387 1381 1393
CFLD A 0048 1D9D 1503 1412* 1877 1897 1467¢ 1868 15048
CHERI A 008 OE98S 0292 0194
CIFEND A006 1D5% 1467 1465
CKCTR AOO1 1IBAF 1354 1333* 1343 13648
CLKSTP A 001 OA00 0002
CLR1 A 002 151E 0720 0321* 0326* 0353
CNUS A 001 OAO3 0006
COPE A 004 1483 06748 60059
coxzp A 002 1895 0665 0137 01481 0520
CORN A002 1493 0664 6519 0521
COUNT A O0O1 1TESE 1515 1371* 1374%
CPU c 00171 02048 1488
CRISE A008 OFE1 0380 0378
CRUDE A O0O&% IBBE 1345 1332* 1345
CRUSH A OO& OC5SB O141 0139
CRUST A O04 OC&8B 0137 01345
CRUX A 007 18814 0659 0359* 0S84
DANTE A O08 OEOF 0252 0330 0367
DART A 004 OE1F 0256 6260 0263 0271 Oa820
*DAVE A 0048 1D3D 1461 1459 on
DELTA A 006 OB63 0088 0086 :
DFCR C 001 OO0A6 1495
DFDR C 001 OOAG 1894
DICK A 00& ADA 1300 1295
DLYSW A 008 ODC7 0234 0168* 0238
DON A 00S 1A64 1270 1279 1299 1303
DOUGH A O00’ OBB5 0095
DOWN A008 1D22 1458 1450
DROP A 001 14E51 1517 1413% 14408%
DUN A 008 O0c8& 0157 0151
EDDY A 004 1C15 1381
ELAN A008 10BF 0440 0456 0513
ELF A 0048 120B 0537 0570
ELLA A 002 14ED 0698 0235* 0236 0441* 0452% O8548
END A 00S ATA 1289 0020* 0041 0087 0131 6975 ONs3 0581* 0640
ENDOOT A 004 <4ID2E 1457 1419 1455 1469
ENGC A 006 OEFO1 0248 0249
ENY A 002 14D8 0692
FON A 008 10CF O4KG 0166* 0457% 05128
EPOUT A 00% OFCH 0371
DATE 024..R70 O1APR70 O6HAY70 O1IUL7G OQTHAR7 1
EC wO. 571512 571516 571513 5771528 $71573
i
Cy
3
PART WO. 5129611
PAGE 133
10718 1873 1876
0387
0649 0651
PROS ID Oaci-&
PAGE 932
se. @. ads hues: @. ~. -@. ae @. ve ote ©}. ere ©@. yee Sa @.. -@. ~- ©. io © — - @ ~ & & @ @ @
, ’ e _ ; - = one — en = rt nee an ee oe 2
G
+
tes
f
f
.
t
‘
4
f
t
5
oR Shanes aoa ene ten Viet sete en nae Sis ~ oe an cate : = ts SER eS pcr ie es Pm as cas aig ae edd Te gl eet aire ee sega ators See ae set ar lane see Stet Salt Hea ae A ig ge TR amet eee ere se ial ae ater eR ae a oe
: nF 7 gm MO A yi “haart contrite oe ek Nt mane Bd Neca pet eg = eR mae nn aac Nal BN it ni CR Se ee Nc Si ape Ew om i ene ate eRe me oe Ua er dn te ee th wa Rete EE ee eR ee cape crete, Oa eae ae: i aches Se er Ad a At 4. wh oe LER See ae es aw ae es , aoe in i .
ona ee cad eee : fee Pies. ayia“ 3 Gon . eww ok. z e 7 = - . ¢ eo 1 * 2 aie gh
Pts faite Se
r&
@:.¢ oy
9 ' = - a on : aa
a PART NO. 5129611 IBM MAINTENANCE DIAGNOSTIC PROGRANS . PART HO. 5129611
IBM MAINTENANCE DIAGNOSTIC PROGRAB fre oe oO e pice Th: o
A014 FILE CONTROL UNIT FLT SECTION 1 © 6 A014 PILE CONTROL UNIT FLT SECTION 1 S
CROSS-REFER EXCE CROSS-~ REFERENCE
i om
SYMBCL T LEN VALUE DEFS REFERENCES ©. G s symBoL 7 LEN VALUE DEFN REFERENCES ~
|
ERGO A006 ODFB 0247 0235 o | Q oe a7 ot 0552* 0627% 0628 0681 0683 1258 1255 1268 1270 0
ERIN aA 001 18FF 0706
ERRESG A022 DBS 1505 1823* 14348 1437 Lacy a pee Oree Soe 0369 0379 0383 0389 0391
ERROR C 001 OOAO 1497 LANE A as
ETTA & 003 OCDS 0176 0044* O053* 0062* 0067* 0073* 0081* 0091* 0104* 0110 0116% 0122% 0127% ©O1;G cap A 002 48D eee Sack iagpe:-<eoee 4809 °
0171 LATE A004 1BDC
*EXP A008 ‘BAS 1349 0032* 0034 0034* 0038 0362* 0364 0373 0398* O40S* 0412 0824* 0427 0° LINK C001 0216 1528 1320 5
OS31 0876* 0479 0483 0630* 0631 0631* 0635 1339*% 1342 1342* G LINT A 008 ne oS 0220
FACT A 00& OFB7 0302 0195 LION aA 008% PE
PAKE A OO& 1852 1332 0035 0363 0400 0407 0426 0878 0632 ole MASK A 0048 13E7 0623 0615* 0618* 0623 pe
FANCY A 006 ODCB 0235 0250 MASS aA 00% 13DC 0620 0617 -
PAR A 002 1B2% 1325 1256* 1259% 1260 1262* 1267# 1272* 1276% 1280 1284 1285 1287* 1290* MAT A 008 10DA 0847 0451
1293* 1296* 1297 1300* 1302 1306 ole BATRIX A 00% 1DBB 1507 1370 C:
FAULT A 006 OCC3 0172 0170 . Se | MAX A 002 1527 0723 0045
FAY A 001 14D9 0693 0177* 6180 0182 0188 0187 0233 0235 0273 0277 0283 0287 0293 MAY A 002 14B5 0675 0084
0297 0304 0210 0314 0319 0320 0420 042% 0435 0836 0837 0438 06 MINT A 004 141A3 0508 0218 e
0465 6871 0476 0527 0530 . MODE aA 002 %DB7 1506 1474 1845 1686 1861 1862
FEE A 008 OCc7C 0152 0147 : MOPE A 008 %74C7 0683 0082
FETE 2&2 002 1520 0721 0322* 9327* 0340* 0342* 0344 °° MORE A se ices as Ses eo
FILET A 008% OBSB 0086 0022* O579* 1004 MORN A 00% .
FIRE. A003 1C9C 1416 1366* 1382 1395 1431 ESK A 00% 1399 1347 0032* 0361* 0399* 04067 0425* 0477% 0629 1335 1380 13480¢
FIRS A O06 OASB 0031 0027 0029 C8 MSK1 A 003 1BA8 1351 0477 es
FLAG A002 1CE7 1838 1430* 4833+ a MSK2 A 003 BAB 1352 0032
FLAT 2 006 1041 0435 0206 MSK3. OA 3 1a 0629
FLIT A 008 1288 0572 0540 NEON A 43
FLO A 001 1822 1019 1086 1089 Cc, eo NIBS a 009 12FC 0596 0537* 0539* 0561* 0562* 0563*% OSEuS
FLUID 2& 002 14F3 0701 NOLA A O0C6 OBFF 0120 1198
PLUX 2&2 GOS 1486 0660 NONE A 0017 16D1 0882 0881 Oe
FLY A G04 1280 0571 0538 © .@ wore a 002 16D0 0881 0052
FOES aA O00& OFSE 0346 0165* 0334* 0508+ KOR A 002 14B7 0676 0053 0062
FOLKS A 001 1886 1065 1185 1159 1178 1192 1212 are NUT A 008 12D5 Of88 -
FOOD A 004 1074 04823 6203 OBOE A 001 1803 1005 0939 09489 0957 9965 s
FOOT 8&8 00% 1860 1335 1346 OGLE A 006 120A 0536 0562 0568 0565 0566 0567
FOR kh 00% 1E1 0527 0524* 0525 0526* ONCE A 00& 1326 0600 05482
FOUR a 003 1508 0709 O © one A 003 15¢€2 0707 0237 0240 0281 0242 0283 02838 0288 0323 0331 0358 0839 0967
FRESH A 008 O0C97 0160 0150 6155 0516 0626 0637 1343 1378 14887 1888 1867 1878
FROG A 00% OF66 0348 08ag ONLY aA 008 121D 0582 0021* 0146 0601¢ co
FRUIT A 004% OF8B 0358 ©. G opera a 002 1439 0677 0073 C091
FTYS AOO1 ‘14D& 0690 OPINE A 002 12EA 0594 C546* 0547 0547* 0555* 0558
FUZ A 003 1C02 1376 OPUS A 049 1376 0609 0605 a“
GALA A OO% OFFS 06386 0346 0348 0496* 0499% G | O ope A 008 OEFF6 0321 O&88* 0489* 0492* 0493*« 0502¢ 05065* ve
GAS kh 004 OFB8 0368 0357* 0368 0384* ORGY A 00% 1102 04857 04843
GAUDY A 002 144C 0649 0031 colo OUTIT A 00% iCB6 1423 1453. 1856 1460 19866 14675 14€0 os
GAY A002 14DP 0695 PALMS A095 14a2 0670 -
GHAT A GO4 OC98 0161 0089 ©8057 0064 0070 0078 O084% 0094 0106 0112 0118 0128 0129 | PANDA A005 OCD8 0177 0245 0305 0308
GOoUT A O04 1225 1254 0015 0230 PART A 006 OEFO 0320 0332 a
GOUT aA OOK 12C8% 0583 09371* G051* 0072* 0161* 0172* 0583 1091 Git PASS A 00% 1446 0687 0126 0619 “
GRAIN 2 004% 10C3 0841 PEFR aA 00% OD90 0223 0183 0185 0208 0205
HALT C001 0222 1527 0157 0228 1251 1316 13917 1842 PEN A 002 15¢3 0779 0061 =
HAND & 002 19D7 1219 0128 i G CG perr 2 008 OF4A 0267 C252* 0257 0267 5
BANDS A CO1 19D8 13220 1219 PINE A 002 148BB 0678 0127
HERE A 004 1338 0607 0600* 0607 G G PINT A 006 0283 0042 0030 os
HUNG A017 1C51 1398 1389 POND a 001 151C 0716 “i
IAR C 007 0010 14883 PONY A001 187F 1061 1780 1154 1173 1187 1207
ISP kh 001 1847 1038 1094 1135 1168 1201 oO .°0 POOR A 004 11DS 0524 0222 ”
INDEX A 002 1£65 1526 1377 1378 1379 POUT A 00& 1203 0582 05412 a
TOHAN A 004 1C86 1411 1372 PRINT C 001 021A 0586 0148 0152 0223 0572 0576 0580 0602 1289 1308 1312 1387 1435
IRET A 008 1D92 18814 1411* 4477 1881 1439 ee
JERRY A 00% 1A8B 1280 1271 © G prop 2 006 OES5E 0273 0192 °
JOE A 004 CBA 1824 1360* 1399¢ PSR Cc 001 0008 1485
JOEN A004 $#1D6C 1472 1364* 7403% c Q RACE A 008 OF&WE 0342 0339 “
KAT A 003 12E8 0593 0554* RACY & 008 OF13 0328 0325 %
KELP aA 004 OFD1 0376 0370* 0376 RAFT 2&2 006 OADS 0C59 0913 1324
Suri Saogne- sabe ean, becee GO. > ‘gies “noe 0ie? cnc, oaee &
KNIT A097 12DD 0590 0025* 0026 0028 0360* 0364 0357% 0401 O0404* 0408 0423* 0427 Ou74U* RAT A 002 14BD 0679 0067 01048
e ¢$ °
DATE O2MAR7O OTAPR7O OGRRY70 01J30UL70 O71#4R71 PROG ID OA01~4 DATE 02..AR70 O1APR7O O6SAY70 0130L70 OTBAR71 PROG ID aad
EC NO. 571512 571516 571513 571524 571573 PAGE 14 °° EC NO. 571512 571516 571513 571524 571573 PAGE 9
*
o 8s
@#eoeoeo 0@eoe@eeeoede@eedeeeeoeelceclceclCcCeClcelCcecmlUCcCRUCcCcCeee ee 8 e888 8
ead, £ 2 : a ‘ a * 3 . Maw iy eg Pe : zg
Es . . ‘ = i
Ba MAITHTEWANCE DIAGNOSTIC PROGRAS PART EO. 57129611
IBM MAINTENANCE DIAGNOSTIC PROGEAR | PART HO. 5129614 3°
PAGE 15 o|6
| Be 14 FILE CONTROL UNIT FLT SECTION 1 Z3
A01% FILE CONTROL UNIT FLT SECTION 1 ole * a
ROSS- REFEREUCE
CROSS-REFEREWCE CROSS- REFER :
oo; S VALUE DEPN REFERENCES A
SYMBOL T LEN VALUE DEFN REFERENCES SYMBOL T LEN
TON A 008 1D85 1463 1363* 1402 6
RINK A 008 OF1A 0330 0164* 0333% 0366 O16: oer, Pee ae ee ee
ROPE aA 001 18C8 068% 0056 0066 Soe, Ree eee eee aeeee
HOT... (eee: eee eee 6 (eee TRACT A 006 OFEA 0319 0198 0509 0517 6
BIER Tey oaa stele ions ©} @ racy a 008 OF52 0343 0381
BUS 1 ee RAO Ode, 2008s TREK £001 17C3 0376 0975
RINE 22 Doe wee! laos. (O18 TRICK A006 1868 0655 0063 0103
Supe 4 au ore a sek 0382 © 1G ror a2 002 17¢2 0975 0082
7 TRUCK A 007 1862 0658 0024 0048 0054 0090
BONE cote tees vee. 6.0822 TRUST A 008 0C39 0133 0050 0058 0060 0065 0071 0079 0085 0096 01C7 0113 6119 0125 >
RUNTAB C 001 O1F1 1493 clo Diag ibacs ;
Bee Pee ten ieee, eee TRYST A 008% O0C64 0144 0133 0180 0788
SRrT <b oe ee anee: oer «60208 TSTBSY A008 1D7C 1476 1474
Seb) cbt OTe eee, 2s! see O}G sr2 a 008 9B 1284 1258
Boog: ano tieac dose; Genes TURN A 00% 1219 0531 0080 0178 0268 0266 0279 0289 0299 9318 0375 041% 0833 O85
SATE A 002 1B1D 1323 0072 Besy ese senses locke :
eee OOe ee ead ©1|CG cw a 003 1505 0708 1373 -
See anne “pane 168 UDTMSG A 024 1839 1326 1310
Bee ee ra aes rece UNA a 003 OA0C 0010 1263 1265 1288 1357 1367
a : ie ace Beas 0529 GCG | o UNB A003 OADSDF 0011 1257 1298 1384 1396 1405 se
3 IT A 080 1324 0597 0559 0568* 0565* 0566* 0567* 05
SCREAM A 004 AEA 1308 1261 1264 1269 1274 1278 1283 1286 1289 1292 1298 1302 UN Bee Goce. tao! Oost HUARD, GUIS, UuNA- ORG: eae: Aabe
SEPAL A 008 1711C 0466 0468 o | G UNPACK ¢ 001 021E 0587 0036 0275 0285 i
SEY °K 002 ‘14BF’ 0680 0081 |
UPNOW A 00% CAB 1420 1359* 1398% 1918
eeeee A ate toe aca? Ree | URN a 001 1853 1041 1109 1138 1171 «1205 A
SHARK A 00% 1019 0396 0200 of ie Me etme ee ;
SHED A001 15C% 0780 0779 3
4 VARY A004 1168 0288 0212
SHOP A 006 7116 0465 0209 ! ee ee ite exes 7021s ;
SINE & 006 11AB 0511 0219 Og. TEP. Bete Oncor? paee
Se wapen es ners, eens VICKY A 00% 1A7B 1276 1266
SLAB A 006 1272 0562 0585 : TLERY, sb 008, N/E tere | ,
SMART A VOB 14AF 0673 0511 Sige te ah ae
PEED. JE n00) 20g. aac) 13 * 0 0173* 0178* 0258% 0259* 0262* 0265* 0278 0288 6238 9031S
SHOG A 004 OF87 0357 0351 0353 0355 0388 0390 VIPER A040 1350 0611 019 0039 Ga2 550178602588 (0299 02620 0 265°) 0278
SMSG aA 016 1E63 1519 1429 1004 Oe Se ee eee a <a boas
SNAG & 004 OFTF 0355 0349 VIRG Boe cocay 8100
SOAP A 00% 1491 0663 0097 0108 01128 0129 | WADA OOF ieee eee :
SOFT A 006 OB3D O0&80 0974 1323 Cc CG WARY A “a tice pene Be
SOLAR A 006 O0BC3 0108 1132 WED A Spe suere 068s ace
Beas (econ, Gee yes tae ies | eure : 006 ize 0471 0210 o
STALE 4 002 Op12 0180 0188 0189 GG we 2004 1183 0496 0218 .
0502 0216
STALL A 002 0D10 0189 0186 WIRE A 004 1193 0502 0216 :
STAND a 004 ODOB 0188 0186* 0187# ert WIRY A 004 1198 0505 0217 a
Sie, AOOk ice Gene xR1 C001 0001 0566 0015* 0020 004S* 0052* 0061* 0068* 0074* 0082* 0092* 0105* 0111% 0117¢
SeepiGs Ob ek tae, ee 0123* 0128 0177 0240* C241* 0242% 0243* 028%* 0302* 0303 030R¢ 03078 s
Eas a hs aca aoe are il Co: 8s 0358* 0362 0516* 0549 0580* 0581 1357% 1358 1396 1397
Sroee i cos te tia 1448 XR2 C001 «0002 «+1350 1370* 1373¢ 1405* 14806 18612 1813
ace a o0t: “bate 0016 YELP a 004 OFCO 0370 0365 o
SYSMOD C 007 0200 1328 1273 1281 oe 8 YORE a 002 océ9 0145 0138 0142
TACT A 008 0 0307 +0196 ?
TAN A C003 aaa D808 0247 ZEROS A 008 1231B 1322 1321 ol
TAP A002 14C1 0681 0110 © CG gone 2.008 OFSA 0345 0167* 0335* 0515
*TED A008 DOE 1449 1362* 14018 | ZOO A 008 BOB 1318 1275 1282 1383 1386 :
TELL A008 CDE 1035 1632 oC
TEN a 06S 148B 0661 0179 0359 0543 © G tora, sTarEMENTS FLAGGED IN THIS ASSEMBLY = 0
TEST C001 0212 1491
THAT A 006 1474 0657 C075 0115 ae o
THEM 2 006 147A 0658 0083 0121
THICK A 006 146E 0656 0069 0109 oo
THREE A 002 1S50E 0711 0302 Se 6
TIME A002 1E50 1516 1470
TIMOUT A 008 1D68 1471 1365* 1404* 1479 ; ‘
TINE 2004 1188 0499 0215 eG c
TOAD A 002 1515 0718 0252* 0293
TOM a 001 1730 0916 0975 |
6:38 c
ROG ID 0101-4
DATE O28AR70 O1APR70 O6MAY70 C1JUL70 07MAR71 PROC %D 0A01-4 DATE 02°AR70 O1APR70 O6MAY70 0130170 O1nAR71 eros
EC KO. 571512 571516 571513 571524 571573 PAGE 15 @ oO FC BO. 871512 571516 571513 5715248 571573 .
t
| C
S$ 6
ot
‘ © ' 8s
IBM MAINTENANCE DIAGNOSTIC PROGERAS
A014
THE CHARACTER
cL
TAOIGYAS B/
Te-2DYD A
T4-2"MAL EOI HOC-
Te-D:/1YEC <=9AL
Ree SEL TSVEFe
- evse rae
Te- TQ: TOCG=EN2-C
T+-_,G=EMWeECCIT
T+-> VESOCEK"NO-0
D4-7/62<5" CCERM
T+-0% IUETDS 14
T+-1PC <-9ASFC D
T+-2K<EXMVLFTCFX
T+-3(10_ a 4UBA.
T*-UH/THROH*EP2<
TBEYKE(X /O4KCOH
T+-5 +0H* +PZBGCXX
T+-61Y*BGDE, 1D
T+-7DD*P /1GNOH
*T+-7"E(, /07#C
T+-8:=68BEION %
T+-95D 8-OI KFL3
DATE
EC NO.
O2MAR70
571512
e@ewveenanstneeneeanane
-$% CHAPSMODA. 25S
&D_? D ZQOH*E-00
Gi Ms-OAC(*8_ LA
PEERC <~GRLAOH
*“/Q08C <aSEESC DB
BC (*M>LMAFI*3—-AL
MR-OAC (®#M?PLMNAF.T
VEGHC &3PEC<5 JY
<51K# (EDRS@BGCIT
AY-1DOH*<BH 16%
G<EQMXLFUEI%0/02
AODE (4DCB*L&A+
" /0:Q0H*+_@BGCE+
KOH*JEXBGDK# /1D
BF%0Q)C*B-30BG SH
M#ALR<ECM#E@ D2M
AC-G /07-( -#LL0
YD8, /1HROH*#KTY
CIAPRIC
571516
O6MAY70
571513
FILE CONTROL UNIT FLT SECTION 1
OBJECT CARD LISTING
maweeeeveervteavaneeanes
MWY 3FWEIS<I 75 0D8D
ADS*HL OBF9~$D30
AEK*3A7IZj jONHES
rms on Tt SaeN
Var CeiOcHt Atinu
DOH*<HCO E+, 09
/O2ZQGOHS<4E0CG=E
XOH*#<W<BECCU< 1%
/0090d*EF TSRCF-=
KG?HAB&SBG /YFB 2
$1 *:P30GD¢ BA0t
VA/DNIJK.+ HH6*B
/0#1 OH*+:%BGDAG
B0H*JE@BGDP~ /1F
—3@BGFSPP6) $66*G
N % aCe. 7/07? (-D
“EI,AY 9+0EH#NTS
AEJ, /08$+/ NF&B
01JUL70
571524
u JY) JE*XOT2GBSS
“FL M<A/>OR SP /1_
CEKHMQEESCIT 00
"7909 (CLn8O0AC (#
ach® SGELAC (ST ESLE
mS<BGCIT ,/0090H¢
8 <-92r2; 3702
UEID< THVEG-< 53
AY-TH<ESNS"47 LE
PaY*HOE*BFS&QHCI;
$] * (2CFTE+?2AY¥-3
&C#D8 JLRG/BOQIPY
/1 ROHSEQRBGDE,
COH*JS@BGDR] /1F
ME<PR6) $REFA O%G
N TQAESH6 JMB(-D
EJ, -89H] (MLTC3
CC/@({ 1"0E(7 -&7
OTMAR71
571573
INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT.
1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 4&9 THROUGH 64 CL 65 THROUGH 80
BORM/O <NIGIS<ES
KOH*BG-<SYa+h GH
*9C DK114~ (E5048 9
=G*8730I6> o" 14
MOLBAFKG /02008
*PEHNS J¥_OH*<W<B
TEIN17YO1Z0 EHXO<B
~UaBG SH-Ua3GCC5
CaY*KC DK113N4(K
M6-HDUSOACES (D 8
weeneeeeneenean ene
°
/ 144 OH* (U<BGCRC
$OH*IY@BGDE? /1F
D& (~A6*GM03 | EGE0
N TQAES. /030C #
ND8Y8 &8-@Z Dj +-
PART NO.
PAGE 16
5129611
CL 81 THROUGH 96
@eesee
JRQAO1K0001
K630 TIRROTKO0G2
KF* €&, Ba0785903
AC (* QEDAOTECSOR
SOO HTOROTECIOS
oo < L/S S74SCIE
Wc % tiaZotsooDeE
<+20 99 acdisocas
GCCU #8UA0740016
GCF& 19-a0740011
"6" 3-6A0140012
LSé 330940140013
ACES R.0A0140018
#Y%00140075
/1 8Z8A0180016
90H* NHEA0140017
D2 #Sa@A0140018
M'/S EAUA0140019
LTC- 0K@A0140020
TOH*BG-&87J+-OH* KF* 62%A0140021
PROG cD 0a01-4
PAGE 16
O ©
oO 9 0 6
OQ
oO 0
Q 9
O
O
O
oO ©
.)
Cy
oO 2 8@ Q@ a 9
O
©
oOo oOo 0 90 9 4
Oo 78 @8@ 8 8 282 & @ @ 8 8 8 @
©
@
©
0
eo @ @ 9
Te" PG
IBA MAINTENANCE DIAGNCSTIC PROGRAM
A014
CL 1 THROUGH 16
T+-20/07T<HENDOS
T+-8,D/X /07, (-D
T+-OWD2NN600 ECE
T4-" /OC2Z6C 1484 0°
T+-=*0H*,ACS CM,
T+H/ KKK SC=G
Tt/B (ESS /1 UB
T+/BHD 7308°BG-D
T+ /CCTI>/ ORD (#38
T+/C=AALS+ DEG
T+/D9/1B"| *ENCB
T+/ESD_SOY1.)C H
T+/FIC3K45 #744
T+/GD,32GD(C /18B
T+/HVD# LO3-RE(,
T+/I-S31 D?<@EA.
T+/H$ /8QD>YLI<B
T (J. JOEHKB@F-D/.
Tao...
TBA.~3&<PR6)$REJA
T+/(~ CEHD3%OA1H
DATE
EC NO.
J2MAR70
571512
$28. “te
AEJ<M6@BAC3? JOH
NCTEAEJUS JLSOH
*M6TIVESCS@IAHSC i
=| *|O@BGCS%+ 11
ZDAHBHALS&,/’ iB
KCE& $¥J.)35'D,dco
S<EGHW300G>C /o
S@TBTD_S@ />¥j 44
SY5 +00 nF 4P
DGC~<
G /8aP2oiVE860/%K
&DS. /O'H+H MOTH
GC;%@ A"UOH*(@aE
SZAL*C HSWA>YOH
*+=@BGC~<as0": 0u
*"TH*®]O3CAEE. /0#
UAHRC DLYA+/0H
*1] K:-OND>UK:-0
GD¥-< 1.2 EKE<AI<
/OHE~LULICBE /Y
;OH*BF£D2D7E- *B
O1APR70
571516
O6MAY70
571513
FILE CONTROL UNIT FLT SECTION 1
OBJECT CARD LISTING
s /LSD23 /1THROHF
<6CBAEIJX /930C8
HUJHC+ -#54|HOBCS
RE(HB GLGOI j[LTY
HBYHECSBGD(} /0=
iZARSOH* { B00 cS
“/012C HrGLEC
SBTS E+T2D 72700
GF/Y< AMEE (Y171L
$M-4BD_OSY<BAC3 }
(@306C", /073+2
EGMUZ FUEIMIZAK
KF*BGC;* SECNED
D_QLIL&AD_M< 1.
[email protected] DLE/H
AtJ+O] *.P<HA /Y
GD3/ 1) XR5_V 5)R
0130L70
571524
CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THRCUGH 68
(:3Be Ee ( JENE(?
;SALEOHD(€@BG /8
DEQSSARR~¢ DE3°R
HEI" /0°K¢O-EG3E
GOHtEu3cECeSS Ja
GCOBGB *“BOHSGG-L
POa+S5L~HE(C D =
BsALEC HS91L$C
¢ DALDOH*E6TYHE+O
+CODNFIMBCG DIGCB
"/OH; 1>-D9L /18
¢*@BGC+<:H #7CH
*LOH* (@30AD;.AZAG
Qt A-=3Y;+}4-L 1
SG=E0Y/. $CH<K7LB
HC DLGAHHC DLE/H
& JY)0 *& <BGDSE
-&(LS1SCH5U_ OUC
OTHART71
574573
PART NO.
PAGE
CL 65 THROUGH 80
” 67, OH®EG- HN6 14
RE(YLK<BGD/£ 07
EGEBGC-a} A<VES.
TEISTYIS- OHO] 5*B
BATDE-GE.<HCKTL2
TYIL,CECSSESIESU
GC3@< CDTE(? /1D
ROH® (83Z C?2*:5 8
(2326C5" soedc 0D
/+0DIBT4 E(, -£7
GS3EHD%| /1<WA-D
WD>HOZA.YC K:/#
ic DLCAHB]D K‘Ct
<as.3EHC /1I2
eaeeeveuanvneeneneos+s ne
E&DA 8>|A8=LSEDA
PROG ID
PAGE
5129611
16a
CL 681 THROUGH 96
wOH* 02900140022
7C¢ ITCAOD 180023
GE KR-A07480024
GC" =$BA0TKG0025
~FSD 37920180026
BaE 93-420140027
tf
rn
“a
on
est
m
a
©
ond
&
@
©
2
@
{ 2H 1B8A0180039
E:T BI@BC18003?
«
Hs® @--201480032
ache :¢Dn0180033
eou* E, 20140038
M:3& 760140035
2CAD O3HA0140036
Ka1& 00Ua0 180037
~OH* 4K*20190038
"D?H 87020140039
@e@eee
08920180080
@eeeoae es
O 8201480041
@eeese
=36401800482
=<€ 6.BA0180043
0a01-8
16a
~
oe
©@.
- @.. : ©... S. Sie. & a 1 & fee @ estas 6 etx & ee oe arte oo oo @ bak -@® Sh oe @ : & ;
oe Pie .
IBN MAINTENANCE DIAGNOSTIC PROGRAM PABT WO. 5129611 os IBM MAINTENANCE DIAGNOSTIC PROGRAS PART HO. 5129611 a
PAGE 17 v PAGE 17: o
A014 FILE CONTROL UNIT FLT SECTION 1 6 e A014 FILE CONTROL UNIT FLT SECTION 1 is
| ror
OBJECT CARD LISTING | OBJECT CARD LISTIEG
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 956 & a CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 4&9 THROUGH 6s CL 65 THROUGH 89 CL 81 THROUGH 96 c
{
e 2 2 s @eeeee @eeeneennveoeonu eoeecaee eeeess © C aes = e es ese * a pom * @ ae 2 “a = e — a : eo a
THA+HG6) ( 1_]DEDC DISREDCDIRLRE<XL ABE EXPXS2@PCB@P DEDA EDA ED @#UA0140084 | T+/SFH/ SF- .D/Y + JY /28 J," JD , J,@ EYW9AHEC-D E£ HEO CE*ODEZOL £E* DHG=EKF~- EF-8 AD/Y 4.8A0180066
> eo eo * e Cc c °. —_ee e e ee e eo e eo , = e hy
T+/1,5(POE<.RKUC OSMCSOOGNE<TI83E HD=¥< 1"UED, /1{ *( -L:-OCG=E6NIJTF WEI73Y C /1],0H* L936 KIDAO140045 T¢/TA"ODFG= E"ED E 8FG> KFIT-A28 AH/ E*OF 3; EGR (F- -C/-SF- VCy- SK/DF.U¢FD®:0/- EC-D ~H#-a01980067
oe _ | 2 > 7 = s 7 id ° ° © . G e oon ° ° ° ° oe e oe e e =
T+/EWEBAJBC M'AM B<HHK63BTD_4< /> QF:82 A>VC QSZA> VOH*SNZBG /8CF: LY @BEJQN & AEB3 /1H -~I-A0180046 . T+/T@F20AP-<AFV- AF2O0APVZAF2GAF- 88 DDJY HC,BF 8 QN2YEF- J&6 -> B® B.-A A/Y AY EC, BFAY 0C@A0180068
° ° s eeasne oe = 2eee eos CG 9 ~** . @ x - we e e eeceo_ece e e e e e =
T+/J/FeBGF/YSDA. $OA L'L-AD_,20 L /1HROH*H]0 HD F/Z*P<PN1E1 *F/YMO )"O@-C 08) OFUA0140087 T+/U7C-DE HEN D DDJ," JD, J,@ SY ABYAL-& E E HB@&<RH-8033,BF 8 QHO8Q~1YK J¥ "1, _ 68 K-8A0180069
eo ee @aeeeeee es o | e e e cd cd was e ° e @eeen -® e * oe :
T+/K*]}.091C0G1] OBj|COB@ILCa|COaIP OBj]COS{ COSjCOa}C 0a1C0a| C0} GOYO EEC""@ HM ;8A@ "CO@A0180048 T+/V2FHB: AY AQ ;8C,8F 8CE&8Q~71Y F JY "1,9 680/08 5-DD he" BMY .BIVYC//GESHOC/Y LC/- & 84860180070
ols
T+ /LP8) XE10C1 & FATBO-C “A F/ ED YSa/ 2H Y-FT EB < & EM LD-A 0140049 T+/W_71YF JY "1, 9 EB8O/XY F- DA/# -4+£8HOC//ZC//"F/H AF-C"F>UAC/SFL- A: KY F?@AK-? “FES K,QA0180071
°° @eeceeoaneven ee @eweenvemoaeeeeeoeoanaenn eeeoeesertreseeneeenenest @eeenteemeeceaeaneaeee eee eeneeaeanegaeecesne2ene eee2est & | G = e e eeoeeo oe e ry @e e @e es a
T JLR 7Z2*2 0140050 T+/XYC//G+%HOI-8 OMO8Q-1YJ JY "1, > &80/XYAL-B D A," SY<GIXQE BH SHY E"0O( ASB8AEBO > /Y 56200180072
e@eenrmpeaenveceen ee @eeeaeoeeetaveemeaenceeneatne @aeeenwee @aee@eeee? @eeeaoese eevee ee e e@eeee @eee?nesesewes eoeo ee CG | oO 2s = se ee oe s es os oe eae ee es e ae ® St
T<AN+ AO & - AA & 0 =I14a0140051 T+/YT 6:0/-DDAY ¢ JY 1,"AFE&F2?@ |F-8AI £ + E"1D DAS" 2H F J, “ BY<<*BG /TKOH® BHD Of8A0180073
eee eeaaeveanae eee e eeeeeenee a. 2 _- * e oe = °° oor e © ‘ OG e = ‘a ra ~ ~ es _° _ ~~ ”
T+ /N< A- D WED BMVOWH/ SF- .+*%HQF-8AF?@AF- ER/DE 8B"0 CD BFAY @86A0140052 T+/Z; LBSD_%OY1. )<.HSHL--B-# DAD $] D$HL/ F2C UA, Dj <$HL-AB-3 DA, D¢ HHC|HEH30GF2D SBAH K88A0140078
ee 7? —~_2®? elee ~~??? —-** ~?? -_** -_?*? ee oe e O G ay e . ° eo 2 e = bd e e
T+/OG H:&/-E H :0A-E H:0/ E H 3:0--E H:6/-E BH :4/-E H:2/-E H :1S-E H:01-E H 7:0Z- BA a0180053 T+/DR6@ EF>Y8 J. *28/ -|ANSHL7B ~C -J,DOH*$B30EF2D SBA.SOI E:%BGFW& @E/K/|*HB <BArO? /1¥ )ISAOIUCOTS
. C c aa
T+/PBF- B+SIQF- B+SHSF- BeRe*F- B+RHEF- BeSHRF- B+KRHOQH/ EC-DE < E"O<XE YD AY MY #H,JM "$4A0140054 T+/,H:TOIF2ZD8EA% -OA E:TOSF2D9 OY <OI E:TOKF2D8BA. $OA E:TB:F2D8 &Y 4@/ EJAESELY F2C DAY #$<A0180076
e -_ oe o -_ ‘ame’ =® ® eee e ee e = ee e e e Cc GS e ° * a as i e
T+/P'1D BAVOWH/ SF- .+hHOF-SAH/D E"ODE RtR- AY CT,BFAY+ JY J, “" JYD JY J,# Je 6 KY J/%A0140055 T+/h|2RBGFWEADIN /+D SH<BEF>, /1Z UOH*BG-D$HI_JOH*® BFSDQF3W-:%BG /Y CPA_JOH*BHDCD<EQ $E"* 4-<a0160077
. ", =. = > = * ° = -a* * e O C oe eevee oe ° « oe ee
T /OBDAY C/Y*+ J, “JIS"FOBAA/A-1/Y OAS?I/," Je? JY SY E+ &F- H#¥H OQF-SAJA E Y:0/- EC-D 9.4A0140056 T+/_HY C /OHOF 1- B3UH4e OXL TECXLO1;I 5S)$TE(L AS@]HE+.E5;.ESRP EG(~A1@N *~POE<S COD OKKA0180078
. * 7 : 2. © Co e o o ° ° ee o
T+/R3P- AF?@AFS- AF- AY_*AF?MAF- +F-YAF-QAPY8AFUS AFSSAF/8AF-@AF-8 AF- .A/#,F-8AF-C 4F?G Q@A0140057 T+/>ES<GP8WCX93E HFIDS J>2C <$XJ. ) +H SV?HEB3S F9, 20 &:-A>SC-<$WJ> RC-<$XI>)C-*$ZI> VC- 68640180079
- * +. ~ 7 * . ee ° ° ae o o e se ° e eo G ‘ Cc oe s o e@eoeoane @eeeeeaeanveeaeoneee oe oe eo eo ® n
T+/E> J,1 3,@ JY CSY F- AK-,7EY/ VI;RSYSH/Y B3, BFAY+ JY 1," 1¥ AM GSP- F- 2#%H OQF-8 ; 420140058 Tt/? F:O@N TU/F2" -J>+0H*$Q KG+287%=8"3 -C ""QHAB-048 32-41 8 *,C% £3*201780080
° Se eoee °.. “eas = e5aeco me OO oe - * e ae a oe oe. © G PY ° . C eo ° a e o
Te/$2 JY 48 H/DE"O<CIDI,"ADB OU H-DE EHB1M O%8M BHVOWH/ SF- .+%HQF-SAH/DE"OE + - *8*A0140059 T+/2@DA2#+1 *23% SGEA#DASF+1 )SL& SGOUSDA2)+ EHC< EF=T /19R0-H)>C1 .GU# /12F(-HEAS@ GUB CA@A0780081
aoe ‘2,-S. e age oe e = e o eeoae e @e@eeae oO | ce e a
Te7*U E HE"OR +—- AY J,7 JY CT,BFAY+ JY ADS B F- CL-Y E 68:0/-EC-DDDK& OL-Y 3KMA0140066 ! T+/O06EE. J?700:D A<E<;RLFTG@Q1Y19 VOH <FSGBY8DA2 )OA $B3--E-# DA1 KOH*S$8@BG /,EDJ1 JYC< J 200180062
oy 3 me Sse ° = * ° = *ee as ‘ o oe ee o © 2 —_* oe . ° e e oe is
T+/)~A F- K-, NE3A SI;RS8A- G AJ# CKYSF- H+%H OQF-8AJA E Y:0/0 EC-DDDJ," JY JY -Y 3LMA0140061 T+/110H*BHD 30R* *.*|ES(LO1<N 5)$ TE(XESKPT+/ *X*H AB-3Y J@4+/ *,CY EG.%2DAZ2"*/ )C3Y EGHQ 41000180083
-_ © e ee as ae _?** — @ eo ean - 2 e eS e oe GC | C oe o < es é. ve 3 a ~ = _° 2
T4/;EG=6+PF (+C- C,CFBY&F-SAH/D E™ODE DEA D+F ( +¢*C- CDCFBY&F-8 AF- CH/D+F <:0/- DDAY 7$ a0140062 ! T+/2%+/ )S$LYEGOX B -Y|{ HS$7@BGF'O 4BAGH. )XE % AD J LFTG$-12/6-~a: 1&<)X*BDGH? /14 ><HH 2,<A0140088
a ae as e eee 2 e oe oe ee a _~-*e . * a - _ Q Q 7 : : . ”
T#/-NC-DE HEA D DDE8OQ 1¥ Y AL-O 2B C- 2YAF- AL-O - AHB34P04 CHV9 WHY > Q AS M:& 4 E C- 6H@A0140063 T+/3XGR* 8EA6PZ/A Di{ H)_LBSGR*0Y16 ROH*BG-6&) WI9T}. *9T-EGI720 -B@YA3 WI{ D)_*BG /,AE/6 5S FQ w-a0180085
. oe es « wt @@ 2 oe ee eee ~—e? e e e %: F 6 = io ‘s Ss ‘a e e o
T+/-EB/"UF- EB/* / / & AQE FG> =F- F- 8A E & D HED L"F- CK-_ $A/#-B/"UF?@AF-& AF2Q ) 0040140064 T+/QSOH*BF-8|GW) /OHSYPE /130<E< ) _3FTG$-j A6)ESH } AQJESHOY/OPOHD )HT/ GR~ DA3:0H* *_TU 20000140086
* e e ee e e ped e ee e as os ew 2 e - CG QO o * s * ‘ if ‘~ (a
T+//. JY CAY+ JY AY E Y~BJH20/- DDAY+ J¥ /ZH KY JF?@AFDSAF?0BF- &F-8AF- E- K& I KPWO 3£8A0140065 T+/5)EAGPOA ).%B GG.QOY16R+ &)¥]H SA<BGG.Q1Y167<E<X )>CBSGR*8SA6P@Z DOH**_-@ GR4N TS GRY 7THAO180087
Qa co
oe O28AR70 01APR70 O6HAY70 0130L70 01MAR71 PROG ID 0A01-8 DATE Oz 4AR70 O1APRTC O6MAY70 013UL70 07HAR71 PROG ID 0001-8
- 571512 571516 571513 571524 571573 PASE 17 a °C EC NO. 571512 571516 571513 571526 571573 PAGE 178 m
; o os <
0O:.G o
ra)
oN
IBM MAINTENANCE DIAGKROSTIC PROGRASK PART NO. 5129611
€ PAGE 18
cm
A014& FILE CONTROL UNIT FLT SECTION 1 oy
OBJECT CARD LISTING
. CL 1 THROUGH 16 CL 17 TEROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THRCUGH 80 CL 81 THROUGH 96
C ° ee aesaes s.
T+/6G0 D).-OAGV< ;HCBSGREOY76R+D jV@BSGP3 /126+A })V@BEGRE} JSLES. ISYOR** %BGGRE 20ma0180028 -
T+/7TL PERT IG+.PISEDSCPRE)S RE<LRZ;PES ETD 0 D -EEBAOSHA Y ¥FBOQ(B SED YIBs< <E O 9reR01K008°
Ms
“ e e ~s e
Te/UsE-aPC/UEF/ *D/UKCIL-EBHOH7Q VFBOOH/U,GB@~-<B GICNUSK-:BCOTI21 CKBSQKCII(DNBLTS KIE< 12289320090
T+/SIGL) ODATCIS DGM/SKTECRS1,H¥1 6) E/50G5--EDTEH) YI7BE*I/SELSY-HH DYS,S.+¢_IB@¥.6 Q7E 0- 880180091
TFI9VIDC<Z- a/0 DCSSHGTS+i J=> 2D-20 140092
T AR- ~~ : 30a 0140093
T AN, ;T@A 01400948
T i"y Gt & 3#UA0140095
EWU SETSa—DCUPHS ="THEFG jc FR aSC RA SO Q 36570501706 30271. 8806140095
ft c
Z
¢
C
Ze
AQ
c
| -aieietaetniatetetataeneetetateatatemataatammemaaetee LAST PAGE ~---~--~-~-~---~--—~----~------------------------- -
. c
DATE 02mAR70 O1APR70 O6MAY70 01J0L70 01MAR71 PROG ID OA01-&
: EC NO. 571512 571516 571513 571524 571573 PAGE 18
i Cc
c a
eee 02@eoeeee@eeesgse~esdeoeeeeeeeeee ee ee eee 8 ete
NS CSTSTT 77
2 S . . = .
ce 1 ¢ 3
IBS SAINTESASCE DIAGNOSTIC PROGRAS PART 86. 5129613 | IBS MAINTENANCE DIAGKHOSTIC PROGRAB PABT BO. 5129643
PAGE 1 cic. PAGE iB o
. BOW FILE CONTROL UNIT FLT SECTION 2 G (BO 13 FILE COSTROL UNIT FLY SECTIOR 2
© eos
EBR LCC OBJECT COLE ADDR STMT SOURCE STATEREBT ERR LCC CBJECT CODE ADDR STHT SOUSCE STATERERT
Oa0co 2 CLKSIP START 2560 ee cC OBIE 35 01 1584 79 L SAT, XR1 . é
3 DECK 4& GB22 CO 87 OB7B 71 B GNAT
0800 £013 Ca01 & bc XL2°B013* PROGRAM ID OB26 CG 87 OB2ZE 72 VIRG B TRUST
0a02 O00 Oad2 5 BC XL1°00* FLAGS gS oC OB2a CO 87 32EC 73 B GoouUT ; woe
0a03 00 OA03 6 CuOn ac XL7'O5* CURRENT BCUTINE HR 74 veeseee ROUTINE TO TERMINATE AN CPERATION*S OS se sncecesgeoses
Oao04 0660 Oa05 7 Dc X12*°0000° RESERVED OB2E 3&8 GB OBSC 75 TRUST ST TRYST4*3,X* 08? STORE RETURB
@a06 OAaTD 03807 8 RT1ADR DC AL2 (RTB1) ADDR FIRST RTR € Cc} OB32 C1 A2 OB3D 76 TIC CRUST, X*A2* SEST POR BUSY £
Oa08 Oa0Y 9 DS CL2 0B36 31 A3 13C1 77 LI RBNER,X*aA3
*OAOA A05000 oaoc 70 doc XL3"a0H000' ODT PRISARY SPINDLE OB3A F3 Al 01 78 SIO XO", xeare
GAOD BO01000 OAOF 11 oe XL3°BO1000* GDT SECOND SPANDLE € CG OB3D 37 a3 1357 739 CRUST LIO CORD,xX*A3° WOT INDEX = 7
OA10 OF Oats 12 ETN pc XL7*O1* | 0B&1 31 A3 OBSE 80 p & <e) YORE,X*A3* FORCE THDEX I8 CE BODE
OA11 80 OA1T1 13 pe XL1° 86" : O&85 Ct A2 OB&D ai TIO CRUSH, X*A2* SEST FOR EUSY
ORAZ W3FC Oa13 - 14 pc AL2 (RTH2) € oc OBs3s CO 87 OBS9 82 B TRYST
OA14 3C 87 118F 15 AVI ONLY*1,xX*97* ' CRaD 31 A3 1357 83 CRUSE LIG CORD,X*°A3* BOT INDEX
OA18 OC 03 13FB 1324 16 five ALSS (8), TROCK | OBS? 31 43 OBSE 84 L110 YORE, X*A3* PORCE INDEX I8 CE ODE
OATE 37 AS 335D 17 LIO BESS, X*A&* €ié SESS Ci A2 ObSF 85 Tio BRUSG, X"A2° S2SP FOR EUSY
OA22 31 86 135F 1B 110 ANNE,X*A6* 0B59 CG 87 9OB59 86 TRYST 8B TRYST RETURB
OA26 30 A2 1257 19 SNS KNIT~-2,X%* A2* SES 03 OBSD 8000 CBSE 87 YORE pc X1L2* 8000"
OA2A 39 50 1256 20 TBF KNIT-3,x%°50° ¢ es OBSF CO 87 O2ta 88 BRUSH 8B PRINT me
OA2E CO 90 OAIE 21 EF FIRS : 0863 C6 OB63 89 pc xXL1°c6
*QA32 38 10 1257 22 TBR KNIT~2,X°10° SEEK BUSY GB6N 08 OB64 99 DC XL1° 908°
9A36 CO 10 OA3ZE 23 BT FIRS é ££: OB6S OB7A GB66 91 eT oa A1L2 (PRESB) +
OA3a CO 87 OAN2 24 B ALOE | ' OB67 A003 C868 92 Lc X1L2°a003¢
*OA3E CO 87 118A 25 FIRS B TURE. ' OB69 cO 87 0222 93 BROKE B HALT
OAY2 CO 87 1445 26 ALOE B ACT Co OBED ac03 OBGE 94 DC —_- XL" 4003" +
QOA46 OC 03 1704 139D 27 ALCFT MYC ARNE+3 (4) ,MOPE SET UP FOR RD ID SHORT TEST ; OB6F CO 87 0332 95 B TRUST+4 :
OASC 3C FO 13F7 : 28 MUI ALSS-& ,X"FO®* RESET OB73 YODICSCERBYOFIFO OBTA 96 FRESF be CL8* REF. 10°
0A50 Oc G1 OBAS 1388 29 BYC ETTA¢2 (2} , NAY RE&D ID SIO o | Cc OBJE 37 AG 135F 37 GNAT Lio ANNE,Z*A6° SET UP DFICR G
Oa5E€ 35 01 1786 30 L TAX, XR1 | OS7F 373 AS 135D SB LIO BESS, Z*ag* SET GE DFDR
GASA 3C 87 11D0 31 avI STAR¢1,X*87* TURN CN PRINT MODIFY SHITCA * ; CB&3 3C 87 CDA3 39 AVI RINK+1,xX°67* RESET TEST FOR BUSY ERR S#&
QASE OC C6 1343 1324 32 FVC CRUX (7) , TRUCK MOVE ETN NOBELTR 1 a a 0B87 3c OF ODE? 160 AVi FOES¢1,x*07°* RESET S8 ae
Oa6S CO 87 OB7B 33 B GNAT OBSP 3c OF 106A 10% avi EON¢1, x°O7* SEY PB SHS SW OFF
OaGe 35 O01 1718 34 GAB L HARE, XREI1 i eee OBSF 3c OF ODE3 102 avi ZORECG, X*07* RESET DATA FLD SB
OaA6C OC 01 OBAS 1388 35 ave ETTA¢2 (2) , BAY READ ID SI0 C : G OB23 3c 07 GCS93 103 BVI DLYS#+1,1°078 SET DELAY SW OFF
OA72 OC C6 1343 1328 36 “AVC CRUX (7). TRICK MOVE RIN NUMBER 2 i 0597 31 A3 13C1 104 LIo ABNER, X*°a3* FORCE CE BODE
@a78 cO 87 OB7B @ 37 B GHAT, -s- gies : OBSB Ci A2 OBA2 305 T10 FAULT, %* a2
*Zz YOATC CO 87-42a7 38 STAGE B BASS oe, Cc °C OB9F F2 87 04 106 3 ETTA i
4 -" GABO OC 03 1IFO4 1379 39 fYvC ARNE+3 (4) , STAID READ DAT CTL FLD : OPa2 cO 87 116A 107 FAULT 5B TURE ‘
OAB6 35 G1 1819 . a0 L STYLE, XR1 READ DATA PARA OBA6 ¥3 00 O00 108 FITA sIo X°GO*.x*00* START 3/0 IS SET UP BEFORE EXECUTION
GABA OC 01 OBAS 138Dy 41 BYC ETTA+2 (2) ,NOR READ DATA SIO € & OBAS 3C O& 1383 O48 109 PANDA RYC FAY+4 (5) .4{ ,%R1) MOVE PARA TO WORK AREA fy
0a90 Oc 06 1383 1330°-. _ 42 NVC CROX(7) , THICK BCVE TN SUMBER 3 OBAE 06 13 13FB 1348D 410 AZ ALNS (3), TEN (2) ADD OBE TC MSG CETE
Oa96 CO 87 OB7E “83 B GNAT OBBS 38 02 73a” 711 TBR FAY,x*Q02¢
*Oaga OC O03 IFON 1375 84 STCEKE NVC ABNE+3 (4) , STILE MOVE WR DATA CTL FLD CLK STP € G GEES CO $O oCc&C 112 fF A#ILE GO TG LIO ROUTIBE
OARO 3C OO TEFF 5 avi BABN*+255,x%°00* OnBC 38 O1 23aF 413 IBS FAY,xX*01? IS THIS A BBD PARE
OABS OC FE 1EFE 1EFF 46 MVC BARN+2S4 (255) , sARB*255 ©Bco F2 10 98 Ta oT PEER
OAAA 35 OF 1958 87 L LOG ,iR7 WER DATA PARA Zz CS OBC3 3D 72 13AF 115 cLi FAY,X°7A® Sn
OARE CC G7 OBA8 1393 8B EVc ETTA42 (2) , RAT WR DATA SIO OBC? F2 8& 91 116 J# EEER
GABS OC O06 1383 1336 &9 BVC CROX(7) THAT SOVE RTE SUNBER 8 OBCA OC 01 OBD? GBDR 117 AVS STAND*3(2) , STALL BESET BRANCH ADDRESS TO ORIG VALUE
GAEA CO 87 OB7B 50 E GHAT & G OBLO OF 07 OBDO 13aP 4118 aLc STAND4+3 (2), FAY ADD PARA TO BRANCH TO ADDR aor)
OABE OC 03 1F04 1382 51 BASH BYC ARNE+3 (4) , TONY SET UP CTT FLD SR ID CLK STP OED6 cO 87 OBDD 119 STABD 38 STABLE
Oac& OC O6 1343 133C 52 NYC CROX(7) , THES BCVE ROUTINE 5 OBDA CBDD OBDB 12C STALL DC AL2 (STALE)
OscaA OC OF OBASB 1395 53. uvc ETTA42 (2) ,SET © ¢ OBDC CoO0 O8DD 121 STALE occ X12*CGO008
QADC 35 04% 1603 5& L BRAD, XE1 OBDE OBDE 122 DS cLi
OAD& CO 87 OBTJE 55 B GNAT OBDE CO 87 ODOA 4123 5B PROD CONF CTL FLD
OADB OC OF 1FOU 1316 56 ORB NVC ARNE+3 (4), PASS @8 DATA CHSAFE ROUTIBE c CS OBE3 CO 87 ODIC 124 3 BANA CCHP DFDR is
OaDE OC O01 OFI1t OFSO 57 MYC MALL+¢5 (2) HALL RESET START ADOR OBE? CG 6&7 0D32 125 E CRERI COMP DFCR
GAER 3c O00 EFF 56 BVI BARN¢255,xX"00°* OBEE CO 87 OD4Ss 126 B FACT GO TC ALT PARA
OAE8B OC FE YEFE 1EFF 59 NVC BARH+254 (255) , BABN¢255 G .€¢ OBEF CO 87 OD58 127 B TACT RTM TO SAJOH PABA ae)
OAEE 3C 117 1500 60 MVI BARN ,X*11¢* ‘ OBF3 CO .87 CD60 128 8 CAPE CORF DATA CHAR
GAPZ 3C O07 11D0 61 BVI STAR+1,X*O7* RESET PRINT MODIFY SB OBF7 CO 87 OD72 129 B THACT DATA CHAR ROUTIRE
OAF6 OC 03 13FRB 1324 62 MVC ALES (4) , TROCK 2 C G OEFE CO 87 OEIE 130 5 WORK INDEX INITIALIZE g
OAFC 3C FO 13F7 63 BVI ALBS~-4&,X°F9* SET UP ROUTINE SUMBER OBFF CO 87 OEA6 131 B SHARK SET 8 INITIALIZE
OB00 Oc 01 OBAB 1393 64% VC ETTA+2 (2), RAT WR PATA SIO 0c03 CO 87 ODECE 132 8 SALT RESfT DFDS
OBOE 35 61 153F 65 L DUE,AR1 SET UP FARA ADDRESS CS Cc 9C07 CO 87 OED6 133 B S&ixt COMP BUSY aRD ERROR x
OBOA CO 87 OB7B 66 8 GRAT OcOR CO 87 OEEO 134 B FOOD TEST SENES PROBES
- OBOE OC 03 IF04 13E2 67 RASH ave ARNE+*3 (&) , TORY SET UP CTL FLD OCOF CO 87 OEFA 135 B STOOP TEST HALY WITH SDELAY OB
OB1& 3C 00 1500 68 AVI BARN, X*00* RESET DATE FLD oS Cc 0c13 CO 87 OFD3 136 B SEEP TEST HALT WITH DELAY OFF 3
0B18 Oc 01 OBAB 1395 69 BYC ETTA¢2 (2) ,SET WRITE XD SIO 0C17 CO 87 1033 137 B FLAT A-H BOOTIE f
e :.9 GO
DATE O2NART70O OVAPR7O O6MAY70 0130170 aes PROG ID 0B01-3 DATE G2BAR70 O1APR70 O6mAY70 01J0L70 PROG ID 0B01-3
BC RO. 571512 571516 571513 571528 - % PaGE 1 i EC KO. 571572 571516 $71513 $71528 PAGE Ta
oe ¢ .¢c c
my. we ‘
Bo ee Bote P
“ _ 6°. .6.6¢ drag a o
ie. is
- es
o © seit a
- Se Ese gre, © ree ore Ra aad BS é
c 8 ves c €z
>
: Cc ¢ Q
: oc 3s
‘ ® 253 5
» ae i
>. 2 .
IES MAINTERBANCE DIAGROSTIC CROGRAR . PART NO. §129613 | IBR MAIBNZTESANCE DIAGBOSTIC PROGRAS = 4 iz * PART #0. 5129613 . ; 2
: ; ; : PAGE 2 ' @ G : : : PAGE ; 2a &,
B013 FILE CORTROL UNIT FLT SECTIOB 2 | ¢ eS BO13 FILE CONTROL UNIT FLT SECTION 2 e
eS & Ree
ERR LOC OBJECT CCDE ADDR STST SOURCE STATESEST ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMERT
OCiE CO 87 10~a4 138 B ABTE. SET § TO. &: CG 0D26 CO 81 OCB6 203 BE aDv3 24
OCiF CO 87 OC6RB i 439 B LISP Op2a cO 87 118A 208 .B TURN
0c23 CO 87 16~AC 140 B SHOP 256 WER OSC TIMES CRT OD2E CO 87 OCBE6 205 8B ADV3
0C27 CO 87 10Cc4 141 B WHELK BR TO NE@ ROUTINE CG “3 206 *##4¢¢ SUBROUTINE TO COBP DFCB Seeeoeses
O0C2B CO 87 10CE 142 EB STaT STATOS ROUTINE ; OD32 30 A6 13EB 207 CHERI SWS TOAD. X*A6* CHECK DFCR
OC2= cO 87 10F0 143 B VARY SET WR OSC BIT ON SER DATA ROUTINE OD36 OD 01 13E8 1381 208 cLC TOAD (2) , Faye¢2 Z
0c33 CO 87? 10FC 144 B WARY SET WR OSC BIT OFF SER DATA ROUTINE : c Cc: Op3C CO 81 OCBE 209 BE ADY3 BRANCH TO ADD 3 TO PTR aie ®
0C37 CO 87 1108 145 B BIRE SET SENSE BY BIT Op4u0 CO 87 118~ 210 B TURG :
9C3B CO 87 113110 146 E TINE SET SENSE BY BYTE Opus CO 87 OCBE 211 B aDy3
OCc3¥F cO 87 1118 187 B @IRE SET SEP CLX OFF SER DATA ROUTINE GQ GS 212 #¢#%¢e SUBROUTINE TO GO TO ALT PARA SSOSCCSOR
0c&’3 CG 87 1120 148 B WIRY SET SEP CLK ON SER DATA ROUTINE Opes 36 01 13E8 213 FACT A THREE, XB1 aad a
ocu? cO 87 1128 189 B SINT SERIALIZE DATA CHAR WITH SENSE ODsC 38 61 W3EP 214 3T ALTAR, XR1 7
Oc4B CO 87 1130 . 150 B SINE : C = Ops0 35 01 1351 215 L PAY¢<,XR1 : S
OCUF CO B87 11T3E 151 B LINT SERIALIZE DATA CHAR SENSE AND COP Op54 CO 87 OBAS 216 B PANDA
0C53 CO 87 T1HA 152 E ACRID 217 “#8ee¢ SUBROUTINE TO RTWB TO MAJOR PARA 46880008
OcS57 CO 87 115a 153 B POOR _ GO TO SCAN FRD TOUTINE . Cc G 0D58 35 0% 13EF 218 TACT L ALTAR, XB1 te =
OCSB CO 87 O2TA 188 PEER E PRIET ODSC CO 87 OBAD 219 3 ' PANDA : ;
OCSF c6 OCSF 155 pc ILi*c6* . - 220 ##¢%*¢ SUBROUTINE TO COBPARE DATA CBAR 99698G85% “
oc60 ID 0c60 156 re IL1*299 c on 0D60 OD OC 1E00 1380 221 CAPE CLC BARK (1), FAY?! CCRP DATA CHAR . * CS oan
Oc61 OC8B 0c62 157 bc AL2 (BDPARBS) 0D66 CO 81 OCBA 222 BE ADV2 BRANCH TO ADD 2 TO PTE
0cC63 AOCF Oc6e 158 BC XL2* AOCF* OD6A CO 87 118a 223 B SCORN.
o0c65 cO 87 0222 159 B BALT : / CS «. ODGE CO 87 OCBA 2248 B aADV2
*OCc69 AOCF Cc6A 160 pc XL2*aOcF® : 225 *#¢%%e SUBROUTINE TO DATA CHAR O92 48668845
0C6B CO 87 12EC 161 LIME B Goour Op72 Cc 00 1298 1331 226 TRACT aVvC ARDY (1), FaY+2
OC6F DILSLE6CTD9CIDERO OCS8B 162 BDPARM DC CL29* PROGRAM ERROR - BAD PARASATER® € co Op78 Oc 00 13A8 13p0 227 PART AVC CAREA(1) , FAY?1 re
O0C77 CSP9D9D6D9406040 162 OD7E 3c 68 13F3 228 CRE BVI CLK1I~7,X*68% RDSET CLOCK LIO BYTE
OC7F C2cCiIC8SOLIC IDSC 162 GpD82 3c 4& 13275 ; 229 BVI FETE~1,xX*a4? RESET DATA L110 BYTE
OC87 L&CTE3CSDS 162 €: as Op86é OC 02 13A7 13D9 230 ayvc CAREA-1(3) ,CHE*1 oe
163 ##*ee80e82 SUB ROUTINE ITO CCNTRCL FY BIT Seessesese Op&c 38 O8 13A6 231 STOBE TEN CAREA-2, X*08* IS TaZIS BIT RING 1
ocsc oc 06 2298 1380 1648 AMILE HYC ANDY (1), FAY¢1 SET PARA CST IB PARA, CHTR ' ODSO F2 90 OB 232 JF RACY
OcS2 CO 87 GCCE 165 DLYSK 8B ERGO DELAY S¥ITCH Cc | C: OD93 3B 0&8 13F3 233 SBF CLKI-1,X%° 08? RESET INH CATA CYCLE REQ ae
0c96 OC 006 132 i3AF 166 FANCY #svC ELLA-1(1) , FAY MOVE PARA CizR TO CE LIO { OD97 32 O&8 13F5 2348 SEF FETE-1,2%°04° RESET INH DATA CYCLE REQ
oc9Cc 31 &£3 13C3 167 LIOo ELLA,X*A3°* CE Lio us | OD9E 38 61 13a5 235 RACY TBN CAREA~-3,xX*O1* Is THIS BIT BING 6
OcAO OF 00 1298 13D8 168 SLC ANDY { 1} , ONE SUBT ONE FROM PARA CST =.- a Cc: ODSF F2 90 IE 236 JF BRACT =
OcA6 CO 01 6C92 4169 BENZ DLYSH CORTINUE ONRTIL O ODA2 CO 87 OCDA 237 RINK B DANTE
OCAA CO 87 OCBA 170 B ADv2 a | Gpa6é CF 00 1298 13D8 238 SLC ANDY (1), OBE
OCAE 36 01 13D8~ 171 ADVS a ONE, XR1 oo : go j G Opac co 01 ODT7s8 239 BNZ PART oy
OCB2 36 01 13D8 . 472 aDVa A ONE, XR1 “ee OpBO 3c 87 ODA3 240 RVI RINK¢1,X°87
*OCB6 36 01 13D8 173 ADV3 A ONE, X81 | ODBY 3C 07 ODE? 241 BVI FPOES¢1,x°07* RESET SHS PROBES SB
OCBA 36 01 13De" 174 ADV2 a ONE,XB1 ¢ @ G@DBe 3C G7 ODE3 242 avI ZONE*1,X*07* RESET DATA FLD S# 9
OCBE 36 ovv13De 175 abDvVi a ONE, XR1 | Spec cO 87 OCcB6 243 B ADV3 ,
OcC2 CO 87 OBA9 See ; 176 B PANDA GO GET NEXT PARA OpcoO OF O03 13A8 13A8 244 BRACT ALC CAREA(4) ,CAREA SHIFT BITS
177 @808¢886¢8¢ SUBROUTINE FOR DELAY *4£499489990240849239089 € { € ODc6 38 07 13a7 245 TBS CAREA~-1,X°07* : &
Occ6 OC O62 13cC 13CF 178 ERGG svc BEIGE (3), TAN DELAY COUNTER ! OpcaA cO 90 ODDS 2456 BF RACE
Occc OF O02 33CC 13D8 179 ENGO SLC BEIGE (3) ,ONE ; ODCE 3A 08 13F5 287 SBR FETE-1,X%*08
*OcD2 cO 01 GCCcC 180 BRZ ENGO € ¢€ GDD2 cO 87 ODDA 1 288 B TRACY &
OcDé CO 87 CCc96 181 B FANCY : OPD6 3B O08 13F5 249 RACE SBF FETE~1,X°08* ,
182 ¢#*e¢¢ SUBROUTINE TO COMP BUSY AND EXROR Ft S3SeEes r ODDA 371 AZ 13F4 250 TRACY Lr0 CLK1,X*A3* CE LIC CLCCK
OCDA 34 08 OCFS 183 DANTE ST PGRT+3,X'O8* @ e€ ODDE 31 a3 13F6 2571 L110 FETE, X*a3'* CE LIO DATA on $
OCDE 3C 00 13F0 184 AVI ANRA,X*0O0? ‘ : ODE2 cO 87 OE62 252 ZONE B BRANA DATA FLD CHAR
OCE? C1 AO OCFA ; 185 T1O AVA,X*AQ?* COMP BUSY AND EBROR ODE6 CO 87 OFS8E6 253 FCES B SALA SWIICH TO ALLOW PROBE SEKSE
OCE6 Ci A2 OD02 186 CARY T1i0 BETH, X*aA2* TEST BUSY € @ ODEA cO 87 ODSC 2548 LACY 5 STONE &
OCEA 3D 00 13F0 ‘ : 187 DART cLI ANNA,X*00* ODEE 38 80 O0F87 255 FROG TEN GALA@1,X* 80° SNS AT BIT RATE
OcCEE CO 81 OCF6 188 BE PGRT ; ODF2 F2 10 12 256 JT SNAG
OCF2 CO 87 148A 189 B TURN dr c ODFS 38 20 1358 257 TBR ART-7,X* 20° 4
OCF6 CO 87 OCFE 190 PGRT B PSRET ODF9 F2 10 13 258 jt S#8OG
OCFA 3B 01 143F0 191 AVA SBN ANNA, xX*0O1° SET ISD FOR ERROR ODFC 38 20 1339 259 TBR ART-6,X* 20°
OCFE CO 87 OCE6 192 B CART C. - a QEOO F2 10 OC 260 JT Ss80G ‘ 3
Op02 3A 10 13F0 193 BETH SBN ANNA, X*10° SET IND FOR BUSY . _ ©0£03 CO 8&7 106D. 261 B aut
* ODOG CO B7 OCEA 1948 8 DaRT O£D7 CO 87 OEOF 262 SWAG 8 SNOG
195 *eer¢8 SUBROUTINE TC COMPARE CTL FLD BO SSS4EKEE Ce: € O£EOB CO 867 106D 263 2 ART oO
ODOA OD 03 1FO4 1383 196 PROD cLe ARNES3 (4) , PAY*4 CGHP CONTKOL FIELD OEOF 34 08 CES! 268 SHOG. ST GAS*3,%*08* STORE RETURN
O0p1G CO 81 OCAE 197 EE ALVS 0E13 36 07 13D8 265 FRUIT A ONE, XB1
Onp14 CO 87 118A 198 B TURN c3 G O£17 06 31 1343 1348D 266 BRUTE AZ CRUX (5) » TEN (2) ADD 1 TO cTR a
Opi8 CO 87 OCAE 199 B ADVS y OQEID 30 a3 13C9 267 SNS FLUID, X*a3* SHS PROBES
200 *##*es% SUBROUTINE TO COSPARE DFDR eteseceee . O£21 38 80 13Cc9 268 SBF FLUID, x* 80° SET BIT 0 OFP
ODiC 30 A& 43E9 201 BANA SNS BROAD,X*a’* SENSE DFDR Cc o OE25 3D 02 OAO3 269 CLI Cyuom,x*02°* CG
OD20 OD 01 13E£9 1321 202 CLC BROAD (2) , FAY*2 COMPARE TO PARA : OE29 CO 01 OE3D 270 BNE DIX
i
6:93 O
DATE O28aR70 O1VAPR70 O6NAxY70 01J30L70 PROG ID 0301-3 ' DATE OZBAR70 O1APR70 O6NAY7C 0130470 . PROG ID OB0N1-3
EC KO. 5715342 571516 §71513 $71526 ev PAGE 2 ‘ EC WOW 571512 571516 571513 571524 PAGE 2a
he 5
ee wo ES f
ey) “be. so. a :
: ane Se ; S ‘ 6 alge. cad a tna, CG
: © 6 Sisk,
RPE EE ae oo Wy RR ee wa,
: : © Se se G
= t aa
Co 9 3
e 98 9
e©eeeeeeoeeoeeeeeeeeneneeeneneeenennce
os8e0o989058 ® enn77n7e7eeonoeeoeeoeeeoee ee 80 @
IBM MAINTENANCE DIAGHCSTIC PROGRAA PART WO. 5129613 _ IBM MAINTENANCE DIAGNOSTIC PROGRAR PART NO. 5129613
. PAGE 3 c = PAGE 3a
BO13. FILE CCMTROL UNIT FLT SECTION 2 8013 FILE CONTROL UNIT FLT SECTION 2
ERR LCC CBJECT CODE ADDR STMT SOURCE STATEMERT EBR LOC CBJECT CODE ADDR S1MT SOURCE STATEMENT
O£2D 3B 10 13C9 271 SBF FLUID,X*10® OF1E OFZO OF1F 339 pc AL2 (BALL)
0£31 38 02 13¢8 272 IBN FLUID-~1,x%°02° OF20 CO 87 021A 340 3 PRINT
0£35 CO 90 CE3D 273 BF DIX OF24 06 OF24 341 D XL1" 06°
0£39 3A 10 13C9 274 SBR FLUID,xX*10* . OF25 Oc OF25 342 DC XL3'0C
*OF3D 4D OO 02 13C9 275 Dix CLC 2(1,XR1),FLOID OF 26 1022 OF27 343 DC AL2 (PANT)
OEG2 CO C1 OFS6 276 BNE YELP OF28 CO 87 0222 384 B HALT
OE&6 3C G7 ODA3 277 MVI «- RINK*1,x°07* c OF2C AOFO OF2D 345 DC XL2*AOFO
*GEUA CO 87 OCDA 278 B DANTE OF2E CO 87 1023 3&6 B WAIL
OFGE CO 67 OEUE 279 GAS B GAS OF32 CO 6&7 OCBE 347 B ADYV1
0£52 CO 87 ODEA 280 B LACY OF36 GECI60E6F3D2F26E OF43 348 BALL DC CL14*, B~W3K2, R~-W3R2?
0£56 348 08 CE61 281 YELP ST KELP+3,X*08* OF3E C16CE6F3D9F2 348
OESA CO B7 1182 282 B TORN OF44 6BCIGOE6F3D9F26B OFS1 349 pc CL14*,A-83R2,Aa-W3S2°
OFSE CO 87 OESE 283 KELP 8 KELP ; OFSC CIE0EGF3E2F2 349
OE62 38 O8 13A6 28% BRANA ‘BN CAREA-2,X*08* IS THIS BUT RING 0 OF52 €BCI60E6F3D9F26 OFSF 350 pc CL14*, A-W3K2,8~63S2
*OEE6 CO 10 OEGE 285 ET CRIME OFSA C160E6F3E2F2 350
OES& CO 87 CDEA 286 B LAcY OF60 4OUCKONO4ONONOND OF6D 351 DC CLis* ’
OEGE 31 AS 135D 287 CRIFE LIO0 BESS,X*As* RESET DFDB OF628 4O4CuUOuOLORC 351
0E72 3€ 11 1£00 288 MVI- BARN, X*21° OF6E GBCIGOF6F3D2F26B GF7B 352 pc CL14*,A-W3K2,A-B3L2°
CE76 CO 87 OETE 289 B RUBE OF7€ C1EQE6F3D3F2 352
OE7VA CO 87 ODEA 290 B LACY OFTC 2O404C4CLOSO"O4O OF89 353 pc CLi4u¢ :
OE7E 34 08 0E51 291 RUBE ST GAS+3,x* 08 STORE RETURS OF84 4CACKO4OUOND 353
0£S2 CO 87 0EI7 292 B BRUTE OFSA 4O4OUCKONONCKCHO OF9T 354 pc CLi4e ’
O£86 CO B7 CE96 293 GALA B SKOG OF9Z 4O&04O4DNCRO 358
OEBA 38 O08 1326 294 TEN CAREAR-2,X"08* IS THIS BUT RING O OF98 OFK3 OF9S 355 HALL pC AY.2¢WALL)
OE&E CO 10 CEOF 295 ET SHOG OFSA SOCSCE4OC3DGEYIS OFC2 356 BC CL41" IF COUNT 1S CTHER THAN 10 REPLACE A-¥332
*0E92 CO 87 ODEA 296 3 LACY OFA2 E34CC9E2ZNOD6E3CB 356
0ES6 CO 87 OEOF 297 SKOG B S#CG OFAA C5D980E3C8C1D540 356
OESA CO 87 CDEA 298 B LACY OFBZ F1FO40D9CSD7D3iC1 356
299 ##8e88 SUBROUTINE TO INITIALIZE INDEX se oeseees OFEA C3C540C160E6F 301 356
DEQE 3¢ CO 13C4 300 WORK MMVI BELL~1,X‘CO# OFC2 F2 356
GEA2 CO 87 OEAA 301 B YORK . : OFC3 4O4O4O4O4O4OKCKO OFDO 357 BALL dC CL1Gt ‘
302 **#*#4e0 SUBRCUTINE TO INITIALIZE SET TO 8 eeaneesess OFCE sCuC’O4D4OND 357
OEA6 3C 40 13cu 303 SEARK Vi BELL-1,x*40* OFD? j00E OFDZ 358 FRIX DC XL2*O00E
*OFAA 30 A3 13C7 304 YORK SNS BAM,X*A3* CHECK PROEES : : 359 #eeee¢ SUPRCUTINE TO TEST HALT WITH DFLAY OFF ee eeeeses
GEAE 38 02 13C7 305 TEN BAM,X*02° BIT RING 0 OFD3 3C 07 0c93 360 SEEF EVI DLYSW+1,x*O7! SET DELAY SW OFF
OEB2 CO 10 GCBE 306 ET ADV1 OFD? CG 87 1023 361 B NAIL
OFH6 31 A3 13C5 307 LIO. BELL,X*a3* WRITE OSC 2 OFDB CO 87 021A 362 P PRINT
CEBA 39 A3 13C7 308 SKS BAM, X* a3! OFDF 06 OFDF - 363 DC XL1°06"
OEBE 38 02 13C7 309 TBN BAS,X*O2* OFEC cc OFEO 364 DC XL1*°0C®
OEC2 CL 10 CCBE 310 BT ADV? 2 g OFE1 1022 OFE2 365 DC AL2 (PANT)
OEC6 CO 87 T18R 311 B TORN OFE3 CO 87 0222 : 366 B HALT
GECA CO 87 OCBE 312 E ADVI OFE? AQEO OFE8 367 Dc XL2*AOFO®
313 *#eeee SUBROUTINE TO RESET DFDR serecsess - 2 OFE9 CO 37 1023 368 B NAIL
OECE 31 Aw 135D 314 SALT LIO BESS,xK'aue RESET F DFDR OFER CO 87 OCBE 369 B ADVI
OZL2 CO 87 OCBE 375 EB ADV1 OFFY SOC2IDG6EUDSE34O0D7 1022 370 PANT Le CLEO0* CCUNT PULSES ON CE PROBE-SHCULD BE 10-PRESS START
*316 #088 CHANGE BUSY OR ERROR ROUTINE a z OFF9 EUL3E2ZCSE2RODEDS 370
OELD6 CC 00 OCEE 13E0 317 SAIKT BVC DART+#1(1) ,FAY#1 1001 40C3CS¥OD7D9DEC2 . 370
OEDC CO 87 OCBA 318 E ADV2 1009 CSE0E2ZCEDEESD3CK 370
319 #*#e82 SUBROUTINE TO TEST SENSE PROBES seeeeeses ‘ 5 10112 SOC2ZCS5S4&CFIFO60D7 _-370
OEEO 30 a3 13¢9 3279 FOOD SNS FLUID,X*A3* SENSE PROEES Oi CSCSEZEZ40E2E3C1 370
OFE4 3B FB 13C9 321 SBF FLUID,X*F8* 1021 DIE3 / 370
CEE8 %D 00 13C9 13B0 322 CLC FLUID(1),FAY+1 s 3 1023 38 O08 103A 371 NAIL ST TACK+3,X*08* .
OfEE c0 81 OCBA 323 BE ADV2 1027 OC 02 13CC 13CF 372 MVC _BEIGE(3),TAN
OFF2 CO 87 118A 328 B TURE OZ" -F O02 13CC 1378 373 SPIKE SLC BEIGE(3),ORE
OEF6 CO 67 OCBA 325 B ADV2 : = 1633 co C1 102D 374 BNZ SPIKE ie
326 **#¢es SUBROUTINE TO TEST HALT WITH DELAY 28 eeseeeees 1037 CO 87 1037 375 TACK PB TACK
OEFA 3C @7 0C93 327 STOOP eVI DLYSW+1,X*87* SET DELAY SW OB 376 #98¢¢8 SUBROUTINE TO SET UP A-™% CHAB FlSKSEESE
OEFE CO 87 1023 328 E NAIL : t 103B CC 00 13BF 1380 377 FLAT MVC ART(1),FAY*? * AB CHAR BOUTINE
OFO2 CO 87 C21Rz 329 B PRINT 1041 OC 00 133BE 1380 378 PVC ART-1(1) ,FAY#1
OFO6 41 OF06 330 pc XL1¢g1¢ 1047 CC 00 13BD 1311 379 MYC ART-2(1) ,FAY+2
OFO7 26 OFO? 331 rc XL1*26° c @ TO“E CC OO 13BC 1381 380 MVC ART~3(1),PAY¥+2
OFO8 1016 OFO9 332 DC AL2 (PANT-12) 1053 OC 04 13BB 13DA 381 BVC ART-4%(5) ,OKE+2
OF CA AOF9 OFOB 333 DC XL2* AOFO? 1059 3C 24 13C0 382 ELAN HVYI ABNER-1,X'24¢ CLOCK EYTE RESET
OFOc Oc OD GFDO OFS3 334 MALL MVC BALL(14) ,WALL - € 1050 3C 04% 13C2 383 GRAIN RVI ELLA-1,x°04" DATA BYTE RESET
OF12 OE 01 OF 11 OFD2 335 ALC = SALL¢5 (2) ,FRTN ADD 14 TO MOVE FROM ADDRESS 1067 38 01 13B7 384 IBN ART-8,X°O1
*OF1€ CO 87 021A 336 B PRINT 1065 CO 10 109C 385 BT ORGY
OFIC 01 OFIC 337 pc XL1°018 ¢ @ 1069 CO 8? CDEE 386 EOk B FROG : Sy
OF 1p 37 OF1D 338 pc XL1°37# 1060 38 80 135C 387 ANT TBN ARI-3,%°80? TORN ON AM BIT
DATE O028AE70 01APR70 O6May70 01J0L70 PROG ID 0B01-3 DATE O2FARTC O1APR70 O6RAY70 0130L70 ' -pROG ID 0B01-3
EC NG. 571512 571516 571513 571524 PAGE 3 EC WO. 571512 571516 571513 571524 ; PAGE 3a
& Cc ,
en
Gs
)
IER MAIKTENANCE DIAGNOSTIC PROGRAR
BC 13
4108
470C
171G
1178
1178
Wic
1120
1124
4128
412Cc
1330
17136
TI3A
VIZE
1142
1146
114A
TIVE
DATE
Ec No.
202020808 8@890080082080
FILE CCBTRCOL UNIT FLT SECTION 2
CRJECT COLE
F2
38
F2
F2
3a
co
3a
31
31
OE
co
3c
co
3c
co
uc
31
oF
co
co
co
31
31
07
&7
20
87
20
87
87
87
09
87
87
87
01
87
A&
Au
oa
13BE
OB
oc
13c0
i074
132
13C1
33c3
138F
1059
406A
OCB6
TFOS
OCBE
13FO
V3A4
13Fi
10B2
OCBA
10CD
WC
13a9
13k2
i3A0
T3A1
T3A1
OCAE
TIBA
OCAE
OD7F
oDs3
CCBE
OD7JF
cba3
OCBE
OEB?
OCBE
OE87
OcBE
OD7F
OCBE
CD7F
OCBE
ODE?
OD72
13BF
106A
1089
ODE3
13D8
oD72
1355
1357
O2%AR70
571512
13BF
1390
73D8
1351
V3B2
1371
i
O1TAPR70
571516
AUDDE STST
388
389
396
391
392
393
394
395
356
397
398
399
400
401
&O2
803
404
405
406
807
408
809
410
SOURCE STATESENT
at ACT
MAT TBN aRt—-1,X* 80? TURN CNH DATA BIT
aT AXE
J BAT
ACT SBN ABNER-1,X*10* SET AP BIT OX
E “aT
AXE SBN ELLA-7,¥*°08* SET DATA BIT OF
BAT LIC ABNER, X*a23? CE LIG POR CLOCK TIHE
110 ELLA,xX*A3? CE LIC FCR DATA TIEE
ALC ART (10), ART SHIFT £1TS
B ELAN
ORGY "YI EON+7,x*?O7" SET SW OPF FOR SENSE ER
B ADV3
seeee% SUBROUTINE TO SET 8 TO O eeovesees
ANTE $MVI ARBNE+3,x*00* SET N BYTE TO 0
2 ADV?
##385% SUBROUTINE TO FORCE 256 X PARA CNT OSC 899b9n0ds
SHGP NVC AKXO~1(1),FAY*? MCVE COUNT TO CCURTER
SEPAL 2110 ARID,X*A3* CE LIO wR OSC
SLC ANC(2),ONE SUBT ORE
BEZ SEPAL CONT TILL 3 ZERC
E Apv2 GET NET PARA
q?*9* SUBROUTINE TO BRANCH TO NEE ROUTINE oesereses
PART NO.
PAGE
5129673
&
817 WhELK MVC BEAT#3(2),FAY+2
412 BEAT 8B BEAT
413 Seeaeeeeee SUBRGUTINE TO CHK STATUS *™s9e¢en9
814 STAT SNS WAD,X*A2* SENSE BYTES Y AND 1
445 SNS WED,X*A3* SENSE BYTES 2 AND 3
4816 SBF WAD,X'48* SET DON'T CARE BITS CFF
447 SBF WED-1,%°73! SET DCN” CARE BITS OFF
418 CLC WED~1(3),FAY+3 COMP STATUS TO PARA
819 BE ADVS
420 E TURN
4214 B ADVS
422 *92¢889SET WR OSC BIT ON SERIAL DATA ROUTINESsececseeees sss
423 VARY SEN ORE+¢1,x*408* SETSET OSC BIT O8
824 SBR ORE+5,x?G0! SET OSC BIT OF o
825 B ADVI
426 ##4e488SET BR OSC BIT OFF SERIAL DATA ROUTINES@ esseeseeoeszess
&27 WARY SBF ORE+1,X*SO? SET OSt: BIT OFF <
828 SBF OE+5,X*40
*429 B ADV1
§30 £44483 SET SENSE BY BIT St Sts ous 46 FFF OSES SS TES 7
431 WISE BVI GALA+1,X*87° SET SENSE TO BIT RATE
432 E ADv1
433 S€F*SSRE SET SENSE BY BYTES SHO 9F6 S86 5 SE SUES SCE 7
434 TINE VI GALA+1,X°07" SET SENSE TO EYTE RATE
435 B ADV1
436 ¢o%*eeeSET SEP CLK OFF SERIAL DATA BOUTIBE *90eeestensceesess ¢
437 WIRE SBF ORE*1,2%°20° SET SEE CLK BIT OFF
438 B ADVI ‘
439 *e¥8a8¢S5F7 SEP CLK ON SERIAL DATA ROUTINE S#eseeceevaverse c
840 WIRY SBN ORE*1,X°20° SET SEE CLK BIT ON
441 3 ADVI
442 ¥9eeSeaSERTALIZE DATA CHAR WITH SENS@#eteaeessoaysogeeres ce
443 MINT BVI FOES*#1,xX°87° SET SW FOB SNS PROBPEX
auy B TRACT
yas eee eee AM CHAR WITH SENSE SLSVSSCHSSISVASS ee
446 SIXE MVC ART(10),SPART
447 mVI- ECN#1,X°87* SET Sé FOR SNS PROBES
448 B ELAN a
449 SeeeeeeeSFRIALIZE DATA CHAR WITH SENSE AND RESET DFDRO##ss90ss8809
450 LINT VI ZONE¢1,x*87°
451 A ONE, XR1 C
452 B TRACT
453 BQ*seeSeT EST CE LIO ROUTINES #8460888 888446
454 ACRID LIO CORN, X*as* Cc
455 LIO CORD, X*AG
*O6MAY70 01J305L70 TROG ID 0301-3
571513 571528 PAGE 4
gS
c
rc.
¢
wy
O
&
‘Se
IE#® MAINTENANCE DIAGNOSTIC PROGRAM
8013
ERE LCC
11952
1756
1454
T15E
1162
¥16E
VI6A
V16E
1772
1176
117C
3780
V1E3
1187
TISA
T1BE
1192
7198
TI9E
VIA2
ViaB
VIAC
17180
T3B4
TTEB
1178¢
11c0
11C6&
11ca
1icR
11Cyv
lic
11D3
1159
i1DF
11E3
TIES
TIEF
11F5S
VIFR
11FF
1203
1207
1268
1209
1268
120F
1233
1297
T2VE
T27G
t242
W2it
1220
1224
1226
122A
T2Z2E
1236
1236
1240
12468
24E
41252
CATE
Ec NO.
FILE CONTROL UNIT FLT SECTIOR 2
CBJECT CODE ADDR STMT SOURCE STATERENT
34 Au 1355 456 LIO CORN,X*AS?
CG 87 OCCBE 457 3 ADVI
458 *#*ee2e"4ROUTINE TO CHECK SCAN
3¢ 01 1167 459 POCR HYI FOR+3,x°01?
C1 AS 1166 860 TIO FOR,X'RS?
3B 01 1167 464 SBF FOR+1,%°03"
3D 00 1380 462 FOR CLI FAY+i,x°O0?
cO 84 OcBA 463 BE aDV2
CO 87 11BA 464 E TUBN
CO 87 OCBA 865 B ADV2
466 t4¢5e9244% PRINT SUBROUTINE
8OD540D54040 417B 467 OGLE cbc L677 NW ft
3c £8 1271 468 ELF RVI NIBS+2,xX*E8
*F2 87 7C 865 J FLY
3C E8 1273 470 BUG MYI NIBS+4,X*ES8"
F2 87 79 473 3 FLIT
3¢ GO 1266 u72 TURK AVI OPINE,xX*00°
CO 87 14F7 473 ONLY B CNCE
Oc 15 7265 1266 a74 MVC OFINE-1(22),OPINE
Oc CO 1252 1298 475 MVC ANDES (1) ,ANDY
34 67 1251 876 ST ANDES—7,XR1
OC 03 125E iFO4 477 NEON NVC KITE(4),ARNE+3
30 a2 1257 478 SNS _KNIT~2,X"a2?
*39 A3 1259 u7¢ SNS KNIT,X'A3
*3B SA 1257 4B0 SBF KNII-2,X*4a!
3 ge? 1258 481 SBF KNIT-1,xX"07!
:@ 5 1261 482 SNS KIT, X*A6
*30 Aw 1264 $83 SNS KAT, X'aA4at
0c 00 1266 1£00 684 NVC OPINE{ 1) ,BARN
CO 87 C21E 485 3 UNPACK
18 T1CA 486 Dc XL1'488
1266 t1CC | «687 pc AL2(OPINE)
1267 11CE 488 pc AL2 (UNIT)
CO &7 122E 489 STAR £ BUEN
OC 03 126D 73Fa 490 HVC NIBS-2{ 8%),ALBS-1
OC 05 1275 1178 4917 SLEB HVC WNIBS+#6{ 6),CGLE
3c 46 1269 492 NVI NIBS—-6,xX°8O8
OC 0% 1295 1175 493 SVC UNIT—2(2) ,OGLE
OC 01 128F 1178 494 HVC UGNIT-~&(2),OGLE
Oc 07 1289 1175 895 MYC UNIT-14(2),CGLE
OC 61 127F 1173 4S6 MYC UNIT-2%(2},GG1E
Ci a2 117C 497 TIC ELF,X*A2
*Ct AO 1183 498 FLY TIO BUG,X?20°
CO 87 O21A 499 FLIT 2 PRINT
01 1207 500 pc XL1°0178
2F 1208 507 pc XLi92F
*1297 120A 502 Dc AL2 (UNIT)
2D F9 13F7 503 CLI ALES-4,X°FQ!
CO 04 1218 504 BRE PALL
CO 87 O218 505 B PRINT
06 1217 506 re XL1° 06°
16 1218 507 Dc XL1°76?
124D 121A 568 BC AL2{ (CALL)
CO 87 O21A 509 PALL B PRINT
1S 121F 510 pc XL1275
*cO 87? C222 511 3 HALT
aoc1 1225 512 DC XL2* a001
*COQ 87 OB2E 513 B TRUST
CO 87 12EC 514 B GCOUT
Oc O05 126F 1342 515 BURN MVC NIES (6) ,CRUI~1
cO &? 11D9 S1ێ B SLAB
KOL9CSD7D3C1C3C5 128D 517 CALL vc CL22¢
4 CC 160E6F 3D 1F26B 517
C160E6F3D2F2 517
O21A 518 PRIKT EQU X*21A
*O021E 519 UNPACK EQU X*21E!
1251 520 NOT DS CLa
00 1252 527 ANDES DC XL1°00°
O2MAR70 C1APR70 O6mMAY70 0130L70
571512 571516 571513 571528
PART NO.
PAGE
FOUND 4#44¢449% 049536588
FRERMAKEKSESROKKKEKSTE
MOVE ¥ TO PRINT
MOVE ¥ TO PRINT
CLEAR UBRPACK AREA
STORE MSG COUNTR IN PR AREA
SENSE 07
SENSE 23
SET DONT CARE BITS CFF
SET DONT CARE BiTS OFF
SENSE DFCE
SNSE DFDE
MOVE BSG NUMBER TP PR
MOVE BLANK TO PR
5129673
SA
NCVF BLANKS RETWEEN FLDS TO PR }
MOVE BLANKS BETWFEN FLDS TO PR , :
BOVE BLANKS BETWEEN FLDS TO PR
MOVE ELANKS BETWEEN FPLUDS TO PR
TEST FOR EUSY
TEST FOR ERROR
REPLACE A-B3J2,A-¥83K2
*PROG ID
PAGE
0801-3
SA
: Pi aii cesarean ne cg ott Crna eet ame nrememee ap ence To ae smn: oe ni ame | gees ap im ely nce cee Mme reece Sain SNe EN SRT SRM I 2 8 Sw EI TI ne wee rs son noe : 7 = cae ee s eS a . 9 2 ‘ ; ; ; . x : 7 : ;
& & & @ & © | @ @ @ @ & @ @ @ @ @ @ & & @ © @ & & & & @ & @ & S & % &
1 : 3
a E . - : . / ;
IBS MAINTENAHSCE DIAGKOSTIC PROGRAS
BQ13
E£Re LCC
1253
Y2SA
125F
$262
1285
1267
1276
F296
42593
129
4283
T2487
Y2RE
‘3284
$2BS
4268
SABC
tee
42C8%
$202
F2C5
§2b8
1208
2200
V20D
V2DE
T2EC
4222
226
S2E€
EZEC
T2FO
VE?
$2P 9
I2F9
42FB
T2¥E
41309
1308
@ 230%
23723
$334
73723
333c
anuk
t22%
W32k
| $337
$237
2332
Z Ieee
S3a5.
7552
8540
$344
435%
4358
33S¢
SESE
13606
3365
3366
T3GA
4372
3376
DATE
EC BC.
FILE CONTROL UNIT FLT SECTION“ 2
OBJECT CODE ADDR
7259
1255
1263
1264
1266
126F
3297
06 41298
34 OS 42BF
OC 03 YFOS 13148
co 87 t234
38 06 12Z5F
OC 03 IFOR 1316
34 46 41357
¥3 ao GO
co 87 1200
co 8? 428C
3% 88 3342
GC 00 T3CK 43D8
30 AZ W389
OF GZ 23CC WSDE
cG 6% 4307
Co QF Gata
cé T2bCc
cB 2D
#36 Pan
ROCZ 4227
cC 87 0222
Ante 42ZE7
cG 87 SAZE
34°36 Y2FA
F3 aQ 0
eG 87 G22%
£O5G { 278
32FB t2Fa
£OCGCSCG V2FE
BOLOCSCSU BR OFSPS 7506
38 70 34d
£9 3G 42c3
CG &7 130F
Cacooacs T2336
8ocaeetos TERR
DF 2373
W346 * 4395
FSOFISCESFOEOFO 324
FIFGFLP OP CHO 3328
FIFOFSEOPOPG $336
FOROF CF OPOFG 2336
BStCFCFOPOFS %33C
FOPOP OL OF GFOFO $38
SQRORCEGES 3386
FOROPO? FG V35D
A269 they
ChCasas3 9353.
Se Fe 133%
occa F394
G6e%
CGOCOSGAS 7358
VEOO 43SB
UF Cs V3SP
EICSCGaGFY 4368
O96 2368
€0coocos V369
COCIGCOOWIAC2CZ 1374
COCOSSaS $375
GOCOSEDe 1378
GC2RnAR7S OTAERTO
572332 571316
PRRT NO.
5429643
PAGE 5
STST SOORCE STATESEST
522 KWIT BS cLy
523 KITE CS CLs
52% KIT DS cL3
525 KAT DS cL3
526 OPIRE DS cL2
S27 BIBS DS cue
528 OEIT HS CL4o
529 axpy ne KLE 00!
S36 SStSEetSsHROOTIBES TO SELECT BERD G& OR 4 SPOKE SHE SE HEH SSR OSHS ES
53t BOSS st HASK#3,3°O8¢ STORE RETURE
532 HVC «= ARNE+3 (4) ,BASK SET UP POR HD 4%
533 B MASS
538 BASS ST HASKe3, 4° 08° STORE BETORB
535 HVC «=: ARNE+3 (4) , PASS SET UP FOR HD OS
536 MASS LYIG ABBE,X'A6?
537 SIG E£*00*,K*RO® S¥Ex
538 2 ANISE
539 SASK 2. SASK
54Q veesseeces SUBROUTINE TO CHK SK BUSY *FesoseeeHnreee
507 ANISE ST AHVEZL¢3,%1 08? STORE RETORE
502 BSC BEIGE-2¢1) , ONE SiT UP TIHE OUT CTE
542 ATTIC SHS 6kD,XtA2" SENSE BYTES G@ 2
Sag SLC #BEIGE{ 3} ,O¥E SUTRACT OWE FROM TIBEOOT CTR
SRS B¥Z ARBOR
5&6 2 PRINT
BQF BC ULB°cee
528 DC KLV?08¢
545 nC AL2 { FIRE}
$50 rc KL2° ADG2
*557 FiIRY 8 HALT
552 aC 4L2*2G02°
553 8 RUST
$55 GuoST Lic AZEROS,X*26°
555 SIC -%#OO", KF age
556 EB Loan
$57 BC ZL2¢g¢ -
55° AZEROS De ALZ { ZEROS~ 2
353 ZERCS iC ELH *GS3G00005"
S$9 PIPE oC CLB*° REF. 36° ;
Se} BABCR TBE ean, Rige CHECK SYEK BUSY
382 Er ATTIC LOG IPF BESY
S24 ASUIL B BREYLE
568 PASS BC ELS? QOdGSBONr SEEN €7L FLD BO 20TIOE AB S
S65 BaSk pe zLusooapetai® -
566 - ELG‘DE* CtL FLO FOR SE CHE
567 Shu be AL? (BASK~2)
$68 TRUCK DC ALP OSOTIPSPOFOPORS
*569 IRIGK oC ALGOtPIESEorosarse
539 THICK BC BLG*PIPOFORGFOES?
S39 THAT sc RLG* PEPORGT OE OR OF
S72 TEER OC RLGOFSFOPORSEGES#
&73 CRUR BE CL?699090a0°
S78 FLO De CL3*S09G095
575 TES Be cL9*00019¢
576 Lae Be ¥i2tezag
*577 soae° DE 729°O990S693"
578 CoRR DC RLZ°FPPES
S79 CORD BC uLa2ecooe
$80 ERY foot
S81 ABYSS BC Le gonGoagse
S82 SESS oC AL2 { BARS} AUDBESS OF DATS BSZLS
583 BREE BC AL2 CARRE} ADORESS OF CORTROL FLO
$86 FALES NC CLO°HEP Ve
585 SRY DC BLY°O9?
52 pc B16 ° O60G0060°
S87 SRARY DC ZLB? 00070006 18 teczc2
*$88 STILE PC XLS*OICESHOSE BR DATA CIL PLE
S89 STAID DBC XL.8 *00005802 * Ct. 72D
0628170 01353270 pros ID OBoI- 3
574513 573529 PGR 5
GS
ad
3)
o
wy
oh
“ ee
a,
oe
uu!
0
Oo ©
©
et nent a ne ranma
oh
eer
G
Oo oY
gr
oO
3
©
SBE BAINTERANCE DIAGHOSTIC PROGRAR PART EG. $129613 2
PAGE Sa a3
BG43 FILE CONTROL OWIT PLT SECTIO“ 2
ERR LCC CBJECT CODE ADDE STBT SOURCE STATEMENT
YSIR QOOFPSLC?A 1375 590 COPE Be XL9°OCOFFORS1* _ READ DATR 2 CTL FLD
YZ7IE COGOSCES 9301 S97 BEGAL it XLS? 90900680? RECAL CTRL FLD ,
TIS2 37" 9383 S92 LEGaL ac AL2 (REGAL~ 3} ADDRESS GE RECAL CTRL FLD
230s GOUSC1aS $387 $92 LORG pec ZL&egoeaoisoar SEEK C7aL FLD
F3SE 338K 1389 5594 GONG Be AL2 7LONG-3) ADDR OF SEEK CTL PLD
V3SR AIST 438B SES NAY be SL2°R1G7°
V38C £100 f28n 596 NOR PC SL2*a1aGt
F38E KIC2Z 935% $397 OPERA BC RL2°ate2?
239G £463 433% SOB FIBE 5c RL2°a1O3¢
7392 k200 7293 S39 KAT BC ZL2° az?
9398 £204 7235 600 S72T be ELZ*a2ut
1396 A3DS 4339 664 TAP oc ZL2° R308
4398 2302 4399 682 €3F BC XEL2*a3g2s
$3GR OHCHHASH T24D 663 HOPE pe RL4°O0000000C8 CTL FLD HE ID RD IB
V3SE G3 $39Z 606 ROFE SC ZL7°O3* CTL FLD BA DATS RD DIAG
Y3EF S305 $3aG 605 BAD oc R¥L2* 00008 :
Y3at GOOG $3822 G06 BED se XL2¢O6004
$2a3 ZOOS Viah 607 BRIL- Be 232°86090* . .
Y3ZA% CCTECOOS 4328 608 CRREA BC RLE* GOGOGoCA® ix
1389 OF 138% 699 CCHIR BC 2L4°O04
38s $5 $3an €90 FIIS BC ¥LE°SS
*§sa2E OSES VFAC GTI ABT Le ZL2°OGG9* SPCR FRRA
$480 OGEG TIAL GIS ENF oc £L2°G0056° OPDR BARA
T3RF OG F3AP GIT PAY oc TET OGS PARA WKG ASES
*$329 $323 @ Yh &S CLY a 2
22ne GSEd $33% 645 GAT cc ¥L2°G090° PARRA POTETZE
PIBE CSOSCCEACOOGHIBSGS TIF BT ART BC XL16*O0900C00000000C250HG000
*VSR? CSCS $78
V3cf CHa 4309 @®9F SE22R fC RLZ*909G
*¥SC2 GECH 32 BB ELLA BC ZL2°O006
*t3ce C929 *3¢e5 639 BELL be RL2° 000GF
tere COGS $37 826 BAR BC RL2°GG00?
$3c8 gos6 $309 €27 FLUID DOC RL2°960G"
Pee GOO0ID G30 $632 BEIGE sf ZLZ*OCOGHG
*$3scGh CVIOG 9308 &223 Tab ec ¥L3°O7 36662
YASS SGEGaGvo $3b3 G24 CART ac XL8? HG6OO0HH0
*$3B4 66 tie 62> BSISB oc - 2LIt50°
Gan EE ‘Y3pS 826 ERIE oC xL.7°36%
Tape CCBACH 308 &27 CEE Bc ZL2* 0900S 4°
$359 GOU008 S3bi €28 Teo BE $L3° 0000025 2 :
<ane COCKde 23DE 829 FOUR BC EL3* 989098
PELE 8970006E PIES S46 FORE oc XL&* 10 F0S8GS®
8E3 £662 43E% S399 THREE Se XL2*8UG3°
32% THETF $22 RS CL?
4328 €695 $223 G33 BRCaAD Fe EL2* 00502 7
VIEA GEse 43458 638 TCAC Be 322°00C0*% ae
$320 CHGS V3ED G25 ETKAG EC Zi2¢ooss®
Was AO0D S3EP 836 RETR OC BL2°Oo000" — oy
3aPB 09 43FQ2 @37 Baka bc AL4°9O6s : a
t2F4 OE 44F% $38 ABO Sc £L43*66
*V2F2 OG T3F2 G39 Poors oc ZXL7°a0" =
F323 6296 tkP& 800 CLR bc ELZ*GI3?* &
33r% 666 437% 648% FETE o¢ EL2°RGagr
PBR aOG900I6S5 FT3FR G&Z RLS Sc ELS *COOG0G635000? : a
68} PeOLSSOETOBR PLACEMEN? FOR UNSAFE ROUTINES #eRes anos soses sy =
$208 G88 SBYTE2 ECE Kt2Oa5 :
37E Oc V3FC 685 RTKE be ZLU°G2° Bm
23FS ae ¥3¥D S46 dc 379830? ce
SREE FFEP A3PF 647 be RL2°* Per?!
$200 CO 87 Bats 8B b PRI at rf
YeOu Bs $602 68S sc MLItsie ee
wos GCS $acS €503 nc XLISOTe
ECS 31488 tac? 653% ae AL2 (GULP)
7uO8 BOFC 7609 652 . Dc XL2*°*a0?C? S
1sOa cO BF G2ik 653 GASBNA & ERINT
tune C1 TROE 658 BC AZLI°Oi" is
WhCE 8 180PF 655 Be XLi*7B* ae
VSi9 3uEP 7&7% 656 bc AL2 (8SGO00T)
a
DATE C2HAR7O QVAPRIC O6SATTO 07190270 PROG ID oro Nee
BO NO. S73592Z $715%76 §71513 577528 PAGE ie
ao
o
a
6
em,
An etn eA lt ens mena me Aye A ene cat i mR eR cee re
IBS MAINTERANCE DIAGNOSTIC PROCERAA
i
|
PABT HG. 5129613 i IBB MAINTESANCE DIAGNOSTIC PROGRAA PART HO. 5129673
PAGE 6 c PAGE 68
BOi3 PILE CONTROL UNIT FLT SECTION 2 8072 FILE CONTROL URIT FLY SECTION 2
ERR LOC OBJECT CODE AUDR STHT SOURCE STATEMER? ERB LCC CBGECT CODE BEDR STAT SOURCE STATEMERT
1442 CO 87 O27A 657 B PRIN? z 152b SO40CECECIDIAGaO 7iG
1416 GOP 4917 658 Re ML2¢°O10F® T5953 CucecaDsudcucids3 740
1478 TeDE 7419 659 bc AL2 (COUT 4) ; 1S3b C1 748
TQgR co &? OZ43 £60 B PRINT € F414 SRHOSSCAPP TUT ERDE SESS 24 VES EHES HAZE HAS
VUtE O1CF TU1P 6614 DC KL2°010F¢ IS3SE 15406 153P 742 DUE oc AL2 (RENT)
1820 %0E? 142% 662 BC AL2 (cOUVT|} T54H0 &O 1540 P93 RESY ce £LIP HO? BRITE DATA BASAFE ROUTINE
1422 CO 87 S242 : 663 5 PRIST € 7$42 02 1S&4 744 Be KLT°O2¢ 2 osc
1626 SYOF 1427 66u pe NL2¢*O10F8 75%2 £25264 s5ua 795 oc XL 2°525266° RESET
W288 VArs 1629 665 pe BL2 (COUT 3) W5uS Zaire 586 746 pc XL2' Zao? SET EUSY RO ERROR
1422 CO BP GIR 646 2 PRINT 7: e $57 22 1587 347 ac aL7°22? INAXTIALIZE SET TO 8
WW2E Otic 142" 667 bc KL2*OttC8 1545 4ACOOB T5468 F418 be ZE3° 1a000nS 17 BYTES 6
18305 14c3 1931 66a ve AL2 (COUTHS WSHE 3AC218 45aD FI pec AL3*3aC278° GOR af
1432 CO a9 O21A 669 B PRUET co SRE FACEO4 $556 Fz re XL3* FAOEO 1 SYNC CHAR
1436 6508 1837 876 oc XL2° 05038 1551 1a0003 9553 424 pe XL3*4A0063' 3 BYTES © ID
W438 4022 3439 G74 pc AL2 (PART) 155% WAFPOR $556 722 Rc ZL3°1AFFO35 3 BYTES FE Ipce
183a CO 8Y 9222 672 E BAL? i ; 4557 WaCEGS 7559 723 pc XL3* 420G05¢ 5 BYTES G TO PREDATA
143E AOFC 183P 673 pe XL2* arc?! VSER 5a 455R 7246 pc EL3¢Sae SES SEXSE BY BIT
T4489 CO 87 fans 2% B ORB 1558 6A60G70T33379929 1565 725 Be KLGT*GACOC1G439343931393137% 7 BYTE
FROM 4O 1444 675 GDLE pe cCLis 2 ; . 7563 333437 F25
676 Suteaeese PRONE PLACEMENT MESSA&SE ONCE FEE LOADS 4sse4eaa8 1S66 Ta0089 35n8 F26 dC ZL3*7h0000? 256 BYTES
Wag 30 GF OAu2 677 ACT? NPE ARLOE+7,x°a78 SHUT OFF ONE TYEE SwITCH 4565 taC09C 4568 227 be XL3° 1A000C8 12 RITES
7449 CO 87 CATA 673 % PRIST a ISSO BROQOUFIS3711973 1876 Fee oe ZLGTPGACCOISIZIDTETIVTIDIG® «9 9 BYTE
TkOD ALTIB FaBE 679 po WL2°8t4Be . 4534 v¥4994 728
Wear wer t450 680 pe AL2¢NSGOUT} 1°97 SE 1S77 729 pc ELVSSE* SEG SENSE BY RITE
TUS4 BGFS W852 68 pe ML2*aore? : . IS7E TAOGOB WT 736 be XL3¢ ta0005° 14 HETES
W853 CG BP SPA 5B2 Ez PRINT iS7E 2206 $372 734 pc 4L2°2a0G5 SET LHRICATCR WOT EUSY HO ERRGR
TUS? COE 18528 683 z XL2°Otore IS7D 4a2064 T9P 732 pO -:«CORES 9 CA0GGT? J BYTE @
$859 19¢F THEA ASS ac 2L« (EOUT 1} ; 5 1880 4a 1665 732 oc MLD 9g ¢ SG TQ HEAT SOUT IRE
1453 CO 87 OZR 635 3 ERIET J5OSY Ceses 357 F2x = AL2 { 8858}
Vase Cor 1460 636 BC UL2° Core 4583 eS 1696 934 Sat ee AL2 (507)
§664 Taan 1662 637 ne ALZ(BOUTI} S2% 86 1645 736 Sox 2c KLYesie WEITE XD USAFE ROUTIBE
14632 CO 87 GDB &E 8 PRINT 1556 4° Thee F737 ee MLiote 4 IKDEE
1667 CSog 1455 Sag D RLI°9S 088 37587 225560 TAGS 736 ac RE3¢S25E66° RESET
THES WOZe THGR &EG ne AL2 (PANT) "SGA ZA 1588 733 DC ML2°24490° SEY SUSY, HO ERBOR
166E CO 87 0232 694 g HALT 1$8¢ coas t58D FRE De RLZfCONS* & INEEX and osc
V4G? gore 2470 «G92 os FLQ¢aoree P5SE YE S$3E 753 BE ELG¢¢zs INL YHITIALIZE TO BRO DES 3
THFT CO AT GHaS E53 2 ALCE? a 1588 Sa SBF Tae £ Ler See SET SERSE BY BIT
YAPS BODFUSCICBICHLOD) WSF 694 BAcaUT aC CL27° PLACE JFISPERS OW FEU BOARD? : 1390 GaCOGTGISIRISISS TE9R Fay og RLUVSAGSE IG VATSISTSIIWBIS2® | BYTE SENSE BY BET
TRIE EXLELTCSHGE 2 HOR6 54 . ; IS 3737353 FRR
1685 DSHOCSCBRVwOCIHS B38 € : 4592 GOGs W650 THK ne ELZ'eG08° 4 One
4430 Cipacy G4 pF 552 420926 459F 745s c XL26 4000269 38 PETES» TG BR 2 BEC $ an
TS9C SODSPAZD4P OF S40E3 TH8E $85 Bouse ot CLtS* 82803 70 X2G524* aR TIRE T5AaG 8G06 TERY FG be ALZ*GECH? 6 OSG TO BRS BEC o aK
THSE LESCOZEZCTFUR2 95 e x *Sa2 32 7532 7a? ee "NLG? 32? VEST SALT WITH DELAY TEST FE Orr
TAGF UGDOPZDePOFUeOkS 1eAD £96 BODY?D De CLUS’ B2NGS TS K2U°O* Ch DECODER 7 _ 1543 48O0E tSha Fee pe ZL2tH9GE? 18 CSC IG BRS DES B EN
VGAT USUOLIEREGP IEC 65S S5R* 36 4545 789 ac BL T° 36? TEST BALT
WARE wOD7TRSCICRCEaCCS Thee $97 CoUTS Be CL2&* PLACE CZ NST PEORE GE J2Eng* z TSAR FAGCES 15RR FSC be R13? TAG00S' @ EYTES osc
WEBS ClHOLe SAE IAODIDS 699 . WSae 4ooC SAB PEt oc SEZORGEC? 12 CSE TC BRZ TEC + AS
TEBE BEC2ZCS4ODELSROBI 597 453 32 4a8 752 no BLT?326 TEST WALZ WITH DELAY TEST 7 as
Y4CR FZCNE ORS OF - 353c BOGR SEO FS3 5c BL2°aease 44 OSC TO BS? DEC O 48 a
VGCR SONOP SOAP OR SEER t64DR 698 couTi oe ELTS* R203 TO G2RCS* RAD GATE fe THAE 32 7582 756 pe RLU 325 TESY HALT WITH EELAY TESY 2 &S
T&D LOND EZ APoRs $96 ISEF S415 TSBO TES EC KL2°sutCs JE OSC AND FDC TC BET DEC © PRE ID
349 SODOP2ZNSFOFGUOES NEP €99 cours ac CLIS? RERQE TS S257" ERITH Gage = me 45E% 32 { SEt F756 dC LLG sz TFST MALY @ITH DEALY TEST SBC CHAE
VOET EGUCDIFZDIP tee ass <5H2 ance TELE FSF be BLZ* GOOE! 74 GSC Te wAC SFo 2 TE
TORS SODOPIDIF IPOLGES W6FA FOO CONT Be CLIS* REPUG TO JZG44% ERASE GET t5E8 Se WSER TSS be Red? bHe TEST HALT
W4FC REQUDTELCTEIES 766 o 7 15B5 «0Se t5e4 748 Bc RL2*SES Se $@ O50 TO BBG DEC G pce
: 307 Seesesest PRINT HEADING RODTESE SKLY GECE PES LORgceus dense . 7 1Sse7? 22 4887 Foo Be EUG 32? PEST HALT BITE DELAY
W4F) 34 OH 4566 YO" ONCE st HERES3, xt O08? 4588 &¢98 T5B4 764 DC RE2tsouge 13 OSC TO BRI OF DEC G PUST as
SFB 3C OF t1s7 708 AVI OWLYs4, 3° OR5 = co ISE4 36 SBA 762 gC LIFE" TEST HALT
TUFF CO BP O24a you 3 FRINT : S5RE NOE 15Bo «783 nC RLZ*GaGr® SE05C ARE IDC TO BRT DRC 2 eOSF ID
$563 014 9503 765 be ML decye 45BD 4662 TEBE 764 oC ELZ°S002° 2 OSC TS BRE BEC 3 Pos? is
+308 39 1504 FS6 pe RLVE 30? 2 C ISB CZtGisedis 4303 765 > MLS SO2IGIGaNE® CORP CTL FLD =
250° 4535 2506 707 BC KL2 (CPUS) . “ F5C8 BE iste 766 BC RLV 3B? SET B TO OD
7507 3001 1508 708 BC EL2° A048 iScS tacooc $5C7 767 Bc £L3"7agho0e" 1Z BYTES G TO BRY DEC 1 EFEDATE
1509 cO e8F 1565 76¢ B HERE tSCR stoc 153 769 oc EL2¢450C? j2 O5C TC BR G DEC O PRE DATA -
W500 BODREQC7TSODSDEYD 1S52D Fig ec CLAS’ BSG NO. REDS DATA? ISCh 32 7SCR 769 Be EL7°932? TESY HALT B DELAY CHK S CHAE ARD PF
ISIE BOC2ZNOCSKONBAOEZ FG 35C5 4OCE tSec (770 pc L2°4GoE? 48 OSC %O BE 7 EEC O PRE DATA
TS4D ESCVUESECEZSLOROSD FTG i5CB 36 SCD 774 oc XL4°26° TEST HALT
1525 C3E3DSCI4OCED3CH 7436 J5CE tAOOFD W8Do «(772 Bc EL3°1RO02D¢ 253 BYTES DATA TO BR? DEC3 DATE
3 c c. a
DATE OZHAR7O O1APR7O OGKAY70 0 135179 PROG Ib OBOI-3 “DATE C2mag70 O1RPR7O OS82R¥70 01302170 PROG iD 6807-3
EC NO, 5715142 571546 571543 571524 PRGE & EC BO. 571512 571516 5771573 574523 Pact 6A :
. G 7 :
G = @
- CO CG i
G ~
c e398 }
-)
Ch
3
ny
ey
~
ot
EBS SAIETERANCE DIAGNOSTIC PROGRAK
BO1S 9 FELE CONTROL UNIT FLT SECTION 2
ERR LOC OBJECT CODE
PART &O.
5129613
PAGE ?
ADDR STHT SOURCE STATESENT
15D7 26 4Sp1 (773 bc XL 1°26 * RESET DPDR
15D2 120005 1Spa 778 pc XL3*1A0005° 5 BYTES 0 TO BRT DECT DATA CC
15DS SOGR 15D6 «775 pc XL2* 4002" 10 OSC T/ BRA DECO DATA CC
15B7 32 15D7 (776 pe XL1°32¢ TEST HALT W DEL CHK DATA CC AND FF
35D8 400A 15D9 (777 bc XL2°206at 10 OSC TO BR O DEC 14% POST DATA
ISDA 36 ISDA (778 pe XL1°36° TEST HALT
15DB SOOA 1Spc 46779 pe XL2°'800at 10 OSC TO ER 6 PEC 14 POST DATA
15DD 1406039 wSDF 780 pc XL3* 140039! 57 BYTES TO BR 6 DEC 1 PREDATA
ISEO 100000 15E2 781 pe XL3*1AG000* 256 BYTES TO BR 6 DEC 1 DATA
1SE3 1 001E 15ES 782 pe XL3"TAOO1E* 30 BYTES 0 CHK B CARRY
1526 8001 15E7 783 bc XL2*8001'* INDEX
15E8 CO0% 15E9 7648 Bc XL2*COOG* & OSC ARD INDEX
T5SEA SA I5EA 785 pc XL1*Sa* SET SENSE BY BIT
T5EE 6A00013322111111 15F5 786 oc XL11*640001331 1221274119111111" 1 SYTE
1SP3 7111111 786
ISFE SE 15F6 787 re XL1°SE* SET SENSE BY BYTE
15F2 120003 15F9 788 pe XL3* 180003" 3 BYTES TO BR 7 DEC 23
ISFsA 24800 15FB 789 be XL2°2A00° SET BUSY ERR PARA
SFC 120001 1SFE 790 pc XL3*17A0001* 1 BYTE 0
ISFF a 15FF 791 pc XLi*@at GO TO NEXT ROUTIRE
1600 0826 1601 792 bc AL2 (VIRG)
793 ** WRITE ID CLOCK STEP FUNCTION TEST WITH PROBES PARA
1602 1604 1603 794 BRAD pe AL2 (CRAG)
16048 4&0 1604 795 CRAG nc XL171° 40"
1605 03 1605 796 oc XL1*03° TESTS ABSENCE OF SET TO 8
1606 S2SE66 1608 797 bc XL3* 52 5E66° RESET
1609 2410 160A 798 Bc XL2* 2A10* SET BUSY CN ERROR OFF
160B 2501 160c 799 Bc XL2'2E01°
*160D 8001 160E£ 800 pc XL2° 8001" 1 INDEX
160F C005 1610 801 bc XL2°CO05* 5 INDEX AND OSC
1611 12 1611 802 pc XLI‘1E* IBD INITIALIZE TO BRO DEC 2
1612 COOD 1613 803 Dc XL2°coOD
*1674 640008 111111312117 1620 804 be XL13*6A000A4111711117191914194 18
T69C 99919991911 804
7627 6A00307711111171 1634 805 pc XL20*6A00301312121191191919921919199111991311151°
W625 194999919991191171 805
1631 71313151 805
1635 5151515151515151 1648 806 pc X120°515151515 1515 1815151515 15 151515 151515179"
163D $151515151515181 806
168& £1515179 806
1649 5915153511113111 1653 807 pc 1L123* 5915153511113 111111511°
*1651 111511 807
1654 Sa 1654 808 Bc XL7°5a’* SET SENSE BY BIT
1655 6460021133313131 1667 809 pe XL19* 64000 21133313 13131313031139121101791911
*165D 31321303113111110 809
1£65 111111 809
1668 SE 1668 810 pe XL1°5Sz* SET SENSE BY BYTE
166S 600006 1111111111 1671 811 pc JL9* 640006 1911431913191418
1671 11 811
1672 Oa 1672 812 Dc XL1°Oa* COMP DFCR
1673 1FO1 1674 813 pe AL2 (ARNE)
1675 0210100016 1679 874 DC XL5*0210100016" COMP CTL FLD
1672 3E 167a «9815 pc XL1°3E* SET uN TO 0
167B 60000411113115 1681 816 bc XL7*6A000411113115"
1682 7200FE15 1€85 817 pc XLO*7200FE1S°
*1686 06 1686 818 Dc XL1°06° COMP DPDR
1687 1£00 1688 819 Be AL2 (BARN) COBP DFDR
168S 6400143511193911 169F 820 pc XL23*6A40014351119392111211919149111817919929991991913311°
16920 49991991991199111 820
1699 11171111313111 820
168.0 6400195151515151 1683 621 Dc XL20* 6400195151515 1515151515 15 15 1515 1515151518
1688 $151515151515751 821
76B0 £1515151 821
16BY £54151517959151535 16BB 822 pc XL8°51515179591515 35
*16BC 6000 1317113111141 16D1 823 pe XL22 £6400 13 119139911915113121991999911919191913115
*VCR 15113411911191111 823
wcc 1111119131715 823
16D2 06 16D2 824 pc XL1° 06° COMP DFDE
DATE O28AR70 OTAPRT7O O6maY/0 0 130170 FROG ID 0801-3
Ec WO. 571512 571516 571513 $71524 PAGE 7
Oo Aa a& &# &®& @ @ &@® &@® & ©
oY 9
my eS
©
0 0 9. 6 Oo &@& @ @ 8
0 6 © 8 8@ 8 a
1
{
{
t
|
eo 8 0 080 6 80 808 0 0 84 0 6
2)
o
o
oO 9 09 0 9 90
QO,
IBS MAINTERANCE DEAGNOSTIC PROGRAB
BO 13. FILE CONTROL UNIT FLT SECTION 2
ERR LCC CBJECT CODE
16D3 1E00 16D& 825
46DS F2COFE1S 18D8 826
16D9 64001935111939171 16£C 827
16E1 9997979999111111 827
OES 411391111 827
WED 1131917119111111 16F8 828
16F5 8001 16F6 829
16F7 SECOCOU800 16PB 830
16FC E010 16FD 831
16FE 640008 13131313 1704 832
1705 &#FC0000000 1709 833
170a 2400 170B 838
3170C 64000101 170F 835
1710 4a 1710 836
1711 OB26 1712 «0837
1713 «1715 1714 838 BARB
1715 OF 1715 839 FARA
1716 19C9 1717) «840
1718 S2S5E66 171A B41
171E 60000141 171E 842
171F OF 171F 843
1720 19EC 1721 Bue
1722 5a 1722 64S
1723 6A0£010101010101 172D 846
172B 010101 896
V72E GAFFO1V1913111111 1738 847
1736 111111 847
1739 52 1739 8468
173A 2402 173B 6849
173C 76 173c 850
173D 2E07 173E 851
173F 2023 17890 86852
1741 60000114 1744) «6853
1748 SA 1745 6854
17486 GAFFO11817151111 1750 855
VINE 711119171 655
1751 SE 1751 856
1752 64000130 1755 857
1756 6AF70111 1759 858
1754 5a 175A 6859
T75B 6AFFO011112101070 1765 860
1763 101010 860
1766 OA 1766 861
1767 IFO1 1768 862
1769 O2FF000000 176D 863
176E SE T76E 864
176F 6AFFOA1011111010 177B 865
1777 1111163011 865
177¢ 2a00 177D 866
177E 6AFFO101 1781 867
1782 WA 1782 868
1783 OA7C 1784 869
1785 1787 178€ 870 TAX
1787 76 1787 871 TAXES
1788 4001 1789 872
178A S2S5E66 178C 386873
178D 2E01 178E 878
178¥ 8001 1790 «875
1791 22 1791 876
1792 2410 1793 877
1794 52 1793 «6878
1795 5A 1795 879
1796 66 1796 B80
1797 G6AFFO11111111111 17A1 681
V79F 111213 881
17A2 62 17A2 882
17A3 GAFFO11111111141 %7aD 883
T7AB 1721113 883
DATE O2BAR70 O1APR70 O6SAY70
EC NO. 571512 571516 571513
oc
oc
0130170
571528
PART 80.
5129613
PAGE 7a
ALDR STAT SOURCE STATESERT
AL2 (BARB)
RL4*7200FE1S
*XL20° 6490039357 11939129999299997999999999999998
DFDR LOCATION
XLS 11319999991999.1198
XL2°8001
*X15"8E00000800
*X1L2°*E010
*XL7*6A4000813131313°
115°&8E60000000
*X1L2°2a008
XL8°6A0001017°
XL1°@a
*AL2 (VI BG)
AL2 (FARR)
XL1*°Oz®
AL2 (IDLE)
XL3°S25E66"
XLS*6A000181°
XLI°OE®
1 INDEX
SET BUSY OFF ERROR OF?
GO TO ALT PARA FOR IRIZ SET TO &
RESET
BRANCH TO ALT ROUTINE FOR AX
AL2 (AFT) ADDE CF AB PARA
XL1°Sa? SET SENSE BY BIT
XL71"6AO0EC 10 10 10 10 1010 10101°
XL17°6AFEOT11193199 1971999998
XL1°SE* SET SEXSE BY BYTE
XL2*29802* 2 SEP CLK SITE IDC
XL1°76° CE LIO FF 00 ABD FF
XL2*2E07°
*XL2*2006°* 6 SEP CLK
XL4*6a000714°
xL7°Sa° SET SENSE BY BIT
XLU1V°GAPFOUIGI7IST 11119191198
XL1*SE* SET SEBSE BY BYTE
4112°€4000130°
XLG*6AF701191° ;
xL1°5a° SET SENSE BY BIT
XL11°6A7F0111722101016101010
*ZL1°Oa
*AL2 (ARNE)
XL5* O2FF000000° COMP S CTL FI5
XL1°*5£° SET SEBSE BY BYTE
XL13 *6AFFOA1011121170101111103C11
*XL2*2400° SET NOT BUSY KO ERROR
XL4*6AFFO101
*XL1°sa* BRAKCH TO HEW ROUTIBE
AL2 (STAGE)
AL2(TRXES)
1L1° 768 CE LIO FF 00 ABD FF
XL2*&001° 1 osc
XL3*52SE66" RESET
X12°2E01* TEST SENSE PROBES
X1L2*6004" 1 osc
1L17* 228 InIt SET 70 8
4L2*°2a10* SET BUSY CH EBR OFF
XL1*°S2¢ SEI WRT OSC BIT OB
XL1*Sae SET SENSE BY BIT
XL1°66° S2T SEP CLK OF
XL141 *OAPFOV191912171999117938
111°62° SET SEP CLK OFF
XL11°GAFFO 21131993 191219973"
PROG ID 0801-3
PAGE 7A
3
ea
& i
‘
e
9
So GG 6 08 e&¢ & @
ss]
QO @ oo
oy
oy,
on
C4 sf
4
IE MAINTENANCE DIAGNOSTIC PROGRAS PART WO. 5129613 i IBB MAINTERANCE DIAGKCSTIC PROGRAB PABT #0. 5129673
PAGE 8 G3 ¢ PAGE 8a
BO13. FILE CONTROL ONIT FLT SECTION 2 5 2 BO13 FILE CONTROL UNIT FLT SECTION 2 2
> + t an
ERR LOC CBJECT CODE ADDR STBT SOURCE STATEBERT EBR LOC OBJECT CODE ADDR STHT SOURCE STATESEAT
ITAE 66 T7~aE 884 pe XL1°66! SET SEP CLK ON Cc c 1680 64020101 1883 9483 pc ILU*6AR0EO101" 9
V7AF 6A00021111111111 17C1 885 DC XL19*6A00027111911117197111131111901010101012° 1884 64000111 1887 944 pc XL& "600001118
17B7 1111132111101010 285 1888 7200C015 183B 945 pe XL&*7200C015
*17BF 101012 885 c 3 188C 1600 188D 946 pc AL2*°16008 COBF DATA 2
17¢2 56 17C2 886 pc XL1*56# SET WET OSC BIT OFF 188E 96 188E 9487 DC IL1*06"
17¢3 52 173 887 Dc XIL1*52¢ SET WRT OSC BIT OF 188F 1E01 1890 948 DC AL2 (BARKR+¢1) S
17C4 SE 17c4 «888 pc XL1°SE* SET SENSE SY BYTE € im 1891 6a0E0115 1894 949 DC ILG*6A0E01135* 2
17¢C5 6AC00411103110 17CB 889 pc XL7*6A0008 17103110? 1895 720F3C15 1898 950 DC 1L46°720P 3C15
*17CC 76 17cc «896 pc XL1°768 CE LI0 FF 00 AND FF 1699 6A0F0135 189C 951 DC XL4*6A0F0135
*17CD SA 17cD «8891 pc XL1°5a° SET SENSE BY BIT € i 1890 6AFFO115 18A0 952 pc 1LG*6APFO115
*VICE 6GA0F014081414141 17D8 892 DC XL11"6A0F01804 1416 1814151818 18A1 6AF00115 1BaAN 953 Dc XLU"G6AFOOT1S
*17D6 414181 892 1845 6A0E0130 1848 954 pc XL4*6A0E0130°
17D9 56 17D9 «893 pc XL1*56° SET WET OSC BIT OFF a ‘is TEAS 60000110 18aC (955 cc XL4*6A000110°
17DA SE 17DA «894 Dc XL1°SE* SET SENSE BY BITE 18AD 6A000F1010101010 18BE 956 DC XL18*6A000F 101010101010 10101010 1010 10 3070"
17DE 6400028141 17DF 895 DC XL5*6200024141¢ 18B5 1010101010101010 956
17EOQ 5A 17E0 896 pc XLI*Sas SET SENSE BY BIT C: c 18BD 3010 956 .
17E1 6200014081614141 17EB 897 DC XL17°620001808 1416 1418101814" 18BF 6400028040 18C3 957 DC IL5*6A00028080°
V7ES 814181 897 18C4 SA 18c& 958 DC XL1°Sat
V7EC 52 17EC 898 pc XL1*52° SET WRT OSC BIT O% Cc 3 18C5 6£00004050525151 18D7 959 DC XL19*6£00008050525 1515 15 151515 1535151515151 =
ITED 62 17ED 899 pc XL1*62° SET SEP CLK OFF 18CD £151515151535151 959
ITEE 6300018181414141 17F8 906 Dc XL11°60000 18151414 1414141418 18DS 515151 959
17F6 414181 900 Cc io 18D8 SE 18D8 960 Dc XL1"SE* 3
17F9 8001 17FA 901 pc XL2*8001° INDEX 18D9 OF 18D9 961 DC XLISOE® GO TO AL FOR SYSC CEAR
17FB COO1 17FC 902 pc XL2'0001° BO INDEX IBDA 1A02 18DB 962 CC AL2 (SUMP)
17FD 8001 17FE 903 pc XL2*8001° 1 INDEX c a 18DC 600021535 18E0 963 DC XL5*6A00021535° 3
17FF 2,01 1800 908 DC XL2"2a01°* SET NOT BUSY AND ERROR 18E1 645C0119 18EG 964 pc XL4*6A5C0119#
1801 424000000 1805 9065 pc XL5"4E24000000° TEST STATUS 18ES 6AFFO111 18E8 965 DC XLG"6APFO111° =
1806 SE 1806 906 DC XL1°SE* SET SENSE BY BYTE e cm 18E9 60830130 18EC 966 cc XIL4*6AA30130" oa
1807 64000101 180A 907 pe XL4*6A000101* 18ED 6AFB0111 18F0 967 Dc XL&*6AFBO111
*180B 66 180B 908 pc XL1°66" SEP SEP CLK O8 18P1 6A00101010101010 1903 968 DC XL19* 6A0020 101010101010 10181030100 101010101° .
180C 4A 180C 909 pe XLI¢4at BRANCH TO NEB ROUTIRE C: is 18F9 1010181030100101 $68
180D OA68 480E 910 Dc AL2 (GAB) 1901 10101 968
180F 1811 1810 911 STYLE DC AL2 (STATE) ADDR CF READ F DATA PARA 1908 OZ 1908 969 DC XL1°OE* GO TO ALT PARA 2-09 OF DA&TA ABD CC
1811 28 1811 912 STATE DC XL1I°2A8 SET BUSY CN EER OFF ce C 1905 1A42 1906 970 EC A1L2(DORY)
1812 10 1812 913 Bc XL1°108 BUSY NO ERROR 1907 OF 1907 971 pe ALINOE* GO TO ALT FOR POST DATA
1813 S2SE66 1815 918 pc X1L3*525566* RESET 1968 1060 1909 972 DC AL2 (PLUS) -
1816 OF 1816 915 DC XL1*OEt GO TO ALT PARA FOR IKIT SET TO 8 Cc (2 190A 6050021141 190E 973 pc XL5*6aE0021141° =
1817 19¢9 1818 916 DC AL2 (IDLE) 190F 8001 1910 974 pc IL2*8001* 1 IBDEX
1819 6200024141 181D 917 pc XL5*6A00024181! 1911 E008 1912 975 DC XL2* E5008"
181E OF IBIE 918 DC XLI°OEt GO TO ALT FO AS € ic 1913 6000143111111111 1929 976 DC XL2Z3*GAOOTEF1V1TV1TAVATTTIT ATADATVATTAAWIVDITIIIIG III S
181F 19EC 1820 919 pc AL2 (AFT) 191B 101999999199171991 976
1821 OF 1821 920 pc XL1"OE* GO TO ALT FOR S¥NC CHAR 1923 13491131118184 976
182z 4002 1823 921 pc AL2(SUEP) £ G 4924 OE 192A 977 pc XL1°CE $0 TO ALT FO ~aS >
1824 OE 182% 922 rc XL1°OE* GO TO ALT PARA 192B 195C 192c 978 DC AL2 (AFT)
1825 1410 1826 923 DC AL2 (STARE) FOR ID 192D OE 192D 979 pc XL1°OE* GO TO ALT FOR SYEC CHAB
1827 OA 1827 928 pe XL1"Oa* COMP DFCR £ 3 192E 1A02 1S2F 980 DC AL2(SUBP) 2
1828 1F08 1829 925 pc AL2 (ARNE+*3) DFCR LOCATION 193C€ 6AC0021535 1934 981 DC XL5* 6200021535"
1824 &E00000000 182E 926 pc XL5*4E00000000° TEST STATUS 1935 6a08C2111 1938 982 pc XL8*6A8001118
182F 6400101010101010 1881 927 Dc XL19*6A0010 101010 101010101810301041414141418 g C 1939 6AFFO111 193c 983 Dc XLO*6APFO111° g
1837 101014 1030104141 927 163D 6A7F0131 1940 984 DC XL4*6A7F0131°
183F 414141 927 1941 6AFEO111 1948 985 pc XLG*6AFEO111#
1842 OA 1842 928 pc XL1 Oa’ COMP DFCR & Q 1945 OE 1945 986 cc XL1°0E? GO TO ALT PARA FOR POST ID g
1843 1F01 18448 929 pe AL2 (ARNE) ; 1946 1427 1947 987 DC AL2 (PORT)
1845 6400024141 1849 930 Dc 1L5'6A00024141° 1988 CE 2948 988 Dc XL1°OEe GO TO ALT PakA 2-0G O8 DATA agsD CC
184A SA 184A 931 pc XL1*5a° SENSE BY BIT S gS 1949 4A62 194a 989 pc AL2(DORY) @
184B 6£00008151535151 185D 932 Dc XL19*6E0000815 1535 151515151515 1535 151515151! 194B OE 194B 990 DC XL1°OE? GC TO ALT FOR POST DATA
1853 5151515151535151 932 194C 1A60 194D 991 Dc AL2 (PLUM)
185B 515151 932 G Cc 198E 2A00 194PF 992 pc XL2'2A00° SET ROT BUSY BO ERSCR 3
185E SE 18S5SE 933 pc XL1*5E¢ SENSE BY BITE 1950 64000101 1953 993 DC XL4*64000101"
185F 6A0E0105 1862 9348 Dc XLU*6A0E0105* 1954 GA 1954 994 Dc XL1I*8A¢ BRAKCK TO NEW ROUTIBE
1863 6800021535 1867 935 pc XL5 "6000021535" QO a 1955 CAQ9A 1956 995 DC AL2 (STORB) 3
1868 6a580119 186B 936 Dc XL8*6A580119" 1957 1959 1958 996 LOG pc AL2 (LUG) ADDR CF WE DATA PARA
186C 6AFFO111 186F 937 pce XL4*6AFFO111¢ 1959 OF 195S 997 LUG pc XL1°O0E? GO TO ALT PAZA FOR I8IT SET TC 8
1870 6070130 1873 938 DC XL6 "644701308 Oo Q 195A 19¢9 195B 998 DC AL2 (IDLE) 3
1874 6AFCO111 1877 939 pc XLU*6AFCO111!# 195C 525E66 195E 999 DC XL3"525E66* RESET
1878 OE 1878 940 DC XL1°OE* GO TO ALT PARA FOR POST ID 195F 6AC0CO24N141 1963 1000 Dc XL5*60000281918
1879 1427 187a «941 DC AL2 (PORT) CG 3 19648 O£ 1964 1001 pc XL1°OE* GO TO ALT FO AB >
187B 6400020101 187F 982 pc XL5*6400020101° 1965 195C 1966 1002 Dc AL2 (AFT)
¢} e 9
DATE 02mAR70 O1APR70 O6SAY70 0130170 PROG ID 0B01-3 DATE O2maR70 01APR70 O6NAY70 0430170 PROG ID OB01-3
EC NO. 571512 571516 571513 571524 PAGE 8 EC HO. 571512 571516 571513 571524 PAGE ea
°° .=.3¢ Cc :
o @ 2
Cc oOo ©
4
&
c¢ 9a 8
oe 6 S
eee ee
o
%
TBE MATZ
BIENAWCE DIAGNOSTIC PROGRAM 5929613
; PAGE 9
3BO130- FALE CONTROL UNIT FLT SECTIOB 2
ERR LOC OBIECT CODE ADDR STET SOURCE STATENERT
1967 OE 1987 1003 DC KL1°O8? GC TO AL FOR S¥8C CHAR
1968 7BOZ 4969 1064 DC AL2(SUMP)
19&2 OE 1964 1005 pc XLTOEe GO TO ALT PARA
IOSB 1R1G 496C 1006 pc AL2 (STARE) FOR iD
196D 4BC50000C0 49717 1007 DC XL5* 85000000008 TEST STATOS
i972 Oa 1972 1008 BC XLI OR? Ccoue DFCR
3973 1F06 1974 1609 “BC AL2 (ARRE* 3} DFCR LOCATEOK
1975 6A COCE 10741932670 1985 7040 pc XLt7 *GOACOOEITIS103C107919999 94999999134"
TOPE 414.919999999999104 1016
-49a5 31 1010
“$986 OA 1986 1071 pe RLI* Ga? COMP CFCR
1987 4701 1988 1012 nc AL2 (ARBE} BPCR LOCATION
1989 52 1989 1642 zc xL1°Sae _ SET SENSE BY BIT
3988 6A00093517157719 1996 107% BC XE19°62600 13517751111 791S158
4992 197919 101%
2995 68 600195371512121 199F 7015 Dc ALIWEACONIISAZIST ASTVIVIAGE
199p 494792 °C 1015 . ,
wean SE 19AG 1016 DC XLI*Sze¢ SET SERSE BY BYTE
4SA% T200FDI5 T9a@ 1017 cc XL4"7200FD15
*9905 1674 1926 1018. pc XL2° 1611¢ COMP DATR
9927 06 1987 1019 Bc XL7*06° CONE DFDR
19A8 7261 1929 1020 BC AL2(BaRH+1)
VAR GAFF733531113916 iSBF 1021 ac XLZ2* OAFP 1335121113 41011104 710 4 1101110301721101033"
F9B2 1710111094109110 1021
49BA 1021111901031 1021
33CO 2A00 1901 1022 pc XL2°2a00° SET NOT BUSY BO ERGOR
19C2 GAFFO104 19C5 1023 Dc XL4* 6AFFO101°
19C6 aa 19C6 ‘202% Pc XLituat BRANCH TO BREW ROUTINE
19C7 OABE 19C8 1025 ac AL2 (HaS hk) : 5
19C9 46 19C9 1026 IDiz DC XL1'40° ALT PARA FOR INIT SET TO 8
19CA 02 I9CA 1027 LC EL1#02¢ 2 osc
19Cz 22 ‘ 19CE 1028 Dc XLi¢229 SET TO 8 I81IT
w9CC 2A1C 19CB 1025 pe XL2*22108 SET BUSY CH ZEB OFF
_19CE SA 1S9CE 1936 Dc xL1°Sa* SET SNS BY BIT
T9CF 6000914217171111 19D9 1031 Dc XL12°6A000 919119991713212738
19D? 191273 103% .
_19BA Sz 19DA 1032 pc XL1' SE? SET SENSE BY BYTE
19DE GAFFO6 12174010174 19E3 1033 BC XL9* OAPPOG 717120101131?
19E3 31 1033 %
. 7924 gooD 19E5 1034 ‘pe X1L2* ROOD"
I9E6 6AGCO2N040 19EA 1035 DC XL5* 6000024080"
19EB 120 19EB 1036 peo kLV"926 RETURN TG MAJOR PARA
49EC 5a 19EC 1037 AFT DO oMLA*SaS SET SENSE BY BIT -
19ED 6600008715 1535151 19FF 1038 DC =—«- KL99*6 £00003 75 15 35 151515151515 1535151515154?
49FS £181515151535151 1038 -
19FD 515151 1038
TAOO SE 4A00 1035 DC XL1°SE¢ SET SEBSE BY BYTR
1Aa01 12 1A0% 1040 pe XL4* 12° RETURN TO SAIOR PARA
1A02 SA 1802 1081 SUBP DC XLI*Sae ALT PARA FOR SYBC CHAR
1803 6A0E01C5050501071 1A0D 1042 pC XL1717°680£010505050 1010101019
TAOE 010101 . 1982
1AOE SE 1A0E 1083 DC XL1° Sze SZT SENSE 8Y¥ BYTR
AOF 12 AQF 1084 pc x11°128 RETURB TC MAJOS PARA
1A10 SE 7A10 1045 STARE DC XL1°5z° SET SENSE BY BYTE
7411 6400021535 1Aa15 1046 pe XL5°6A00021535°
1A%6 €A5G0119 -7A19 1087 pc X16°64549017199
1A1A GAEFOT11 AID 1063 DC 219 "6APF0121°
TATE 6AAB0130 1421 1039 pc XL4& "640086130"
1aZ2 6AFCO111 - 4A25 1050 pc XLS *6APCO1147! ;
WA2E 12 1826 1051 pe XL1°128 RETURN TO SAJOS PARB
1A27 SA 41827 1052 PORT DC XL2°5a° SET SENSE ay BIT
4A2@ 6AFPFO11012101010 1432 1053 pc 1L141°6AFFO110121010101610108
1A30 101010 1053
1433 SE 1433 1058 Dc ML12*5zE¢ SET SESE BY BYTE
143% 648000A1017101110 1466 1055 pc XL73*62000R1011101 110111981 13011°
JA3C 1918113011 1055
Vau1 12 1A81 1056 oc ALI*12¢ RETURS TO ShJOB PARA
1A42 SE JA42 1057 DORY DC. XL1*Sze ALT PARA FOR DATA FLD
DATE O2mAH70 01APR70 O68AY70 01301L70 PROG ID 0307-3
EC NC. 571512 571516 571513 574528 PAGE 9
Font ee ae em ee eee
PART RO.
err rer nner RE =: oe MetEERE eete n ee
£ |<
we te
o | o
i 8013
perk os
& s i 5
ERR LSC
ee Ae VAU3
4 7448
| TAC
ee 3A50
: 1a53
7as93
g 1A5E
A690
: 1A634
oe! 1a69
j tA77
t FAT2
ei 7E£00
VECO
| 7EO%
Co Pp oS 4FO1
| 1F02
i
Co pS
i
i
Cong
t
co: | nas
Qe ; oa
i
i
Cc. ec
nm cy
& es
@ ¢
& . &
@ -¢
@ €
& o
$ S
S ¢ .
o S
° G
& °° og
So +6
& oe
DATE
EC 5O.
G
= ‘ Oo
i
O oO
<s co
©) e
to Cc
CG
IBS BAINTESXARCE DIAGNOSTIC PROGRAM
FILE CORTROL GRIT FLT SECTION 2
OBGECT CODE ADDR
6260020101 { AUT
6ADEDTON TASB
68000113 TAaP
7200FD 15 1a53
6260623515 7052
GAFFO3 153919 qASE
42 VASF
Sz 1269
GAFFOEZI070171170 71477
10 1114 1010173710
30
1Z VR72
30 1E00
3FOC
co 1F0?
1FO4
C22A
u222
#F?F
O2MAR70 01A8PR70
571512 571516
STINT SOURCE STATEMENT
2658
4059
1066
406%
1062
1063
1068
2965
1966
7066
1066
1067
1068
2069 BARN
1079
3071
1072
1073
107%
1075
PLON
ARBRE
LOAD
BALT
OGBAY70
$71513
Bc
BC
Bc
pec
BC
BC
be
be
XL5°68CO0020107
*X3.8* 64GE07018
ZL 4° 620001758
XLS *7200FD15!
XL5*6590023575¢
EL6 °GAFPO3G53117°
XL79 32?
MLUtSee
dC ¥L77 (6 APFCE 1019111310 10491 279010999 710308
’ BC
ORG
dc
OS
bc
Ds
E¢cu
EQU
ERD
0130170
571528
Be te oe ee
XLG¢42?
X* TEOO
*aL 7 506t
CL256
XL14* 00"
CL3
Z*O22za¢
B*222°
ee a ere ee ek Ge peg eS
PART HO. 5729643
PAGE 98 "
RETURN TO N&IGR PARA
ELT PARK FOR FCST LATA
BRETOEB TO MAICK F2EA
DATA FIELC
CORTBOL FIELD
3
+
om
om
‘’
a
2
PROG ID 9801-3
PAGE 9a st
: 3 :
she
3
“
a ms
¢
328 MAINTZRABCE DIAGNOSTIC PROGRAB
BO%3
SVEBOL
APSER
AZYSS
&CRTD
KOT
Act
aL?
SCVSZ
ADWS
& Dye
aEYS
APG
BERS
BLCE
ALOFT
&LtAR
ABTS S
SBSELES
aREY
hESGCSE
ASR
AZSaE
ASL
&ET
Asvz
AS¥23
RNY
&&SCR
Be ED
>
ak ke
&B2
JBEYAS
ae B
aks
BPEPOS
S2bs.
Bae
SAGA
Gave
BESS
BASS
SBT
SOSaAER
BEAT
ZRICE
BEL
BESS
BETH
BCSS
BOUTY
CUP SZ
BE acy
88 ap
BREGAD
PRONE
BHUSE&
CRITE
BSIND
Bug
BURS
Twane
CALL
CAST
DAE
Ec 4d.
©0000 0 0 0 0 0.0 8 0:6.0.0-0-8.
PELE COkTROL GHIT FLY SECTION 2
P LES Varios
4% 902 %3c1
& OO& $358
& 806 4748
& 282 4072
& OGG F4K%
& @no Ucaee
& O06 CoB
ROSS scBS
& 085 99032
&OG6 Ocar
& OG 398¢c¢
& 20S T4arR
& O0% BASE
2 O06 GResS
& O02 w3EF
& Of6 3¢8¢
& Ot 252
& 96% 32498
& $78 ‘cred
& G64 ¢3r4
& OG2 36
& 807 FRRY
& 008 %O6R
BOGS WWE)ea
& 9S 9ap
AOQGE Fae
4 G64 399
A G2 t3a6
& 909 W289
a 92 @3neF
» Q85 3ce
B Ele ACKR
& Ge O56
& SCi FeFR
AO’ OFLC
& G02 F307
& Ge pte’
& 8% 800
& S€& 3A
& 66S 247
& OGs VO8R
& G29 GCSB
& Of% %OCR
& 483 Y3c¢e
& G62 43c%
& 802 7355
A css ope2
& 994 4249
B&tS yagg
&O%7% eAD
&B CCK Once
& 902 1603
&8 0G2 4389
8688 S269
& Oe OBsP
4006 0717
A COt %398
&8 OOG 4763
AGS $222
BQS6 GE62
A 022 124D
& Ov8 13D3
O2HARTEG
5775132
O28?
OVAPRIC
571516
PEYERENCES
COVF CtOs
GtS2Z
6338
GOe6
G36 O2tG
GGG ASS?
O375 G222
S202 620s
Git 893%
O8e&& 8855
Hobs OO2a¢
0024 GE77e
2693
SSiae O228
GIIS
Gs7o8 Qe7oe
Gidue Biase
oS38
Stee Bist
8678 Goat
GRIse Ox<a7e
Qe254 283
8438
CS4Ge USER
O44
22945
GOZT* O83"
BRIS Eb?
O4a5% Gas
Teese
0382
S785
C3S6
BS5%
G3ae¢ G535
§30e¢e 93905
CZs
GG4S% O246
899 ge2s
G332 5867
SOLe .
Q29%
45?
“O84 Gat2
GlFae Gi7ge
C3G9% G303»
A577 365
9926
O68
0687
O23€.
oases
326%% G202
oes
6292
9838
0389
G252
6508
06 BA Y70
S71Si3
CROSS~ REFERENCE
0362% 93928 9395
9372 9395 o307
8224 C398 02323
0409 C242 G2a3
9819 0624
uo7a 1682
O062% GOS3" Shige
228% 62387 9975
GIF1® 94930
05.46
Oehee H994e $9508
0325 926 50%
Q43Ts GRIPS O3798
GAGs NASD .
@626e GO55e 905¢
034898
S332"
9309
O287 ¢
po
iat
aed
wa
e
yt
at
ae
Gt35L76
$7152&
5422
O38
O3e5
C200
C3679
Gat?
ote
aU &
a”
o
un
Nes
#
O& CR
9463
9393
S756
Oe ix
8425
S462
GLegse
O38%
3829 9932
9885
8837 S532"
33A7 OES
3221 Ezger
PART RO.
PAGE
Ok25 8835
GS3S* 0583
E337
NUBE 95e2
PROG XD
P&aGE
SI296%2
40
GBGI-3
10
e
oy
ee
&
@
CO}
om,
&y
C
oa
&e
©
Oo 8 O
3
EES EALZMPERARBCE DZAGROSTIC PROSKEAS
a
i
ob
har
SYRBOR
CBRPE
C&SER
CREF
Coats
CHERS
CLESTE
CLK
CRER
COPE
CURD
Cove
Coutt
COUTTS
COUT 3
Cours
CE Ste
CALSE
CRISE
CRUST
LRUE
DAYTE
ShoF
DZE
OLVES¥
DOREY
DUE
fo pss yo
bad
a A a Oe
oF Rg py Otte et fe
ep od A ME ee
Pe on 0
md bet
FETE
FISE
FERS
FIR?
¥La?T
F2iT
PLOLG
BLS
FLY
FOES
FOOD
POE
FOUs
FRESH
# ROG
PRI
FRUIT
FRYS
G&s
GAL
GARB
Sés
GaY
Gat
GOS
DATE
Ec 8c.
FILE CORTBOL
ow
Res ge Be he Oe he fe ge Be Pr die By SB ae Ge fe Se fe Pe Rs ee
gan Se ee Be ge BE de
fr
gr Be Be Bw Ge Be Be fe Ge 8 es
fe fe Be be be > & wy D Pe he Pe Br Be Bo ks Be he Be we Me Ne de fs a
EE VALUE
Oe ec6s
G4 4348
QG& sCES
QGt $389
C98 SSb32
Q0% GAadG
$OQ2 3F5
GO% GaGd3
Ge $375
262 357
SE2 33%
Gis 45a
GF 27
Sis wrR|E
O28 tacg
94 THOR
OCe DESE
GGk OBS
296 Ge3r
OGT %$4e3
3e8 CODA
Bis CEE
SuS GEsb
836 6€%2
[8 SARE
Suz ao ao
6G4 $925
eoe t27e
eta Tack
Ses Goor
QE2 FIAE
20& [S69
S6& Gfc¢86
9% ‘*3n8
GG CBee
GG D468
“C6 GCcySs
QI3t FS
Q62 GRAZ
G2 388
G2 t3FS
Q0& 266
GC& 9532
GO% 44222
Goi 7043 ©
904 203
SQ2 43c9
gos $3ses
Boe ttFF
4@Q& -2bE6
uce GEEG
Gag 9°66
8903 33D
OC8& GIA
COS DEE
B02 GFbe
6G e853
CGY ‘3k
Goo C268
O0s CEEE&
Ooe aOR
G08 IESE
Cl. 2385
00& OK7S
O02 1389
G2HRARTO
$71542
SRST FL SECTINE 2
BSEPR
O22%
GHPS
G486
3669
0227
OGOs
Gb4d
4996
US%@
OST
8275
9694
GES?
OFEG
9607
Fas
O2a?
3283
BOTS
S272
Bess
OTE?
Q27%
2tG6§
3057
Qs “«.
$282
Gees
ce38
GIse
E632
S284
&yFa
OS 24.
2158
Gites
GO 166
S433
G30?
weet
Sah E
5568
ease
OSSt
O37?
949%
C&2%
Q576
289%
G2er
O325
OREZ
QE2%
GO9E
625%
2378
0265
06%6
0638
S292
6653
G279
S615
Oes7
659s
GUAPRIO
371536
te
BEPRREACES
9428
2276
792
O425
G2289
B25¢
COIs
G85
S655
SS€2
S665
B6SE
OF9R
28s
GORE
E276
O270%
CZ5 Re
e0a3
RESG
@
St iD Bed Oe Bd CD
CT mal co sed tes
WO eat kes me Ge OP
&
Oma Ota
ae
ew
@
Gta?
a3¢se
4G 346
C866
6255
O27$
6032
SoOMat7o
$77542
CROSS REPZRZSOZ
G2323 9235 9268 @284¢ 0255 O258 624%
S258
O65g
COSSs AGLGe GHSsS O24G0 GE3S
Gs2%e Giete
GF8le BkGRO GES
Gaare .
OS44¢ OG688 COkse GG65" EHRs 3546
O232% O35 @F7R Othe. o7366 'G& 8242
O399 @32¢ G33P G372 O3879 9386 BCs
BLS7e Gs08s F254
O2TIS SIPS C2FeS G2IS Giese G32te 0322
Gag ze
Sago
OE71e Guzee
O2gie
6023 S05C 86085 6056 COTs
CtIGLIG
$271528
9265
Oa74
PART HO.
PAGE
6295 a2
621g 38
PROG if
BLGE
2%
$2
5129643
IGOR
CBOQ1-2
408
$2
63
fee
oa
42
id
oN
we alae ae
IES ZAINTEWANCE DIAGNCSTIC PROGRAM
8013
SYSBOL T LEN VALUE
coour aA 008 12EC
GRAIN A 004% 105D
GULP a 007 7444
HALL aA OC2 = OF9S
HALT c c0t 0222
HARS A 002 1714
HASH A006 OABE
HERE A 00&u 1509
IDLE A 001 19C9
KAT A 603 1264
KELP A 008 OEFSE
KIT A 003 1261
KITE 4005 125E
KNIT aA 007 1259
LACY A 004 ODEA
LAF a 00z2 134F
LEGAL B OQ2 1383
LISP 2 O0&’ OC6B
LINXT A O0G4H 113E
LOAD c 0017 O22aA
LOG A O02 1958
LONG A OCR 1387
LUG a 0oci 1959
MALL A O06) OFOC
MASK A 0048 125C
SASS aAQO0G 1231
MAT A 004) 1074
MAY A 002 1388
SINT A 004 1128
NOPE A 00h 139D
HSGOUT A O27 148F
NAIL aA 00& 1023
NEON & 006 11A2
NIES A 009 126F
NOR A 002 138D
NUT A 00& 1253
OGLE A OC6 1178
ONCE A O00u 148F7
ONE A 003 13D8
ORLY A 008 118E
OPERA A 002 139F
OPINE A002 1266
OPUS A 049) #Y53D
ORE A006 OADS
ORE A OCS ODTE
ORGY A OG& 109C
PALL & 0048 1218
®ALES A COS 1368
PANDA A GOS OBA9
PAXT a 050) 1022
PART A OC6 OD78
FASS A O04 1316
PEER AOCu GCSB
PGRT A 0048 OCF6
PINE A002 1391
. ELUM... ..A.0014- ~2R60_.
POND A 001 13F2
POOR A O04 1158
PORT A 001 1A27
PRINT C O01 O2TA
PROD BAB 006 ODOA
RACE A GO4 ODDS
RACY aA CCu ODSB
RASH A 006 OBDE
DATE O2HAR70
EC BO. 571512
FILE CONTROL UNIT FLT SECTION 2
DEFR REFERENCES
0558 0073 0161
0383
0675 0651
0355 0057
1074 0093 0155
0838 0034
0051 1025
0709 0702 0709
1026 0840 0516
0525 0483
*0283 0281* 0283
0524 O4G2
*0523 0477
0522 0019* 0020
0254 0280 0286
0576
0592
0161 0139
0450 0151
1073 0556
C996 00487
‘0593 0594
09S7 0996
6334 0057# 0335%
0539 0531* 0534%
0536 0533
0389 0393
csss 0029 0035
04an3 0149
0603 0027
0698 0656 0680
0371 0328 0346
Ou77)—
0527 O468* O47C#
6596 0041
C520
0467 0491 04a93
0702 0873
0627 0168 0171
0407 0451
0473 0015% 07034
0557
0526 O472* ON74
0770 0707
0056 0674
0228 0423* 04244
e3s9 0385
0509 0508
O584
0109 0176: 0216
0370 0332 0343
0227 02397
0564 0056 0535
0154 0714 017116
0190 0183: 0188
0558
1065... ...0972. -0991..
0639
eas9 0153
1052 0941 0987
0518 0088 0154
0657 0660
0196 0123
0249 0246
0235 0232
0067 0738
OVAPE7O O6MAYTO
571516 571513
CRCSS-REFERENCE
0514
C344 0366 6511 .0551
C998
0022 O478* 0473% Cy80* 0481"
C290 0296
0539
0361 0368
0490* 0491* 00924 0515
0494 = OuSE
0172 «40173
0542 0544
OU7R* O8B4F 0487
O427* 0428* 0437* O44DS.
0219
0365 0671
G329 0336 0340
0663 0666 0669
01J0L706
$7152
—
oN
ry
0672 0691
or
Cs
a)
ry
ea a A a mr
a
ty
we ae ne eee rete aR tare ew ob A ete ee alee +
iN
0362 0499 0546 0648 0€53
0685 0688
IBM MAIKTEKANCE DIAGNOSTIC PROGRAS
B013
SYMBOL T LEN VALUE
RAT 002 1393
REGAL 004 1341
RENT 001 1540
RINK 00%’ ODAZ
ROFE 001 139
ETNAR 002 %3ED
RTN1 007 Oa10
RIN2 001 %3FC
RT1ADR O02 0a07
RODEE OC& OETE
SAINT 006 OED6
SALT O04 OECE
SAT 0C2 15848
SA¥ 002 13%D
SAY 001 1365
SEYTE2 001 OZOA
SEEP oce CFD3
SEPAL 004 1082
SEl 002 +1395
SHARK 008 OEFA6
SHOP océ 0aC
SIKE C06 1130
SKOG ocu CE96
SLAE 006 159
SMART oce 1371
SéCG 004 OEFOF
SKAG OCG& O0E07
SOAP 004 14362
SOT _001 1585
STIKE "06 102D
STAGE ocu OAT7C
STAID cCo4 1379
STALE OC2 CRDD
STALL 002 OBDE
STAND OC& ODE
STAR_ 008 11CF
STARE. C01 A100
STAT 06% 10CE
STATE 001 1811
STILE 00% 1375
STONE ocy opsc
STCOP O04 OFFA
STORM O0C6 OASA
STYLE C02 1810
SUMP OC? 1aC2
TACK 008 10637
TACT ccu oDpss
TAX 003 13CF
TAP O0C2 1397
TAX OC2 1786
TAXES 001 1787
TEN 905 134D
THAT OCb. . 1336
THEN 006 133c
THICK C% 1330
THREE 002 1358
TINE --- & GE&- --1910-
TOAD 002 13EE
TONY 00% 13E2
TRACT 006 OD72
TRACY COM ODDA
TRICK 006 132A
TROCK 007 1324
TRUST 004 OB2E
TRYST oc’ 0B59
TURN OOu 116A
DATE O2MAR7O
EC NO. 571512
DEFN
c599
cSgt
C713
0227
06048
0635
OC12
0645
0008
0291
0377
03148
0735
OS57
USES
O6uy
0360
ON06
C600
0303
OuN05
Ou46
0297
0491
0587
O264
C22
0577
0746
0373
0038
0589
C121
01420
0119
0439
1645
0414
C912
0588
0231
032?
0044
0911
1041
0375
0218
0623
0601
C&é70
C871
0575
0571
0572
657¢6
0631
*04u38
0634
0630
0226
0250
0569
0568
0075
0066
0472
OVAPR70
571516
FILE CONTROL UNJT FLT SECTION 2
REPERENCES
00688 0064
0592
0712
0099¢ O240* 02774
0008
0014
0289
0133
0132
0070
0136
04c8
0053
0131
0140
0150
0293
0516
O46
0256
0256
0735
0374
0869
0039
0119
0117
O117* 0118
CO31* COb1s
0069
0260
0120
0923 1006
01462
0941
O904
02548
0135
09935
0080
0921 0962
037% 0375
0127
0178 (C372
C030
c370
041160 O2€6
0049
0052
0042
0213 .
oe QA E cree
O207* 0208
0051 O00b7
0129 O8Ks
0248
0036
0016 0032
0072 cogs
0075* 0082
0025 01C?
O6RAY70
571513
0262
0980
0as2
0062
0513
0086
0189
C13I6L70
571524
CROSS- REFERENCE
0297
1 ateumangertin a de aeto aed
6204
PT BO.
G3
ae en agen abana te line ene eine SE in te gated eaten Tit ee
6328 O8260 O4868
@ @ @ 18
!
ta
@
€ | PO 4 — ete
_ TBM BAINTERANCE DIAGROSTIC PROGRAS | “ : PART WO. © 5129613 ne
€ : PAGE 42 & €
8013 FILE CONTROL UNIT FLT SECTION 2 %
CROSS- REFEREBCE : i
< SY¥YSBOL T LEN VALUE DEFN BEFERERCES a : i C10
_ tee & 003 13D" «6628 i : |
7 M¥IT 2 O40 1297 AS2e O4BB 0993% OF944 O49S* OL9B* 0502 i 2 ee
URFACK C 001 O21E 0519 08 85 po! |
VARY A004 10FO 0423 0143 .
wip A 002 1399 0602 ; i i @ i G
VIRG A008 O0B26 0072 0792 0837
WAD A 002 13a0 0605 0418* O816% 0543* 0561
WALL 2074 OFKH3 0348 03348 0355 Cc: C
MARY a 004 10FC 0427 0144 |
‘WED A 002 13a2 0606 O815* 0417* 0416
WHELK A 006 1T0CH 04811 0141 Cc €
BIKE a2 008 1108 0831 0785
WIRE A O64 1118 0437 0187
WIRY A008 7120 0440 0148 Gc | 0
WORK A 004 OEFSE 0300 0130 {
XR1 .€ 001 0001 0580 0030* 0038 0040* 0047* 0058* 0065*% 0070% 0109 0171% 0172* 0173* 9174* e
0175* 0213 0218 0215 0218¢ 0265¢ 0275 04u51* 0476 cia
YELP a 004 OF56 0281 0276
YORE & 002 OBSE 0087 0080 coes i i ;
YORK A OG’ OEAA 0304 0301 . ; & c
ZEROS aA 00% 12FE 0559 0558
ZONE aA 008 ODE2 °° 0252 0702* 02482* 04650% }
& c€
OTAL STATEMENTS FLAGGED ik THIS ASSEMELY = 0 ie
f co
i
C c
{ Pe =
te NM
: : e. ¢
: .
: ; ¢ &
i :
. € &
5 oa € 3s
¢ a
“ : tS G
i G CG
i
co WE Ee wom hep mae gem aR aes oe eee mem ety ee mee ne ye eT aa Sey nene one “Liste Solna gon heyy capes emeagem mh Gee wee eg aeiner ah srr tine 2h ne mae bem ene rR Menton TOR eh my ene cere cde Wenge. ep cae, a ces ete ch cet wee KE om -&. ten
. 2 CG 6
S CG e
e i
e : 4 G e
i S$ ®
DATE O2PARTC G1APR70 O6MAY70 0130170 : PROG ID 0501-3
EC BO. 571512 571516 571513 571528 i PAGE 12
io! 8
4 jee
; ‘ i G ®
y eo 8
: : i ‘ i . ; = : : 2,
os . 7 A Se See | e1°
|
e9o@eeesd @e e@ e e @ @ ee @ e oe @
er PPE reentrant mate et: ots rtehetornataateestie: Lig teperephie +
Te ee a
eT ES REPOS SPORE TIES
frre: qyesaicrs sreRE ET
T{ -?)
SORE GRE Spe VR pie oF
IBM MAINTENANCE DIAGNOSTIC PROGRAM
8013
THE CHARACTER
7 THROUGH 16
cL
TAOYGR a< B/
T+-2DYE XA Q
T+-Z" JEDCGOELKL3
Te-Di€ <HAA(9{ ED
T+ ,5/0_4C <>AAj
Te-S0C <1=1<04 40
T+-_, PEFSB3uIY 1]
T+->WkD COH*.<UC
=zes
*RAS3A 0
7+-OROH* (BRBGCI3
Te-IM+@BGDEL 701
T+-2|DE, /VEEOK®
T+-3HD&C /O3FC -
T+-WE302 EDZ0L6<
Te-5 One<:-uccoE
i
T+~5¢/ 1FEHS<_ 70
ry
T+-66D# @Raj3}.LE
i
T+-888/ KeB L>|H
T+-9X¢1 L2L-EDaT
T+-3:SCH# /CTDCES
O28AR70
§$71512
DATE
Ec NO.
:
-
$4=719306C3) 702
CL 17 THROUGH 32
Se eaeeevreoveeeean eve
L°C2GDCS% 1) D2
OD"*< E>YPEKS J;
QD OAB:-LTGOFDUK<
SC CLE1KaC D.DA+
L* OOAE:~LU3HAEL"
A@: DACECLN3FIBS&
R1*R. & |GOCEQLP3F
IDZLLL-ED:" D2
” /04208* (K<BGCRT
,OH*E,<BGDCL /1C
EF%Q) CH>-38BG SH
L0/+?<E<LO08 Dz-
AC<3_/020( -<=L0
L&@BACH® /1FHOH
*AD=EU 31? (EDLS*B
L*&0BD2*L61L-HD: $
“oc-<iDaeve DLZaE
€D3-—-D#X2D 3 fia
OD 8t+y L2H /{ ]
LPLOIG-C /09=08
*OaPRIC
571516
OSNAY7
FILE CCNTROL UNIT FLT SECTION 2
. OBJECT CARD LISTING
CL 23 THERCUGH 48
SBPedeweeeeeavoavee
ZA 1) CECLP2ESDYs
FR®IG OFDUCLICB GBIKS J*sC D.DAs.
OMAIOOX BYT-TDY-
CL 89 THROUGH £4
Seecevstevetevo vane
L<<BGBIF<C VEDDIM & ABWCPSS"7E" (ED
N(EDO @EGE7R< 16 DDICS E@ICIUE as
70_4C <—AAsS]
¥-_ { OH .OLFIDS
*o<
3 OAEs~-LVLSAEGL
T¥0_;0EH.Papcsse
uDSeey06T} *(930 GDFY@A07T] *<U3F
<* DL, *HERCS: D249
/05-OH* (#8 BGCZE
*OH*ES<BGDI3 1D
2/I1D< EPRBYR* £2
/O0:WOH**3RBSC_S
HOH*JD<BGDIT /1D
~3ZEGD>3E6)S$G6*G ME<FR6) SREFA ORG
EPYCAY 320EH( TS
<,TEUD=0 ( 312DeG
GBzr0S J; 20H*. DEN
20 -#AA} 3*0EL*L-
L6< ACI. sO22(-D LOECOADS-65 JQ (-5
Ec -§360H*IS%B
-~£2608*IS%36C.9
G~ L&<BAC., / IF
AD:P2DA@ /03ECO
-C OLE 1<BOn.
- INDICATES A BLANK COLUPN AND TEE CHARACTERS DE i INDICATE RURERIC SHIFT.
<1 65 aaKQeS Ga 80
‘Paton s wee eee en ee
“> Y= “Ou usHERBGDC,
338
RO OABs~LUOOFBa<
“CISs*se7 aD; CO
~/0_#DH*..%EGD>0_
=e = ee
<BG /,FB_:¥ 4
TDacaY->sar*DoHe
RD:" 707) Bu
" /0#-OH*+=%BEC*|
-OH*JACEGDLC -/1D
DE (~A64GR0;1 E660
LOCEAD*T /O>Zt 4
GCIG: J}OOR*<STY
02/1, CEDL: 14 70ED
HOH*<>-0 DZ~LEEO
KWA}00 D<
ACTS B/@B0130019
WOR 70480130020
Li<
OBD1-3
42a
PROG ID
PAGE
*D8B0130021-
%
3
MS
~
#38
Siphiiee Mac,
&2
Gg
@
ao 9g
QO
i)
oS
1 ee ie A QR ar nvm mcmee mo
ENS Soh tn) eens mare tS raed
» oO « | eovoeeeveneveeeeoeoeoeeoeeeeeeeee @ @
r Neve’
fe — IBM BAINTEBABCE DIAGRHOSTIC PROGRAM PART NG. .
“BAT PRR. Te
+ ean aj neonates pte th eae elk ae tat Scien. Babee rma i cit a
Bian yt BE, ECS, aera, Sica Ty ero ts
5129613 : IBS MAINTENANC. DIAGHOSTIC PROGRAS PART BO. 51296 13
PAGE 13 c & PAGE 438
BO 13 FILE CONTSOL DSIT FLY SECTION 2 B15 PILE CONTROL UNIT PLI SECTION 2
Cc .¢
OBSJECT CARD LISTIEG : | OBJECT CARD LISTING
‘CL 7 THROUGH 16 CL 77 TEROUGH 32 CL 33 THROUGH 48 CTL &9 THROUGH 64 cL 6% THROUGH 80 CL 87 THROUGH 6 | “~ €L 1 THRGUGH 48 CL 17 THROUGH 32 CL 32 THRODGH 498 CL &9 THROUGH 64 CL 65 THROUGH 80 CL 8% THROUGH 96
{
i
g) MS ag re
pena) /OrT{ r LICR TDS*6 /|GUA <?TF TDAMOYING+ HLIA — 6C.6 /FROH*<2TE 57 st2=C <z1+ COHS 78086120022 peg D6 6 - aa & 0 @ pBoi30084
Te-BOCATOYIELSM- L2E4 DAULR< BAC, /VPHOR*<>T2GCIp 7 TOH*BPUDHDAZ -@ G(C* je08RCIS { Ae 2ESEC 130023 : “ geyes a- D S<{ OMOH®EFEDAEDK <-"<BG /YRFIXJOR® BSF~DUE(T JOKE 62 89S BRYBGIIOGUS
ad - * e co 4 e C7 * » ad °
qe-°L/OHE LOU4CB & /EFCA SORSBEDC OOESEHSSCC. 9, 00C pa’. 2EaE-9?7jRAN? AQeSIG~T,OOCHA=. ZEAD K, 380790024 e473) /OHE G@8°RB G /EAGALIOE*S?-B -DB. /0HSY{ 3 70. QECOGHES sOHEGSR MTsCBOHYEP-DYELS = /08 Sbs 20130086
2 ° e - . ° © . ‘e 2 . oe Cc c ° « - ® ° ~ ” e
T4-=4QS$36~],0OC Bo=-26DA GDA EDs EDR EDA, GOCUR*. ZEBE-BPPLAVA EVA SIA CL8 EDA GOR &D 76880130025 TesKQF-DYERT /OL ZASKEYSSG SH-"<B GEOR Stpeoan 43h SSSPREUCOSREFO=3 G_SR643 Gn we BEE f &t¢ PYOBOHIZ00RF
° ° Py “ ° « ° “ ° oe oe Cc. or : o9,
Ter-MPIELR GLK SDA C&f 2@R OFSUSs ¢ 231 S>PRDV BIT ASMC7EDCR1) ~LO¥h ES<2-9720G048 SDA GB 43¥3B0730G26 T+ /LLS (4 22 9C2ZE { % Z25EC4E4) OF (2916 05 (>LO* | EEC 5 EE (L SB4UCRS) SBIBCOSACT 3a_Loaucea_Loauc TSU 3 -9HO130068
* ° e ef ” e a x. e oe < 2 . e © « o 2 e » o «@ _ °
T+ DERA EDA & +) *<G@BGDB! /0H EA-OGHSAS SH-G<E GDB, /OZ=G<pOO(P TE { -08=, EBUCGSKE CU #s ©B0130027 Te/Ns toe BBEN Gr. BBPI 39k S--da~z G~.Pa~B S*R B+. GHADSBANC] *IT@B G Poa<aney GSH IEC €1980130689
_ : ° « ° ° a« « . c € : * 5 . ° ° e . . a ® oo .,
Tey PSYECORN-BRT 0914 DE<. 265600 (- RireS6+.TOPXE( — S+-OBDIOLIOSSDAC L6< ALE? fi 7 L?1IC ™TYBO13002E T4y/NLOW SPR-E<I WHA G+.T0;4USUA = EXITED { 4_{ DELC DIB_EREDCDIBLRESL AGBONED BRI9bHS SF- 7£6B0130950
a, ce 2 i ° 7 ° ° e . * . oo“ « c he « 0 o e —~** oe ” =e ° 2 ” A
Te/arh GO DESLA G DEULKSEO DEOLKEG PLDeZLOTOUD! @AaAy Be DL SDI2 sO7 +8 LU YPHEBIS Lee 2D ® 3eDKRV130029 T2/ODB3,EPAYs 3% 4,° WY BAZS Cf AC3ZLULDICGY AY CFE Lb3dapgBsd oPy/t CKY F- AK-% *ECH 5-£BO130054
TA/BSRUOCEY LOKB GDGE2BALESECLOLE TraceBjemDe sth Ri *EERBGC.QE AS DOES<F~C DM LUCE TDs& 29030730030 ; ~ meyot~ EXZWQDD< FGVZE LACLDI<LD 1<4 DFo WE 026 6 6F- 76 025 523R 26 BEEE-26 R62 * -H GE-B0130052
. = * ° . c e om oo - 2 o o - a cd cd one eer e ae oe °
gesCOcd opnaa4 co D GREBGC.Y< JC{ DEG /ICHCHALYCETDs# @RR+-+7CLTEOEDSD LESBACHS JUFHOHS <,TY *RQBO13003% qTeyeeDA ENSE 7 CCY CTQE tM¥r- £6 Y20 XE ¥E CD EF Eas * PORE LC IDSESDIDI P/F 2y¥ ©3DB0 120053
. ° - * . « - - c: . ee . % o ° a » oe &
*Tt/Des S"2y { -2* GC. S85 5844 (-aE GC.8eé/UsGORe<K?TO GCX sO254Z { 725 GC.928 SMOReCTTS sc;*. 29680436052 TeyOS AY NYei/G DE { KPEQDDESA- C agé COY B/DIDID JIDSDIDIED C GDIL IDIDIDGDIDGDIOLD Jeye S¥S50720058
7 - ‘Sey e e a“ ‘‘ « « a °
T+ /EWORY (F-OITLEE LELQGDF, f iARIR= casgaptt 0S2¢E¢ LNLFUDS* 72a ( BONS PYCREC“AZAEKTOLN GRB48 K #BO73G6633 7 : (Te sROBREQHBEIEEC JSKEISBEJ£SES; BO RELMIDLDIDIEIORY /DBCLDIKLDG<IS JDJ SUSESE- FoR 3550 28880135055
ws im * , oo ise 7 7 ° . ie ~ - , ° ° é c ad ° we . o Ce ~* Or ge
Regh/ AVOOEDS>ES GDO, fG225CN SHA je-Ke~AG-C3YDA! 2/708 KLROnFHT OO BOAMKR-G DVHKNCS kDVD SKSEOTSOSSS : Te fEDEY> SHLD OPWY BADI<INE 48 wasS E- &(GDR¢OE JDIDSP CIP ISS SGEL AVSANEISEE Send NHS80730055
rr sis a 4: - : 2 2d F . we J “se ‘stags s € . CC v < = ar : aes ” a
De/GeC CKP/EDKEE KRZETDVUEK/aP 40D RCCBWD HD OZALUC RRS QH¥ 8G/- KR/ ii FOROR. -OCDRAL=-G ELAN =39 20420935 TesSUENEIMREGANE SMRESOINN (OY DID J<IEGEIDILIBI“LIG IDEDICIBFG-AZ YG RE- R(GDReIDILID IBID 30 84735057 "
- é ° o « « a « _* as ~ £ f. oe woe - ie* . eoce_e ee ae ae os
T4+/HPDERZEBIZC £ KVIESC DKTIESC D KSIERC DK“ TERGER S-€F-DQg /OBE KG RVETIBDO HSH BPH’ G+ NEO1 30036 Tese/DEDSDIDIDED SEIDSDSF BB - = Baad ELDICLI- Sey GEEB2¢ FEESRZKI;RBY BD +FO £062013005E
, . * ° ° o ane wenane = 4 - 2 . ° ee ~ e se oo,
T (G5 (E/1 (O8* BF /P /OHSY G /OBOHe Ka GEDWALEREGT) ¥ GFPLaZGCEBCaQ+s B9~T,O5CUS*.2 30086 720837 Tesp*OuN* SEA SD A EDAEVPQADI<IDID SUGE;3 16. *-AuY SUELT2ZAERSEDEL = JOdE;S~ ACE,7 SE SE?H £xY<80130053
. arevansanue BOLO aH OHAAHAD ME eo aeee we nmavranm en ewer neee ow se se evrecre ct ousnre Ge ourrre = = . ~ - « one wes ee « « ie. i > ae: -~ ~ < ig
T ATK . GHHB9150033 Te/gy SLEDS BGA GESBA 2a RrE?B HEOATILTA IDI ODRY E?HA BYE*KZSjIE ANV9W.-E RADE ERGY SIZBG 730066
o * ed “ ~ « » e oe ra . o co. ° ° o e n 2
noyek CERD,D< 1] DOI, SIRT -K7G0 CEOSLETTHDSS3= C fis GEPRICGHDIS © ALBD(-O%7e-CCH LIA< 2EREOIS9039 * ~ me yeKMOLIDADIDID JHSIL*ODIDIJOIBIT IJPSRD BIBIDGDID sDIDIDR GDA KBVZ 7F- DDS JUGHEE-& nepn 62020730087
My * . = =. oo =? _ 2 . ac eeue ° ae o v. a —~=* 2%? @ _ * “ew « ~* eanea oe
*wef (6% ADO /D8 Eti-~LAD EOR*BHD BORt Ce TFRUDI, SY © foED qed a 6 PPP KACSOC- EDLC DAY ;2RBOISVCHS Tey (EC ERGHEANTS BD IRGHZD EH GEE BSEEASRISE- sS8 BEXERERE G &- BD D BEY eeY GE NK~E KcCBBC130062
ed as one naw ° 2 . : 62x oF G = ae _** o _* hea oe oe -. e “ai oe ou « a 2
Te/(H2RBGDOD BA jBLFECTAaIC Qayczeycoapcosayc O@ 'CaBiCUo wpe sajze CayeGaicGaycogic OB RAGEOTS OSI Te/fEEA-GBSAKEUQ +R VE TREEaPa & E -SED YALE E- 6D4 GDA EDAE SC RABGREASSY~ OF Ob 3,82G130002
: awe - wewa ove « scwnen aoe “ww ow eon ~ 2% * c Cc . ve o -_** o = vor © ~** © o ”
T+/sCapcos@-BT Bw 9° aJgs8 ” GOGE T*R @& B a-QOOAH EG ag. ~T°B 5 C <BYS ¥,0B88330042 T+/SC5RBZ> Aan? QESEQSNEGHESESHNE SEWY* GRD HR(OZ 2 JIP"OCHGEDVACF, & Qdersyd BA OY * ED %--Bd130068
rit . o o. co eenert ceoaver ¢ weowwnre wav ovee OSH OHSANRBALCHSAED aea re Cc ¢ 5 ees OS® - noe e - “oe e -— * Pr we awe Ad * © ? 2 :
Hiv? A~-A*DYEF / HDBYG+S HHAYOF TT — Cc D AR @ODEC1 35043 T+/S=E- ADPH DOAN GC Qs oy+ JH2C30 BE~eA(O,”* guva b WE-SB<FY JAD 2@ EDA BDE SDA GDA <a G1SBGI3G9E5
3 2 co @ =
DATE O2HaRTS OTAPR7O O6NAY 7G 0450270 PROG ID oBci-3 DATE O2KAF70 GIAFRTO O6HAYTS O1IOL7IO PROG XID oB01-3
EC NO, 571512 571516 571573 571526 PAGE 13 EC WO. 571512 571516 571513 571528 PAGE 13a =
G € o -
o 2
C C a
C; cy a
C C o
i? Cc
pa RETY RA SLANG CASAL MEDS ERA a She ge. = 7
Sen here tn dearncn ate 3 Se area cian ic hadegein te Silvia daca th aaaaa aan aaa Seana ta pein ame Sento Bar sagem See,
cn ce
s annie eee
TH MAINTEVANCE DIAGNOSTIC PROGRAL PART 8. 5729613
PAGE 18
80 43 PULE CONTROL BRIT FLT SECTION 2
ORGECT CARD LISTING
io}
{ a
ot
+3
mG
rca]
Oo
e3
to)
a
val
Oe
CL 17 THROUGR 32 CL 32 IBEGUSH SS CL &S THROUGH 64 CL 65 THRGUCE 80 CL BY THROTVEHR &6
©
*Ts/T9E" BSDAES- GEAKMNEGHNEIEN{ GMNECUK@+F-1D HE H(O2* GVDCODSED< ACE, # GED A BDA EDA ~QG ESTING
.
° e « « *
*Tey DA RSECA A ED & GEES-SEQP,- fE b~ G~BEY ECRIGGR SpapseapsDIpsosD SDREAC/ESCYUBE BELN E16#0130067
” € eof * ane
x
TepVPEY ADO,” SE DnOdiE?eavssBieg Es-eboey E- a my OxyuncsxiuvowE- Besde Poe P-Heksa
&
23H H6720068
sve ee a +
*qe/¥h EGCID §& GHA OVARSDSDINID 2<e¥. NZD SEIN GOIBRFOY GMEEDD GPODIFLE PINODSD 5 OY C8YBOIZGGS9
a - 2 o
Ts/EVOUMSLIDIDAD SDS GSADSDADIDA TH-ADMODAK-D=6 BH SE/REE- ADIDGDST IDSC; RPEFDGOETALR Ww & Rr OROTICOTES
nm «CP 2 ee 2 ” = a3 Pe ca we Sas * : io t
Te/%-E~ BED KCRS DEGHSESMNEIMNE LEREGHRE:DVZDC~B ESEBA SDA NBRPAL SMSEVSAFO,? 32 DEG SQOYEOT2OG7 3 ‘
f
® * @ ° « * © ee we > ae ’ as ae es %
S+tVSECE,S GDACH, © J KPa BBR CRY BY JSACEDISICAD KPWY ~DAE-3A OF GE2 2@HE- BLQE BYO< GB- BOISGOT ES
- s aod ae eee eowe a aet Coot we OHRwetw eT BODE i i ad eee Rr 7 |
VESSZELBIDUSD'SS SDaSSDA CPG S520 S<AK BYES EOCTS
6 4 OOS ewew Gran Se Ser PK en He Drv on .
SPOR BEM C ATMO Oe cumesnsweras anes ene ease aansee daw eae en ‘
5 ks Hp BEOTIIGTS
a : &
= Seu ee ea BO as eo err eb awn oveoe te meter t eee Doedpves Be sewer re eve FAS SLC HORRHTRBHH DEM OS wanes s
T BOA S3yBOWIOFS
noun BHR we gee -eas « swe OH ee BevTeBe er nore
EMU a EP Oo APOML ES KA TREP A 4 £ ER 4a3C RA S & OSSEG50717T 9G 71075780 82430976—
nf
se
eM
see
oy aay
“7 gr me &
Cy
cy
cae wn ae ee me ere con ants ne or en ees oe ee ee en en cree ne mem ERSP PAGE ween ee ee eee re et a ee ee rm mmm mem eee OS
rie
; : Xe
DAGE O28AR76 OVAPRIG Q6ERY7S 04150179 . PROG ID oBG1~3
‘ BC 80. 577872 577516 594513 ' 577528 PAGE / 94
F t
*oy
@ | &
S, 28 = | : c
S®eeoneanvneeoetgeeeaeaeaeeeeeneeeeneeeee >
pe5ao5noea5neeeeeeeee eee € eeoe5aannenenennnene
TRAM SAINTENANCE DIAGNOSTIC PROGRAH
2036
PR Loc
0000
Oa00
OA00
Oad2
O03
Ox04
OR06
0a 08
Oaoa
OAQD
0A10
OA14a
OAs
Oa1c
ORIP
0a23
O26
GA2A
GBA2E
OA32
OA36
OASA
DAZE
OAu1
OAuS
OAS?
OAuB
Oage
GAS1
0254
OA5?7
OASA
OASE
OA62
0163
OA6a
OAG6
OAGA
OA70
OATS
OA 76
OA7B
OATF
OA82
0a87
OASB
OASE
0ag1
0295
0ag8s
OASC
OAA1
BATE
tc #0.
SEEK FUNCTION TEST
OBJECT CODE
A036
00
01
0000
OBA2
0000
Acs000
BO1C00
34
3¢
38
F2
3D
F2
c2
34
35
C2
3c
38
F2
7D
F2
38
F2
7D
F2
78
D2
co
co
06
1A
08
FF
FF
10
00
014
01
01
01
02
00
02
10
AO
81
01
10
BO
81
10
01
90
87
OB6A
3¢
oc
co
00
01
87
coa0
88
3¢
P2
88
3c
78
F2
3¢
D2
38
28
28
138 AR 70
571512
00
Fi
87
00
F2
01
90
YF
01
01
00
00
ADDR
OA01
OA02
OA03
Oa0S
OA07
OA09
Oaoc
OA OF
OB15S
0518
0B17
OBA!
08
0232
OBA
OBA1
1CDt
OB 16
0208
06
00
2P
0208
06
00
2E
01
03
OA2A
O214A
OAS2
0A63
Oa65
0518
OBA!
022A
OD61
OATS
00 OBA
0B50
13
00 OBS
0850
02
04
0B16
03
OBA1
OBB3 00
1CF7 00
018AR71
571573
PART HO. 5
PAGE
129628
1
STMT SOURCE STATEBRENT
2 DECK 4
3 a03 START 0
Q ORG x*0a00°
5 HERE EERE SEES EEEESEESE CERES SERS SEES ESERERESESSSSTSESEEHETESS SEERE TESTES
6 + SECTION PREFACE s
7] eeene eee
*8 bc XL2*A036° PROGRAM ID
9 pc XL7°00* SECTICH PLAGS
10 pc XL1°O18 CURRENT ROUTIBE NUMBER
11 DC XL2*00°* RESERVED
12 pc AL2 (RTN1) ADDRESS OF FIRST ROUTINE PREFIZ
43 bc AL2 (*-*) ADDRESS OF ERROR RE
14 UNA bc XL3*a08000
*15 pc XL3*BO1000°
16
a7 = OPERATING INSTRUCTIONS
18
19 1. SET SWITCH 1E TO BYPASS RUNNING ON DISK DRIVE 1
*20 * 2. SET SWITCH 1F TO BYPASS RUNNING O8 DISK DRIVE 2
*21 * 3. SET SWITCH 15 TO BYPASS USING HEADS O AUD 1 s
22 * 4. SET SWITCH 16 TO BYPASS USING HEADS 2 AND 3 s
23
2% SETDSK ST SETEXT+3,ARR SAVE EXIT ADDRESS
25 SVI SETSW,X°FF® SET SETUP SWITCH
26 TBH SKPUDT, X° PF* TEST THE SKIP UDT FLAG
27 JT PRTS PN JOSP IF OF
28 CLI UDTPTR,0O HAS POINTER BEEW INITIALIZED ?
29 JNE OFIND1 JUSP IP YES
30
31 LA UTAB,XR1 LOAD XR1 IPF 40
32 UPIND2 ST ODTPTE, Xh1
33 OFIND? L UDTPTR, XR1
34 LA LDFCR*¢1,X22
35 SSVI RENVDS,0
36 TBN SWITCHE3, X*02* TEST SSW 1E
37 JT +9 JUNP IP ON, NEVER BON DISK 1
38 CLI O(,XB1),xX*a0?* TEST POR UBRIT ADDRESS OF *A
*39 JE SETA JUMP EF THERE IS ONE
40 TBN SWITCH?3,X*O1* TEST SSW iF :
a1 JT #49 JUMP IF CB, NEVER RUN DISK 2
42 cLI O(,%81) ,xX*BO! TEST FOR A UNIT ADDRESS OF *85
*83 JE SETB JUSP IF THERE IS ORE
ay
a5 TBN 1(,XR1) ,x*10* TEST FOR LAST ENTRY
46 LA 3(,XR1) ,XR1 STEP POINTER TO WEXT ENTRY
a7 BF OPIND2 CONTINUE IF NOT THE LAS® OWE
4B B PRINT TO PEIUT ALL UNITS TESTED
ag pc IL1*06° FLAGS
50 pc IL 1° 26* LENGTH
4 pc AL2 (NOUNIT) BESSAGE ADDRESS
52 AvI SETSW,0
53 aAvC UDIPTR (2) , ZERO
5& B LOAD NO ENTRYS LEFT
55 pc XL2*40* FLAGS
56
57 SETA AZZ 0(, XR 2) ,SPNDLA SET POR SPISDLE A.
58 avrI SPNSSG,C*1
*59 J SETBTH PROCEED
60 SETB AZZ 0(,XR2) ,SPHDLB SET POR SPINDLE B.
61 AVI SPHESG,C*2°
*62 TBN 2(,XR1) -X*01° TEST GPTION BIT FOR REHV. ORLY
63 JF SETBTH JOMP IF NOT OF
64 avi RENYDS, X* FF* SET BIT TO SPECIFY REHOVABLE ONLY
65 SETBTH LA 3(,XR1) ,XB1 STEP UDT POINTER ¢3
pe st UDTPTR, XB 1 STORE FOR WEXT PASS
6
68 AZZ LDFDR+1,0 (,X R2) SET POR CURRENT SPINDLE
69 8ZZ SIO¢1,0(,XB2) SET FOR CURRENT SPISDLE
290CT71 15 N0V71 ISMAR72 PROG ID GA03~-6
571601 571605 571591 PAGE 1
&
ee
a
ha
nerenidahe ie ah dOIn eve
0 reo pageeneepeena. =
ey
IBM MAINTENANCE DIAGNOSTIC PROGRAA
A036
ERR Loc
OAA6
OAAB
0RBO
OaBS
OABA
OABE
OAEF
Oac3
OAC?
OACA
OACE
OAD2
OAD3
OADS
OAD6
OADA
OADB
OaDC
OADE
OAE2
OAF6
OAEA
OAEE
OAP2
OAF6
OAFA
OAFE
ORO2
OBO3
OROY
OBOE
(BOS
oscCc
OBOE
OR12
0B16
0817
0B 18
0Bi9
OBA
OBIB
OB1IC
OB24
OB2C
OB34
0839
ORY?
OBS9
0851
ORSS
0861
OB69
OR6R
0B73
OB7B
0B83
OBSR
0B93
OB9SB
0B9C
ORAO
DATE
Ec wo.
SFEK FONCTION
OBJECT CODE
00
co
09
co
87
ICFA
1D11
ICTA
OBAFP
1C0O7
00
00
00
00
CB
08
90
67
87
0619
1c5D
04
0B19
O21A
O214A
IDBS
OAE6
D190
OBOE
0B18
0B17
TB6C
1£a5
O24A
35
OROP
aoes
co 87
aoss
3c CO
co 87
co
00
oo
00
AO
BO
C2CSCICIDSVOEIZCS
CS5SD240C6 F&D5C3 E3
CIDEDSYOE 3C SE 2E 3
8OCIFOF36B
DSDEEGNOE 3C5E2E3
CICSCIUOCYUCIE2ZD2
SOC4DIC 9ESC5S80E7
CIDIDISOEYDSCIE3
E240C8C1TE5CS480C2
CSCSDS4OE3ICSE2ZF3
csca
CHCOE2ZD2Z40D5SD6E3
YOL9SCSC IC UERBS ODE
DIVOEZDED3ICICK4O
CSDIDIDSDIGODODS
§0C2C5C6D6D9C580
E2E3C 1D9P 3IC9DSC7
4&0
E3CSE2E3
09000
0222
OBIT
0000
T3MAR70
$71512
OINART
5971573
TEST
ADDR
OABE
OAD2
OAD3
OADS
OADA
OADS
OADD
0B02
0803
0805
ORnO7
OB0D
OBT6
OR17
Cais
0815
OBIA
OBIB
0B38
CBSO
OB6A
OB9B
OBYP
OFA!
0232
1
WAI T+ 7,0(,XR2)
TSTERR¢1,0 (,XR2)
SNS#1,0 (,XB2)
RLDPCR¢1,0 (, XB2)
SESE
XL 1°02?
TRACK®, 203
STATUS, X* 08°
PRTS PN
TRACK#, 103
PRIUT
XL1*01°
IL1°29°
AL2 (SECHSG)
XL1*°06
*IL1¢24°
AL2 (S PUHSG)
PRSTPS,0
INTERR-8,¥R2
TST ERR
SKPEXT
SETSW,0
SKPUDT,X*FF?
SWSID,X*88°
PRTSNS
PRIET
XL1°C6!
IL1*53°
AL2(PSTERB)
XL2°a088
*HALT
XL2°a088°
SKPODT ,0
n-€
IL7°Q°
IL1¢O8
XL1°08
ZL1°00°
XL1°70°
XL1*BO
*S
PART NO. 9129628 |
FAGE a
SET
S&T
SET
SET
POR
POR
POR
FOR
CURRENT SPIUDLE
CURRENT SPINDLE
CURRENT SPISDLE
CURRENT SPIRDLE
ASK POR DEVICE STATUS BYTES 0 6 1,
SET POR FULL CAPACITY DISK
TEST CYL 100 BIT
IP OPF, CONTINUE
SET POR HALF CAPACITY DISK
TO PRINT SECTION HEADING
FLAGS
LENGTH
MESSAGE ADDRESS
TO PRINT SPINDLE
FLAGS
LENGTS
MESSAGE ADDRESS
SET SWITCH POR RECALISRATE
LOAD RETURN ADDRESS IM XR2
TO TBST FOR INITIAL ERROR
GOOD RETURN
ERROR RETURS
SET THE SKIP UDT
PUT ID IN SESSE
TO TEST FOR ANY IRIT’AL STATOS
TO PRINT INITIAL SRROR
PLAGS
L ENGTS
BESSAGE ADDRESS
MESSAGE ID
TO DCP ERROR HALT
HALT ID
RESET THE SKIP UDT FLAG 2B
Exit ae
PLAG
CL29*BEGIN SEEK FONCTION TEST A03,°
CL26*NOW TESTING DISK DRIVE X® '
CL26'ALL UNITS HAVE BEEN TESTED
*CL89*DISK NOT READY OR SOLID ERROR OW BEFORE
CLS*Tzst
*IL2*o°
*x°232°
ISNART2
571591
STAT SOURCE STATERENT
70 822
71 N22
72 B2ZZ
73 4ZZ
7a B
75 oc
76 AVI
77 TBR
78 JP
79 NVI
80 PRTSPR B
81 DC
82 oc
83 oe
6a B
85 be
8h pc
87 pe
88 avr
89 LA
90 B
91 B
92 INTERR BVI
93 avy
94 AVY
95 B
96 B
97 bc
98 bc
99 DC
100 pc
101 8
102 DC
1023 SKPEXT AVI
104 SETEXT B
105 RESVDS DC
106 SKPUDT DC
107 SETS DC
108 TRACK® DC
109 SPNDLA DC
110 SPNDLB DC
171 SECHSS DC
141
1941
111
132 SPNASG DC
112
112
113 NOUNIT DC
193
113
113
14 oc
114
114
178
178
114
178
115 PSTERR DC
176 UDTPTR DC
117 UTAB fou
290CT71 1SN0OV71
571601 571605
STARTISG ¢
wat
tard
PROG ID
PAGE
0203-6
WA
Shee
5129628
NTENANCE DIAGNOSTIC PROGRAM PART HO.
IBA SAINTENANCP DIAGNCSTIC PROGRAM elas KO. aianess TRA BALTEENS I pace 28
A036 SEEK PUNCTION ‘TEST apae BERD: SEUNG TION Eee
ERR LOC agaee CODE . ADDR STMT SOURCE STAT ENERT ERR LOC OSJFCT CODE ADDR STST SOURCE STATERERT
COP WHILE On
119 * ROUTINE NO. O1, CHECK SETTING OF CYLINDER ZERO SENSE BIT Geer ae he ed rae aus erarde cue ua br EV CuDER G. BaS: BORO ORE
v0 * CHECK RESETTING OF CYLINDER ZERO SHS BIT cee als +a6 a Sees SOnP TP OFF
OC4’B CO 87 021A 190 B PRIUT TO
ee : hon pe neee OcauC co ocac 191 pc XL1°C6* ental
e e
oe Rete. eee ee eo a ey lic ace” ache nose ae toa te Aro eeroet) ADDRESS OF LAST PRINT CHARACTER
OBA3 00 OBA3 125 pc XL1*00° Rov 2 ‘ : Bp eeeace Fo
OcSO A006 0c51 194 Dc XL2*A006
OBAS ODE2 OBAS us pc AL2 (RTN2) ADDRESS OP NEXT ROUTINE pea eae ae : ee 0 DCP BERR enim
8 s
OBA6 3D CO 0818 128 BEGIN CLI SETSWH,0 HAVE PARAMETERS BEES ENTERED? O0C5S6 A006 0c57 a8 pc XL2°a00€
Eee OL ORNS a r ae Rage, me 0c58 3C CO iC5D. 198 RTN1A2 SVI STATUS,O ee ce
OBAE 31 A6 DBD 131 RLDFCR LIO DPCR,X*A6* LOAD DATA CONTROL REGISTER ocSc CC 87 1€21 199 ; B oe. eOrEEUSE 1/0 SUEECUSIOE
OP#2 37 AS IDBP 132 LDPDR LIO DPFDR,X‘A? LOAD DATA REGISTER O0c60 CO 87 1C07 200 RTNTA3 B BERLE eSACUC. Eee 01 ei4
ORF6 CO 87 1C07 133 B SENSE TO SENSE DEVICE Status . OCc6s 02 oceu es BC AL1 (STATO 1) . °
XL1°03¢ DEVICE STATUS BYTES 2 & 3
ee eo 87 1Cc07 — ‘as as SENSE TO SENSE DEVICE STATUS Oc6S 38 10 1C5D z) tee Steere trae eerie ton BIT
OBBF 02 OBBF 136 pc 1L1°02° DEVICE STATUS BYTES 1 & 2 oc6é9 CO 10 0C60 204 wens ane pr Ocel Aula ee: Ostet Pon Oe
OBCO 38 10 1¢5D 137 TBN STATUS,X*10° TEST THE SEEK BUSY SENSE BIT OC6D 38 90 1C5D ae fe Suan ° Nee PRIOR
OBC4U P2 90 13 138 JP SK BSYA JUNP IP OFF OC71 F2 10 10 ae
TO PRINT SEEK BUSY RUNG UP
eae oh oe OBCB ‘oe = ve atees LAGS OC74 CO 87 O21A 208 B PRINT : a0. Falee ERROR
OBCC 1B OBCC 141 DC IL1*27° LENGTH OC78 C6 — a = eyes eacea
OBCD OCA2 OBCE 182 pc AL2 (SEKMSG) MESSAGE ADDRESS tad eaie Rese ae re si 2 (eanoes) TDDRESS OP LAST PRINS CHLRACTES
XL2*AVSA® MESSAGE ID
onph eo 0222 ; vk = aie TO DCP ERROR HALT OC7C A005 OCc7D 212 DC XL2*a005° te cee aaaGe er
1485 pc XIL2*AQOBAt HALT ID OC7E CO 87 0222 213 B HALT
eer Bee | 1 c XL2°A005° HALT ID
OBD7 F2 87 AA 146 3 RTNIB TO EXIT | Oc82 A005 0c 83 See D
187
ORDA CO 87 1¢21 148 SKBSYA B RECALB TO RECALIBRATE SUBROUTINE _ oc84a CO A? 0715 a RTWIB B LINK 4
OBDE 3c 09 1£6C i, RTRIA AVI SNSID,09 SET ID IN SENSE PRIWT ; OC®°8 PICSCSD28O0C2ZESE2 OCA2 218 SEKMSSG DC CL27*SFEK BUSY SERSE BIT HUNG OP
*OBF2 3C 01 1C62 151 NVI WRTDFC+1,1 SET CYLIEDER NO. 2 ocan Sea yeRCaeuncet oa
OFRE6 CO 87 1CB2 152 B STRTIO TO SEEK AWAY FROM BORE See oyna CB8END ota
eoe ODE, (C o
See oe eas Mas ne a pawrcor econ eae _ ‘ . OCA3 E2CSC5D240C2ZE8E2 OCC& 219 NOSKBY DC CL39*°SEEK BUSY SENSE BIT HEYER COSES UP* 7
OBEC 1c61 OBED 155 Dc AL 2 (WRTDFC) CONTROL FIELD ADDRESS : OCAB Be ces eacececce a.
OPEF CO 87 OCOC 156 B RTN1TA1 GOOD RETURN 0cB3 peeces DSC ae a3 ;
OBF2 CO 87 1E85 157 B PRTSNS TO DECODE ERROR er = see aaa D6DYUC5E Sie
| oO CONV RESS
osré ao 1P8C aa 1 5 co wanes EBS aed OCC5 CSDIDIDEDIE2U0DE OCE2 220 DC CL30*ERRORS OCCURRED AFTER DOING A * ’
ORFC 14A7 OBFD 160 pc AL2 (ERRORY) DESTINATION ADDRESS ° Acne ice eae occa ne
OBPE CO 87 027A 161 B PRINT TO PRINT ERROR Nene coneciescsns 550
0C02 06 0CO2 162 pc XL1*06° FLAGS Bey eeRrEC we eae ‘a
0c03 26 0C03 163 pe IL 7°38? LENGTH « OCE3 DICSCICID3IAB oczs 2° RECAL 2 ° udp Sten 4 eescoe MeeEN 3
OcOs 14A7 ocosS) «164 pc AL2 (ERRORY) MESSAGE ADDRESS > OCES CIERDIXBYOPONOCZ ODIS 222 oc CLUS*CYL. O BIT, (1), IM SE
0C06 CO 87 0222 165 B HALT TO DCP ERROB HALT ae Bec apcanioncse. oS 7 :
OCOA A009 OCOB 166 DC XL2*A009* HALT ID : : ; "
167 0D01 CS480C 2ESE 3C540F 22
OcOc C2 01 2328 168 RTNIA1 LA 9000,XR1 LOAD DELAY FACTOR IN X81 ae eee eenan oo5 ;
n ”
mei a oe et 0c14 130 a panos Siae er Oe eae eae € 0D16 4OD9C5C3C1D38B ODIC 223 ERRORS DC CL7* RECAL.* fuaehesennes
0C15 38 10 1¢5D 171 TBN STATUS.xX* 108 TEST POR SEEK BUSY ODID C3ESD34B49PO40C2 Opa? 224 pc CLO3°CYL. O BIT, (1), IB SENSE BYTE Es :
e
0c19 F2 10 18 172 ST RTROAI JUSP IP IT COMES UP z 0025 CIE36 340ULPISDEB o. }
173 OD2D SOC9DSSOE2CSD5E2 a28 :
Ocic 36 01 17E2 174 A REG1,XR1 DECREMEST DELAY COUNTER Se Doieceniccence> oa :
0C20 CO 84 0C10 175 BH RTN 1A1¢8 BRANCH BACK IF NOT DONE 2 : ae E OpouE cic oi
176
Oc2& CO 87 O21A 197 8B PRINT TO PRINT SEEK BUSY NEVER CORES UP OD&B BOCIC6E3ICSD340CC1 ODSE 225 ERRORG DC CL23* APTER & SEEK TO CYL. 7°
0C28 Cb ocz8 178 pc XL1°Co? FLAGS ‘3 0D50 4OF2ZC5SCSD280E3D6 225 ;
0c259 22 0C29 179 pc IL 1 348 LENGTH = O0D58 SOCJESD34B4N OF 4 Soe = eons re
OC2A OCC4 0C2B 180 pc AL2 (HOSKBY) BESSAGE ADDRESS ODSF co000d
Oc2c a0Oc oc2D 181 pc XL2*A00C® SESSAGE ID e e
OC2E CO 87 0222 182 B HALT TO DCP ERROR HALT ”
0C32 acoc 0C33 183 DC XL2*a00c? HALT ID . ;
0c38 CO 87 1C07 184 RTNGAT B SENSE TO SENSE 1/0 SUBROUTINE « a | ;
0C38 02 0C38 185 pc AL1 (STATO 1) DEVICE STATUS, BYTES 0 & 1. =
0c39 38 10 1C5D 186, TBN STATOS,X*10° TEST SEEK BUSY BIT = x
S é hs
DATE 134AR70 O1MAR71 290CT71 —s-15NOW71—s« USAR 72 PROG ID 0a03-6 DATE 613MAR70 = OTMAR7? = 290CT71 = 1SNOW71— 1SBART2Z oe ee
£C NO. 571512 571573 571601 571605 571591 PAGE 2 2 S EC WO. 571512 571573 571601 571605 271591 é
= ¢ i a
J
®
j
Tee a Nec gee
S036
ERR LOC.
0D62
' @D63
O64
Ones :
ODGA
». ODEE
OD72
OD76
oD79
ODTD ©
Ope
ODnss
“ODBSC »
0D90
OD94
OD98 3
ODIC
ODAO
-O.DA3
> ODA?
ODAB
ODAE
ODE2
. ODBE
- ODBA
ODEF
oy ODCE:,
ODC9 ©
. OpeD
-OBCE
ODCF
- OpD1
OpDs
QpD9
ODDD
- ODE1
ODE2
. ODES
‘ODES
ODES
ODED
ODFO
ODF4
ODFs.
ODFS
ODFE
O£01
O£05
-OEO8
OPOB
OEOE
OET1
OES
OE 18
DATE
EC wo.
“SEEK ‘PONCTION rest”
OBJECT CODE ADDR Stat |
. 228
*229
230
oe 231
02. OD62 232 RTH2
oo. 0D63 233
OFFS - Op65 234
"235
3D CO. OB Te. 236
co 81 0A10 237.
co 87 1€21 238
239 a
C2 01 OEF2 280 RTH2A
yo 00-17 | 281
sc t% 16 17 242°
34 61 OFFS 243
C2 02 OFEC . 264
38 04 020A 285
F210 08 246
C2 02 OFFS 247
38 02 OFE3 . 288 area
3c CO 1C62 249
3c 00 OFFA 250
38 02 O20A 251 ¢
F2.10 OR 252
. 253.
C2 02 OFOA 258
3D 00 0B 16 _255.
P2 81 08 "256
C2 02 OEFE | 257 RIN2A2
3% 02 CPOB’ : 258°.
a Tet Et Ee. Se se
35 02 OFE3 --260 RTN2B
2C.00 1c63-€0 . " 261 ba
2c CO 1DBB 64 .26F es
2c 00 ODpA 52 * 2603p
co 87°4cB2. OR
00. ; SCBCD .265
00 _ODCE 266° .
acét CDDO . 267. o
co 87 ODDS 268 —°
*CO 87 ODDY "2690.
ves 270.
3c 00 1¢67 _ 271 RTK2C
cO 87 1C82 e, 4 272
91 - ODE1 273
O17. - ODE2 274%
1C65 ODEs 275
CO 87 ODFO oe 276
277
35 01 OFFS _ 278
7¢ FP 00 279
ieee "280:
35 01 OFES 281 R2TN2D
3D. FF 1C66 . 282
#2 01 06 . 283
7C FF 01 264
F2 87 2E. "285
. 286
3D 00 1C66 287 RTNZE
F2 8106 — 288
7C FF 02 289
F2 87 03 290
: 291
7C PF O48 292 RTN2F
3D CO 1C€63 293
F2 81 07 298
38 80 1C67 298
138AR70 O1MAR71 290CT71
$71512 . $71573 571601
STarenest
TBE
st
SSVI
avI
TBN
JT
LA
La.
ST
#VC
mYC
_ a¥e
B
oc .
DC,
‘bc
B
L
VI
L
+ CLE
SRE.
NVI
J
CuI
JF
aiviT
J
AVI
CLI
JE
TBN
ISNOVT1I
571605
CLI
a9
“RTNZC
AVI
ROUTINE nO, 02, CHECK
ROUTINE ‘PREFACE
XL7*02
*XL2*00"
. AL2 (R793)
SETSH,O -
SETDSK
RECALB
SDNASK, 181.
23( XRD.
22 (23, I ele
MASKPT, 1B
SELRED+6, XB2
‘ SECTS H,X* O48?
PTRZA1
SELHED,XR2
SEDPTR, XR2
BRT DOFC+1,0
RTNERR,O
SECTS, X*02°
RT AZ a
e
HDMASKe24, 7P2-
RENYDS ,O
HDAMASK? 12, XR2
HEDEND,ZR2
HEDPTR,XR2
WERTDPC+2(1) .0(, X82)
DISKTP(1) ¥1(,XR2).
RTR2C+1(1), 2 (6x2)
. STRTIO
%L7°9
*XL7*oO? |
AL2 (WRTDFCY
we
RDDPC+2, eae 7s
: STRTIO
' XL 499018
XL1°01
*AL2 (RDDFC)-
RTK2D.
MASKET, IR“
0(,XR1) -X°FF
*MASKPT,XE1
RDDPC+1,X°PF
*BIa2E
1(,%R1)
RT N2G+3
eX°PF®
RDDFC+1,0
RT N2P
2(eIR1) -X*PF®
$26
4(,XR1) ,X°PP®
WRT DPC+2,0
*+10
RDDFC#2,%°80°
ISMART2
571591
“LOAD
TEST
JUMP
LOAD TABLE POINTER ==
IF 50,
x aut HEADS -POR CORRECT OPERATION
cuit eee fo a
ROUTINE NONSER
ROUTINE FLAGS
ADDRESS OF NEXT sonrzeE
RAVE PARAMETERS BEEN ‘eeteRED?
- BRANCH IF xO
TO RECALIBRATE SUBROUTINE |
SET £281 TO POERT TS. ‘para TABLE
ZERO o
DATA TABLE sy oe
SA¥E DATA TABLE POTNTER
LOAD HEAD SELECT FOR FIXED DISK O¥LY
TEST SSW FOR BYPASS BUM RENGVABLE
JUSP IF of
SET UP HEAD SELECT
TABLE POISTER aaa
SET POR CYLINDER 0
ZERO
TEST
Jump
ROUTINE ERROR s¥ITca
SS FoR Breese RUA FIRED”
Last ENTRY ron = BEADS.
POR A & DEAD DISK - s
IP THIS IS ONE. ee os
LAST ENTRY POR 2 ‘HEADS
LOAD
‘STORE ENDING VALUR ee ae
“LOAD BEAD SELECT POSTER
(SET CURRENT HEAD 7 8
“SET CORRENT DISK =. ee
PUT HEAD RESET BIT 19: avr
TO SEEK oa
. FUNCTION CODE, ACONTROL) rt aig
CONTROL CODE, - (SEEK). | ise Peay siege oF
CONTROL FIELD ADDRESS pr tees Se
GOOD SETURN
ERROR RETURE ee. ;
RESET HEAD BIT iu READ agza - ew ee
TO BEAD ID . e eel
FUNCTION CODE, (RB20) a a :
CONTEOL CODE, { ID)
CONTROL FIELD ADDRESS
GOOD RETURN
ERROR RETOUR, LOAD. TABLE Pre.
SET BIT FOR. ERROR OW BEAD
CHECK FOR DATA TRABSFERB
-JUSP IF THERE WAS
NO DATA TRANS, SET cskce” BIT
STEP TO NEXT CARD | : ae - :
CHECK POR READ CYLIUDER o
JUMP IF YES . ve , ”
SET ERROR BIT
SET BIT TO INDICATE CYL. ADDR.
CHECK FOR SELECT HEADS 0 OR 2
JUAP IF yes |
TEST POR HEAD 1 OR 3 SELECTED
OK
PROG ID
0A 03-6
PAGE 3
Onte
on 3
0823
OE26
0229
-OE2C
‘O82P
O834-
_~ 0837
OESB
O£41
OFA?
- ORED
OFSO
-ORSA -
-ORSS
. SESC
DE6O
Ofte
0868
‘OB6C
OFED
OEGE
ORT |
: 9472 3
OFIB ©
O8FC
OTD. T
0n81"
OFBS OC 01
OF8B CO AT.
ger:
40
FP
. 81
07
F2 81
87
02
a2
00
OF90 | e ..
0291 2000
093:
OES6
0299
~ OESP
OFA3
-OvAn
EAS.
“ORK?
OBAA
OFAE
‘OBS
“OBB7
' :ORBB
OEBF
oEC3
OEfCa
- OBCB
OECA
OECE
OFRDS
JEDS
OFDE
DATP.
EC wo.
OE
cO 87
A00T
CO 87
OD 01
co 81
01
co 87
T3RART
§71512
80.
BT:
PP:
Bt. A
O44
87.
‘oEE3 0:
21a
Ora
-OFRT =
0£92- 0: ,
0270
»- oa:
1.05 -
+ ORAS
rozta
51
DRY
DBa
wz
OFFA
O21A
0222
0216
OFrFfl
CET?
OFF!
OF93 -
0
2
oo) OFAa”
2 ORAG
oron
or]
4
OFD?
OFFS
OVMARTT
571873
399 :
308 AVI
301 J.
- 38 BVI
. 383. CLe
‘joa JE
305... NVI
306 ALC
307. ALC |
2408 cle
309 _ af
310 — : -B
gm: ota OS" ae
392° PTR2LG TA
333. ua
1348 ‘ST
3S CLI
3
pei,
pe
ae. an
i De
32a. RTNZLA ‘ALC
325° po BT
“326. Dc
327° La
. 328 as ST
ij 329° ee : ae
- 330.5. Ve,
mn 3410~«C "9.
- 332 pe.
393° cee DC
“334 RTN2LB- oC
“335 0
. 336 RTN2LA CLI.
337. ae
"338 . ve
- 386° 8
301 DC.
342 - . 9. pe
383 RTNZ2LC DC
- 394 5
3a5 RTW2LD La
346 ST
—. 3a7 cic
-' 388 -JNE
| Bag - ‘CLI
' 3590 BE
351, .
-352 * B
353 pc
359
- 355 _— 8B
356 -: oc
357 B
358
- 359 RTN2ZLE cL¢
360 BE
361
362 © ' ALC
363 B
290CTT71 TSNOVTI
571601 571605
ofc3
"> 0o8c9
—XLU0I8
RTN2LD ni
RTH2LC { 2) ,ASGPTR
rs RDDFCS2,x*60",
-RTN2G
34¢ TRY) ox FES
eta deets
34, ERI) .FGRZRO
we
RINERR, X*PP
*AEDPTR (2) , THREE
AASKPT(2)..S1X -
Cas het (21,88 0EES
RTRZLG
STZB
ADAASK,IR1
HEDNNO-6, IR2
REDPTR,XEZ
RTNERR,O
LINK:
‘PRIST
XL2*Ci*.
IL?*16
*- AL2(SOmPRT)
/ mEztaoo1s
AEDETR (2) -SIX~
PRIRT
ZL7° 1%.
ee ey
ASGPTR,XR2~
-BTW2LB(2) (HEDPTR
PRIUT
AL 248-8)
0%, X81) 0 .
PRINT —-
Mbit
NEye3ae ee
AL2 (8-9).
1(,XR1) ,XR1
SCRCH, XR1
SCRCH (2) ,REDEND
RTNZLE
- RTNERR,O
LIK ©
- XL 7° 16
*-KRALT
4L2*A0017
*LINK .
_BSGPTR (2) -REDERY
-PTNZLA
ASGPTR (2) ,THIRFV
RTW2LH
. ISRBARI2
571591
* paoe oo
igs x:
TEST ‘POR READ 0 oR 2 ‘SELECTED eee
JUMP IP OK
Set BIT GR. SELECTED wRO-G. ‘BEAD
SET Bit TO INDICATE HD.
TEST FOR ANY ERROR of TaIs BEaD
JUNP IP WORE es 7.
S2ZT ROUTINE ERROR awrTcs
INCRESENT HEAD POINTER
INCREMENT RECORDING AREA POINTER |
TEST FOR ALL HEADS TESTED
- TO LOG OUT IP ALL TESTED.
BRANCH “BACK IP sof DOUE
SET XR1 AS LOG TABLE PorsreR
SET POINTER FOR
HEAD NUNBER SESSAGE |
TEST FOR ANY ERROR
EXIT ROUTINE IP BO ZRRORS
PRINT ROUTINE BEADING
“ENCREASE HEAD mS. | POETER
"TO SPACE ONLY
‘ser POINTER POR Bee a,
STATUES SESSAGES .
x
PEST POR ERROR ©
«
STORE MESSAGE ADDRESS
PRINT READ NUMBER -
2 .
> > ‘ 2
re -
JUNP IP HO ERROR © aa
_ SET COURENT. RESSAGE ADDRESS
PaIUT EREOR a tet
STZP TABLE POINTER |
STORE POR COMPARE —
TEST POR PINSHED —
JOUNP IF WOT- PINISHED
TEST FOR AY
ROUTINE EXIT
ERRORS -
TO SPACE ONLT |
SPacE 6
TO DCP ERROR HALT
HALT IDB
ROUTINE EXIT
TEST POR FINISHED ON ONE HEAD
BRARCA TO TEST NEXT HEAD
STEP ASG. POINTER
PROG ID
PAGE ,
0a03-6
3a
‘SELECT OK o
Wei
TBR MAINTEMANCE DIAGHCSTIC PROGRAM
8036
"PRR Loc
‘OEE2
oF ES
OFES
OQEE7
OFFS
OFES
‘OPEA
OFEB
’ OFEC
DEED
OEE
OFEF
. @EFO
(OFF
es oer2
ORF3
OEFS
OErS
OPF6
.* ORF
" OEFB
OEFS
. OEFA
OFFB
OEFC
- OEFD
|. OEFF
OFF:
OF00
_ OFO1
. OFO2
“~ OF03
OFO4
OPO0S
OFO6
“OFO7
oros
OFO9
OFOA
OFOC.
OP14
-OPIC
OF24
Or2c
OF34
OF3B
0Pr43
OF4R
0P53
OFSA
OPE2
OF6A
0F72
0P79
OF81
0F89
OF91
CF98
OFAO
‘DATE
Ec Wo.
: =a j dj ‘ 4
@ Yd) @ @ ®@ © a) & @ @ @
: a 4 4 to a a ? q
SFEK. FUNCTION ‘TEST
OBJECT CODE §.—«- ADDR STMT SOURCE S$
* ' 368 .
0900 OFE3 365. AEDPTR DC ‘READ SELECT ras. POISTER
0000 OFFS 366 MASKPT DC IL2°0* DaTA TABLE POLSTER
367
co OEE6 -368 SELHED DC XLit09¢ TO SELECT nEaD c
Co OEE7 369 BC 2L1°O* TO SEZLECT opp EE ‘DISK ve
fF OEES 370 DC so EL 1° PR* :
80 OFEo «372 pc XLU°SO° . To SELECT ‘HEAD 1 a
00 OEFRA 373 BC. EL?¢08° TO SELECT a? Bree
00 OFEB 374 pce XL?°o° >
375 tad a de - Btn
00 OFEC 376 pc XLiz0° TO SELECT HEAD 2082 ee,
os OFED 377 pc XL17:°08¢- TO SELECT ‘LOWER DISK
FP. OZER 378 DC -. XLV*PPY . oe Z
379 ' Pog as oe an
80 OFEP. 380 DC. XLI8s0O* . - to suLect ‘wea 3°: Bos
68 CEFO 381. - pe XL1*°08¢ Sas TO SELECT LOWER DISK
00 CEPT 382 De XL170* Begks ghee he On Sate erties
-383 BF oe 23 < pig vente iy
00 OEF2 388 HDNASK. DC ‘XL1°0O9 QEAD O, ERROR ON READ
00 OEF3 385 pC. IL7*0° HEAD 0, NO DATA TRANSFER ee
00 OFFY 386 pe XL1T*0* HEAD 0, READ INCORRECT CYL. ADDRESS. _
00 OfP5 387 pe RL1¢0° HEAD 0, SELECTED WRONG HEAD.
00 OFF6 388 pe xL1°0°* HEAD 0, CYLENDER ADDR. OK.
00 OFF? .389 °° ve XL17°0? BEAD 0 SELECT OK alee
390. Sone se
00 . OFF8 397° -. pe XL 1*°0* HEAD 1, ERROR ON BEAD :
co / OEF9 392 - pe XL2*0* HEAD 1, WO DATA TRANSFER es ag SE
00 OPA. 393 pe XLI*0° | HEAD 14 READ INCORRECT CYL. apeees?
00 OEPB: 398 DCs EL 9*08 HEAD. 1, SELECTED WRONG HEAD. art
00 _ OEFC 395 - DC XL1*0*. HEAD 1, CYLENDER ADDR. OK-
00. OFRD. 396 pc. XLAOe | tee HEAD 1 SELECT (OK Ue at ay a
Sf 397. parece: ue ae eta ee ed oe
00 OEFe . 298 - pC - - XL71t98. HEAD 2. ‘BRROR. ow eeap ig ne
00 OfFF. 2399 Be XLI¢of| HEAD 2, .WO DATA TRANSFER . pa are
00 . OFOO 400 DC XLT07 . - BAD 2, READ IHCORRECT CTL. ADDRESS. ~
00. ° OFC1 401. pC. XL108 2 -. BEAD 2, SELECTED WRONG READ =” ©:
00 *. oFo2 4802 pe -XL1*0# | HEAD 2,. CYLINDER ADDR. OK aa
06. “OF03 403 - DC -XLINOS HEAD 2 SELECT OK
0G ss “OFOS 805 - DC XL1*0* HEAD 3, ERROR oN READ
‘00°. _° OFrS 406° DC XL17*0° . HEAD 3, NO DATA TRANSFER: ta we
00 .. - OF06 407 pC. -XL1*o8 - HEAD 3, READ INCORRECT CYL: ADDRESS ~
00 OF0?7 408 pC =-XL1*°0* HEAD 3, SELECTED WRONG HEAD
£9 ' OPO8 4809 DBC XL1°9Q? “HEAD 3, CYLINDER ADDR. OK
00. OFO9 810 - . ~° ve XL1°0° HEAD 3 SEL ECT OK
OPOA OFOB 411 HEDEND DC AL2 (*) ir hee ie
EZE4YDRDSCIDIESYO OFIB 412 SUSPRT DC CL 16° SUSSARY PRINTOUT! — " gts, 2: re
D7ILICIDSE IDSESE 12. aes
CSLIDIDEDIGODEDS OF3A. 413 HEDER1T DC CL31° ERROR ON READ- ID a
“eCDSCSCICeEOCsCR =——i‘“<‘é‘ ‘YT Pe . - :
#¥04UC404080504040 813
4040 40404 0N040 613 A a AP tiene? p ae
DSD640C4C1E3C1N0 OFSO 42148 pc CL31*NO DATA TRANSFER ON READ ID
*EILICIDSE2CECSDY | he : BOS es NEN ; . _ :
4ODEDSAODICSCICSE 1a
80C9C440405040 - 818 | Aus
DICSCIC44OCIDSC3 OF78 815 pc CL31"*READ INCORRECT CYLINDER ADDRESS
*D6D9DICSC3E 3406 3 815 ’ i‘
ESL3CIDSCHC5DYSO | @45
CICSUCHDICSE2E2 815 ;
CUCOCKHUODSDOHE380 OF9T 416 DC CL31*°DID NOT SELECT CORRECT HEAD ®
E2C5D3C5C 38 340C 3 816
D6D9D9C5C3 £380CB 916
C5C 1C4RO4OR0KO 416
C3F8D3CIDSCHC5DS OFBG £17 “ pe CL31*°CYLINDER ADDRESS OK
*GOCICSCEDIC5E2E2 17
13MAR70 O1MAR71 290CT71 15NOV71 15H AR 72 ‘PROG ID 0003-6
571512 571573 571601 571605 571591 PAGE 8
ai ted oe tege
STAT
gaz
817
#18
oe te
418
818
819
‘820
421
422
423
824%
‘425
426.
827
428
SOURCE
HEDERS
HEDERE
HEDNAO
HEONS1
HEDNA2
REDANA3
iSGPTR
2 & @
‘THIREY
PORZRO
RTWERR
o
290CT71
571601
A036 - ‘SEEK ‘voxctros. rest
PRR LOC OBJECT cope “ADDR
- OPAB8 4OD6D2804804 R040 =
OFBO 4OSOUDROKONONO
OFB7 C8CSCICHSOE2ZCSD3 OFDS
OPBF CSC3E3C5SCIXODED2
OFC7 46080404804 0804080
OFCF 4080N080408040
OFD6 OFDS - OFDT
OPDP CACSCICSSOFO OFDD
OFDE CHCSCICSSOFT OrEe3
OFES CB8CSCICSNCF2 ‘OFE9
OPEA C8CSCICRLROF3 OFF?
OFFO 0000 “Orr
OFF2 0006. . OFF3
| OFFS 001F OFFS
OFF6 OCCON00O . OF PY.
OFFA 00 CFPA
x * “ - ae
DATE 13MAR70 OINART1
EC NO. 571512 571573
oe ee Ge
571605
STaTeKent
DC + CL31*HEAD SELECTED OK. A fen eee
BC AL2(HEDERS) = = =i iti aS. a
DC CLO* AHEAD Of aes
DC -- CLO*HEAD 1° |:
pc ‘“CLO*HEAD 2% =
pc CL6O*°HEAD 3%
oc XL2¢0
*DC XL2° 06°"
pc 14L2°31°
*pc :CEXZ%L ST OF.
BC. ELI*O8
1S NOVT71 ISMARI2 FROG ID 003-6 |
- 571591 PAGE sa
6 ; - Le e
, : ; ‘ ’ ; 2 x ' = ™ os ee
” a ms 7 .
° a eoeceeceeeceeeeeeoeoe eee eeeeeeoeeeeeees
ce cee 7
‘ ay
TBA OATNTPNANCE pracwost re eerocean
~.
loses “SEEK ‘PoscTION rest
; ERR LOC OBJECT CODE ADDR stat ‘SODRCE |
226
*229
230 ¢
ae _ ee ee
~ QD62 02 - OD62 232 RTU2
0D63 00 — . 0D63 233
- 0D68 OFFB Ope5 234
eX oy - 235
OD66 3D (CO OBE. 236
ODSA CO 81 OA16 237.
. :, 9B6EB CO B67 1027. i wsiC‘“wssC288
Po ODF2 C2 01 OEFZ 2480 RTN2A-
io. = OBIS Fo 00-17 241
OD79 SC t 16 17 242°
OD7TD 34 01 OEFES . 283
OD81 C2 02 OFEC 284
Ones. 38 04 O200 285
ODS FZ 10 05 ' 2%6
ODSC C2 02 OFES 2a7
-0D90 38 02 OFE3 tC 288 ens
: ~0D98 3c CH 1C62 249
; 0D98 3C 00 OFFA - 250
ie OD9C 38 02 O20a 251°
‘ODAO F2.10 OR 252
: 253.
~- -QDA3 C2 02 OFOA | 254
+ ODA7 3D 00 OB16 _255 |
ODAB P2 81 08 — “256
bo. ODAE C2 02 OEPE | (257° RITN2A2
vos ODB2 34 02 CrOB- : 258° |.
- . - 259. 7°.
. ODB6 35 62 GEES -- 260 RTHZB
- ODBA 2C.00 1¢€63-€0 . 261 a
“ODEF 2C CO 7DBB 01 . 262” -
—-, ODES:2C 00 ODpAa 62 * 2603p
- opce9 cO 87° 1cB2. i tie 264
.. ODCD 60. 2 ' CBCD ..265
-ODCE 00 _ODCE 266 -
_ ODCF 1061 = CBDO . 267. a3
' ODD1 CO 87 ODDS - . 268 0 7°
,. . ODDS CO B87 ODDS "269
4 270 —C«. ‘,
ODDS 3c 00 1¢67 _ 271 RTN2C
ODDD CO 87 1C82 272 ©
: - ODE 91 ODE1 273
: ODE2 01. - ODE2 278
_ ODE 165 ODES 275°
‘ODFS CO 87 ODFO eo 276
BY 5 277
- ODES 35 01 OED _ 278
ODED 7c FF 00 279°
hee s . 280°
ODFO 325 01 OFES 281 RTN2D
ODFY 3D. FF 1C66 . 282
ODFS F2 01 06 . 283
ODFB 7C FF 01 2848 —
ODFE F2 87 22. 285.
’ 286 :
O£0T 3D 00 1¢66 287 RTNZE
O£0S F2 8106 ~ 238 a
-OE08 7¢ FF 02 289
OB0B F2 87 03 290
: 291
OEOE 7C FF O48 292 RTN2P
0£11 3D CO 1€63 293
O£15 F2 81 07 298
Of18 38 80 1C67 296
DATE 13MAR70 O1MAR71 290CTT71
EC WO. 571512 §71573 571601
pc
CLI
BE -
LA
SVT
avec
st
LA
TEN
JT
LA
st
SVI
' VI
TBN
JT
LA.
CLI
JE
LA
st
SVC
nvC
MYC
oc
ac
AVI
BC .
DC.
‘DC
8B
L
AVI
L
CLI
SWE.
NVI
J
cLI
Jz
SVI
‘J
AVI
CLI
JE
TBN
1SNOV71
571605
ROUTINE xO.
ROUTINE PREFACE
ZL19*92
*XL7°00°
. AL2 (RTN3)
SETSH,O
SETDSK.
RECALB
SDNASK, 181.
23( XRT) 0
22 (23, eer
AASKPT, 121
SELAED+6, XR2
SECTSH,X* 08"
2TH2A1
SELHED,1F2
HEDPTR, X82
WaT DFC+1,0
RTNERR,O
SECTSH, 1702" —
RTNZAZ
HDHASKe24, x72.
REBVDS ,O —
‘47
HDAASK*12,XR2
HEDEND,ZR2 0
HEDPTR, B2
WRTDFC4+2(1) ,.0(, X82)
DISKTP(1) v4 eXE2),
RIN2C+1 (1), 2 (/1R2)
.StTRTIO >
XL7*Q
*XLi*o* |
AL2 (wRTDFCy
RTW2C
A
RDDFC+2, $nO os
: STRTIO
' XL9*901
*XL1*91°
AL2 (RDDFC)}-
RTN2D.
MASKFET,XR
*0
C5SC9D9D6D940D6D5
&CD9CSC 1CB8s0C9C4
NO8CHORONDNOROO
4040 40404040R0
D5 D640C4C1£3C 140
E3LD9CIDSE2C6CSD9 |
VODEDS4ODICSCICH
60C9C4 404080480
D9C5C1C440C9DS5C3
D6D9D9CSC3E340C3
ESC3CIDSC&C5D9IAO |
CICUCUDICS5E2E2
C4C9CU 4OD5SDE E380
E2C5D3C5C 3E 380C 3
D6D9D9C5C3 £E340C8
c5c 1c 480 K0K804KD
C3FBD3ICIDSCKCS5DY
GOCICUCUDICS5E2E2
O1MAR7
571573
13MAR7O
$71512
OEFE
OFFF.
OFOoo
orcl:
OFroz
OFO3
OFO4
OFfS
- OF06-
OFO07
OrFO8
OFO9
OFOB
OPiB
OF3A.
ite
or7s
OF97
OFB6
1
vc
TS5NOV71
571605
HEAD SELECT TABLE POISTER
STMT SOURCE STATENEST
36a
365. AEZDPTR DC ZL270°
366 MASKPT DC XL2°0° DATA TABLE POISTER
367 aps Ss eee 2
-368 SELHED DC XL7°08 TO SELECT BEaD C
369 Bc XL1¢O* TO SELECT UPPER DISK
370 ‘DC XL1°FF* | pe eee ce >
“371 : oat
372 pc XL1°s80* TO SELECT MEAD 1
373 pe. XLIto8 TO SELECT UPPER DISK
374 oc XL1*o* ae a
375 oo oo j
376 pc XLiIto* TO SELECT HEAD 2
377 pc XL1-*08¢ TO SELECT LOWER DISK ..
378 pC - ORLY*PFY Bee Fate:
379 : nh Sea vis
380 pC XL" S808 _ T0 SELECT BEAD 3°.
381. pc sCsdKLY*08° na TO SELECT LOWER DISK
382 pc EL1I*09°— : 5 tales te
- 383 . ‘ ” : 2 . .
38% HDMNASK DC XL17*9# HEAD 0, ERROR OF READ
385 DC XL1*0° HEAD 0, NO DATA TRANSFER bee
*386 “pe XL1*0* HEAD 0, READ INCORRECT CYL. ADDRESS...
387 pc KL1*0¢ BEAD 0, SELECTED WRONG HEAD.
388 Be XL1°O* HEAD 0, CYLINDER ADDR. OK
389° pe XL1*O? HEAD 0 SELECT OK
3917 we XL7*0# HEAD 1, ERROR ON READ ;
392 ope XLi*O¢ HEAD 1, HO DATA TRANSFER . Swiss
393 pe XL1*°O°? | - . BEAD 14 READ INCORRECT CYL. ADDRESS.
398 pc soXL2*08 . ° ERD. 1, SELECTED ¥RONG HEAD
395 pC Fs xXL9*0# HEAD 1, CYLINDER ADDR. OK-
396° — XL1¢O° ‘os HEAD 1 SELECT OK Cs
397 © ies 8's Sie Bi ah. Osh, 20 © rahe eae
- 293 pC XL 1°98. HEAD 2, ERROR ON BEAD eos eas
399 oc XLI¢0¢ HEAD 2, .80 DATA TRANSFER
900 DC XLT*0* HEAD 2, READ INCORRECT CYL. ADDRESS
801 - DCO. «xXLY*08 : HEAD 2, SELECTED WRONG READ :
802 “pe -XL1*0# HEAD 2,. CYLINDER ADDR. OK
#03 DC, XL7*o* -HEAD 2 SELECT OX. ‘ .
. 8048 Je oot oi ay 8s
805 - pec XLIO% | HEAD 3, EBROR ON READ.
406 pc XL1°0° HEAD 3, HO DATA TRANSFER ©
407 pc XL1*Q8 HEAD 3, READ. INCORRECT CYL. ADDRESS -
408 _ 3e XL12°O* HEAD 3, SELECTED WROHG HEAD
209 pc XL1*08 HEAD 3, CYLINDER ADDR. OK
810 © ° ve XL9*0" HEAD 3 SELECT OK
411 HEDEND DC AL2 (*) y a tg
812 SUSPRT DC CL16*SUSSARY PRINTOUT® :
812 sy
413 HEDER1 DC CL31* ERROR ON READ-ID : 8
"813 oe aoe ue
413
&13 _
gia pc CL31*°NO DATA TRANSPER ON READ ID s
ate: 7S :
9180
814 =
815 pe CL31"*READ INCORRECT CYLINDER ADDRESS?
815
915
445
416 pc CL31°DID NOT SELECT CORRECT HEAD e
816
816
416
&17 “pe CL31*CYLINDER ADDRESS OK
*817
290CT71 ISHAR72 PROG ID 0803-6
571601 571591 PAGE 4
“
FRR LOC OBJECT CODE ADDR
OPA8 SOD6D28040NCk 040
OFBO 4080408040800
OFB? C8CSCICNGOEZCSD3 OPFDS
OFBF C5C3E3CSCO4 0D6 D2
OFC] 404040404080 8080
OPCF 40804080408040
OFDt OFDS OFD7
OPD? CACSC1ICRLOFO -OFDD
OFDE CACSCIC&LOF1 OFE3
OPES C8C5SCICSRCF2 OFES
OPEA CBCSC1ICRSOF3 OFR?
OFFO 0000 CFF
OPF2 0906 . OFF3
OFPS 001F CFFS
OPF6 OCCOND0O | OF FY.
OFFA 00 CFPA
DATE 138AR70 OIMART1
EC NO. 571512 571573
STAT
817
TOM MAINTENAWCE DIAGHOSTIC PROGRAN
(036° 9 SFEK POBCTION. Test
SOURCE
B17
#18
818
HEDERS
818
818
819
‘820
421
822
823
R24
825
826
927
928
HEDERE
AEDNAO
REDNNY
HEDNM2
HEDRA3
ASG PTR
Six
“‘THIRPY
PORZRO
RINERR
s
290CTT1
571601
STATENENT
DC «CL31* HEAD SELECTED OK He gees
pC AL2(HEDERS) 2 e, :
DC 80s CLo* ABAD OF. |
DC ° CLO*HEAD 1°
DC —s_—«C CLO PREAD 2°"
pc CL6* HEAD 3%
pc XL2*O
*pc XL2* 06°
pC -s«aTL2*31° 4
pc XL4*0°
BC sSKLV*O8.
‘
1S NOVTI ISMAR72 PROG ID 0203-6
571605 - 571591 PAGE fa
ae
= : / ; : oes
€é @ @ © @ © ’ @ @ © 6 : 4 . ‘ a ; , : . : a
@ , : . a qi 2 a : , - i: e a es 2
THA WAINYPELSCTE DIRGHOSTIC PROSHAT io :
aC3€ SEFK FURTTICA TEST
ERR LO. OBIECY cone ADDR SYHT SOURCR STaTEngeT | |
a36 5 ROUTIHE WO. O27, CHECK THE ABILITY TO SEI TRE
Bz « SEER CHECK SEXSL BIT (BITE OC BIT 7} . ®
&32
A332 «© HOCTIOE PF EPACE a
B3e
GPT 03 OFFR 835 RIN2 ot RL1°O3# POUl) Pe SUMEES
OFF 66 CFPC 836 BC Lie e BOULIAS PLacs
CPReL ithe OFPF 437 pe ALZ (TBA) ADDSES; O° #EST BOUTIEL
so 438
OYTY ap CO OFtE 439 Chi SETSH,6 HAVE PREEMETERS BEES EWTREEOT
‘4003 CO @1 OA 10 GEO Be SET DS & BUAHSH LF 29
ayy no"
1007 CG 87 ITZ. uz 8 RECALS TO RECALIBRATEH SBESOUTIE
BX 3
VOCE OC OO 1€62 OF1S Bee FTKIR BVO WRT OPC?1¢1), TRACHEA SET TO SEER THE CE TRACE
RES
7 09 WP6C aye RVI S¥WSID,03
sou 5 61 1CH2 aa? 2 STRIIO tc seer
#079 66 | 1019 w4uk pt RL1°O° FORCIIO! CODE, (TORTEDL}
4OUR OO WIR 44g DC. Lit ae COnIBG) CADP, (SERA
WUE IT6 4 +ic | 6ase t AL2 (ERT DFC] COFFADL £18 EF 2btness
403" CC 87 103F a51- B RINGE GOCI ¥77VE} |
1621 CG 87 TP44 #$7 ERR & PETSUS TC DE CLE BETA
WEE CL OF IPSC as3 Eg ciL TG COLL FAT ADBNEES
1078 1062 3078 O58 pe ALZ(WF7TDFCAH) SOvITE aDBRES 2
402E t4ua7 107C «455 pt AL2 (ER.EC 29} DELTIVASION A8DE ESS
VOUT €C B) OV aS6 B PRING 20 FRIRT BEES
Wi le 4074 487 DC Yl ive Place
4037 24 4037 4S8 BC I1i¢3et LEGIT? .
T0433 GA) 1034 449 pc ALZ (ERAN S) EYSSIG? IPFYPFES
163% Ct €7 O172 REO 6b BALY €C bE BOL & a¥
W635 aloe WSR BET pe aEzh16o9e BAST OF
qoBs CO Si zis Bt.2 B Line
Se:
13P C7 OG. Fee] &6t RIYIE L2 ¥'PCOCS IEF
Wey ar Pi €L O6 €O5 DhLbes CLO 60 (550,7R 2) 006, EP 2]
4C&Q7 Je LL LUPE uke i ONT Fi
WeLR CO &E 1083 467 BL DELBY3
vuk C8 90 S644 aes 22 TIO41,4S7F HE: 7%
T-8 es ae 12 “LS Ta qi Builh,14eue
4056 OF OL WES W114 a7 ALK | WATDT™C4 19), FORTE SF, AETIF~£ TC MRCP S¥BF fa af
1CoF CL FE 1CBs aya B STETI4 TO 2/0 €CL vbdiee 17 SRES
1042 OF 1062? 472 be Xi 1 oG' BUSCIIGY COP. (LOWEN
Tes OC er be De x11'0u' COSTED COLI ¢ 12S
WeE* res WOCe NTE re ALZ¢WRTDEL! COWCR I) PLETE ADDER CF
WET Ce £4 1096 ars F PUNSL
TCL 3C CE URET ate Hi} S$BS1B,%' OFS ACCHEE CUELQVD Sh RIFE 908 S028
Wik Ct Bi tae a7? E PRIS K¢
FOR Ct 6) O2UK a7e B FEIBT LEAPSE TO ICI FLIFA
1014 Ut 1033 475 BC ILi ees
1Cil 25 ITE WEL r¢ In 14Gt
WS 1483 SOIR AL DC AL (2B,
Wa? CO & C792 at2 E fart
Wut BtCE 1080 483 a V2 AECE
CEL CE Bl CUE wot E Lint
1CE* CO EF WEZ het rTn2t OF STL FIN 40 EFEr op
4oR" U1 WS BED p7 YLUtCte PLEMIG: COL” HE}
sera Ct TER MEE be ALUGit CeRibO: Ci owe
TRE (CE. 1FRO RES ne PLZ(ELEL Ctl BGS be Pruarz
TOeb eb & eS as z Gok
Weir, £1 CWE agi Li TOF ITT P77 BaCU Ha CLO ET PPE Le:
(Cs On 4. FET ANET Od PEVALT CLO | URETE(ILT, CwELTS
wo%. 34 Gi VTE? acy a RFC T.FEA
1¢6. CO HE 1098 Les BL. PEARY
gS:
TCI CL td tO) Gs7 E STASI 72 SPR:F Piva sven
x7 12PET TA CIPERTT 2900171 © RUE Ton bi7 PEO! 26 GILT ¢
bo Rl. £98849 £41533 571064 STVECL STiTS: irk ‘
z
Pae? so.
Sige 57k s
es
oy
e3
an
meet re ernment eanattitetnn eet (OAT emnele tant
f
an
ey
ey
ay
$
LTE
ERR LOC OhGiG? CUBE ADPR SIRF SODRIE STATES Lal
10a7 67 are WCA7 898 Dm “RELY 78
WORE 36 O1 ICSC 459 TEE ST2A704~4, 5-676
Wac FE YE Te $6 a1 RLiRIE
= Sot of :
War CC GF Gita §02 e PER!
ACEI Se TORT = $03 , ot RPT ccs
OES Jy TORE St. Be 134404
VO8R5 174i TOBE $06 oc RI 2 { ET SET FI
VOF% AOGI ‘ ORE £ Ot BT RLd (h2G5-
Was ef 43 8222 $07 B Bk
TORK ACG? : WBE S08 oc 4. 2*a0C7¢
5095
TO0BF CG 87 G29 510 8 Litt .
3OC3 39 80 ICS Sti RTR76R THK STATM« 1,3'aG
*TSC7F7 P2 10 4 $12 JT PTH It
SOCK CO 83 O218- $13 8 FLag?
Sut Cé Wee Sie r¢ M1 Tt e”
10C8 7 « WCF STS . aC By 25338
ICDC 7168 WD. StF pc AL 2 (P4 ONE 3}
WOOL AOTs Whi 819 re FL Z* AEDS
SOP Cl &i ©2272 5418 8 Wit
VOD ASds WSS Ste DE 2a 2*2GE 38
S76
TORR Ch EF 1067 S2% Rixk7C fF CSRS)
VOLE OZ LE $22 bt RP1UtoZ&
Wee 38 FY 165 £23 TRE STMT .- TT 2CeHe
TOFS £7 th Ci $24 JT ET RIT
WEE CL GF OFIR $25 P PR?Y]
WOUR C4 WF $36 Bt Ritcet
WORF! 34 WEF $27 Di 47's.
GE" 19s TOEP $28 pc PLIGF2 Fi ej
TORE A068 WE? 829 pe Ba 9* alt Gs
53¢
Ore CO FF 107% $37 RIKIP 2fB RY ey
6:4 C0 87 1063 $32 B Sg*t
StPE G2? re 533 BC. ZI4°?°
ers 33 Ft WET 534 a BE Sates 1,07
WCE FQ Tt FE S3¢ JT Ata ?-
TIDC CC LT G2 53¢ 8 PRIF)
VGH Cf TWeE 8 6§3i pc ¥) Va ct
FIO& BR TieS $3e@ Be VLTAZe
TUDE WIP. 490700 839 on ALG’ (eis F°7;
TERS BE 5E 1VE0 (SRE pc REZ 2c? 4
VUCa CO Pe GtG 544 t fi ik?
TUCE BLS VTQF 8 6S&F ec FLZsi vs
Sis
(440 cf &7 G2.6 SkR RF r Yurt
tas
ite 4} Vay Ske FOPETE Be ¥a4f%.
Ttte, EC TOHED COED Tee T tS Sri b Cares. FEL Fe
Vtoy COIFH, FL eke TES er
VE28 CMe. OOM Tbe ie
VU4L Guede &. TOPE bP Ve Sg.
QT2¢ Hee Cpt ihe ee Gos Sai
VETL MOTE CL CF skt a
Vi PD OPEL BD Gae. FeO AW CH ERPOLT pm CHU SEL TIL CIEL pie
TIAP LEPC ECO ate S*%
SURF BSKnce eect TAty a © VER SES EELGRI pe CTalebee tt €2Y%
TiS KED Chet. “OoF LG Erg
VT¢7 PEb plata Sb fe:
TTOE EOL cero bat Sa ee te S.uf FC FET Be Ca 30K.) Os SERDI
That Fo He FLO ie ety
VEE Deer gt “Ta or
TUN bass 1 OLR TORY ‘..
atis uria ‘ enc
48 Perch tp kee ae 4 ©.1 ¢7hrfy oe Ce Es EE
Ti" @ahbecf eo seit bet fet
tya! teat, EUROS IIS Sei
Fi%y Vr: Fh Gd Orrin 23805 F1 VERT a kT
Te Fe Stay S32 10%5 S3.eG% Sit c. RCA a
Shah PERTIION
TRA BATNTLMAKCY POACROLVLT BROLEAE
TREE
4'258
Sieh FI
& @ @ & 14
& @ s S v & , @ : @ @ @ : © @ @ z @ ae S ‘ o a
*= ‘ , 2 Tee g : : : : 3
FRAT 80.
ere 5?
BITES 14 0 ; .
TFSi 2RE SREX CHETH BET SERRE BIT
SURE 18 Of
TC POIRDT SPacen
FLIts
1 PEGS
FDAKESS OF LAST PHIWT CHARACTER
GS ESSAGE 3D
SC ME ERBOE GALI
Baia 12
POUTIDE- F977 eat
TEST THE WOOT HIT FOR Of
383i IF Ga
7° BES? ERROR
PLAC’
Leas?
MEOS.6F ADDRES!
BESSHEL Ub
70 SCF LEROL BEIT
BALY 1D
TC SEFSE BSCE | reves
Bub G@ a 4
TESS Th. BG-OF 1°74 POR OFE
JURE JP 27 38 6 |
70 FER? BI" SR
FLaGs
LEPS TP
ALDBI:” GF S487 PRISE CPLHACY ER
EESSS&G? Aik
TC PRORLLBT ATE SUFRCLTT &..
TC SFTSL bIVICE S759 045
Bai Fo cd 4 1
TLE? FEF Sher Cree
Jtkr JF 17 YS CIF
eC PLES Li aGl
ELEC S
L EAGIP
FECSSCY ar Grass
BY Srok Tb
CO Tok FReel Bal
PAIS 32
§?4 PFGE OF?
LOOt,IE FI?
C7! &sb Ret? SB TRE
SeEF ¢
£LRs at
PUT ifs as Bi 8 TBaal. #
Gre
ee]
a
an
~
9129138
ae
ie
?
fa
bl
ix
4
i
eek
«~
hg
-or eee gee ee ee
fi a
oe a PRET HO. St29828 IBN BAINTERARCE DIAGHOSTIC PROCRAH
6 . 3.
‘8036 ‘SreK rosctrow Test a ny . é cog) 8036" SEEK FONCTION TEST oe
- ERR Loc obseCT ‘Cope ADDR STAT SOURCE STATERENT ERR LOC OBJECT CODE ADDR STHT SOURCE STATENEET ‘i
T4A5 4ODSCSE2CSE380C2 551 ; | | fc |. , bia neat ; - 3:
VAD EBSOCTHODSCSC3CI $31 : , » * | oe | | 7 . | Ngee ROUSERE O06. ORs -PRSte SSE Saat . ce
1185 D3aB $51 tte o , prer | e) 5
V1B7 DEESDOESDSSOZZES 1723. $$2 ERRORB DC CLYS*OVRUR S¥ BADE AT START OF SK FED PROB CE TEK.* me. S.A os ee. s a a a , pa EE ae
VIBF SODSCICHCSHOC IES 552 T1285 08 ; JiEB S&T RTHS DC XL1°08°. ROUTINE SUNBER aa a
pcr econ oes seccasce . a5 ; : a TEC 00 WiEC 562 © ove XL 1°00" ROUTINE PLAGS ae, a
11b7 ‘a0ceD9 De paaocses oaa | | | | TIED 1505 TRE ze BE AL2 (RT HS) ADDRESS OF BEIT ROUTIBE ieee a)
| Sach eeet ee $82 oe | | a < TIEF 3D 00 0318 565 - CLE SeTse,0 HAVE PARAMETERS “BEEN: BNTHEED? .
rer ae e004 ae eee ee ee | i 11P3 CO 81 OAIO 566 BE SBETDSK BRASCH IF HO foe
a. acne 1188 554 Teo 8 BC XL2 +028 1187 CO 87 1¢21 567 8 RECALB TO RECALIPRATE SUDROUTIAE
BS o0e3 V1ZA $55 THREE BC = LZ" 03 11PB 3C 00 OFFA 568 AVI «= - STUER. O ZERO THE ROVTIBE BRROR SUTTCH
- * V9EP C2 01 13FC S69 RTNSA LA SKTBLS,XR1 S#T XB1.70 POET TO. ;
4203 38°01 ta2C S70 ST PRALST, 281 BECINHIEG OF PARANETRE LIST
ef - 1207 €2 02 1805 571 LAs BISTBL, X82 CLEAR GISTOSY TASLE
1208 34 62 t88P $72 ST | TBLSAV,Za2 SAVE. CABLE SDgRESS
: 120F aC IP IP 20 : $73 MVC - FBEGLG-1(TBLGLC,XG2),TOLSLG(,282) LEEO HST. T9L.
£. a. 8 S78. - . athe
e 1213 35 01 ta2c S75 RTWB OL PRALST X81 LOAD PARAZETER LIST POTETER
1217 7D FF 00 S76 CLI 0(, ER1) oX* FFE CHECK POR ERD OF SERK LIST
: 2 121A ¥2 81 OF $77 Jf. - RT MOL JUMP TO LOGOUT as bak
Bn 121D 1C CO 1c62 00 +578 MYC WETDFC*#1(1),0(,281) BOVE NEXT CYL. HO. TO CORTBOL PLD...
579 Ng ta go a
. - 1222 CO 87 1CB2 : $80 B STRTIO TO SEEK He kts -
1226 o¢ 1226 $81 pc s«XL13°G" FUNCTION CODE, (ComTROLy?:.
1227 00 1227 $82 pC «XL 408 CONTR 4 CODE, { SEEK} = ©
3 e 1228 161 1229 583 BC —-_s AL 2. (WET DFC) COMTLIL FIELD ADDRESS
; 1228 CO 87 12aD ~~ 584 B RTRSBI GOOD “ZT. RN PROB SIO
122 CO 87 1C07 585 B SEESE ERHOR OF SIO
7 1232 02 1232 $86 DC 8 ELT#02"
1233 35 01 1990F 587 L TBLSAV,XEt LCAD HISTORY TABLE POISTER
1237 4C 00 CO 1C5C 588 MVC 6-0(1, XR1) ,STATUS—2 SAVE STATUS BYTE 0
a 123¢ CO 87 1c07 589 8 SEWSE
1280 03 1280 590 pC 8 XL1*03
*1281 88 00 01 1¢5C 591 HZ2Z 0-14, XR1) ,STATES<1 SAVE BITS 0-3 OF STATUS BYTE 2
_ co eS 1246 3C FF OFPA 592 AVI RTNERR,X° FF * SET THE ROUTINE ERROR SWITCH
~ 1264 F2 87 OD 593 J BT Hac
598
cr oC 124D CO 87 1007 595 RTHSB1 B SENSE TO SENSE DEVICE STATUS
- 1251 02 1251 596 DC «EL 102° BITZS 0 AND 1
1252 38 10 1cSp 597 TBH STATUS,X°10* TEST FOR SEEK BUSY
e 1256 CO 10 1240p 598 BT RTRSBI LOOP TILL SEEK BUSY DROPS
a 599
125a CO 87 1C07 600 RTWAC B SENSE TO SENSE DZVICE STATUS
eA. & 125E 02 125E 604 DC « RE7#02" BITES 0 AED 1
= 125F CO 87 1C07 602 B SENSE TO SENSE DEVICE STATOS
| 1263 02 1263 603 pcs XLV ¢02° BYTES 0 AND 1
a 1264 35 01 T54F 604 L TBLSAV.XB1 LOAD HISTORY TABLE POLSTER
| 1268 3D C6 16D8 605 CLI SEEKDR-6,C'FS CHECK FOR A FORWARD SEEK
' 126C F2 01 G?- 606 JNE #26
= | 126F 7A 01 0% 607 SBN 1(_ X81) -X*018 SET FORWARD BIT IM TABLE I¥ YES
Pe 1272 4C 00 07 1431 608 MVC) |=. 2 (1,281) ,TKCTR SAVE NUMBER OF TRACTS CROSSED
609
t | 1277 CO 87 iCK2 610 B STRTIO TO READ ID
127E 01 1278 611 pc sXL1* O18 FUNCTION CODE, (READ)
| 127¢ 01 127¢ 612 DC 8 s«xXL*018 CONTROL CODE, (ID)
cf 127D 1C65 127E 613 DC —-_- AL2 (RDDFC) CONTROL FIELD ADDRESS
127F CO 87 1283 614 B +8
1283 35 01 1A2C 615 L PRALST,XF1 LOAD PARAMETER LIST ADDRESS
- | 1287 39 03 1C65 616 TBF RDDFC,x*03* TEST POR NO DRFECTIVE OR ALTERRATE
617 * TRACK FLAG BITS OW
1288 F2 10 OS 618 JT = RTWaC2 JUNSP IF BOTH CONDITIONS ARE OFF
a 128E 1C 00 1C66 00 619 HVC = BDDFC#1(1) .0 (,2 81) THIS ADDRESS WAS DUE TO 4B
es 620 © ALTERNATE OR DEPECTIVE TRACK
| 621 * ASSIGNSENT, SO DUB Ih THE CosREct
a. 1293 35 02 I84F 622 RTNSC2 L TBLSAY ,IF2 LORD TABLE POINTER
1297 8C CO 03 1C66 623 HVC 9-31, 2H2} -RDDFC41 SAVE ID JUST READ
129C 1D 00 1C6€ OC 624 CLC = RDDPC#1 (4) ,0 (,381} COMPARE ID BEAD WITH EXPECTED
Soc eee eee hoe rae ISHART2 PROG ID 0aG3-6 | DATE 13mAR70 O1HAR7? 290CT71 1SHOV71 1SHARTZ PROG ID 0a03~6
peter PAGE ec | EC WO. 571512 571573 571601 57 7605 57158% PAGE 6a
"4036.
ERR LOC
T2074
12448
12K8
T2ac
12B2
1288
“12BC
12C0
t2C4
V2C8
42cC
12D0
12ba
12D8
F2BS"
V2DD
I2DE
12DP
12E1
12B3
1227
12EB
12EE
12F1
12¥F5
12F6
T2FA
12FC
1300
1306
T30A
730C
V30E
1312
1315
1319
131D
131F
1321
1327
132k
132D
1333
1337
1338
133¢
133D
1332
1340
1344
1348
1348
134E
1352
1358
1358
135E
1362
1368
DaTE
EC NO.
SEER PoNcTION TEST
OBIFCT CODE
P2
co
3c
OE
OF
co
"e2
34
C2
34
3D
co
co
er)
co
ci
10
81
87
FF
01
01
87
01
01
02
02
60
B81
87
oo
OFIR
A002
3c
35
7D
P2
co
16
co
&7
aco2
co
oc
ce
e7
01
e7
co00
Was
35
£2
34
co
02
01
01
a7
coco
1846
06
01
06
87
08
1621.
OFFA
UF
“VA2C
4293
¥3FC
TA2C |
1465
W44UP
OFFA
0216
O21A
O2TK
1450
VA2C
00
OF
O21A
0222
0216
4308
VFBC
14uP
IZ1E
TPC
TA2C
co 03
27
03
1363
V4acc
03
08
tP8Cc
T3MARTC
$71512
TH26
11E6
TA2C
14uFr6
14aFD
1€60
TBA “MAINTENANCE pracostic PROGRAR
ADDR STMT
12D8
12DD
12DE
12E0
12E2
12F5
12FB
4308
130D
VZ1E
1320
1337
133¢C
133D
133°
1363
1365
OUMAR71
$71573
SOURCE
625
626
627
628
629
630
631
632
633
638%
635
636
637
638
639
640
6&1
642
643
644
645
646
687
648
649
650
651
652
653
6548
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
RTNACI
*
RTNULG
RTNALA
RTNULD
CYDDST
CV DTNO
CYDARV
290CT71
STATEMENT
JE. RTRICI
R RECALB
BVI RTNERR,X°FF
*-ALC TBLSAV(2), FOUR
ALC PRSLST(2) ,ONE
B RT NSB
ALL SEEKS DONE,
LA _SRTBLG, X81
ST PRELST,XR1
LA - RISTBL, ¥R2
ST TBLSAV,XR2
CLY RTRERR,O
BE LI NK
pc XLIS11t
B PRINT
pc XL t*c1!
pc ILi'16?
pc AL 2 (SUMPRT)
pc XL2*a002
*“VI THISER,O
L PRALST,XR1
CLI 0 (,X%R1),X*FP
*JNE RTN4LD
B PRINT
pe XYL1'16
*B HALT
Dc XL2*AR002°
B LINK
avC CVDDST (2) - PRNLST
3 cvD
pc AL2 (*-*)
pc AL2(SEKSUM)
L TBLSAV,XR2
LA 2{ , 282) ,-XR1
ST CVDTNO, XR1
R cvD
DC AL2 (*-*)
pc AL2 (SEKSUN-15)
MYC SEKSUM~-19 (7) , FORWD
TBN 1(,XR2) ,X*O1!
JT #49
SVC SEKSUM-19 (7) ,REV
B PRINT
pc XL1°118
B PRINT
pc XL1°017°
pc IL1°31°
Dc AL2 (SEKSOM)
L PRMLST, XBR1
cLe 0(1,XR1),3(,XF2)
JE RTN&LB
-LA 3(,XR2) -XR1
ST CYDARY,XR1
MVC SEEKAT (3) » THREEOQ
CLI 3(eX82),X*PE
*JE PRT ARV
B CVD
pc AL2 (*-*)
pc AL2(SEEKAT)
ISNOV71 19MAR72
571605 571591
571601
PART yo. _ §T29628
PAGE 7
JUNP IF CORRECT . ~
TO RECALIBRATE SUBROUTISE
SET THE ROUTINE ERBOR SWITCH
STEP TABLE POINTER
STEP PARAMETER LIST POLST BB
DO NEXT SEER
NOW CHECK RESULTS
SET POINTER TG BEGINING
OF SEEK TO TABLE
SET POINTER To BEGINNING
TEST FOR NO PREVIOUS ERRORS
BRANCH IF THERE WERE NONE
TO SPACE ONLY
TO PRINT SUSMARY
PLAGS
LE&XGTB
MESSAGE ADDRESS
RESET ERROR S#ITCH
LOAD PARAMETER POINTER
CHECK FOR FINISHED
JONP IF NOT FINISHED
TO SPACE ONLY
SPACE SIX LINES
TO DCP ERROR HALT
HALT ID
ROUTINE EXIT
PUT ADDRESS OF SOURCE IN CONVERT
TO CONVERT DESTINATION
SOURCE ADDRESS
DESTINATION
LOAD POINTER TO HISTORY TABLE
LOAD XR1 AS POINTER TO NO. OP TRACKS
STORE THIS ADDR. IN CONVERT
TC CONVERT NO. OF TRACKS TO CROSS
SOURCE ADDRESS
DESTINATION
SET *FORWARD® IN HBESSAGE
TEST FOR THE PORWARD BIT OW
JUNP IF Of
NOT ON, SET
*REVEESE* IN SESSAGE
TO SPACE ONLY
TO PRINT SEEK SUNMARY
FLAGS
LENGT#
MESSAGE ADDRESS
LOAD ¥R1 AS POINTER TO DESIRED ADDR.
COMPARE DESIRED AND ACTUAL SEEK AD.
JUMP IP EQUAL
LOAD ADDRESS OF "ARRIVED 2T
*STORE IN CONVERT LINKAGE
TEST FOR ANY ADDRESS #HE&D
JUsr TF NONE READ
TO CONVERT "ARRIVED AT
*SOURCE
DESTINATION
ADDRESS
PEOG ID
0A03-6
P&iGE 7
TBA BATHT FRANCE pinceertse PROGRAS
al36
ERR LOC
1366
A3G6A
1368
336C
136E
1372
4375
41378
137D
1381
1385
1389
138D
1390
1393
1398
139¢
V3a9
T3A3
13A7
T3AA
TIAF
TAF
1380
I3R2
1388
14BE
13€2
13C6
V3CA
13CP
12D4
13D8
13DB
13IDF
1320
13F1
13E3
1327
13EB
13FE
13F1
13F4
13F8
13FC
13FD
13F
*V3FF
1800
1491
1402
1403
14048
1405
DATE
FC RO.
sEPR FONCTION TEST -
OBIFCT CODE
CO 87 O21A.
02
13
yacc
3c
BD
F2
2c
3c
c2
co
35
‘BY
F2
23
3€
c2
F?
3B
P2
FF
ec
81
co
01
01
87,
02
a2
01
37
87
1950
00
1c5¢
ZEB
IEF2
ADDR
136A
136B
- 136d
00
13C2..
1u8P-
01
1c5C
1328
1PA2
1P
1450
08
O21A
WAP
- VaA2C
IPE
13FR
1F83
13D5
IFFS
1c5C
oc
O21A
1450
13N5
OA
01
13CA
C000
cccoocoo
T3ZKHARFTO
571512
01
V3AZ
J3AF
1381
1426
T1E6
co
00
130P
13E0
13E2
13FC
13FD
i3PE
V3FP
1400
1401
1402
1403
14048
1405
1408
OMAR?
571572
STST
693
694
695
696
697
698
699
700
701
702
703
704
705°
706
707
708
709
710
714
712
713
714
FAS
716
77
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
780
741
792
743
7448
745
746
737
7as
7a9
750
751
752
753
754
755
756
757
758
159
760
SOURCE
PRTARY.
RTNSLB
RTNULC
RTNBLE
RTNSLP
SNSPRT
RTNS MB
RTNSTB
RTNYSB
RTNYEX
SKTBL4&
HISTBL
290CT71
571601
STATENENT
8 PRINT
pc XL1'O2
*‘DC IL 1° 19°
pc AL2 (SEEKAT)
avi THISER, X* PP
*CLI 0(,XR2) ,0
JE RTNaLC
vc STATUS~1(1) .-0(, X82)
mvI RTRYSB+1,01
LA STATRD,XR1
B SRSPRT .
L TBLSAY, XR2
TBF 1(,XR2),xX*80°
JT RTBSLE.
4ZZ STATUS—1,1(,XR2)
BVI RTN4USB41,X°8 0!
LA STATBZ, X51
3 SNSPRT
CLI THISER,X'FF
*JE RTINULE
a PRINT
DC XL1¢O1
*oc IL1*8
*dC AL2 (HOERR)
ALC TBLSAV (2} , FOUR
ALC PRALST (2) -ONE
B RTNG@LA
ST RING EX43, ARK
LA STMASK ,XR2Z
aYC RTNYTB+1(1),0(,XR2)
avc STATPR (18) ,0 (,X&1)
T3N STATUS-1,*-
*JF RINGSB
B PRINT
pc XL1°O7
*pc IL1*18¢
pc AL2 (STATER)
aVI THISER,X'FF
*CLI RTRUTB+1,7%-
*JE RTINSEX
LA 1{ , XR 2} ,.XR2
LA 18 (,XR1} ,-XK1
8 RTNASB
3 e~-%
pc IL1*09#
Dc ILV*1i
*Dc ILT#172¢
pc IL1°343°
*pc IL@¢128
pc IL1*1278
pc IL17*og9
*oc IL1*00
*pc XILt°FF
*Fou
*pc XILe "Os
1SNOV71 TOK aRIZ
571605 571591
: é Pee. ne
? & : : ; . : é
TO PRINT ‘ARRIVED AT?
‘FLAGS
LENGTH
#ESSAGE ADDRESS —
SET ERROB FLAG
CHECK POR STATUS ERRORS IN BYTE 0 |
JUBP IF HO ERRORS
PUT SENSE BITS IN TEST BITE:
SET LIMIT BITS
LOAD XR1 AS BHESSAGE POIRSTER
TO DECODE BYTE 0.
LOAD TABLE POINTER
TEST BIT IN BYTE 2
JUMP IP ALL OFF
PUT SENSE BITS IN TEST BYTE”
SET LIMIT BITS. -
LOAD XH1 AS BESSAGE POINTER
TO DECODE BYTE 2
TEST FOR ANY PREVIOUS ERZORS
JUMP EF YES
TO PRIST NO ERROR)
STEP TABLE POINTER ‘
STEP PARASETER LIST POINTER
SAVE EXIT ADDRESS
LOAD XR2 AS TEST HASK POINTER
SET MASK BIT Ih TEST BITS INST.
SET MESSAGE In PRINT FIELD-
TEST CURBENT BIT FOR OM , A la
BYPASS PRINT IF OFF
SET ERROR SWITCH
TEST FOR FINSHED
JUNP IF FINSHED
STEP BIT POINTER
STEP MESSAGE POINTER
TO TEST THE NEXT BIT
EXIT
PROG ID 0a03-6
PAGE 7A
4036
‘ERR LOC
7409
| 18CD
1471
1915
1419
141D
1821
1927
142F
1437
14 3F
1046
144F
1959
1851
1459
1461
1469
1471
1876
TUTE.
1482
148A
1492
149A
1UA2
148A
1480
1488
15BR
14c2
TaCA
T4CD
44D5
1uDD
18E2
14EA
T4FC
14F7
1uFE
DATE
EC NO.
1425.
SEEK PUNCTICN
‘OBJECT CODE
cocooorn
occncgoo
CCcocnoo
occocoo0
occa0co0o
CCCCO00D
cCCeocoon |
oco4
E2C5SCSD2N0ETETET
EVETETETGCETETET
uO P3DICIC3D2E26B
NOE IDEMOFIETET
N5N64 0CSD9D9 DDI
0000
00
C5DSDIDOD IE 240D6
C3C3FUDIDICSCHLO
CIC6EICSDIOC UDG
CODSCT“OCINODICS
cicuuocycs
WIC TEIUOCIESDIUB
WORVETE?
CSD 9DIDEDIE2UN DO
C3C 7ESDIDIC EC44D
F6CRC9DICSHOE2C5S
C5I2C9DSC740C 3E8
DIUB4OETETET
F2C5C5D2C5C 4403
DO49C3 FB DIY BYOET
ETET
CIDIDICI FSCS Cu
C1IEINOC3EBD34R40
ETE7 FT
EBOCHCODICSYCE 2CS
CSE2ZCIDSCTYOETET
PTETEVETET
HOCED9Db DULOC3ESB
D3SBUCEVETE7
CODODIESCIDICY
COLPSUODICSES4S
UCUOLOUDYIEINO
TIMAPTO
571512
TEST
ADDR
140Cc
1410
WATsE
1418
WIC
1420
1424
0020
TH26
1445
wap
14 UP
1450
1475
1481
V4A7
1889
VeCC
Tun
14EF
TPS
14 PD
1504
OUMART1
571573
“TBM MAINTENANCE DIAGNOSTIC PROGRAR
STMT SOURCE STATEMENT
761 pc XLa'QO8
762 pe xLa*o
*‘763 pc xXL4 *oO#
764 pc XLu* oe
765 pc XLUtO#
766 pc XL4tOt
767 DC XL4¥ tot .
768 TBLYLG EQU *- HISTBL LENGTH OP HISTORY
769 POUR dC TL2,¢ut
ae SEKSUM DC CL31"*SEEK XXXXXXX XXX TRACKS, TO Xxx
*770
770
170
771 NOERR DC CL8*NO ERROR®
772 TBLSAY DC XL2¢0O
*773 THISER DC XL1'ot ‘
a DC CL37*ERRORS CCCURRED APTER DOING A READ
774
778
774
775 RDIDER DC CLi2Z® AT CYL. Xxx?
775 :
ae EPRORYD DC CL38" ERRORS OCCURRED WHILE SEEKING CYL.
776
776
776
776
777 SEEKTO DC CLIB‘SEPKED TO CYL. XXX?
777
777
778 SEEKAT DC CLIS* ARRIVED AT CYL. XXX
*778
778
779 SEEKDR DC CL21*WHILE SEEKING XXXYXXIXt
779
779
78C OLDADR DC CL14* PROM CYL. xXxXx
*780
781 FORWD DC CL7' FORWARD?
782 REV pc CL7°*IN REV.
*783 SVNBLK DC CL?° '
290CT71 15NOV71 ISMERT2
571601 571605 571591
PART NO.
PAGE
TABLE
Ip
*XxXx
*PROG ID
PAGE
5129624
8
8
IBM MAINTENANCE DIAGNOSTIC PROGRAM
A036
ERR LOC
1505
1506
1507
1509
150D
1511
S15
1519
151D
ISTE
1522
1925
1529
TS2A
1525
152D
1S2F
1533
1535
1598
1S3P
1543
was
1547
1548
154C¢
54D
1540P
1553
1557
155R
1595C
1S5D
1S5P
1563
1565
1560
156P
1573
1575
1577
1578
1S7C
157D
1S7F
1583
1587
1588
158C
158d
1S8F
1593
1895
15939
1S93D
1S9E
WSR2
DATE
FC NO.
SEEK FUNCTICN TEST
OBJECT CODE ADDR
05 1505
00 1506
16B1. 1508
38 08 OAOC
cO 10 0216
3D 00 0818
CO 81 OAI0
co 87 1c07
03 151D
39 04 IC5C
P2 10 10
CO 87 O21A
C6 1529
21 152A
1661 152
A090 152°
CO 87 0222
A090 1534
Oc 01 1C&3 CD61
3c 99 126C
CO 87 1F9C
1C42 1544
WHAT 1546
CO 87 ICR?
ao 154R
00 154c
1c61 T54F
CC 87 1565
CO 87 1245
CO 87 021A
06 1558
26 155¢
TUAT 1552
CO 87 9222
A"09 1564
3C 04 1Cb2
OC 02 1639 9N61
CO 87 1P8C
1C62 1574
1UA7 1576
ce 87 107?
co 157B
co 157¢
1cé1 ISTE
co 67 1595
CO 87 1EuS
CO 87 C214
ot 158R
26 158C
TWAT 1582
CO &7 0272
A009 1594
c2 01 1779
CO 87 1¢07
03 159D
38 04 ICSC
PZ 10 IC
TIPARTO OIARTI
571512 571573
852
SOURCE STATEMENT
*
RT NS
RTNSA
RTNSB
290CT71
571601
MVC
“VI
MVI
TBN
JT
TS NOVT1
571605
PART HO.
PAGE 8h
ROUTINE NO. O05, MEASURE READ SETTLING TIRE
XL1°05
*XL1¢00
*AL2 (RT N6)
UNA, X*OU®
LINK
seTsa,0
SETDSK
SENSE
XL1°03¢
STATUS-1,1°948
RTNOA
XL1°C6?
IL1°33°
AL 2 (HEADP1)
XL2*A090°
HALT -
XL2*A0908
WRTDFC#2(2) , ZERO
SNSID,09
CVD
AL2 (WRT DFC#1)
AL2 (ERRGRS)
STRTIO
XL1*O
*XL1*0°
AL2 (WPT DFC)
RTNSB
PRTSNS
XL1*06°
IL1* 38°
AL2 (ERROR)
HALT
XL2*A009
*WRT DFC#+1,1
HDTIME (3) ,ZERC
cvpD
AL2 (WRT DFC#1)
AL2 (ERBOR9)
STRTIO
XL1°0°
XL1 soe
AL2 (WRT DPC)
RTNSC
PRTSNS
XL1° O06"
IL1'38
*AL 2 (ERRORS)
HALT
XL2*2009°
6000,kR1
SENSE
XLV°O3
*STATUS-1,K'C4?
RTNOD
ISMART2
57159 %
ROUTINE NOUANBER
ROOTINE FLAGS
ADDRESS OF NEXT ROUTINE
TEST FOR HIGH SPEED
BYPASS ROUTINE IF DEFINED
HAVE PARAMETERS BEEN ENTERED?
BRANCH IF 8O ,
SENSE DEVICE STATOS oe
BYTES 2 & 3.
- TEST HEAD SETTL™HG BIT POR OFP
JUMP IF OFF . .
TO PRINT READ SETTLING BIT ON
FLAGS —
LENGTH
MESSAGE ADDRESS
MESSAGE ID
TO DCP HALT
HALT 1D
SET TO SEEK TO ZERO
INSERT ID IN PRINT
TO CONVERT CYLINDER NUMBER
ADDRESS OF SOURCE
ADDRESS OF DESTINATIGS
TO SEEK TO 0
FPUNCTICR CODE, [(CONTROL)
CONTROL CODE, (SEEK)
CONTROL FIELD ADDRESS
GOOD RETUBH
ERROR O8 SIO
TO PRINT ERROR
- FLAGS
LENGTH
MESSAGE ADDRESS
TO DCP ERROR HALT
HALT ID
SET TO SEEK TO CYLINDER 1
ZERO THE TIME AREA
TO CONVERT CYLINDER NO.
ADDRESS OP SOURCE
ADDRESS OF DESTINATION
TO SEEK TO 3
FUNCTION CODE, (COXTROL)
CONTROL CODE, (SEEK)
CONTROL FIELD ADDRESS
GOOD RETURN
ERROR OWN SIO
TO PRINT ERROR
FLAGS
i ENGTH
MESSAGE ADDRESS
TO DCP ERROR HALT
HALT ID
TO SENSE STATUS
BYfES 2 AND 3
TEST THE HEAD SETTLING BIT
JUMP WHEN IT COMES OF
PRCOE ID 0A03-6
PAGE BR
5129628
eoececceccccecce
IBA SAINTENANCE DIAGNOSTIC PROGRAR
ad36
ERR LOC
1S5a5
1549
1SAD
15Bt
45B2
1583
1535
1587
15BR
15BD
15C4
3$c7
15¢8
wscc
15p0
1SD4u
ISDA
ISDD
1520
1SFt
SEA
ISFO
TSF6
isi¢
ISFF
TE0s
1603
160F
4615
1619
1642
T6148
161
“461F
1623
1625
1629
162E
1631
1634
1639
TESA
163E
TERT
1649
1651.
1ESS
1661
1€€2
TEER
1672
1672
1682
T6ER
169C
1693
TERO
T6R3
CATE
EC WO.
SEEK FUNCTION
OBIFCT CODE
36 Q1 I7E2
cO 84 1999
cO 87 O2TA
c6 i
26
1687
4091
©o 87
A091
co 87
0222
02716
1639
GE 02 16 30
co 87
03
1C07
38 OH
co 16
1¢5¢
15C1
0D 02 1639
P2 84 03
F2 87 OA
1633
op 02
co 82
1639
0216
1636
0c 02
04 40 163D
OF 02 1640
F2 87 OA
06 04 163D
CO 87 15F6
OC 01 16A2
0c 01 169F
cO €7 021A
C6
29
16F0
A004
4640 1639
TPET
T1E6
162D
163¢
163A
co 87
AOO0d
0222
cG 87 0216
FOFOFOFOF1
00005D
COEBDCG
OO6ERC
co0000
CCOGCO0OR
cooceo
CECECICUUOE2ZC5SE?
F3r 3Ic9OPSC74#OL 2C§
DSEZCS4OCZCIE3NO
CILIECCIESBEZYOES
D?
CECECIUW ROE IC HE
E203¢ 915074 OF2C5
DE EZCS40C 2C SEIKO
LSCE ESCSLSMOCIDG
LUCSEZNYOEUD?
COCECICUUOEZCE F3
EILIC SNSC TUOP% 8
DUCSKOCIEZUOEVET
QBEVE?
SYLUCID3IDICSEOCEZ
TIMARTC
571512
TEST
ADDR
35B1
15B2
1584
1SR6
SBC
15CB
1619
TE123
TE1C
ITE
1624
162D
1630
1633
1636
1633
163D
1EK0
16671
16E7
1642
1€£0
OIMART1
571573
REG1,IB1
RTNSC+S
PRI WT
XL ¥*°C6t
IL1*38¢
AL 2 (HEADF2)
XL2*a09 15
HALT
XL2°A091°
LIBR
ADTI#E (3) ,TIBTOR
SENSE
RL1° O38
STATUS-7,%°O4
*RTRSD
HDTIME (3) , LOWKOR
RINSE
TIMERR
HOTIRME (3) ,HIGKON
LINK
HEXTIN (3) ,HOTINE
DECTI# (5) , UNITS (1)
HEXTIN (3) ONE
RT NSF
DECTIN(£} , DE RONE (5)
TIMLOP
REDPET (2), DLCTIA-1
®
HEDFRI-3(2} , DECTIN-3
PRIN
XL1°CC#
IL7Tea ye
AI? (EETHFD)
XLZ*AgQMs
HALT
XL2°a0cus
LI BK
CLS*COCC 16
IL3*93!
IL3*27ec0
*IL 3" 223068
XL3'O
*IL4*Ot
XL2°c*¢
- PART BO. $129626
PAGE 3
.
DECRESENT DELAY COUNTER
LOOP BACK ‘
MESSAGE ADDRESS
BESSAGE ID
TO DCP ERROR RALT
HaLT 1D
ROUTINE EXIT
ADD TO TINE CONSTANT
TO SENSE STATUS
BYTES 2 AND 3
TEST THE HEAD SETTLING BIT
LOGP TILL IT GOES OFF
IS CORPUTED TIME GREATER THAN MIB?
BRANCH IF YES
TO ERROR IF NO
IS COMPUTED TIMP LESS THAR SAX?
2¥F YES, EXIT ROUTINE
SET HEY COUNT VALUE
ZERO THE DECIMAL TINE ARBA
DECREREKT TEE HEX CouNT
STEF THE DECIMAL COUT?
LOOP
SET TIME 18 SESSAGE
TO PRINT HEAD SETTLING TIAE
FLAGS
1 ENGTE
MFSSAGE APDERESS
MESSAGE 1D
TC DCP EREROE HA&aLtT
HALT 1°
ROUTINE EXIT
CL33*ERAD SETTLING SEYSE BIY ALWAYS UF
*CL3IG*KEAD SETTLING SENSE BIT FEYPE CORES or?
CLZ7°ELFD SETILIVG FIKE IS XJ.Xx
*CLUQ* HKILLI-“SFCGHNLS
*IS EART2
STMT SOURCE STATESENT
853
85a &
855 8H
856 B
857 pc
858 oc
859 Dc
860 pc
861 B
862 pc
863 B
B64u
865 RTW5D ALC
866
867 B
868 DC
869
B70 TEN
a7i BT
872
873 cLe
874 JB
875 J
876
877 RTNSE CLC
878 BL
879 -
880 TIMERR SVC
881 ZAZ
882 TIMLOP SLC
883 JL
88a AZ
885 B
886 RTNSF MYC
887 “VC
868 B
889 pc
890 pc
891 pe
892 pc
893
894 B
895 bc
896
897 B
898
899 DFMONE DC
900 TIMNKOS DC
901 LOWKGN pC
902 HIGKON DC
903 HDTINE pC
904 DECTIN DC
905 HEXTIR DC
90€ HLEDEF1 pc
90€
906
906
906
907 EEADP? DC
$07
907
907
$07
90% HEDFET DC
908
908
908
$09 PRTFEDL pC
290CT71 1SNOV71
571601 571605
5715914
PROG ID 0403-6
PAGE -)
5)
ORE ees ee os : CLs : . , . : : . eo .
Saas S -. = - ne ~ a : . afar eee
10M MATRTERANCE DIAGHOSTIC PROGTAK
AG36
16AR
1681
1682
1653
T6B5
1689
1680
16C%
- 168
16C8
16CB
16CE
1694
16D4
1608
%6DB
TEDF
16E3
16Ea
TEES
I6E7
16EB
16EP
16F3
16F7
T6FA
16FE
702
1706
170C
1718
1718
W115
W714
1718
T7IA
TIVE
1726
1723
T72A
TIQE
172F
1333
1733
736
17: 3L
17k?
1746
T7TUA
74D
Late
SEEK FUNCTION“
SOP eral SS ers Se) asp sty
”
om ee
BOUTIBS NO. 06, TEST OP THE SEEK CHECK TIBSEOUT COONTER ©
425T
FRE -LOC OBJECT CODE | ADDR STAT SOURCE STAT EREKT
CSC3DED5SCEE2 909
: 3 910 ©
911
06 16B1 912 RTNGE DC XL1°O65
00 1682 913 pc XL 1°05°
Cr 16B8 914 pc AL2 (RT RT)
3D 00 “0818 945 CLI SETSW,0
cO 81 0at6 916 BE SETDSK
917
3D F2 0BS0 918 CLI SPNSSG,C'2
*F2 61 15 919 JE PHT PAS
C2 G1 90232 920 La UTAB,ZE1
7D 20 00 921 RTN6F CLIO OU(, XR1),X?BO
*F2 81 OD 922 JE RTREE
78 410 01 923 TBN 1(, 481), %*108
n2 01 C3 924 La 3(_2%K1) ,XB1
co 90 16C8 925 BF RTH OF
F2 87 10 926 3 RT NOD
927
*928
929
C1 RO I7RA 930 RTN68 TIO RINGEA,X* BO!
931 ©
932.
CO 87 U21A 933 PRTPAS 8 PRINY
06 16£3 934 pc XL1*06t
25 16FQ 935 DC IL1*378
1749 16E6 936 Dc AL2 (PIPAS6)
937
CO 87 0216 938 B LI RE
co 87 1¢21 935 RTN6D RB RECAL®
940
3c 50 1779 941 NVI ARDI,3Y*50¢
942
37 AG 1774 943 LIO = =6GUNG,Y*A6
*F2-A0 00 949 S10 0,23*a0'
C1 AO 1722 945 SACK TIO SPER, 2:08
946
321 22°177R 947 LIO) =LONCt1,x*a3
*34.23 1776 948 LTO) =—s LONG -2,, X a3
CF CO 1779 118€ 949 SLC ENDY(1},C0NE
CC O01 16FR 950 BNZ S&C
CC 87 O21A 951 B PRINY
C6 ; 1718 952 pc x1 1°c6"
07 1715 953 pc J11°078
1729 1717 $54 DC BL 2 (RIWGPY}
A092 1719 «(955 DC XL2*aG9z?
956
cc 87 0222 95? B HALT
A092 171P 958 aC xL2*a0Gz¢
959
P2 87 14 966 R TRUST
961
CRCTDIF OF SEZ 1729 962 RTN6M1 DC CLOT@ Ray S2¢
cG 87 1063 963 SEER B SENSE
02 T72F (9€8 bc Y1ts89."
965
7£ Te ICSD S66 TPN STETOS,YICE
CC VC TILA 967 51 SEL:
SbF
3% BY WIA S€9 FRIST Le CORE 28s
F341 C1 97¢ SIC ROL LTE
971
31 a3 1778 972 LIO =©COEP,X*33¢
3% A 1776 973 LIQ =6YOKF,3*23'
C1 R2 1745 974 T1G) «CRUSE, 2°Aaz6
FZ &7 1F 975 J RINGE
31 23 1778 976 CRUSE LYO CORE,Y* E34
VIMAETC QUmeP54 290CT71 ISKOVTT ISFLE VE
S71£12 571573 571601 571605 $7 1591
FC KO.
onowgae
en tht er
,
ROUTINE RUBBER
ROUTINE PLaGS
ADDRESS OF NEX1
HAVE PARAMPTERS
BRANCH IF NO
ROUIIEF
IS THIS RORNING
JUMP IF YES
LOAD POINTER TC
TEST POR a DISK
UDT TABLE
BEEK EKTERPR?
OR DIS® 2 2?
see
51296278
ga
I
DRIVE 2 ETH
JURF TO THE TIC I}! TREAR 1S OF
TEST FOR LAST ENTRY
INCREMENT TABLE POINTER
BRINCH BACK TF OT DONE
NO DISK DRIVE 2 EWTELES FousD,
SO RUN TEST
RUN THIS RCUTINE CHLY WHER DISK 2
IS NOT READY
TO PRIKT ROUTINE EAS BEES BYPASSED
BESSAGE ALDRESS
ROUTINE Exit
TO RECALIERATE
SET FOR TRA“F XINC.
SET TO SEEK FORSAERD
5S FEK
BRANCH GN SEER EREOB
‘TURP OX THE INDEY B39
TORN OFF THE JADE FIY
DECKESENT COUNTER |
ERANCK WKIIE B02 LEXG
TO PRINT ERROR
PLAGS
LENGTA
RESSAGFE &DDKESS
MESSAGE 1D
TC DCP ELROB 8i1T
RALT ID
TC SENSE
ELTES C € 1
TEST FOE SEER &USY
LOGP T1LI SLER LUSTY Drors
RLaC 10
TO KOUTISZE EXIT
PROG Ib
FaGE
SUBROUTINE
PULSES
-Gacj-€
$2
IBM MAINTERARCE DIAGNOSTIC PROGRAZ
‘4036
CL37*ROOTINE 6 BYPASSED WHILE DISK 2 IS On®
SFEK FONCTION. TEST
FRR LOC OBJECT CODE ADDR STMT SOURTE STATESENT.
1754 37 A3 1776 aes 977 Lio YORE, X*a3®
1755 €1 A2 2175¢ 978 TIC BROSH, X*A2
*1753 F2 87 10 - 979 d RT ROE
175C CO 87 O2TA 980 BRUSH B PRINT
1760 C6 3760 #981 oc XL1*Ce?
1761 07 1761 982 pc IL?V°o7
*- 99682 17848 91763 98} DC AL2 (RT HSB)
1768 1093 1765 984. pc XL2°*aGS3?
1766 CO B87 0272 386 B HALT
“376A A093 1768 987 pc XL 2*a093°
ae 288
-. . ‘$96€ £3 At O01 989 RTNGE ST X'OUS, x*a
**S$ 76F CO 87 0216 990. B. LINK
oe 9773 «1770 7778 991 GONG BC. AL2 { LONG}
“4975 8ct00 1776 .982 YORE be ¥L2*8006°
3777 «9000 | 1778 993 coRD pc XL2*oG0at
; - 994
41779 60 1779 995 ANDY. DEC XLi*06
" £73 €0009180 77D 996 LONG pe XLS * 000001 8G?
TITE C8CIDIEIOP IF 3 178% 997 RTN6RZ DC CLO7'HALT 93°
1785 DODEESE3CIDSC520 1709 998 BYPAS6 DC
VFBD FOUNCIEBDIC IEZE2 998
1795 CSCUUDESBCRCED3CS 998
179D GOCECYE2D2U0FP 240 938
17A5 COEZGODEDS 398
WIAA 30 R2 5D - 999 RTNGA SRS STATUS ,I*B2
*7000 *®
Q7AE 38 49 ICSC 1001 TRN STATUS-1,X°80!
17B2 CO 10 1658 1002 3T RTRED
17B6 3C FF W7CP 1003 “VI RFIPLI,Y' PP?
V7BA 31 BG T7CA 1004 LIO RPLADR,1' BG!
17BE F3 BO 09D 1005 sio UO, X'BOF
1701 C1 BO I7AA 1006 TIO RT NOA,X* BO?
77CS CO 87 16DP 1007 B PREPAS
7008
17C9 17CB V7CA 1009 RPLADR DC AL2 (RFI ELD-3}
17CB COCOCOFF IF7CE 1010 RFIELD oC XL&* GOGOUCFF®
10171
V7CF 07 VICF 3012 RTNT pc XLP*O7?
17DO 00 17D0 1013 pc XLG°o08
17D1 17DF I7pD2 1074 pc AL2 (ETNA)
1015
17D3 3c CO O8ia 1016 aVI SETSW,0
17D7 3C CO 0817 1077 BYI SEPUDT,0
1T7DB CO 87 O00CO 1018 8 G
LATE A3ZHARTO OVWART1 290CT71 15SNOV71 15M RR72
EC NO. 5717512 571573 571601 5771605 571531
PART NO.
PESE
TO ROUTINE EXIT
TO PRIST ERROR
FLAGS
LERGTH
RESSAGE ADDRESS
BALT ID
TO SCF ERROR HALT
HALT ID
TO SENSE DEVICE STATES
GET BYTES 0 AND 1
3128625
30
TEST FOR INTERVENTION BEQUIRED
BRANCH iF GN, RUE TEST
SET POR RECALIBRATE
LO2D FOR RECALIBRETE
BRECRELIBRATE
DISK DRIVE Z IS NOT READY,
DISK DRIVE 2 IS READY,
RCOTIRE wWUNBER
ROUTINE FLAGS
ADDRESS OF KEXT ROUTIEE
SET ENTRY SWITCH TO ZEEC
ZERO THE SKIP UDI FLAG
RESTART PROGRAR
PROG ID
PAGE
TEST 87
BYP&SS TEST
OA03-6
16
4
|
{
|
|
|
|
i
SFEK FONCTION TEST
JSS WAENTERANCE DIAGROSTIC PROGRAS:
R036
ERR LOC OBGFCT CODE ALDER STST SOURCE
.1020 «©
1027
W022 =
. 4023
T7DF O08 T7DF 1025 BTNS
47EG 80 TIED 1025
W7E1 PRPF 1782 1026 NEGI
1027
I7E3 3D ©O OBIA 1028
V7FF CO 81 DAO 1029
WEB 3C C7 TA5SD 1030
I7EP 3C CC? TAGE 1031
17P3 3C C7 IWATP 1032
17°97 3D F1 OB50 40 33
FB P2 81 OC 1038
WIFE 3C C&O TASD 1035
1802 3C CH IA6F 1036
1806 3C CoO TA7P 1037
160K CO 87 O2Z1A 1038 PNTINS
IB0E 02 1BUE 1039
IQ0F 12 OF 1040
1816 1050 1871 7081
1812 CO 87 O21~a 1042
1B16 01 B16 10483
1817 171 1617 1044
1818 1A614 1879 10485
181A CO 87 O2ZIA 1046
BIE Of W8IE 1047
IBiF 71 IRTP 1048
1820 2072 18274 10489
1822 CO 87 OZTA 1050
1826 06 1826 7051
1827 17 7827 1052
9828 1A83 4829 1053
187a CO 87 9222 1054
182F AOFC 4B2P 7055
1056
7870 3c 01 IDBS 1057
783% 3C 00 TDBG 1958
1B3IH C2 O01 WAIA 1059 RTNTOR
183C 34 CT TAZC 1066
18869 35 07 1k2C 1061 DYAG6
1BuU4 7D FF O09 1062
18687 CO £1 1998 1063
184A 3c CO 1A32 1068
18SGF TC OO 1028 CO 7065
7858 UD 00 CO IDRE 1066
4859 F2 01 02 1067
785C 3C FPR 1232 1068
1669
1860 CO 87 ICR? 1070
18648 OO 71868 1071
1865S 00 1€65 1072
1866 1A27 18667 1073
18648 CO 87 186C 1074
186C CO 87 18706 “1075
1870 CO 8&7 1ICcC7 1076
1874 03 1874 1077
1875 3D FPF 1a32 1073
1879 CO £1 1979 1079
187) 39 60 1CS5D 1080
1881 P2 90 1B 1081
1884 3C 80 TE6C 1082
1888 CO 87 1E45 1083
188C CO 87 O21A 1084
1890 Cé 1890 1085
1891 30 1891 1086
1692 1AB3 1893 1087
DATE TIMARTO OMART1 290CT71
FC KO. 571512 571573 571601
TS PEN FE
371531
$129628
PART BO.
PAGE TOR
STATENERT
ROUTINES TO TEST THE *GO’ AND *TRACK CROSSISG LISES*
*ROUTINE PREFACE
*pc XL1°08° ROUTINE NUABER
DC XL1°80° ROUTINE FLAGS
pc XL2°Frrre LAST ROUTINE FLAG
CLI SFETSH,0 HAVE PARABETERS SEEN ENTERED?
BE SET DSK . BRANCH IP XO
NVI JUNP1-4,C*G? SET FOR DISK DRIVE 1
SVI J08P2-4,C'G* ° f° cafe
SV¥V¥ JUBP3-4,C°G! La DAES tee
CLI SPHNaMSG,C*1* TEST FOR RUNNING ON DISK DRIVE 1
5 PRTINS , a
NVI JUSP1-8,C'F® SET POR DISK DRIVE 2
SVT = JUSP2-4,C*F
*AVI JUNP3-5,C°F* 6
B PRINT TO PRINT IESTRUCTICRS
1 XL1*02¢
DC IL1* 30°
DC AL2 (OPI NST}
B PRINT
DC XL1°O918
pc IL 19178
oc AL2 (JUMP)
3 PRINT
pc XL1°07¢
pc IL1°%7#
pc AL2 (JUNP2}
8 PRINT
pe XL1*06
*Dc IL4*17"
pc ALZ{ JURP35
B HALT
oc ¥L2°ROFC
*AVI ¥FRSTPS,01 SET TO ELISINATE A RECAL.
S¥I oo LASTAD,O SET TO IXDICATE kT CYLINDER O
LA SKTBL,1R1 SET XR1 TO POINT TO
ST PRELST, XB1 BEGINWING OF PARAMETER LIST.
L PRELST,2K1 LOAD CURRENT PARABETER ADDRESS
CLI O(,ER1),X*FF* CHECK FOR LAST OBE
BE DIAEXT BRANCH IF DONE
NVI HOTSH,O ZERO SOTXON SHITCH -
MVC DIADPC41(1},0(,.XR1) HOVE NEXT PARAMETER LIST TO CTL
CLC O(1,XR1),LASTAD COMPARE NEW SEEK ADDR. OLD ADDER
JNE +7 JOMP IF ROT THE SASE
AVI NOTS#,X*PF® SEEK ADDR.THE SANE, SET S#ITCE
B STRTIO TO SEEK . Fe Ee gee
pc XL1*0° FUNCTION CODB, (COETROL) eta Se
pc XL1°O° COBTROL CODE, (SEEK) .
DC AL 2 (DIADFC) COETROL FIELD ADDRESS
B *eU , 7
5 +44
B SENSE SENSE BYTES
pc XL7#038 25 3
CLI SOTSU,X* FF CHECK FOB A NO MOTION SEEK =
BE NOSOT BRANCH IF THIS WAS A KO SOTION
TBF STATUS, K*60* TEST FOR *GO* KNOT UP
JP DIAGS JUNP IF UP
AVI SNSID,X*60
*B PETSNS
B PRINT - TO PRINT GO NOT UP
pc XL7*C6* FLAGS
DC IL1* G8 LENGTH
DC AL2 (NOGO} MESSAGE ADDRESS
15NOV71 TOMARTZ PEOG ID 0a 03-¢
571605 PAGE 10a
IBM MAINTENANCE DIAGNOSTIC PROGRAA
$129628
PART HO. 5129628 IBA MAINTENANCE DIAGNOSTIC PROGRAA PART HO.
SOURCE STATENENT
A036 SFEK FONCTION TEST
ERR LOC OBJECT CODE ADDR STST
1898 A080 1895 1088
1896 CO 87 0222 1089
1594 A080 189B 1090
189C F2 87 F9 1091
1092
189F 0C 01 1A2E 1830 1093 DIAGS
109%
18a5 CO 87 1007 1095 DIAGA
189 03 1839 1096
18AA 38 02 1C5C 1097
18AE P2 10 4P 1098
1099
18B1 OF 01 1A2E 1126 1100
18B7 CO 8&4 18A5 1101
1102
18BB 39 60 1C5D 1103
1RBF P2 90 18 11048
18C2 3c 84 TE6C 1105
16C6 CO 87 1E45 1106
18CR CO 87 021A 1107
18CE C6 18CE 1108
18CP 32 18CP 1109
18D0 1B9B 18D1 1110
18D2 A084 18p3 1111
18DU CO 87 0222 1112
18D8 a0s4s 18D9 1113
18DA F2 87 BB 1118
1115
18DD 3C 85 1B6C 1116 DIAG
18F1 CO 87 1E85 1117
18E5 CO 87 021A 1118
18F9 C1 18E9 1119
1BEAR 2F 18EA 1120
1BEB 1BCA 18EC 1121
18ED A085 1BEE 1122
18EF CO 87 021A 1123
18F3 06 18P3 1124
16Fa 15 18P8 1125
18F5 1881 18F6 1126
18F7 CO 87 0222 1127
18FB A085 18FC 1128
18FD P2 87 98 1129
. 1130
1900 c2 01 19C¢8 11317 DIAGB
1908 CO 87 1C07 1132
1908 03 1908 1133
1909 38 02 1C5C 1134
190D F2 10 2c 1135
1136
1910 OF 00 1A31 1186 1137
1916 F2 81 3F 1138
1139
1919 39 60 1C5D 1140
191D CO 90 189F 1941
1182
1921 3c @2 1£6C 1143
1925 CO 87 1285 1148
1929 CO 87 024A 1145
-192D C6 192p 1146
1928 49 192E 1147
192F 1B1E 1930 1148
1931 a082 1932 1189
1933 CO 87 0222 1150
1937 A082 1938 1751
1939 F2 87 5C 1152
1153
193C 36 01 17£2 1154 TKTIANE
1940 CO 8% 1904 1155
DATE 13MARTO O1MAR71 290cT71
EC NO. 571512
571573
571601
bc
B
boc
J
mvc
LA
bc
TBR
JT
SLC
JZ
TBF
BF
aVI
1580V71
571605
XL2* a080
*HALT
XL2 *a080
*DIAEXT
TINCTR(2) ,TIMEST
SENSE
XIL1°03°
STATUS-1,X*02
*DIAGB
TIACTR (2, ,ONE
DIAGA
STATUS, X*60?
DI AGS
SNSID, X*84
*PRTSRS
XL1°C6¢
IL 1*62°
AL2 (GODROP)
XL2*a08a¢
HALT
XL2* A084?
DIAEXT
SNSID,X*85
*PRTSNS
XL7°C1°
*IL1¢a7e
AL2 (NOTKCB)
XL2*a085
*PRIVT
XL1°06
*IL1*217°
AL2 (SEEKDR)
HALT
XL2*a085s
*DIAEXT
6600, XR1
SENSE
KRL1*° 93°
STATUS-1,X%*02°
TKTIAE
TKCTR (1) ,ONE
DIAG2
STATUS,X*60
*DIAGS
SNSTD,Z*82
*PRTSHS
XL1°C6¢
IL 1* 73°
AL2 (GOERLY)
XL2*a0S2°
*HALT
XL2* a082
*DIAEXT
NEG1, XR1
DIAGB+N
ISHAR72
971591
PaGE 41
SET UP TIMEOUT COUNTER
TEST FOR TRACK CROSSING
JUMP IP ON
SUBTRACT ONE FROM TIANEOUT CTR.
TEST FOR *GO
*OUNP IF UP
NOT UP
TO PRINT GO HAS DROPPED
PLaGS i
LENGTH i
MESSAGE ADDRESS
HALT ID
TO PRINT NO TK.
FLAGS
LENGTH
MESSAGE ADDRESS -
CROSSING PULSE
LOAD DELAY VALUE IB xR1
TEST FOR TRACK CROSSING
JUSP IP TRACK CROSSING UP
SUBTRACT ONE FROM TRACK COUNTER
JUSP WHEN IT IS ZERO
TEST FOR *GO* NOT UP
BRANCH IP IT IS STILL UP
PRINT GO HAS DROPPED EARLY
PLAGS
LENGTS
BESSAGE ADDRESS
HALT ID
DECRESENT DELAY VALUE
BRANCH BACK TO SENSE IF HOT TISED
PROG ID 0A03-6
PAGE V1
ey
A036
ERR LOC
1944
1988
19589
198A
194C
I9UE
4952
1958
1957
195R
195E
1962
1966
196A
196A
196C
196E
1970
197%
13976
1979
197D
1980
1984
1988
3198C
198D
19RE
1990
1992
1996
1998
199C
T9A0
T9AG
1948
19A9
T9AA
T9AC
19B0
1988
19B5-
1989
19BC
79C0
19¢1
19C2
19¢8
19C6
T9CA
19¢c¢
19D0
19 D6
19DA
19DD
1921
19B3
1985
19E9
19EA
19ER
19ED
FATE
EC NO.
SEEK FONCTION TEST
OBJECT CODE ADDR
cO 87 O24A
co 1988
1c 7949
1006 1948
AOSP 194D
CO 87 0222
AOSP 1953
P2 87 5&1
39 60 1C5D
P2 10 82
3c 83 1"86C
CO 87 1TE45
CO 8&7 O21A
c6 196A
3F 196B
1B5D 196D
A083 196P
cO 87 0222
aode3 1975
F2 67 IP
39 60 1c5D
P2 10 20
3C 81 T1E6C
CO 87. TEa5
CO 87 O21A
C6 198C
2 198D
TADS 198P
A081 1991
cO 87 0222
aos 1997
co 8&7? 1¢21
CO 87 1838
3C OF 1£6C
ce €7 %IcB2
01 1948
01 19a9
1c65 1948
cO 8&7 1973
co 87 1C07
03 198%
38 92 Ic5C
F2 90 10
CO 87 O21TA
c6é 19C0
29 19C1
1BEA 19C3
A08Cc 19¢5
cO 87 0222
agsc 19¢8
CO 87 1£45
OC O02 1481 1C€60
3D FF 1C66
F2 81 16
cO 87 1F8C
1C66 : 19E2
1481 I9ES
CO 87 O21A
06 19E9
31 19EA
1481 19EC
cO 87 0222
T3M ARTO OTHART1
. 5791512 571573
STMT SOURCE STATEMENT
1156 B PRINT
1157 DC XL1°C6?
1158 DC IL1*°28°
1159 DC AL2 (TKUP)
1160 pc XL2°a0@PF®
1161 B HALT
1162 pc XL2*a08PF
*1163 J DIAEXT
1168
1165 DIAG2 TBP STATUS,X*60
*1166 IT DIAG?
1167 MVI SNSID,X°#3
*1168 8 PRTSHS
1169 8B PRINT
1170 pc XL1°Co?
1171 DC IL1*63°
1172 DC AL2 (GOUP)
1173 DC XL2*°a083°
1174 B HALT
1175 DC IL2*a083°
1176 J DIAEXT
1177
1178 NOMOT TBP STATUS,X°60°
1179 JT DIAG?
1180 VI SNSID,x°e81°
1184 8B PRTSES
1182 B PRIST
1183 DC XL1*c6e
1188 pc IL7°3@°
1185 pc AL2(GOUPA)
1186 DC XL2*a081°
1187 B AALT
1188 pc XL2°A081°
1789 DYAEXYT B RECALB
1190 B RTWI9A
1194
1192 DIAG? VI SNSID,xX*°OPR®
1193 8 STRTIO
1194 DC XL1¢078
1195 DC XL1°01°
1196 pc AL2 (RDDPC)
1197 B DIAGS
1198 B SEMSE
1199 DC XL1°03°
1200 TBN STATUS-1,x°02
*1201 IP DIAGTA
1202
1203 B PRINT
1.208 Dc IL1*C6
*1205 pc IL 1° 32°
1206 pc AL2 (DETEUT)
1207 Dc XL2* a08c
*1205 B HALT
1209 pc XL2° acec®
1210
1211 DIAG7A B PRTSES
1212 SVC RDIDER(3) ,» TEREEQ
1213 CLI RDDPCe1,X"FF
*1214 JE DIAGS
1215 8 cYD
1216 Dc AL2 (RDDFC¢ 1)
1217 Dc AL2 (RDIDER)
1218
1219 B PRINT
1220 pe XL7°06°
1221 DC IL1* 99°
1222 DC AL2 (RDIDER)
1223 B HALT
2900771 15NOV71 35NAR72
571601 571605 571591
PAGE TA
TO PRINT TRACK XING UP SOLID
FLAGS
LENGTS
BESSAGE ADDRESS
MESSAGE ID
TO DCP ERROR HALT
AALT ID
TEST FOR *GO
*JOSP IF NOT UP
NOT UP
TO PRINT GO AAS
PLAGS
LENGTA
MESSAGE ADDRESS
HOT DROPPED
HALT ID
TEST POR GO HOT OP
JUEP IP NOT UP
{ 0 PRINT GO UP WITH &O BOTIOR SBEK
FLAGS
LENGTA
BESSAGE ADDRESS
HALT ID ;
TO RECALIERATE SUBROUTINE
INSERT ID IB PRINT
TO I/O SUBROUTINE
PUNCTION CODE (RBAD)
CONTROL CODE (ID)
CONTROL PIELD ADDRESS
GOOD RETURE
TO SENSE DEVICE STATUS
TEST POR TRACK CROSSING STILL OUP
JOSP IP Orr
TO PRIST ACCESS WOT DETERTED
FLAGS
LENGTH
BESSAGE ADDRESS
BESSAGE ID
TC DCP ERROR HALT
HALT ID
ERROR RETURN
PUT 272 IN ADDRESS READ
CBECK FOR ANY DATA TRAUSPER
JuaP IP #O
TO CONVERT ADDRESS JUST READ
SOURCE
DESTINATION
TO PRINT 38D LINE
FLAGS
LENGTE
SESSAGE ADDRESS
TO DCP HALT
PROG ID
PAGE
3-6
tta
18H MAINTENANCE DIAGROSTIC PROGRAM
A036
ERR Loc
19F1
19P3
19F7
19FC
19PF
1003
1206
1A0C
1010
1A 16
JAVA
TA1B
TAIC
TAD
IAIE
TAP
TA20
TA21
TA22
TA23
TA28
TA25
TA26
tA27
TA2B
TA2D
A2F
TA31
1A32
TA33
VA3B
TA43
TAB
1a51
1A59
1061
TA62
_ TAGA
1A72
YAT73
VA7B
1083
TA84
7a6C
TASB
TA9C
TAA
TAAC
TABS
TABC
TaACU
tace
TADS
TADG
TADE
TAEG
VALE
- PAPI
(.. TAPS
1801
1B09
E11
1819
LATE
Ec NO.
2 a
i
SEEK FUNCTION TEST
OBJECT CODE ADDR
AOOP 19F2
35 01 TaA2C
wD 00 C66 00
F2 81 «11
39 03 1¢c65
v2 90 OA
oc 00 1C62 1328
co 37 1C69
OF 01 TA2C 1186
co €7 1880
TATA
01 VATA
GO TA1B
02 TAIC
20 14 1D
09 VAIE
090 IAP
10 4A20
10 a21
00 TA22
20 _ VA23
00 TA24
a0 wa25
PP TA26
VA27
Occoo000 VA2A
0000 TIC
oo0co VAZE
OOFP 1330
00 TA31
00 WA32
C3IDEDSDSCSC3E380 1450
E3C8C580C6D6D3D3
DGEE6CIDSCTSIOD IER
DU DICSDIE2ZNO
E6F3D9F2D4FP OrP&a0 1161
G6CKOEGPICTF2ZDIFO
F2
EOFIDIPZDGFOP38O 1072
GO4OEGF3CTF2DIPO
F6
E€F3D9SF2D7F IFOS0 1383
608 0E6 F3C7F2C7 FO
F4
C7DE4OD3ICIDSC5S4O 1AB3
CHULECSE2N0DSDEF 3
&¥OCIDEDECSS ORS DT
S80D6D5 40C 180R2C5
CSD240 F6ECIEICBRO
DUEDEESCS DSC SDSE 3
C7DOLZOD3CIDSCS4O 1AD5
COF2UOEUD74OCEDE
DIHOCT“ODSDe4ODs
DOEIC IDODS40E 205
e502
C7DESOD3ICINSCS8O 1aFO
CECIE2Z4OCUDIDED?
D7C5C&4 OC 2C SC ED6
D9C54a0
DICSCICSCIESCINS ITE
C74 0C3D6D9 D9C5C3
E3I8ODSDE4BSODECS
SO0E3D9C1C3D280C3
DIDGEZE2C9DSC780
D7 EUDIE2ZCSE2
TIMARTO OWARTI
571512 571573
ST#T
12248
1225
1226
1227
1228
1229
1230
1231
1232
1233
1238
1235
1236
1237
1238
1239
1280
1281
1282
1243
1284
1285
1286
1247
1248
12489
1250
1251
1252
1253
1258
1255
1256
1257
1258
1258
1258
1258
1259
1259
1259
1260
1260
1260
1261
1261
1261
1262
1262
1262
1262
1262
1262
1263
1263
1263
1263
1263
1268
1268
1268
126%
1265
1265
1265
1265
1265
1265
SOURCE STATENENT
DIAGS
DIAGS
SKTBL
DIADFC
PRALST
TIACTR
TIKEST
TKCTR
sOTSa
OPINST
JUANP1
JUSP2
JUSP3
NOGO
GOUPA
GOERLY
290CTT71
571601
PART HO.
PAGE
5129628
12
DC XL2*A00F* HALT ID
L PRALST, XR1 LOAD ADDRESS OF CURRENT SEEK
CLC RDDPC#1(1) ,0 (, X81) COBPARE ID READ & EXPECTED ID
JE = PYAG9 JUSP IF THEY ARE EQUAL
TBP RDDPC,X'03* TEST FLAG BITS
JP DIAG9 JUMP IP EITHER ARE ON.
NVC WRTDPC*1(1),DIADFC+1 SET ADDRESS FOR PRINT ROUTINE
8 SEEKER TO PRINT SEEK ERROR
ALC = PRALST(2) ,ONE STEP PARARETER POINTER
B DIAG
zou ot
DCs KL1":09° TREK 1
pe XL1°00* TRK 0
DC —saXL1#02° TRK 2
DC XL1°00° TEK 0
pC ——saXL1#099 TERK 9
pc XL1*00° TRK O
DC —_«» KL7* 10° TRK 10
pc XL1°10° TEK 10
pC —s-XL1* 008 TRK 00
pc XL1°20° TEK 20
DC ——saXE%17°008 TRK 00
DC XL1°4Q8 TERK 80
DC O—saXL1° FFe
zou. oe
DCs ELGPO8 :
DC XL2°0°
DCs EL2¢08
DC XL2 ‘Pre .
DC —saEL 1°08
DC XL1°0° . :
DC CL30°CONNECT THE POLLOGING JUMPERS®
*DC =—«-« CL17*°W3R2H08 - 3G2902°
DC =—«-—sCL17"°' W3R2803 - W3G2506°
DC —«-« CL17*W3R2P10 - B3G2G08" | .
DC CL48*GO LINZ DOES NOT COME UP OW A SEEK SITH BOVEBENT®
DC CL34*GO LINE IS UP POR A NO MOTION SEEK®
DC © CL27*°GO LIWE HAS DROPPED BEFORE
*DC CLSG*RECEIVING CORRECT NO. OF TRACK CROSSING PULSES®
1SHOV71” 15HAR72 PROG ID 0003-6
571605 571591 PAGE 12. = -
x
")
IBA MAINTENANCE DIAGNCSTIC PROGRAS
A036
ERR LOC
1p1P
1827
1B2P
1B37
1B3F
TEQ7
BaP
1857
1BSE
1B66
1B6E
1B76
1879
1881
1B89
1891
1B99
1B9C
1BAS
1BaAC
1BBG
1PBC
1BCc4a
1BCB
1BD3
1BDB
1BE3
1BEB
1BP3
1BFB
1€03
1C07
1c08
1coP
1013
1€19
1cib
1€21
1025
1¢€29
1C2D
1C 30
1€348
1¢€38
IC 3¢
1C3D
1C3E
Tca0
1Ccua
1C48
1cac
Ic ap
1CaP
1¢50
1c58
1C56
IC5A
1¢5¢
ICSE
DATE
EC NO.
SEEK
OBJECT CODE
PUNCTION
C7D64OD3ICIDSC540
CUC9ICHRODSD6EI4O
C4UD9D6 D7NOCIC6E3
C5D 94 0C 3DhD9D9C5
C3IEZE34OD5D64 BY ODS
C64O0E3DIC IC 3D240
C3D9D6 E2P2C9DSCT
KODTEGD3E2C 5E2
C7D640D3C9D5C540
C&C TE280C UD SDED7
CICSC&adCc2CScb D6
psc540
DICSC 3C5SCIESCILS
C780C 1D5E 8802309
CIC ID2GOC 3D9DGE2
E2C9DSC 74OD7F aD 3
E2CSE2
C7D648 OD 3C TE 3C 3C 8B
4OES D780 5080D5D6
BOEID9ICIC ID2H0C3
DIDEEZEZCIDSC78O
D7ESD3E2C5E280D9
C5C3C9C5 ESCSCH
CIC IC ICSE2E2N0N7
D6E2ZC SE3CIDSDSCS
C4u0C 2C£Z3E6CSCS
DSS OE3DSCIC3ID2ZE2
E3DIC IC 3D2480C 3D9
D6E2E2C9 DSC740D3.
CIDSCSKOESDIUOE?
D6D3C9C8&
38
36
34
08
30
co
08
08
08
03
00
87
tc18
T1E6
1€20
ICTA
ICSD
0000
0000
34
3c
38
F2
3c
3c
co
06
01
1C61
co 87
co 87
co 87
06
24
OCE8
08
co
ca
1¢59
IDEBB
020A
08
OE
87
IDBR
TE6C
1CB2
1056
TESS
O2TA
co 87
AOOE
0222
co 87 coco
0000
0000
6P6F6P
138AR70
571512
OTMART
5715873
TEST
ADDR
IBSE
1B5D
1B78
1B9B
IBCA
TREA
1€06
1c 3C
1C3D
1C3F
icac
Icap
1caF
1¢55
1C5B
1c5D
1¢c60
1
5129628.
PART 50.
PAGE V2R oe
STMT SOURCE STATEMENT
1266 pc CL4&Y8*GO LINE DID NOT DROP APTER CORRECT BO. OF TRACK
*1266
1266
1266
1266
1266
1267 GOP pc CLIS*CROSSING PULSES®
1267
1268 pc CL27*GO LINE SAS DROPPED BEFORE
*1268
1268
1268
1269 GODROP DC CL35*RECEIVING ANY TRACK CROSSIBG PULSES
*1269
1269
1269
1269
1270 WOTKCR DC CLY7*GO LATCH UP & NO TRACK CROSSING PULSES RECIEVED
*1270
1270
1270
1270
1270
1271 DETRNT DC CL32*aCCESS POSITIONED BETWEEN TRACKS®
1271
1271
1271
1272 TKUP pc CL28*TRACK CROSSING LINE UP SOLID®
1272
1272
1272
1273 SENSE 1/0 ROUTINE
1278 SENSE ST SNSHOV¢5, ABR SAVE ADDRESS RECALL REGISTER
1275 A ONE, ARR ADD ONE TO BYPASS PARABSETER
1276 ST SNSEXT¢3, ARB STORE EXIT ADDRESS
1277 SNSHOV an SNS¢1, 8-8 BOVE I8 FUNCTION CODE
1278 SNS sus STATUS,O PERFORS SEBSE
1279 SNSEXT B s-t ExIt
1280
1281
1282 © SUBROUTINE TO DO A RECALIBRATE
1283
1284 RECALB ST RECALX¢ 3, ABR SAVE RETURN ADDRESS
1285 AVI DISKTP,0 SET TO USE HEAD 0
1286 TBN SECTSW,X*O8* TEST SSB 15
1287 oP e477 JuaP IPF OPP
1288 AVI DISKTP, X°08* SET TO USE HEAD 2
1289 AVI SNSID, X*OE® INSERT ID IN PRINT
1290 B STRTIO TO I/0 SUBROUTINE
1291 pC XL7*00? FONCTION CODE, (CONTROL)
1292 pc XL1°01° CONTROL CODE, (RECALIBRATE)
1293 pc AL2 (@8T DPC) CONTROL FIELD ADDRESS
1298 B RECALYX GOOD RETURS
1295 B PRTSHS TC DECODE ERROR
1296 B PRIUT TO PRINT 3RD LINE
1297 pc XL1°06* FLAGS
12986 pc IL1°36° LENGTH
1299 pe AL 2 (RECALE) MESSAGE ADDRESS
1300
1301 B AALT TO DCP HALT
1302 pc XL2*A00E® HALT ID
1303
1308 RECALX B e-8 ExIr
1305
1306 SETXR2 DC XL2*0°
1307 STATUS DC XL2° 0°
1308 THREEQ DC CL3*?77
*7309
290CT71 1S NOV71 ISHART2 PROG ID 0803-6
571601 571605 571593 PAGE 12a
. ~
IAA MAINTENANCE DIAGNOSTIC PROGRAS
a036
ERP LOC OBJECT CODE
1C61
1C62
1€63
1C6u
1€65
1C66
iC67
1c6é8B
C63
IC6D
1C73
1CTV7
IC7A
ICTE
3080
1CB2
1C86
1C88
1C8A
TCBE
IC SF
1¢990
1cC92
ic94
ICS8
1¢99
COR
1¢9C
ICad
ICA4
ICA 2
TCA
1CAB
TCAA
SEFK PONCTION TEST
00
00
00
00
00
00
co
00
34
oc
3D
F2
co
68
02
FF
81
87
1C66
tacc
co
87
1C62
14B9
co
ci
12
87
1489
AOOA
co
01
13
87
t4acCe
co
06
23
87
TaEP
co
87
AOQOA
co
87
CAE CO 87
DATE
EC WO.
1CB1
WCC
1C66
08
TP8C
1P6C
O21A
O21A
O2Z7A
6222
1021
0060
T3MAR70
$71512
ADDR
1C61
1C62
1C63
ic64
1€65
1C66
1C67
1C68
1c60
IC 7F
1€81
87
1c89
ICBE
1C8F
91
1093
1C98
1€99
ic9B
Ttca0
ical
TAR
1Ccad
OIMART1
571573
STMT SOURCE STATESERT
571605
1310 WRTDPC DC XL1°008
1374 pc XL 7°00
1312 pc xL7*00¢
1313 pc XL17°00°
1316 RDDFC DC IL 100°
1315 DC XL1*G0°
1316 pc XL 1°00
1317 pc XL7*008
1318
1219 # ROUTINE TO PRINT SEEK
1320
1321 SEEKER ST SKEREX¢3, ARR
1322
1323 SVC SEBKAT (3),THREEQ
1328 CLI RDDFC+1,X*FF®
1325
*1326 JE SEKERA
1327
1328 8 cvD
1329 pc AL2 (RDDFC+1)
1330 pc AL2 (SEEKAT)
1331
1332 SEKERA B cvD
1333 DC AL2 (WRT DFC#1)
1334 pc AL2 (SEEKTO)
1335
1336 B PRINT
1337 pc XL1°C1¢
1338 pc IL1*18°
1339 DC AL2 (SEBKTO)
1340 pc XL2*a00a
*1341
9342 B PRINT
1343 pc XL1°O18
13489 DC IL1¢198
1345 pc AL2 (SEEKAT)
1346
1387 B PRIBT
1348 DC XL1°06
*1349 Dc XL 17° 359
1350 DC AL2 (OLDADR}
135%
1352 B HALT
1353 DC XL2°a00a"
1358
1355 B RECALB
1356
1357 SKEREX B +3
290CT71 15KOV71 1SHART2
571601 571591
PART UO. 5129624
PAGE 13
PLAG BYTE
CYLISDER NUMBER
HEAD AND SECTOR
HUBBER OF SECTORS
PFLAG
CYLIEDER HUMBER
HEAD AND SECTCR
RUBBER OF SECTORS TO PROCESS
TO PROCESS
ERROR HESSAGES
SAVE EXIT ADDRESS
SET SEEK AT RESSAGE TO ?7?
DETERMINE IF ANY DATA BAS TRANS.
BY THE READ ID COBBAED
JUSP IP HO
TO CONVERT
ADDRESS OF
ADDRESS OF
CYL. WO TO DECIMAL
SOURCE
DESTIBATION
TO CONVERT
ADDRESS OF?
ADDRESS OF
CYL. NO.
SOURCE
DESTINATION
TO DECIBAL
TO PRINT EZRROR
FLAGS
LENGTH
MESSAGE ADDRESS
HESSAGE IDESTIFICATION
TO PRINT 3ED LIBE
PLAGS
LeuGTH
MESSAGE ADDRESS
TO PRINT STH LINE
PLAGS
LENGTH
MESSAGE ADDRESS
TG DCP ERROR HALT
HALT ID
IO RECALI BRATE
EXIT
- PROG ID 0a03-6
. PAGE 13
ae te a NR NR eR PR Ae ee ante ate = Monet temo
IBM MAINTENANCE DIAGNOSTIC PROGRAN
A036
ERR Loc
ICR2
1CBA
ICRA
ICBE :
1CC2
1CC6&
1CCB
icDO
iCD5
tcpD9
ICDD
ICE
ICEY
1CF8
1CEB
ICEE
ICF2
ICF6
1CF9
ICFD
1301
1DOa
1D0S9
1pBoc
1D10
1D13
1D16
1D79
pic
1D20
ID2s
p29
1D25
1D32
DY
IDIA
1D3D
1pat
TDHs
Da?
1DUB
DSP
1D53
1D57
1D59
1D5B
3560
1963
DES
3069
TD6F
ID74
ID7A
ID7D
1D80
7D85
1D88
1D91
DATE
EC WO.
SEEK FUNCTION
OSJECT CODE
PT O06
IDBD 03
IDC? 93
IDB? 03
071 1DB6
F2 81 31
P2 88 17
BR 01 02
1DBG DBO
“4DES 01
WET 14PD
F2 87 23
BA 07 02
DBS 01
OF 00 1DBS 1DR6
OC 06 1421 18F6
F2 87 OC
T3MART7O
571572
OMAR?
§71573
TEST
ADDR
1D58
TDSA
1
PART
PAGE
uo. 51296246
13a
STHT SOURCE STATEMENT
1359 * START I/0 SUBROUTINE
1360
1361 STRTIO ST SETXR2, ARB SAVE ADDRESS RECALL REGISTER.
1362 L SET XR2,XR2 LOAD XR2 WITH VALUE PROB ARB.
1363 AVI RECAL,O RESET SWITCH
7364 NVI SAVS#,00 ZERO SWITCH
$365 VI RDDPC+?,X°PRF® SET READ ID AREA TO *PP®
1366 “NN STO#1,0(,XR2) SET PUSCTION CODE
1367 NVC SI0#2(1),1(,X82) SET CONTROL CODE IB SIG
1368 AVC DFCR(2),3(,XR2) SET DATA ADDRESS POR DPCR
1369 LDPCR LIO DPCR,X*A6S LOAD COHTROL REGISTER
1370 SBF $10¢1,x°08 SET POR REBROVABLE DISK
1371 TBF DISKTP,xX*08° TEST POR RUN ON REMOVABLE DISK
1372 st CKSEER SUMP IP YES
1373 SBN SI10¢1,x*08* SET POR FIXED DISK
1379 CKSEEK CLI 0(,XR2).00 TEST POR SEEK
1375 JE SET ADR IF YES, GO SET ADDRESS
1376 RSTIDX SVI INDXPL,O PRESET INDEX FOUXD BIT
1377 LA 6600,X81 LOAD BUSY LOOP COURTER
1378 SIO SIO x*00%,x*AQO* START 1/0 OPERATIOS
1379 WAIT TIO BUSY,xX*~A2* BRANCH IP BUSY
1380 CLI SAVSW,X‘PRF® IS SWITCH OB?
1381 INE TSTERR IP BO, SKIP RESTORE
1382 SVC =. 3(1, XR2) , DFC3S¥ RESTORE B BYTE
1383 SBP 2(,XR2),01 TURN OFF THE POR/ REY BIT
1384
1385 LDXR2 L SETXR2,XR2 RESTORE PARAMETER POINTER -
1386 TSTEPR TIO 8(,XR2),X*A0* BRANCH IP ERROR
1387 B & (,XR2) EXIT
1388
1389 * SUBROUTINE TO SET THE NUMBER OF TRACKS AND THE
1390 DIRECTION (FORWARD OR REVERSE), TO SEEK
1391
1392 SRTADR CLI 1(,XR2),01 IS THIS A RECALIBRATE?
1393 JNE SETRCL IF "0, BYPASS SWITCE RESET
139% NVI RECAL,X*FF* SET SWITCH TO INDICATE A BBCAL.
1395 AVI PRSTPS,O RESET RECALIBRATE S®ITCR ae
1396 SETRCL MVC XR2WK(2),3(,XB2) SAVE ADDR. OF CTL. FLD. ADDR.
1397 L XR2WK,XR2 LOAD X82 WITH CONTEOL FLD. ADDR. }
1398 HVC DPC3S¥(1) 43 (,XR2) SAVE 8 BYTE IK COBTROL FIELD
1359 NVI SAVSW,X°PP® SET SAVES SWITCR
1400 CLI PRSTPS,00 IS TEIS PIRST PASS
1601 JNE SETADA SKIP RECALIBRATE IPF #O
1802 NVI PRSTPS,01 SET PIRST PASS SBITCA
1403 SBP 2(,XR2) .01 SET PUD/REV BIT TO REV.
14048 MVI 3, %B2),.255 SET MAXIBHUA TRACK CROSSING
3505 VI LASTAD,00 SET OLD ADDE TO 0
1406 NVI SCRCR,255 SET NUSBER OP TRACKS CROSSED
1407 B RSTIDE BRABCH TO I/0
1808
1409 SETADA B cyD TO CONVERT OLD SEEK ADDRESS
1470 pc AL2 (LAST AD) SOURCE ADDRESS
*1914 DC AL2 (OLDADR) DESTIBATION ADDRESS
1812
1813 CLC 14(1,XxR22),LASTAD COMPARE PRESENT ADDR. WITH HEB OBE ‘
1414 JE NOSEEK ECUAL, SEEK IS NOT SECTSSARY
1815 38 PUDSEK NEW ADDR. HIGHER, DO PORVARD SEEK
1916 SBP 2(,XR2),01 NEW ADDR. LOWER, SET BIT FOR REV.
1817 AVC SCRCH(1),LASTAD PLACE LAST ADDR IN WORKABRZA
1818 SLC SCRCH{ (1),1{ , XR2) SUBTRACT NEW ADDR. PROM LAST ADDR.
1419 HVC SEEKDR(7),REV PUT REVERSE IM SEEK DIRECTION ASG.
1320 J SETADB PROCEED
1821
1422 PWDSEK SBN 2{ ,XR2},01 SET BIT OM FOR PORWARD SE3K
1423 NVC SCRCH(1),1(,XB2) PLACE SEW ADDR. IN WORKABEA
1428 SLC SCRCH(1),LASTAD SUBTRACT LAST ADDR. FROS NEW ADDR.
1425 NVC SEEKDR(7) ,FORWD PUT PORWARD IN SEEK DIRECTION ASG.
1426 J SETADB PROCEED
290CT71 15NOV71 1SHAR72 PROG ID 0a03-6
571601 571605 571591 PAGE 138
IBS MAINTENANCE DIAGNOSTIC PROGRAM | PART HO. 5129626 IBM RAINTFNANCE DIAGNOSTIC PROGRAM | PART BO. = =5129624
PAGE 14 PAGE WGA
2036 SEEK FUNCTION TEST A036 SEEK PUNCTION “EST
ERR LOC OBJECT CODE ADDR STMT SOURCE STATESENT PRR LOC OBJECT COLE ADDR STMT SOURCE STATESENT
1427 4480 ¢ SUBROUTINE TO PRINT THE CONTESTS OF DEVICE STATOS e
1D94 BC 00 03 1428 ROSEEK SVX 3(,XR2),0 SET NO. OF TKS. CROSSED TO ZERO. 1484
ID9T OC 06 14EB1 1508 1829 NVC SEEKDR(7),SVNBLK TESS 3&8 08 1EC3 1882 PRTSNS ST PRTEXT¢3,ARR SAVE ADDRESS RECALL BEGISTER
1D9D F2 87 OF 1930 3 ADREXT TO EXIT VE89 CO &7 1007 7883 B SEBSE TO PERFORA SENSE
1431 TE4aD 02 TEGD 1484 pc AL 1(STATO1) GET DEVICE STATUS BYTES © € 1.
1DAO 8C 00 03 1DBa 1432 SETADB SVC 3(1,XR2),SCRCH PLACE IN NO. OF TRACKS CROSS2ZD 1885
IDAS 2C 00 1431 03 1433 HVC = TKCTR(1) ,3(, ZR2) SAVE NUMBER OF TRACKS TO CROSS TPF CO 87 0218 1486 3 UNPACK TO ORPACK STATUS BYTES
IDAR 2C CO IDB6 01 7434 MYC LASTAD{ 1),1(,XR2) SAVE REW ADDRESS 1E52 02 1252 44a? pc XL7°02?
tDAP CO 87 ICFE 41435 ADREXT 8B RSTIDX EXIT 1253 1C5D VES& 74888 DC AL2 (STATUS)
1DB3 0000 IDB4Y 7436 SCRCR pC XL2*OO* 1E55 EDC 1F56 THR9 Bc AL2(HEXSTA-8)
IDBS OG 1DB5 1437 FRSTPS DC XL1°008 VEST 3C 04 7E87 1490 NVI STPSNS¢1,01 SET FOR COMPLETION GF PIYEST SYTE
1DB6 00 1DB6 1438 LASTAD DC XL7°008 TESR C2 014 YEP? 1894 LA STATUD,XRi SET ERI TO POINT TO FIEST HESSEGE
IDB7 00 12B7 1839 DPC3SV DC XL7°008 1ESF C2? 02 iF83 1492 LA STMASK,XR2 SET XBZ TO POIKT TO TEST #ASK
TDBB 00 IDR8 WuG SAVSW DC ELTeoOO0? 1863 CO 87 O2Z7A 4493 B PRIT TO PRINT BEADING
ipB9 60 1DB9 1441 RECAL nc EL7¢oe 4267 C1 1E67 1898 pc XL1°C?? PLAGS
IDBA 0000 4DBB 1842 DISKTP rc XL2¢o8 1268 01 1F68 79995 pe IL 7° OT? LESGTEH
1DBC 0000 IDBD 1443 DFCR oC AL2 ( 4-3} . 7E69 IEF? 1EGA 1496 pc AL2 (STAT#D) HESSAGE ADDRESS
{ DBE tDC2 IDBP 1488 DPLR bc AL2 (WORK) 126B ACCO 1F6C 1497 SNSID DC KL2°A000° BESSAGE IDEHTIPICATIO“N
1DCO 0000 IDC 7885 XR2WK pC XLZ¢08 1498
1DC2 1846 WORK EQU ® 1F6D 2c CO 1278 CO 1499 MOVEBT NYC TSTBT¢1(1),0 (,XB2) SET m2SK BIT IW TEST BITS LESTRUCT.
1DC2 CO @7 1CC7 14087 BUSY 8B SEKSE 1E72 1C 11 FFA 0O 1500 MYC STATPR(18) ,C(,ER1) SET RESSAGE IB FIELD
1DC6 03 1DC6 1488 pc XL1°O3° 7501
1DC7F 38 08 Ic5Cc 1949 TBN STATUS-1,X*08* TEST POR IBDEX 1E77 38 CO 1¢C5C 1502 TSTBT TBN STATUS-1, %-# TEST CURRENT BIT POR O8
1DCB F2 90 Ca 1450 oF 47 JUBP IP KOBE 1E7B F2 9C C8 1503 JP STPSNS BYPASS PRIBT IF OPP
IDCE 3C FF 1Ru4 1451 SVI INDXPL,X'PF? SET BIT POR INDEX RECIEVED 1504
IDD2 36 01 17F2 1852 R HEG1,XR1 1E7E CO B7 O2TA 1505 B PRINT TO PRIBT SES BITHOUT BEADIEG
IDD6 CO a8 ICFS 1853 BR WAIT BRANCH BACK TO TIO IP NOT TIHED OUT 1BR82 01 4F82 1506 pC XL1°07? PLAGS
IDDA 3D FF 1E44 1858 CLI INDXPL,X*PF* TEST FOR ANY INDEX BEPORE TIHEOUT 1F83 12 1E83 1507 pc IL1*198? LENGTE
IDDE F2 81 10 1955 JE TCVD JUMP XF THERE WAS AN INDEX 1284 1F PO 1£85 1508 DC AL2 (STATPB) ADDRESS OF LAST PRIBT CHRRACTER
1DE1 CO 87 021A 1456 B PRINT TO PRINT NO INDEX BEFORE TIAEOCUT 1509
IDES co IDES 1457 pc XL1°C6* E TFR86 3D CO 1278 1510 STPSHS CLI TSTBT¢1, t-2 TEST FOR FISISHED
IDE6 25 I1DE6 1458 pc IL 1° 378 1E8A P2 81 OR 7571 JE SENSA JOSP IP PISISHED WITH THIS BITE
IDET 1635 IDEB 1459 pc AL2 (MINDEX) MESSAGE ADDRESS 1512
IDE® A089 IDEA 1460 pc XL 2°RO8S* MESSAGE ID TEBD B2 02 01 1573 LA 1(,XB2) ,.XR2 STEP KR2 TO POIKT TO HWEXT HASK BIT
1LEB CO 87 0222 1461 B HALT 1290 D2 01 12 1514 SENSB LA 18(,XR1) oXR1 STEP XR1 TO POIBT TO BEXT HESSAGE
IDEF A089 IDPO 1862 DC XL2* 00898 1893 CO €7 TEED 1515 B SOVEST GO TEST WEXT SENSE BIT
1DF1 CO 87 1PRaC 1863 TCVD 2B cyD TO CONVERT ROUTIBE BUBBER S : 1516 oS
IDPS OA03 IDF6 1464 DC AL2 (RPPX) SOURCE 1297 3D 60 128? 1517 SENSA CLI STPSNS#1,xX*80* TEST POR COSPLETION OF 28D BYTE
IDF? 1883 IDPS 1865 bc AL2 (TIBOUT) DESTINATION 1E9B P2 87 4A 1518 JE PRTHEX TO EXIT IP DORE :
DFO 3C 40 1281 1466 BVI TINOUT-2,c* * ‘ JESE 3C RO 1287 1519 VI STPSNS¢7,X'30?® SET POR CHECK OF 26D BYTE
(DFD CO 87 O21A 1467 B PRINT TO PRINT ROUTINE HOSBER TEA2 CC 87 1C07 1520 B SENSE TO SEBSE
1E01 C6 1P01 1868 DC XL1°C6? 1EAG 03 1EA6 7521 pc XL1°03* BYTES 2 6 3
1E02 15 1E02 1869 pc IL7V*21¢ : 1ZA7 CO 87 O21F 1522 8 URPACK TO UBPACK STATUS BYTES
1203 1£a3 1204 7470 pc AL2{ (TINOUT) NESSAGE ADDRESS TPAR O02 TEAB 1523 DC ZL1°02°
1£05 AOSF 1206 1471 DC XL2*AQBE* BESSAGE ID ” 1EaC 1C5D TEAD 1524 DC AL2 (STATUS)
1£07 CO 87 0222 1472 B HALT ™ VERE FEC TEAF 1525 DC AL2 (HEXSTA)
TEDB AOQSE 1E0C 1873 pc XL2*AOB8E* TEBO C2 02 1FP83 1526 LA STMASK , XR2 SET BIT POLESTER
1EOD CO 87 0000 1474 B 0 1EBY CC E7 1£90 1527 8 SENSB TO PROCESS 25D BYTE
TE11 DSDEXOCONSCHCSET 1€35 1475 BINDEX DC CL37*NG INDEX PULSES SENSED BEFORE TIREODT® ~ $528
Y£19 GODTESDIE2CSE280 1875 1EPR CC 87 OZ1A 1529 PRTHEX B PRINT TO PRIET STATUS IB HEX
TE21 E2CSDSE2ZCSCHHOC2 W755 VEBC 02 1EBC %530 pc XL7*°92¢
1E23 CSC6D6D9CS4OE3C9 1475 1FBD tp 1EBD 1531 pc IL1*29°
1E31 DUCSDEESF3 1875 TEBE 1FEO 1FBP 1532 pc AL 2 (HEXSTA)
1E36 4OCSDSSON9IDEESES 1243 1476 TIMOUT DC CL18® IR ROUTIHE xx? 1FCO CO 87 00CD 1532 PRTEXT B *-* SUBROUTINE EXIT
TE3E C9ODSC5S80F7E7 1476 a 1538
TEGu 00 1E44 1877 INDXPL DC XL1*9¢ TPC’ E2F3ICTE3FSE240C2 IED8 1535 pc CL2Z7°STATUS BYTES IW HEX,
*QAO3 1878 RPFX EQU xX*A03* ° TECC EBEICSF2Q0C9NS480 1535
7 TED’ C8CSE76B4U0 1535
1ED3 COOOCCCOCCOCO000 1EEO 1536 HEXSTA DC XL8*O°
. 1FE1 DSD640D6D7408080 IEP2 1537 STATWD DC CL18*°RO OP e
TFEO 8OUONNKOKOCROKDYO 1537
1EF? 8060 1537
- 1EP3 CODEEICSDIESCSDS IF 08 1538 pc CL1I8*ENTERVENTION REQD.
*VEPB E3CSDEDS4ODICSDS 1538 |
1703 Cau4up 1538 |
1P05 DUCIEZE2ZCIDSC7KO 1F16 1539 DC CL13'MISSING ADDR. AMARBK®
1FOD CICUCUDINBEODAC? 1539
IPF1S D9D2 1539
DATE T3IMARTO OIMART 1 290CT71 15N0V71 WSAART2 PROG ID 0403-6 LATE 13MAR70 O1MAR71 290CT71 ~ 15 NOVT1 ISRAR72 PEOG ID 0403-6
fC WO. 571512 571573 571601 571605 571591 PAGE 14 : EC WO. 571512 571573 571601 571605 571591 PAGE 188
: : ee ~ ¥
‘
IBM MAINTENANCE DIAGNOSTIC PROGRAN
2036,
ERR LOC
1F17
WF
427°
1729
1P31
1P39
1F3R
1FaS
1PUB
IPOD
1P55
1F5D
IP5P
1767
IPF
1P71
1F79
TP81
1F83
1F87
1F8R
1P8C
1F90
1F94
1F98
1F9C
PAO
TPA
TFA
1FAE
1FEG
1FRA
1 FCO
1FC6
1FCC
IPCF
1FD5
1ED9
1EDD
1FDF
TFEE
TEES
DATE
Ec NO.
SEFK FUNCTION
OBJFCT CODE
CSDBESCIDTDEC5DS
E340C 3C8C SC 3D 240
4040
CUCTE3C140C3C8C5
€3D2 4080804808040
4060 |
D5D64 ODICSC3IDE DI
C4UOC DEE UDSCHED
4080 fae
E3D240C 3D 6D5C GC9
E3C9DODS40C3C8C5
C3D2
E2C5CSD280C3C8C5
C3D240904N04C80 40
#040
E&DSE2CIC6CS4UOUO
BOSC404D40N0N080
4040
8040 20 10
08080201
90 ,
36 08 T1E6
34 08. 1FAD
36 0&8 1188
34 08 IFB3
34 0 1FB9
36 O08 11E6
34 C8 TFDC
oc C1 1PBF GOCO
Oc O01 *tFD2 0000
Oc 017 IFC 3 GOOO
oc CO 1P8B OCO0
04 20 0000 IFE7
CF O00 IF8B T1E6
F2 82 OA
06 20 0000 1IFDD
CO 87 1FC6
co 87 C900
F1.
PIF 2F SF&F SP6F 7F 8
F9FO
T3NARTO
571512 571573
TEST
Fac
O1MERT71
STAT SOURCE STATESENT
1540
15480
1540
1541
1541
1544
1582
1542
1542
1543
1543
1543
1548
1544
1544
1545 STATB2
1585
1545
1546 STSASK
1947
1548
1589 HXBYT
1550 CVD
1551
1552
1553
1558
1555
1556
1557 FROM
1558 TYBOT
1559 OTORZ
1560 PROBYT
1561 ZROTO
1562 DECGAN
1563
1564 TOBYT
1565
1566 TIXE
1567 DECONE
156€ UNITS
1568
1569 STATPR
1570
1571 #1
1572 H2
1573 XR1
1574 XR2
1575 ARK
1576 STATO1
1577 SWITCH
1578 SECTS&
1579 LINK
1580 PRINT
1581 UNFACK
1582 HALT
1583 LOAD
1588 AFP
1585 Ak
1586
290CTT1
571601
ADD 1 TO GET 1ST
PAST #0.
PAGE -
PARASET ER
INSERT THE FROM ADDB.
ADD 2 28ND GET THE 2ND PARAMETER
INSFRT TRE TO ADDR.
INSERT THE TO 2DDR.
ADD CNF SMOKE POR SKETURBS ADDRESS
SET RETOKK ADDE.
PUT BYTE 18 WORK #FREA
ZERO THE TO AGES
DECRER FNT THE REX BYTE
EXIT IF PELOW 1
INCRENSEFT THE DECES2L COUKT
EXTt
HALT DISPLAY 1
HALT DISPLAY 2
HALT CISPLAY F
EALT DISPLAY A
pe CLIB*EQUIPSENT CHECK °
*DC CLIB*DATA CHECK
pc CL18°RO RECORD FOUND °
*Dc CLI8*TK CONDITION CHECK
*DC CL18°SEEK CHECK s
pc CL18*ONSAPE °
EQU
Dc XL4*804020108
DC XL&*08C40201"
pe XL1*0C
*A ONE, ARB
ST FROE¢5,ABR
A TWO,ARR
ST TYBOT+5, ABB
ST OTORZ+5, ARK
A ONE, AKR
ST TI XE¢ 3, ARR
MVC PROBYT45(2),*-
*MVC TOBYT+3(2) ,#-9
SVC ZROTC?3(2),%-
*MVC BXBYT(1),#-
*ZAZ = * (3) J UNITS (1)
SLC HXBY1(1),OKNE
JL TIXE
AZ #-# (3) , DECONE(1)
B DECGAK
P *-%
DC ciety
DC CL10*123456789C
*DS CL18
BEOQU. x*03"
FOU x*76
*Z0u 01
EQU 02
200 08
ECU = x# O28
Zou °° «=xt208"
EQU) = x*20R°
ECU x*2168
EQU x*21zA°
FOU YX*21E
*EQU) xX*2228
ECU X*22—8
FOO = x* 3ct
EQU X*3FS
END BEGIN
15 NOV71 1SMRRIT2
571605 571591
PROG 12
PAGE
5129628
as
0203-6
“4S
A036 —
SYMBOL
KDREIT
ANDY
ARR
203
REGIN
BRUSR
BUSY
BYPAS6
CRSEEK
COPD
CPUS
cvp
CYDARY
CVDDST
CVDTNO
LECGAN
LECONE
DECTIN
DELAY?
DELAY3
DEMONE
DETENT
LFCR
DPC3SV
DFE DR
DIADPFC
CIAEXT
DIAGA
CIAGR
DI AG2
PIAGG
CIAGS
DIAG6
DIAG?
DIAG7RA
DIAGS
BIaGQ
DISKTP
ERPR
EP2ORB
ERROR2
ERPORS
ERRCR6
ERPOR7T
FRRORY
PORS YN
PORWD
FORZ RO
FOUR
PROBIT
FPOR
FRSTPS
FSTERR
FRDSEK
GODROF
GOEFLY
GONG
GouP
GOUER
HA
RALT
RDSESF
HOTIBE
DATE
EC NC.
sg?
SEEK FONCTION TPST
A 004 DAP
A 001 1779
c 001 0008
A 0C1 0000
A 904 OBA6.
aA CO8 175C
A COR 1NC2
A 037 i7A9
A 003 CEB
A CO2 1778
A CO& 174d
A CO’ 1F8C
A 002 1363
A 002 130R
A 002 1318
A 006 1FC6
A 001 1FDD
A 908 163D
A 006 1095
A CO. 1083
A 005 162D
A 032 BEA
A 002 1IDBD
2 001 1DB7
A CO?) 1DeP
A 001 1A27
aA 0Cu 71998
A COU 18:15
A 004 1900
A COR 1957
A 004 t8DD
A 00€ 189F
ROCK 1840
A 08 1940
A cou 19¢C
A COX 1973
A COE 1410
A 002 DER
A 0oC& 1021
A085 11E3
A 023 1168
A CC? OntIc
A 023 Ont
ACIS 9151
A C38 114A?
ACCT 11178
2 00) 148F6
A OCU OFFS
A GO2 1026
Rk OOK TFB
P OCt 1FR8
» OO1T DRS
A 0C& OB9F
A 003 1D7D
4 035 1898
A C46 IBIE
A CO2 1774
2 C15 1BSD
2 0634 42DS
C 001 002F
C COT 6222
A GC1 OFF2
RCL3) 1635
VINFRTG
571512
LEN VALDE
OCIMAFT1
$71573
‘IBA AAINTEWARCE BIRGKOSTEC PROCRAR
REPERENCES
1830
O9NI* 09494
0024
1553
1586
0978
1379
0936
1372
0969
0978
0158
0686e
o6ss«
‘0665
1565
1568
0881
0495
0467
0884
1206
0131
1382
0132
1065
1063
1101
1998
1138
1104
1081
1234
1166
1207
1197
1228
0262
9469
04381
0516
0211
0193
0505
0%60
0a70
0679
0303
6629
15579
15518
0088
*o099
Tats
1170
11498
0983
1172
1185
0101
0655
1150
0240
0826
0726
1554
0972°
04593
ORRus
1368
1398
1073
1091
1185
1184
1179
1274
12390
1285
01648
1425
0722
1057
0184
C805
T1E1
025%
C865
290CT71
571601
CROSS-REPERENCE.
1279 #1275 1276 12848
1555* 1556
0976
0659 0656 0690 0810
of8t 0887
1369
1231
1176 «9129 «1152)—«:1962
1288 1371
0455 0459 0812 0823
1395* 1490 180zs
C165 0187 C185 6213
C828 08k CEL CEoK
1178 «©1987 «©12G8 1223
0257 02%2
0873 0877 ose
15NOVTI ISMEET2
571605 5715S1
Mth a
132% 1361 1882
0829 1215 1328
1176
Ge31 08a3
0355 0260 0282
OSE7 O986 1054
3301 1352 1461
i a : : : : a : . ; oe Sgt ard
PART NO. 5129624
PAGE 1Sa
1550* 1553 15528
1332 1409 1463
0507 0578 0541
7088 1492 44127
1472
FROG ID O04 03~4
PAGE 5k
o
PART #0. 5129625 _ IRN BAINTFENANCE DIAGKCSTIC PROGRAN ; : > nad paper po. 90 5:129628% ~
YBN SATNTENANCE DIAGNOSTIC PROGRAA
PAGE 38 _ 36 PAGE TOR3
AO 36 SEPK PHNCTION TEST. : Bp OS vers . | AQ 36 SFEK FOUXKCTION TEST
CROSS~REFER ERCE : CROSS-REPER ENCE
SYMBOL T LEN VALUE DFFPN REFERENCES . SYMBOL T LEN VALUE DEFN REPPRENCES
READPT A 033 1661 0906 0803 1277 1295
’ AFADP2 A 038 14687 0907 9859 : : : PRTSPW A O08 OacE 0080 0027 0078 :
HEDEND A 002 OFOR 0Oa11 0258* 0308 0347 RDPDFC Aa 001 1cC65 13178 0271* 0275 0282 0287 0295 0298 0489 0613 0616 0619* 0623 0624
RHEDERE A 002 OFD? '0ut9 0359 . : : : 1996 1213 1216 1227 .1229 1328 1323 13658 .
oe HEDER1 A 031 OF3A 0843 6327 ; RDIDER A 072 1887 0775 7212 71217 1222
‘ HEDFRS a2 031° OFDS 08153. 0819 . ‘ : PECAL A 001 DBO 1441 13638 13944
i REDRNEO A 006 CPNDD 0420 0313 RECALB A OO8 1C21% 1288 0148 0199 0238 04482 0531 0567 0626 0939 1189 1355
HEDNST A OO6 OFE3 6421 RECALE A 006 OCFEB 022% 1299
4 BEDNN2 A 006 OFEDS 0822 , ; , RECALX A 008 1€56 1304 1288% 71294
i HEDNE2 A 006 OFEF 0423 PEMVDS A 001 OB16 0105 0035* 0064%* 0255
REDPRT & 027 WAZ 0908 0886* 0887 = - REV A 007 WWPD 0782 0673 1819 :
|: HZDPTR A 002 OFE3 0365 0248* 0260 0306* 0314* 0324" 0330 PFIELD A 008 17CR 1010 1003* 1009
.REXSTA A COB EEO 1536 889° 261525 1532 RPLADP A 002 27CA 1009 10048
re RESTIB A OG3 61680) «OSC5 0880* 0882 : ; : RLDFCR A OO8 OBAE 0131 9073
fe EP. € 001 003C 1588 RPPX C001 OA03 1478 © 1468
“ HIGKON A 003 1636 C€902 C877 , RSTTDX A COS 14CFF 1376 1807 1835
[7 HISTBL A001 1805 0759 0571 0636 0768 RTNEPP A COT OFFA 04828 0250¢ 0305* 0315 0349 U568* 0592* 0627* 0638
AXBYT A 001 ISB 1549 47560* 1562* PTN1 A 0OT O8A2 0128 0012 ;
: f1 c 007 0003 1571 RTNTA A OCU OBDE 0150
‘R2 C 001 0076 1572 a ix FTNIAT A vos CCOC 0168 0156 0175
IWDXPL A 007 TESS 1877 1376@ 14u51* 14854 PTNIA2 A 008 0C58 0198 0189
INTERR A CON OAEE 0092 £40089 RTW1A37 A COS OC6O0 0200 02048
JUSP1T A C17 A671 1259 1030* 1035* 1085 RTNIP A OOS OCBH& 0216 0146 0206
J0NNP2 A017 1372 1260 1031* 1036* 1049 | PTNI9A A 008 1838 1059 119060
JUMPS A’ 017 %TA83) 1261 1032* 1037* 1053 RTN2 A 001 OD62 6232 0126
LASTAD A CO1 ‘IDR6 14386 1058* 1066 1405* 1470 1813 1417 1820 14348 ‘ PTN2A A O0OU OD72? 0240
LDPCR A 008 CDS 1369 0034 | RTWZA1 A OCU ODIO O248° 0246
LDFDR aA OOS OBB2 0132 00684 RTNZ2A2 A COCK’ ODAE 02757 0252
LDXR2 A OOM IDOC 1385 [ PTN2B aA OC& UDBE 0260 0310
LIWK € 007 0216 1579 9216 0316 O350 0357 O8682 ONBG C510 0584 0639 065% 90791 0863 | RTN2C A COS CDDY C271 0263* 0268
: 0878 O897 0938 999 RTN2D A OOM ODPO 0281 0276
LOAD C€ 001 O22A4 1583 0054 | RTW2F A OCS OCEDI 0287 0283
LONG A 008 177D 0996 0987 0988 0991 RTN2F A 003 OFOE 0292 0288
LOWRON A 003 1633 0901 0873 FTN2G A CO3 OF2C 0302 0285 0299
MASKPT A OC2 OFES 0366 0243* 0278 0281 0307* 9308 RTNZ2LA A&A 006 OET2 (3248 0360
BINDEX A O37 1635 14875 1499 RTNZ2LB A CCD OF92 90334 03304
AOTSW A 001 32 1256 1064* 1068* 1078 RTNZ2LC A 002 OFFE 0383 0338
AOVEBT A COS TE6D 1499 1515 i PTN2LD A 093 DEAT 0385 0337 .
BSGETR A 002 OFF C4824 0328* 0338 0359 03624 RTN2LE A 006 OFCE 9359 0348
NEG1 A 002 17E2 1026 0174 O4394 0854 1154 1852 RTW2LG A 008 OFSS 0312 0309
NOERR A OO8B T4aD 0771 6720 , RTNILH A 003 O893 0336 0363
NOGO A 048 1AB3 1262 1087 i RTRY A CO1 OFFB 0435 0234
ROMOT A OO 1979 1178 1079 : RTN3P A COON 103P 0468. 0451
NOREST A 036 118C 0550 0528 RTN3C A CON 1085 CE56 0475
NOSEEK A003 3094 1828 1414 : : RTRY A 001 1128 0561 0437
NOSKBY A 034 OccuY 0219 0180 RTNGA A OO T1FF 0569
NOTKCR A O47 BCA 1270 1121 RTNYUP A COM 1213 0575 0631
NOUNIT A 026 OB6A 0113 0051 FTNYBT A 008 124D C595 0584 0598
CLDADR A 018 T8EP 0780 1350 1411 RTNUC A OO& 125A CEOO0 0593
ONE A C03 11E6 0553 C466 0630 0723 0882 0949 1100 1137 1233 #1275 +1550 1555 1562 PTNGC?T A OOK 12AC 0629 0625
OPINST A 030 1850 1258 1041 PTNOC2 A TOR 1293 0622 0618
OTORZ A 006 ‘FRY 1559 15548 , PTNSEX A COS 13P8 0787 0726% 0741
FNTINS A OOW 480A 1038 10348 PTWSLA A COSY 12E3 0649 0724
PRINT C601 O2TA 1580 9048 0080 0088 0096 0139 0161 0177 0190 0208 0318 0325 06331 RTNYLB A 003 1372 O70C 0684
‘ 0340 0352 0456 O47 O5C2 0513 0525 0536 0640 0643 0652 0675 : FTRGULC A O04 1389 O706 0701 -
0677 0694 0717 O734 0800 0820 C840 0856 6888 0933 0951. 6980 FTN4SLD A OC6 13CC Cb5B 0652
1038 1042 1046 1050 108 1107 41178 +%4123 #1185 «#+1156 1169 1182 RTNGLE A COU 13A3 0718 0708
1203 1219 1296 1336 1382 13847 1456 14867 1893 1505 1529 RTNULF A COOH 1382 C722 0715
PRSLST A CO2 1a2C = 1252 0570* 0575 0615 0630" 0635* 0650 0658 0682 0723 1060* 1061 1226 RTNGLG A CO& 128C 0638 0577
- 91233 RTN&SB A COS 13CA 0728 07485
PRTARV A CON 1366 0694 0689 a 3 . RTRYSB A COW 43E7 0740 0703* 0710%. 0732
PRIEXT A 004 ECO 1533 14829 RTNSTB A O04 13D48 C731 0728* 0780
PRTHED A018 ‘6B0 0609 0891 RTNS A 0C1 1505 0787 0563
PRTHEX A COS TEBB 1529 1518 RTWSA A COG 1535 (#08 0799
PRTPAS A GOMN T6DP 0933 0919 1007 RTNSP A 008 1565 0827 0817
PRTSKS A 004 14E8S 1482 0095 0157 O452 0477 0818 0838 1083 1106 1137 «+1188 «+4168 11381 RTW5C A COK 1995 OQE4T7 0837 0855
CATE 43MAR70 O1MAR71 290CT71 1SNOVT71 ISMART2 PEOG ID 0A03-6 , DATE 13MAR70 OMARTI 290CT71 I5NOV71 15SAR72 PROG ID 0A03=6.-
FC NO. 571512 571573 571601 571605 571591 PAGE 16 EC ROW 5715172 571573 571601 571605 571591 PAGE 16a:
yo
eeeoeoeoeoaeaeoeaeoeseoeeoeeeaesgenedeeee eee ee eee @ @
“YBN AAINTEWANCE DIAGNOSTIC PROGEAS
A036
RTNSD
_ RTNSZ
RERSP
PTNG
RTNGA
FTNGAT.
RTNGB
RTNED
PRINCE
RT NGF
RTKGEAT
RIWNGOK2
RTN7
RTN7A
RTX78
RTNIC
RTNTD
RTNTP
PTHB
SACK
SAYVSW
SCRCRH
SECASG
SECTS®H
SEFKAT
SEEKDR
SEEKER
SZEKTO
SEER
SEKERA
SERASG
SEKSON
SELAED
SENSA
SENSB.-
SENSE
SETA
SFTADS
SETADB
SETADR
SETB
SETBT RH
SETDSK
SETEXT
SETRCL
SPTS®
SETXR2
STO
SIX
SKESYA
SKEREX
SKPEXT
SKPUDT
SKREST
SKTBL
SKTBL&
SNS
SNSEXT
SNSTD
SNSHOV
SNSPRT
SPNDLA
SPNDLE
DATE
EC wo.
_ SYBBOL.
Se
2) pe te De ey De Sw fev te ee oe) oe Se Oe ee oe es ee Pee ee ee
ee et te ee Se De Se fw ee ee Se le De OY ey fe DP tw
=P >
SFFK PUNCTION TEST
LEN VALUE
006 15¢1
006 = 520°
C06 1609.
001 T6B1.
COR TTAA
608 O0C34u
0048 16DB
008% I6EB
003 176C.
003 16C8
007 9729
007 1788
001 17CF
006 ° 1008
008 1003
008 ‘ODA
00a 10F0°
C08 1710
001 I70DF
008 1I6FA
001 IDBB
092 ‘IDR
029 0838
001 020A
079 18CC
021 1951
00% 1C69
018 14489
004 172A
COG IC82
027 OCA2
037 148s
001 OEE6
008 1897
003 £90
008 1C07
005 O0A76
004 1053
0oS bao
003 wits
oes) (as2
003 oOags
004 OAI0
008 0of12
005 p24
Oot (CB18
002 %iC5B
C03 1CF6
C02 OFF3
OCS OBDA
0048 ICAE
004 OBOE
001 OB17
O42 1186
O01 ‘TATA
001 43FC
008 1019
004 CID
002 E6C
006 1C13
004 1%3¢c2
0901 OBIA
001 OB1B
I3MARTO
571512
DEFN
0865
O77
O8686E -
0912
9999
0188
0930
0939
0989
0921
0962
C997
1012
Onuy
0511
0521
0531
osaa
1028
0345
‘1840
1836
0111
1578
0778
0779
1321
O777
0963
1332
0218
0770
0368
E17
1518
T1274
0057
1409
1432
1392
0060
0065
0024
0108
1396
0107
1306
1378
0425
0148
1357
C103
0106
0551
1236
0749
1278
1279
1u97
1277
0726
0109
9110
OTNAR7T1
571573
REPEREN CES
0852 0871
0874
0883.
0789
0930 1006
0172 0187
0922 |
0926 1002
0975 0979
0925
0958
0983
0974
oseo
0512
05248
0535
1018
0959
1368* 1380
0396* 0397
0083
0245 0251
0687* 0692
0605 1126
1232
1334 1339
0945 0967
1326
0142
0661 0668
0288 0247
1511
1527
0078 0133
0600 0602
1520
0039
1801
1620 1626
1375
0043
0059 0063
0129 0237
00242
1393
0025* 0052+
1361* 1362
9069* 1366%
0307 0324
0138
13218
0091
0026 0093
0539
1059
0569 0634
0072® 1277
1276
*90948 0150«
1289
12748
0705 0712
0057
0060
290CT71
571601
5129628
PART WO.
PAGE 17
CROSS- REFERENCE
1399
1806* 18778 18178 1823¢ 14288 1432
1286
0697 1323% 1330 1385
1419 18258 14298
0670* 0673* 0680
0135 0169 0184 0200 0497 0521 0532 0585 0589 0595
0796 0848 0867 0963 1076 1095 34132 1198 1447 1483
044060 0566 07948 0916 1029
0092* 0728 0236 0439 0565 0793 0915 1016* 1028
1385
1367* 1370% 1373
0103* 10178
CU86* 0876* OBCY* 1082* 1705* 1116* 11438 11678 11808 11926
ISNOV71 15MAR72 PROG ID 0A03-6
57 1605 571591 PAGE W7
IBS RAINTENANCE DIAGNOSTIC PROGRAN
/ &036
SYMBOL
SPRASG
STATB2
STATPR
STaTas
STATWD
' STATO
STMASK
STPSHS
STRTIO
SUBPRT
SVNBLK
SWITCH
TBLSAV
TELALG
TCD
THIRPY
THISER
TRPER
THREEO
JIACTR
TIEFPR
TINEST
TIMKON
TY ALOP
TIMOUT
TIO
TIXE
TKCTR
TKTINE
TKUP
TOPYT
TPACKS
TPROST
ISTBT
TSTERR
TWO
TYROT
UDTPTR
UFINDI
UFIND2
URA
UNITS
UNPACK
UTAE
WAIT
wWOPK
WRIDFC
XR
X¥R2
CATE
EC NO.
7 LEX VALUE
A .024 0B50
A 078 1782
A018 1FF9
A 002 ‘1c5SD
A 018 1EP2
Cc 00T 0002
A 001 8 1F83
A 009 E86
A 008 1¢82
R016 OF1B
A CO? 1508
Cc 001 0208
A C02) 1485F
c coi 0020
A 008 1DF1
A 002 OPFS5
A 001 14850
A CO2 11EA
A 003 1¢€60
A C02 1A2E
A006 I5FA
A 002 1430
A 003 1630
A 006 15P6
A 0148 1283
a 008 1055
A CO& 1PD9
A COl 1A31
A004 193¢
A928 1C06
A O06 IFCR
A 001 08619
A COU 1737
A COB 1897
A 603 1D16
A CO2 1128
A COR TFAE
8 002 O838a1
A O04 OA2E
A 004 OA2B
aA 003 OAoC
A910 PE?
C 001 O21EF
C G01 0232
A CO&8 1CF9
A 001 Ipc2
A 001% 1C61
c 001 0001
Cc 061 oco2
T3HARTO
571512
DEPN
O1t2
15a5
1569
1307
1537
1576
1586
1510
1361
Cai2.
0783
1577
0772
0768
1863
0426
0773
0555
1308
7253
0880
12595
6900
C882
1876
C&69
1566
1255
4154
1272
1564
0108
0969
1502
1386
05548
1558
0116.
0033
0032
0014
3568
1581
0717
1379
184u6
1310
1573
OTSAR71
571573
“SFEK PDNCTION TES. -
REFERENCES
0058* 0061¢
0711
0729% 0737
0077 0137.
0588 0591
1080 1097
1524
0708 1891
0185 0201
0727 1492
°49890% 1503
0152. 0264
1290
- 8321 O66
1429
0036 0080
0572+ 0587
0573 0573
1855.
0362 :
0649* 0698"
0306
0637 1212
1093% 1100
0875
1093
0865
0885
1465 14667
Ou6Re
- 1956* 1563
U698 11376
7135
1159
19584
0076* 0079
*6960
14998 1510
CO71* 0090
1552
1553
C028 0032"
0029 .
0047
0790
0493 0493
7486 1522
0031 0920
O070* 1453
1448
0151 0155
0578* 0583
0031* 0032
0168% C1748
0292 0390
0494 0569"
06725* 0619
0686 07048
0924 1059
*1452 14918
0034* 0057
0288 02540
9465 0465
0671 (683
0743* 13624
1396 13978
290CT71
571601
CROSS- REFERENCE |
0087 0918 1033
1500* 1506
0171 0186 0188 01980
0597 0702* 709% 0731
1103 1936 1180 «1165
1896
1438
1526
1517 15198
0272 0487 0871 oON86
0605 0622 0629" 0637
0573
*0718 O0738¢
1323
1470
14338
Ouyuy
0868 1381
0033 0053" o0Ges
OR81 1561
0159 02a9* 02619 0267
0808* 0811 UB16 0827"
0033* 0038 0082 v0u5
0240 0241 0282 0242
0302 0303 0312" 0336
09570 0575* OS76 0578
0624 0634* 0635 0650"
0717* 0729 O78 074K
1060 1061* 106Z 1065
1500 1518) 1514
0060 GO68 0069 ¢CO70
0257* 0258 ©260* 02€1
0571® 0572 0573 6573
0685 0688 0700 0702
1366 1367 1368 1374
1398 1803 Gk 1413
TSNOVT? SERRE V2
571665 571591
0203
9798
1178
0580
0663
0233
0830
0046
0243
0345
0587
*0651
O84 72
1066
0071
0262
0622"
0706
1382
WW16
0205
0851
1200
6610
0706
OGuae
0836
0046
0278
0345%
0588
C664
0854a
*T1316
0072
0263
0623
0707
1383
1418
0839) 60511
0870 G966
1278* 74auU9
0813 0833
07 22%
0850 04a53a
1231% 1293
0062 0065
0279 0281
0366 O4b65
*OS9T 060
0665 0682
0920* 0921
1158* 1226
0073 O089
*O373* 0314
0636* 0637
0709S O727
*1385* 1386
WW22 1423
PART HO. 5129628
‘PAGE - 9748
0523 9538
0999* 1901
1488 861502
1070 «61193 ‘
0370* 0474
1333
0065* 0066
0283 0289
0466* 04928
0607 0608
0683 0685
*0923 o924
1227) 13778
0249% 02076
0327* 0328
0663* 0668
0728 0723
1387 «61392
1826 1832
PROG ID OA03-6
PAGE TTB
eh ae ee ee 5 Bee wee wae TM ee ee rte ok
gen MAINTERANCY DIAGNOSTIC PROSRAN | - = 2 , PART HO. 5129628 ‘IPM HAIQTEMANCE DIAGNOSTIC PROGRAS PART NO. 5229628 © |
co ieee he rere i tag 2 = aa. ? PAGE... 8 a 7 PAGE wa 4
Sige SAE og abs ou I g ; aes . a : , . : : ee oe ; ; =, is
Ee eo ee el Neate eae , ee at A036 SFEK FUNCTICK TEST. “4
, 8036. | SEER’ FUNCTION TEST on | oe | | 7 | a ' :
Nm» CROSS~REFER ENCE OBJECT CARD LISTING :
“SYMBOL T LEN VALUE DEPH © REPERERCES | eB * os wnt . 4
| = THE CHAPACTER INDICATES A BLANK COLUMM AND THE CHARACTERS D E B INDICATE NOMERIC SHEFT.
a | 1833 1634 1492% 1899 1513 1513* 15260 | snc 89 iin
Mkeowx 2.002. 1DC1 1885-3396 1397 | noon 2 CL 1 THROUGH 16 CL 17 THFOUGH 32 CL 33 THROUGH 48 CL &9 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96
“YorE a 002 1776 0992 0973 0977
eel ae Maen abet od OS
T¢+-ZVBOSS ROIS
T+-_/DiNO={ IS_N S8@PS8HCAaL(,5) $ LECLN2;{ SECTAS*H OF 9K9A0360C06 =;
e : a e ef’ ) e ° ‘ . , . : 4
T¢->*1)N 82PS6aP DIKXSHUCNHS>( 6*P Al+/ S5_V 8B S$L2*J 1) XR5_V 5_W ORP PS_XEE+.T0) XT2)P “GECC 5ZEA0360007 = ¢
eaee oe oe se = J . om e ’ |
T¢-?P1:.7 A 5S S{ ]& .P<BAB/ 12/6 ‘*<EE) 2aBGG *COH® ~AOHSDA1)@Z LOH* BPSOSCHE-S&BG SH -S7H *-%A0360008 ~
T¢-OK/:, /10/} DB ;SCOAGP. 7122 *0*BGC 3 /19EOH® -~TAISEH~ /OHEASQ Z@BG SH-B*HAH2T 10 RYRA0360009
T+-1(AQH8SDA1}2/ Q(-DPS%&EDCAC /OH EISH<1H <ON*BHD <OH**AOHSDA1)OA <(CV GE7T2DAC /OH E10H SB 20360010
Te¢-2ACN:-AZBG SH -ATO GE7 /10/0R* *AQH8DA1)OAR <GC/ GE72DAC /OHEITE (GH EOH*BHD EOH*® BE>H 0T@A036001)
Te¢-3C IP KE<. UBS SSPNBEN ORXTEKT US*) 9(7°SI* PREC. US>/ BSEPNBAN OLX TS (PE9* PRE< | OS<P S&*+E PY 10360012 ‘
T+-3=5@PR6) FRAVC 002476) XEIDCAI>] EGMCDSEXNIGCAE(X EOSGLKGIYS4_ ADC B2;(,6D71PO_ 2H S&S KEUAO360013 |
T+-G95:.ER<.YSON = BECNS>( 5_N O*S TI)V 6*PCO) (.0=T LKSCOG<.186_ L>E )EYCISACS1)PSIBC B:¢< 2<AaG3600148 |
: 4
7 ° e ° e eece @ 2° pas e o , i
T+-SQIMCTE(XES<G 15;I 5_N O*ST1)V 9 ONCSI*®PKE+{ OE<] YEO a6 A C"% ° S$QOHDHDCBGGBG B EB PZ4A036001S-
T¢-6272@X0 ESOOE/s
*T+-7DC?84 -a. (EH
~232HGH3 /19E0H
*4 EFVO-H+#C-D -,
os ee
#820 GFC< . )>0D
BPKOSB9=-S<BG SH
WES} ES>EIS*) 1¢X
2D LB -@w( #4830
% 7E %BGG.H Al
-SCO Bi~ /0
S&UCD6*XV 1CXO) |.
GFH@ “:¢+ HBB?
/0H* (6*BGC) Da a1
HBOO%PG2) NU 8XP
SB@HBCOY® s0arD
XOH**%-DAGFP /07
ZERG A 003 OdbT 0226 0053. 0808 0828 a. : | : : ae «
ny 006 17CO 17561 15598 | : Bath eA ers. ees . : f ae we a
cone ee . T#-Y:YCO. & BiH HA . & CEHBIN @™O%Q+}A.E"HE, 34 BiG2 ETB EH2( D .YLAAB:GB 30; -2T~ 62-a0360001
. TOTAL STATESENTS FLAGGED IW THIS ASSEMBLY = — ° . | | ae , ae
| T¢-Z5 -f.G/ PE @YD?+ DEB"HEAX6 0 FHA.I-& )HA |B EBS, /OHEA/Y.ETO BI-< §>/COG /0H D D. OQBA0I60002. |
ad eee eee _# ° e oe e r eee. 7 7 “ ¢@- gee _ 4
T+-DOS BlYaa&_ EY*LS Bikaa-_ 6; DBSZ [email protected]_H A 3EAB:DY >3 B- Gj* H. *=- ¥ AB J B- 5080360003
T+-,, KOE B~ Bra OH**AOHOZORRe - *PaHEACTEDIX /OH E J8.¢<BG /TFF _ 6] )_*HBB>S /1% 6OH* 1-920360008
26p $-000360005
DO-H #L%40360016
0(&D 69QAG 360017
age a Sone :
Sc ceccdnionea ae in rltes. soleette ta oe scheme
T+-SVOON@"0 5S FE Vj7na@*R PHAAX3" ~H G.T8 GPS2-ER8"0. 2/0 (a"06" AITA@YD GtH *R"HGACWY GP~ 2D Q )BYA0360018
T#-9--3, BCAY*C3$ a ELE<CC™X2-E69"0" =C-D+BIGDC-DeGE" 3CED+9ES.aYDDOH*® (_SHAC?.B -"P( H 834 QE*®A0360019 ~~ ;
T+-:F “":OHDRBESB G /,AD BSY De 68 TC) /OHED*HBC3Y 4 -"1C DeU-sTOL*® BF-DF A* C2-68 < &8 KZ<A0360020 “|
T¢-807-"10H*RP-D -~ CK EDU J6NCED )_ @.@-DPJE 4=%B A /S$ /OHEESBG SH - *BG /Q( S"1C’'~ —&8 KC-A0360023 |
DATE V3HART7O OTBART71 290CT71 ISNOV71 2SSAaR72 ; es ‘ PROG ID OA03-6 DATE 13NAR70 OWMART1 290CT71 ISNOV71I ISMAR72 PEOG ID OA03-6 ‘
EFC NO. §71512 571573 571601 571605 -571591 : PAGE 8 FC WO. §71512 571573 577601 571608 5715891 PaGE 6A
: 9 ; i
: i
: - E
+ . é
IBA HAINTENAKCE DIAGNOSTIC PROGRAR
A036
CL 1 THROUGH 16
T+-PIS-SAC*D|'#B
T+- "<2 DCPOSKNE'S
7 +-= GSMCR 1* GDE CK
T+-"BO* SRE*PCBEC
T+-"* CODA EDA
1+/ 8:39 BIT -EY
T+/A3Y X /0HOO-G
1+/B>/OHEASSJBAB
T+ /CZOH*BPRO' DNF
T+/DUISEITH BOR
*$+ SENO*PRE<] A5SO_
T+/FESUCNS> ( B&P
T+/GHEEN OSITE (P
7+/HE 1DCF6) SHE<|
T¢/1.62 5 JY%~=8
1+/HFC#RGG *E+A
T¢/. AFE<ERAAEAIO
T+/.OFS3B /EE(
1+/<7/0ROC DLBIY
T¢/(20H*BP-DAEDA
T+/+_ C2-3D% At
Te/1Y &-MLEBA EDA
DATE
EC WO.
13RAR70
§71512
SEFK FURCTION TEST
CL 17 TREOUGH 32
e@eeeacee ee
GCz< cr-
UBAPRO) SRE (SNE (X
DEDA &(KEO*J 2)P
HIU*GLEDA E<} eax
c
*GDA EDA EDA &
*SOR**HEO GPA. FLO
2 h7" 6 JGWORH
G SH-B@BG /S /12
-A@BG SH-A@BG /0
*A*BGG *B+ED*P iH
IKIDE(PCBACSTs (
TS) R-S_) 8%PNBEN
O84CR1;.E84CB: DC
eee ee ry
FE+ { RGR dD h-
@YFP-~G *Q-C /12
*Pp* EDO7T /10G ZB
GFQ (GSHNL80 11
ML34 C™, -EBHOOR
*SOH*5T 8 EDNS /J
5S JY&S& "HAISH
* COAD=TB J$208
*MI-8APSOJ9E BEDD<K
OWMARTI
§71573
290CT71
571601
‘OBJECT CARD LISTING
CL 33 THROUGH 4&8
eee s
Te -
£0*J 2*3 SDA EDA
CS_XR19 1TE< | Yeax
NICPRE<GD! (KEB>1
y2<paincoz<Paioc
se
Iee3 /122 *Qe¢s
&60- DEQ) D*F-DBD
2 6D*R*BGDIGB 64
8-A1*a/ 60 H*BPRO
ED<BG /,PH/P6Y T
“BaTEGe. £1) I Oat
“ URXTE (POBUCRI3.
AG (XEO@GLK *SVO;L
CA NALS BIT -EY
2. *Q*BGDU7 /10
GG *B(EDRL37Fe (?
WG& *R-C2-ET /10
BP/G /OHEOS | F:
18-DB( DLG*%BGG8O
A 3GAD6<< /LCGFB
LOTABED=9- G2DA_
SBA, #0-H~-20 D's
WNOVTI
$71605
CL 4&9 TRROUGH 64
“SBA EDA EDCHSUC
WICK PRECED 1 (XFS.
"Si on Ga hh
12<PA IDC Z2< PA 1DC
GBC" /19E0R*~TA 1
* AISDIL /122
YCRO~9 1" (-DPBAB
PDOS- @8G SH- aB
“/OHSY T /0HO.9E
ZO*I 8&PNBEN O%X
B8&CB: DCAE+¢.E5;.
WE+.RE (LAICN 0; (
EOR**HLO C*,B Jj
G THAED*'< *P<B
2 &(: GEC HE<#B
/1fej=-BaZ%2aI-8
Bj HAACHAPST*"0C
AZOC OM</LE> D
"*8OP2-ET /t=<
Y A’ L2 B=TB J=
GAD~=6 8 A1*aZ
ISHAR72
971591
PART HO.
5129624
PAGE ; ‘i 9
CL 65 THROUGH 80
eveeenvecw
CO,S9(L
DOs { 8&4 4 RO) PSIRP
DZ2*J 5) STE+. EuaP
EDCH 19°C DE+. Earp
SER~ /OHEASQHZ@B
*0*BGDHN@B19Z0H
*DDIP /10G T-AGE3
GG *B+Q *PyHEBKB
” BRPESPCB1;T0S*3
T5)R-5_) 8&PESEN
ES&PENUCC2<PCUUC
” g>1263( S&R B_I
a( DE.<HBE aa /J
GG *CK AGE0a"0"
*GG. EA J 1VOH®K-3n
APSOJ9XBGD/1B 3}
2 6" /OHEERZSG SH
has FC QR</L‘OH
*H3CBG /YBDILC} 1a
B&Y*~j|7aA8} RAB<B
<OR*BF-DKG"0a"tJ
PROG ID
CL 81 THROUGH YO
80) U0 N3ICAD360022
BE(Q #@8400360023
C83 "a8a0360025
C8an :ERA0360025
C AD 84040360026
G SH *KOA0360027
3J® 6-8@A0360028
2DAE BL 40360029
G /Y ¥$-420360030
“g*0 @LyYa0360031
“og0 0C&A0360032
$1) 8 )€8A0360033
"4>Q 32 40360034
1,A@ P,A0360035
:a1* BRDA0360036
APSO 22620360037
a( D SR<A0360038
-"% 1D 20360039
BF/D *H A0360040
KB. 4% 37040360081
G /Y @1DAK03600482
6{ & *HZA0 300043
0A03-6
PAGE 19
(T+/33
IBA BAINTEMANCE DIAGNOSTIC PROGRAR
A036
CL 1 THROUGH 16
I+/ETD* P2-6,5 -G
DSKPEGEC
T4/KRIDCA 12>] E6AC
T¢#/LM1) 15%) 0=T
a
| T4sN41p.15*) 9=-
T¢/NHPTS BIT -€Y
T+, CE *Q*PGEOP
T*/P J*BG /YFI/K
1+ /P#C-HOFIQ0OR
*T+/O6@YHHA- 601390
mR)
T+/E%&5:.EE<. TBUC
T+/SX5_PD8-C E@a
1¢/*S/0ROOH* *HL1
T+¢/)}) 2<GL B4CIAEB -
T*/30 /, FAIS DYT]
T+ /~L2CXLIMNCD2;3.
Tes/-¢+ %Q] - E@sB
T+¢//TIG/ZEQH*BP-D
T+¢/SDWCO FTR* AY
T¢/S"-AIROH*; 3*B
T+/T2UAS@/AISZOR®
DATE 13MAR70
EC WO. 571512
k J.
SEEK FUSCTION TEST
CL 17 TRROUCH 32
/iynoae og
RQEWII=EWIE+ 3K GHC
DSSXN ISCAE (XEO*I
LRUCK9=—S81¢PKI83
K9=-X9NCF6) SHE<|
COH**AOCOAA I*8/
/19EOH*BP-QWER~
XOH*BHD I0-DP*<B
TADXKBAATFOA NOES
_OH*N*-CAEDHO! 0
<TEO*) BLPTB*{
N1;P26HCC5_LE8UC
* $OOFDRDC72B5C
EE7IVIZ/) 4a: OF
e e e
GG *B4A *P* EE2Y
/OHSYII3YEG /0R
KEI 2;1 5_mO%/1
G H-1""7& .P<B
OBJECT CARD LISTIEG
CL 33 THROUGH 4&8
-C &<BOD "0
T6*GCH>T, 4405+
2*3 0; ( O=TLKAaC
8°R O=TLKSCK9=—
Y44_-9=—K1_SRIRG
E0H*BPSQ/EWP-U<B
7ORSY Da JISC A
°
GG *C+ &*PHEGCO
BPTUO<"HD “HGB-4
AEZ2@0*%BG /,FHJE
I5*) B&PNSEN OSX
USa@TEO*) BAPTE* |]
2-J?B GH2~$ AaYD
PHTFTE78111) #CO
TY 1) 8a: DAC E<P:CF
OE76 ec
)*+D *P< GE>Ka"1-~
AB/ 2112) 1<*EST3
CL 49 THROUGH 68
everensceceeeoovrece
ee
19" POE<PRE) SR.
19=~£6) LOE;1 58f
AG) XI9*PDE<GTE< |
RICXHS(XEIM_ EDA
G SH-0 OAGP< (QLO
0¢65/08*.TA1S BH>
AE=. /AOROH*BPXOQ
BETUO(XBB /0< /R
OY L /OHSY L /OR
TEXGLORZGYSUCUSAT
I5*) 82@XntHCI8UC
5A AN-DCOI 0218
P:JGWO DO=%BG /,
TETSAY/) (@1#3<E<
#0) 1 T&}X36) SU SAX
+#<$QOP22¢0 <FOE:,
GFX@*°@E EAYD<j<Q
JEWG /ORE JDE®%B G /YEDIDCOR*BHDC @| D)_LO GSSB JY
Y DY A66a-DDI}@ EXKBGG.H AYXOR® QS<BGFGC /10G 37
G /,FCAD3YHC /OR SYHC2/"0< JY>FTC /10G 3-BGE322Da
:I*BG /,F}/>SYHL ” /OHSYRL2/#%8/39 %O0H*;3*BG /,A.12
O1NAR71 290CT71 1SNOV71 15 BAR72
571573 571601 571605 571591
PART ¥O.
PAGE
CL 65 THROUGH 80
eeeeneeaneneoon 882286
" 4) ERS_XSE(SCO=L
C9(XR1*3 SETINaD
Yue” 9=-x98TT4an
"SDA AG OBL-DB-3
IGR3 /1=<GFHBZaB
/122 *Q*BGERP
WEY;-0*BG SH-D*B
ETUDEAQ'G=*) /R
0@j|COa|D E& E
*E0%J 8%PTS8*{ 15*)
X1947X94CH 2) JL20C
GD<POE:, /OHEASH
FAI*ZYI. /OHSYI.
P;CFPTE7SAY/) *ar
*“NIMC6EC. T50GS8RP
/1$~E@% CAO
EPL3PFu831/Z"0H
*E( DE.CHAPS1*"0C
"PT. -JV9+0 *P=H
1 JY>D3$ /ASV+0
19a
CL 81 TRROUGH 96
a2eooene
ROR ¥E*A0360085
BEA 21600360086
S828 =3900360087
DB )B A03600488 ©
GG.8 “ %A0360049
a
G /Q 5#*20360051
D:Q KHOA0360052
S10 B,880360053
B28 00500360054
S1*< Q0%A0360055
PD* 2 HA0360056
2/16 1080360057
E0H* 9K<A0360058
DE*0 03HA.0360059
s5ae csaupscunce
BF-H #/020360061
“-J0 @CUA0360062
6730 = HAO 360063
*P~H 6BQA0360068
HYHP /OHEA/MSB8*®B G SH #,QA0360065
PROG ID
PAGE
0A03-6
198
51296248,
4/18 526A0360050_
t
{
i
4
i
~Q a0360008 ©
ao ae
sven eg ote 8
omen de ee net nine re ae
2
etalon samme gence eae cme tee
wee ht EBR OSE bo
eee ed “TRC RROD gen ggg 1
JHA MAINTENANCE DIAGNOSTIC PROGRAR
£036 —
“
CL 1 THROUGH 16
SEEK FUNCTION TEST
CL 17 THRONGH 32
OBJECT CARD LISTING
CL 33 THROUGH 48
CL 49 THROUGH 64
PART BO. |= 5129628
PAGE = 20
CL 65 THROUGH 80
cL 81 THROUGH 96
ew
IBS AATNTENANCE DIAGHCSTIC PROGRAS
A036
SEEK FUSCTION TEST
CL 1 THROUGH 16 “CL 417 THROUGH 32
OBJECT CARD LISTIsc
CL 33 THROUGH G8 CL &9 THROUGH 68
PAgT "0.
. PAGE
CL 65 Tekouce 80
5129628
20,
ee
CL 81 THROUGH 96
narblendedaaime it ssiaab sales ak Edin 5 oat
ge ban tei
‘TeastHP2/97R OX ROH**A0<B /198/, xo” Ecacwarp=+0" *P*BEF1aa-/9K0K* BG" /, PRINZ TH. "08 78£40360066 pivecnua pebeck NICEXE (3U8=.EBUC S1)PS1*3 ONPFS_X EG*}IS<PO9+( 2) 6) susaratacrs0” seas cooaczco0gs ]
: , . | . : |
‘te/vortenen *{ -D PAXBDPFEL /ORE1/0 waa OR*B ADB] aY) ACO *PanesT2CGw3 _” /9EOH*BFKQ" PSE --a 7.940360067 T+/2 POaaGG *B0 Re Menepsess noyak: AG?.B /=COH*BPSD AG?H- BO. Gx- GAD == 8 Al*az HONe BF-D ;K*a0360089 |
| ; : : | oa oe
“pee, /ONSTHI 2/10 9041) 8/ -1HD;S<B GGUP /OHEISHESES AQH*BNDSAON**H*B GFC-aCc19%0ne*5-D AGFA 59810380068 | Sujenpeeie Scin. RiSAR pmantecces) S2scauraip a a/se “Ge sconses-aesie> <b-acvaneune Joa 4 ya suecGheeoss
eS a } i EG . | | | oe een | S f
Re feapnenpascs * C+ BeP]HED<BG /, PRATDYH3 /OHSYH3 /19EC AH-JI-[~2 *RPMAELBGGEO*R/K AOH* 35020360069 | T+s#eG>c 70 8>} AB=LSE<.YBaPSE<X NETESG ”""cusucosea EDA "SDA EDA GRCIS: | Bim 33620360091. 4
Mares precon none BRB }{ EDE.AN GFQ AYDI+E<eR-HEB-O0 GFHENCEGGPU+ SY 8D; /1/ — BU BA. ~L<AO3S0070 T+/O31)PT2PSNE (K BECT.SCXSESXIWINC ATCLERSCHO)KKI)T 02)~81)PTECINTO] KEDA toTOMCC2ce cen ; oanssoonZ Wl
ane 8 ca ew ces nie p7651 NIACRS_| LS>SIS*) W;LAS@P ROUCHR'I25; CUEFA “ore” scqneaso071 T+/*>EDA EDA E(P OE(XED*SRIDCPS>L NIDA &+1KECPOS*L TeaKOSMCCZ<PC>. E1)1 CBTEO*T GDA "gp 3vaae3¢0093 ‘
eae °. : . 7 . =
gesBoi.gay.wax 25}C3EFA 972168_G 0'>S36—.Pa—A ODC Waa~21°CKI'R VAX NINCDSRPSE(POBSC C5_E EL-A0360072 T+/=ZEDCNS;. ASN ELA ELA EDA EDB 6B EB EB E OBAG W( —~,LOHD;-SBA=. 3( -~>LOMD; QNBA" ec D "GER0360094 a ;
Fs jexiwensacosne AGS. B1)T 94xT20C AS>PES<PNBAMO5 (1 I5*N 2;1 9() 1S RECE 5)R 5 (ST2)5 NE+H *RHAOI60073 T+/"uGea OAG'H | -OAGa< OO GB Th gee Segoe ees J97HBB-Q- ~7#B cons’ 0" nazew..stre' sonosaeg |
Te/KCVEPRIOR 42x NIMCHOI 1(XOS'+ E1DCBI*S06"N 6*P C1#x¥2) PGE<{ 06)x BO=( 5)R.6 (SPE+) RO®< 11630360078 ; PoyeesseO ee eee eh, Oe Q ce mn! See Page dese | sim Na by, eae RO Lo :
T4/_WUUCCE)SSERX NIWCP9(1S1;.GS0C 12) PEGCLIYDCNS>( 1(1OSHCA1>}E6RC C5_XR1#1T6(PORIC 010 0DDA0360075 GP ecawigeehedete aioe ae Fees eee nae egg te TO aayaaaeiree. iimaateckusReses |
Tepecarmnory 0° O8>.15*) S=LL8KP S1*R UAXNINCHO;I —1(XOS*~E1DCB1*S 06*N 6*PC1*XV2)P GECD K¢HA0360076 ; |
Bepoesi/" errantT "9*x08>.15*) S=L LOEPSI'R GaGTOay 9{ ) ADCESUCT6*G CHUCCE)SSERININC P9(< *HYA0360077 : tae
_ Teprseme se (xeoar B9I*PDO#ICI;.SE (+ OBRXT2)SN19J OP TOXPESNCTE*GCUD. TE*GCRUCCE)SSBRX WIS 0: QA0360078 :
- ge ouuarstacnsuc S5_|I1CERGA-6 BAG W(-*H -cGAY Cc “GE? /0 (-*0L0 ‘GS%8A Haz Dj - )>30 -¥ 0360079
ep rrepstoneen— AGFG /1100H*;3*B: G /YFI 3YOH*BHD +0H® A?S62 =. ~~~~SSSS:SCCERG.D < /& 91<A0360080
“aeabaur-paeent ABCBGGBO*R/LCOH® TAISE.X /OHEOJH M>E HOR®BF-DLEC3 /OHEASCR#@BG SH -B% OTYA0360081
“repanswsow ce BGER5 /18})>L0 GS-a"11WH <#*0 x 258 KOAGSUCCEO )?1"NG]*9BAG#a/ De-- P3*A0360082
: yeostst” “eae (B A9DO-DR2Ie~ <P SG*H'"168a-D<T CGS;# ERS /1S8E BaN*D?EDAa-DH{ }a@ )>LO0 5Q8A0360093
/58" ne. 0) 06 S /TAL )_0<a"16 816 )_sHAETOAGSO # cHanoca AG6I{ a )_<BGGer s1=<Gso nees’ Laqnoscooss
“pepe” py _7Fac DE@%A -0 CSE) _S@ ” GSGAC onesLtare T>-DB. )_ Di A6 SGSQCA/L/E}$2/02 a < *,64036025
4/790 oneasnere 17 CGSES ATT 20 “GSQAOHe*e- ee Gan <B GG *C+ -*P)HEAC3 "GUE 0 YA0360086
" gayect-peexeper ""19DBIDEOH*BFKQ VGTO-S*BG SH-S*B GG80H 19C1D ;6*B G /,PEISCYH@ /OH SYH8 @18A0360087
JOE enna nnn nn nn nnn naan nnn nnn nnn nnn nnn LAST PAGE —----------------- wn a+------- --- + -
TATE 13H0R70 OAR 290CT71 15WOV71 15 BAB72 PROG ID 0003-6 LATE 13MAR7C O1NAR71 290CT71 15 BOVT1 ISMART2 PROG ID 0403-6
ee bie ete 571601 571605 571591 PAGE 20 FC NO. 571512 571573 571601 571605 571591 PAGE 20a
3
4
i
4
i
t
{
:
1
:
eB Tee PR ee eee ey
wee Ne es ee ee SE a . were Sab) OAL Sie ss, Oe ae
i
bites es Adee oeseed ng tee ee oot
manratetGis ad oh S Soha oY ge niatrad Aga WE wR a BEd ea owe te GR ERR Boe Ghai P Ra Tee Se
ee hae Legace 2 SE cape nan ee et cate aM om er ae
Gc) oO G
PART WO. 4129626 .
IBM MAINTENANCE DIAGNOSTIC PROGRAM ba NO. piageee G16 IBM MAINTENANCE DIAGNOSTIC PROGRANS orcs a. a
AOE3 SEEK FUNCTION TEST G10 AOE3 SEEK FUNCTION TEST a
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMERST FRR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT .
cis OACY CO 87 1333 70 B SEBSE Me
: AOE ae . OaCcB 02 Oacs 71 DC XL 1*02° ASK FOR DEVICE STATUS BYTES 0 & 1,
5500 4 ORG x*Oa00* O0ac9 3c CB 0B27 72 NVI TRACK#,203 SET FOR FULL CAPACITY DISK >
5 RARE REEEEERASEEEEEE ERE RE SEE DEKE EE ES ESEKERESESEEKESEREREREE ESSE SESESE SES Cc G OACD 38 08 13506 a2 7 eee ee eoue coeceaee “
* OAD1 F2 90 04 u
: Su eeeese BPC n nee tar * tt OAD4Y 3C 67 0B27 75 SET103 BVI TRACK#, 103 SET POR HALF CAPACITY DISK
‘AOE3* PROGRAM ID C1 ¢ OAD8 CO 87 O21A 76 PRTSPN B PRIST TO PRINT SECTION HEADING
aie ae? BED ; be ti itoor OADC 01 OaDC 77 pc XL1°018 FLAGS
ae 6d ood ; Be teiod SOReENT ee NUMBER | OADD 1D OADD 78 pc IL1'29° LENGTH
Baa 0006 ons be te ere RESERVED Oo | oS OADE OB46 OADF 79 pc AL 2 (SECHSG) MESSAGE ADDRESS
OA06 CBB3 0A07 12 Dc AL2 (RT N1) ADDRESS OF FIRST ROUTINE PREFIX OAEO CO 87 O21A ie = ee ns ee SPINDLE
0a08 0000 Oe ce poe Teens erg ee ee o 9 OAES 18 OES 82 pC 8 sIL1°24# LENGTH
ean Aci b0s OnE is nas ae rE3"s0 1000" OAE6 OBSE OAE7 = 883 Dc AL2 (S PRASG) BESSAGE ADDRESS
nnn ova 16 m OAE8 3C 00 14&FC 84 SVI FRSTPS,O SET SWITCH FOR RECALIBRATE
17 * 1. SET SWITCH 1E TO BYPASS RUNNING ON DISK DRIVE 1 * Co 8 OAEC C2 02 OAFO 85 LA INTERR-8,XB2 Beep ne cee or
18 * 2. SET SWITCH 1F TO BYPASS RUNNING ON DISK DRIVE 2 * Ae 2 ets ae : oe ae ee ieg
19
} RROR RETURS
Bil se Fe oats ay ne cece tree SET SETUP S¥ITCH oS OAFC 3G FF 0925 aot Gyr SKbupt.xtere SET THE SKIP UDT PLAG
OA14 3C FF 0826 21 NVI SETSW,X iy
v SNSID,X "88 ° PUT ID IB SENSE
thie #2 16 39. oR Pansat june iron Te CC babe eo oF t38c sb paras fo reer For AfY THIPTAL STATUS
CAIF 3D 00 OBAF 24 CLI UDTPTR,O HAS POINTER BEES INITIALIZED ? 0B08 CO 87 021A ae ae ae pee INITIAL ERROR
0A23 F2 01 08 25 INE UFIND? JUSP IF YES ae aaee o oe = oe eae raoee
26 38
ss
OA26 C2 01 0232 27 LA UTAB,XR1 LOAD XR1 IF NO OBOE OBAD OngE 23 pe ay tr oreae? oreo ee ee
OA2ZA 34 01 OBAF 28 UFIND2 ST UDTPTR,XB1 Coo 0B10 A088 B ? ee Ge cee cuca wus
OA2E 35 01 OBAF 29 UFIND1 L UDTPTR,XR1 hee 0B12 CO 87 0222 9 7 oe iene tee
0A32 3c 00 OB24 30 MVI RESNVDS,0O 0B16 A088 0B17 98 D aoe
OA36 328 02 02083 31 TBN SWITCH+3,X'02! TEST SSW 1E ‘ eM ¢ 0B18 3C 00 0B26 72 BVI SETSU,
OA3A F2 10 O06 32 JT #49 JUMP IF ON, NEVER RUN DISK .f‘
OA3D 7D AO 00 33 CLI 0(,XR1) ,X*A0* TEST FOR UNIT ADDRESS OF "A® OB1C 3c 00 0B25 101 SKPEXT MVI Se Pap hee oe THE SKIP UDT FL&G
OAUO F2 81 2F 34 JE SETA JUMP IF THERE IS ONE O + 0B20 CO 87 0000 102 SETEXY B -
OA43 38 01 0208 35 TBN SWITCH+3,X'01' TEST SSW 1F Co 103 a
OAR7 F2 19 06 36 JT *4+9 JUMP IF ON, NEVER RUN DISK 2 C324 00 0B2& 10% RESVYDS DC XL 170°
OAUA 7D BO 00 37 CLI 0(,XR1),X'BO! TEST FOR A UNIT ADDRESS OF *B®* ane 0B25 00 0B25 105 SKPUDT DC XL1108
OAGD F2 81 2F 38 JE SETB JUMP IF THERE IS ONE 6 oe “1 sae - tele - a
39
ea0
*OASO 78 10 01 40 TBN 1(,XR1) ,.X*10! TEST FOR LAST ENTRY eo 0B28 AO 0828 108 SPNDLA DC XL 1° :
0a53 D2 01 03 41 LA 3(,XB1) ,XR1 STF2> POINTER TO NEXT ETRY Cr AS 0B29 BO 0B29 109 SPNDLB DC XL1°BO :
OAS56 CO 90 OA2ZA &2 BF UFIND2 CONTINUE IF NOT THE LAST ONE OB2A C2C5C7CIDSYOE2ZCS OBY6 110 SECMSG DC CL29* BEGIN SEEK FUBCTION TEST AOE,
OA5A CO 87 021A 43 B PRINT TO PRINT ALL UNITS TESTED G oo 0B32 CSD240C6EUDSC3E3 110 a
OASE 06 OASE 44g pe XL1*06° FLAGS / ~ ee Seer oneeee 4
OASF 1A OASP 45 pe IL1°26°* LENGTH
OA60 0378 OA61 46 pc AL2 (NOUNIT) MESSAGE ADDRESS ae 0B&7 D5SD6EG4OE3ICSEZE3 OBSE 111 SPNSSG DC CL28*NOW TESTING DISK DRIVE Xx* 2
Shee ac oF ona tee bzar “das Sacensesssesuozy 1
OA66 OC 01 OBAF OBB2 48 MVC UDTPTR(2Z),ZERC .
OA6C CO 87 022A 49 B LOAD NO ENTRYS LEFT eS OBSP C1D3D340E4DSCSE3 OB78 112 NOUNIT DC CL26*ALL UBITS EAVE BEEN TESTED* “
0A70 0040 0A71 50 Dc XL2 "40 ¢ FLAGS c “ oe Bee eee Ue
$1
OA72 08 0Q 1401 0B28 52 SETA MZZ LOFCR+1,SENDLA SET FOR SPINDLE A. sa 0B77 CSC4 112 ; “.
OA78 3C F1 OBLE 53 MVI SPNMSG,C? 1" <& OB79 C&CIE2ZD240D5D6E3 OBAY 113 Dc CLUS* DISK NOT READY OBR SOLID ERROR OS BEFORE STARTISG
OA7C F2 87 14 54 J SETBTH PROCEED 0B81 YODSCSCIC4EBYLOFE 113 :
OA7F 08 09 1401 9829 55 SETB MZZ LDFCR+1,SPNDLB SET FOR SPINDLE B. — OB89 DIXOE2ZD6D3C 9C 440 113 a
OA8S 3C F2 OBS? 56 MVI SPNSSG,C*2! OO Ae 0B91 C5D9D9D6D94S0DEDS 113
OA89 78 01 02 57 TEN 2(,iR1),X*01' TEST OPTION BIT FOR REMV. ONLY 0B99 80C2CSCE6DED SC 540 113
OA8C F2 90 O48 58 JF SET BT H JUMP IF NOT OW are OBA? E2E3C1D9E3C9D5C7 113 a
CABF 3C FF OB24 59 NVI EESVDS,X*FF® SET BIT TO SPECIFY REMOVABLE OBLY ke OBA 40 113 ; :
OA93 D2 01 03 60 SETBTH LA 3(,XR1) ,XR1 SIEP UDT POINTER +3 OBAA E3C5SE2E3 OBAD 114 FSTERR DC CL4* TEST :
OA96 34 O71 OBAF 61 ST LOTPTR, XR1 STORE FOR NEXT PASS C Oo peeR oa Ses ae np c a. -
62 P EONS B
OASA 08 OO 1805 1401 63 MZZ LDFDR+1,LDFCR+1 SET FOR CURRENT SPINDLE 0232 117 UTAB £QC x*°232°
OAAO O08 OO 1817 1401 64 ZZ SIO+1,LDFCR+1 SET FOR CURRENT SPINDLE | 5 :
OAAG6 98 00 141714 1801 65 NZZ WAIT+1,LDPCR+1 SET FOR CURRENT SPINDLE O | te
CAAC 08 00 184B 1401 66 M2Z TSTERR+1,LDFCR+1 SET FOR CURRENT SPINDLE
CAB2 08 00 1346 1401 67 MZZ S¥S+1,LDFCR+1 SET FOR CURRENT SPINDLE | Q ape
OABS 08 00 188E 1403 68 MZZ RLDFCR+1,LDFCR#1 SET FOR CURRENT SPINDLE SG
OABE 08 O00 1492 1401 59 MZZ RSIO+1,LDFCR+1 SET FOR CORRENT SPINDLE ; .
? | ? PROG ID OaGE-3 7
DATE 13 BARTO C6APEV0 22HAY70 O1AUG70 OIMARTi PROG ID OADE-3 DATE 13N..R270 OGAPR7O 22BAxY70 G1A0G70 OinzRR71 erce cs ;
EC WO. 571512 £71516 571513 571531 §71573 FAGE 4 °o 6 BC NO. 5773572 $71516 571543 571531 S7t573 S
o © Y
_ EBM MAINTENANCE DIAGNOSTIC PROGEAS
AOE3
ERR LOC
OBB3
OBBS
OBBS
OBB?
OBBB
OBBF
0BCc3
OBC?
OBCB
OBCD
OBCF
OBD3
OBD7
OBDS8
OBD9
OEDB
OEDF
OBE3
OBE?
OBE8
OBEY
OBEB
OBEF
OBF1
OBFS
OBF9
OBFD
0c6i
0Cc02
0c03
0c05
oce9s
OcOF
0C13
0c16
OC1A
ocic
OC1E
0C22
0C26
0c27
0c28
OC2A
OC2E
0c30
0C36
0C39
0C3D
oc40
OcdsR
Oc4uB
Ocac
OCuUE
OcS4
0c58
ocsc
DATE
EC NO.
SEEK FUNCTION TEST
OBJECT CODE
01
00
0D36
3D 00
co
81
3c 00
3c 5c
co
87
1355
occc
3c 09
co
00
00
87
1354
co
co
co
87
87
87
06 .
33
occc
co
87
A009
co
co
3c
co
01
01
87
87
OF
87
1358
co
oc
3D
F2
co
87
02
FF
81
87
1359
oc99
co
co
06
3E
87
87
0c99
co
87
AOOF
OD
F2
3D
F2
3D
co
co
00
81
02
81
01
01
87
0D32
OD
co
co
00
84
87
CB26
GA10
1355
1356
1703
15583
13AD
03F1
15BC
O2TA
0222
12.9C
ocus8
1SE3
13AD
0C30
oce9
1359
1A
1703
153C
O21A4
0222
1359
OF
1358
08
1358
135¢
129D
1355
0216
0BC7
1353
1355
0B27
ADDR
CBB3
OBBY
OBB6
OBCC
OBCE
OBD7
OBDS
OBDA
OBE?
OBES
OBEA
OBFO
0c01
oco02
Oco4
0c 1B
OCc1D
O0C26
OCc27
0c29
OC2F
ocaD
E3C8CS4ODTDICSES OC8D
13 BAR70
571512
OG APR7O
571516
STMT SOURCE
119
120
121
122
123
124
125
126 BEGIN
127
128
129
136
131
132
133
138
135
136
137
138
133
740
141
182
143
144
1&5
146
147
148
149
150
151
152
153
154
155
156
157
158
189
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
75
176
177
178
179
180
181
182
183
184
185
186
*
*
*
BTNI
RTNIA
RTN1B
RTNIC
BTN1D
RTNITE
22mAY70
577513
STATEMENT
ROUTINE NO.
ONE CYLINDER
ROUTINE PREFACE
pc
bc
pc
CLI
BE
NVI
NVI
B
pc
DC
AVI
pe
0 120670
571531
XL1°01°
XL1*00°
AL 2 (RTN2)
SETSW,0
SETDSK
WRTDFC+1,0
WRIDFC#2,X*5C?
CVD
AL2 (WRTDFC#1)
AL2 (ERRORS)
SNSID,09
STRTIO
XL1°00
*XL1*00°
*AL2 (WRTDFC)
RTW1B
PRTSNS
XL 1°06"
IL1*51°
AL 2 (ERROR 9)
HALT
XL2*a009°
VERIFY
RTN1E
SNSID,X*OF!
STRTIO
XL1°018
XL1*O18
AL2 (RDDFC)
RTN 1D
RDIDER (3) , THREEC
RDDFC4#1,X*FF
*RTW1D
cYD
AL2 (RDDFC¢ 1)
AL2 (RDIDER)
PRTSNS
XL1*06
*IL 71*62°
AL2 (RDIDER)
HALT
XL2‘AOOF®
RDDFC+#+1(1) ,WRTDFC#1
RTNVE
RDDFC,X* 02!
RTN1E
RDDFC, X01"
SEEKER
STEPF
AL2 (ONE)
WRTIDPC+1 (1), TRACK#
LINK
RTNIA
PART WO.
5129626
PAGE 2
01, SEEK EACH CYL. FROM ZERO TO SMAXISUS
AT A TIME s
ROUTINE NOMBER
ROUTINE FLAGS
ADDRESS OF NEXT ROUTINE
HAVE PARAMETERS BEEN ENTERED?
BRANCH IF NO
SET TO START AT CYLINDER 0,
SET FOR SECTOR 23
TO CONVERT CYL. NO TO DECIMAL
ADDRESS OF SOURCE
ADDRESS OF DESTINATION
INSERT ID IN PRINT
TO START I/O SUBROUTINE
FUNCTION CODE (CONTROL)
CONTEOL CODE (SEEK)
CONTROL FIELD ADDRESS
GCOD RETURN
ERROR ON SIO
TO PRINT ERROR
FLAGS
LENGTH
MESSAGE ADDRESS
TC DCP ERROR HALT
HALT ID
TO VERIFY HEAD POSITION
GOOD RETURN FROM VERIFY OPERATION
INSERT ID IN PRINT
TG I/O SUBROUTINE
FUNCTION CODE, (READ)
CONTROL CODE, (IDENTIFIER)
CONTROL FIELD ADDEESS
GOOD RETURN
PUT ??2 IN ADDRESS READ
CHECK FOR ANY DATA TRANSFER
JUMP IF NO
TO CONVERT ADDRESS JUST
SOURCE
DESTINATION
READ
TO PRINT ONEXPECTED ERROR
TO PRINT 3RD LINE
FLAGS
LENGTH
MESSAGE ADDRESS
TO DCP HALT
HALT ID
COMPARE EXPECTED ID AND ID READ
JUMP IF EQUAL
CHECK FOR DEFECTIVE TRACK
JUMP PAST ERROR IF YES
CHECK FOR ALTERNATE TRACK
TO PRINT SEEK ERROR MESSAGES
STEP TO NEXT CYLINDER
COMPARE NEW NUMBER WITH MAXIMUS.
ROUTINE EXIT
NOT DONE, SEEK NEXT CYLINDER.
CLSO'THE PREVIOUS ERRORS OCCURRED AFTER DOING A READ ID
*O1MAR71
571573
PRCG ID OadE-3
PAGE 2
©
oO
©
Oo 9 9 O98 O89 O
Oo 08 O 9 QO O cy. 7
Oo 09 808 9 Oo 86
9 O@ Oo 9
oO 0 9 a 9 9 0 0 Oo @G @
QO
eo 9 080 9 O
Oo oO 9
© 0 8 CG 8 4 0 4
C:
IBM MAINTENANCE DIAGNOSTIC PROGRAA
A0E3
ERR LOC
0cé64u
océc
OCT74
oc7c
0c84
ocsc
OCBE
9C96
OCSA
OCA2
OCAA
OCB2
OCBA
0cCc2
OCCA
OcCcD
ocDS
OCDD
OCE3
OCEB
OCF3
OCF9
OD01
0D09
ODOE
0D16
ODIC
0D23
OD2A
0D31
0D33
0D35
DATE
EC NO.
SEEK FUNCTION
OBJECT CODE
C9 D6EYE2Z40C5D9D9
D6D9E240D6C 3C 3E4&
DIDIC5SCH4OCIC6E3
CS5D940C4 DGC 9DSC7
SO0C1I8OD9CSCICHUO
coc4
SOCTEIJYOCIESD34B
SOE7TE7VE7
E3IC8CS4ODTDICSES
CILT6ESE2ZKOCSD9ODS
D6 DIEZ4O DEC3C3ES
DI DICSC4YOEG6C BCI
DICSSOE2ZCSC5D2C9
CS5C740C 3E8D34B40
EV E7£E7
E2C5C5D2C SC440E3
D64OC3IE8D3CIDSCH
CSD940E7TE7E7
CiDIDICIESCSCHUO
ClTE34¥OC3E8D3C9D5
CUM BYOETETE7
E6C8C9D3C 5S40E2C5
C5 D2C9DSCTNOETET
EVEVEVE7TET
RO0C6D9DEDASOC3ZE8
D34B4OETETE7
C6D6D9E6CID9IC4
C9D54 0D9C 5E54B
BOU0KONOROLORO
0001
C002
00
138.270
571512
TEST
ADDR
0c99
occc
OCE2
OcF8
ODOD
OD1B
0D22
0D29
0D30
0D32
0D34
OD35
OGAPR70O
571516
STST
186
186
186
186
186
186
187
187
188
188
188
188
188
188
188
189
189
189
190
190
190
191
191
191
192
192
193
194
195
196
197
198
SOURCE
RDIDEB
ERRORS
SEEKTO
SEEKAT
SEEKDE
OLDADR
FORWD
REV
SVNBLK
ONE
THO
TKCTR
22mAY70
571513
5129626
2a
PART "0.
PAGE
STATERENT
Dc CL12° aT CYL. xxx
*pc CLS1°THE PREVIOUS ERRORS OCCURRED WHILE SEEKIRG CYL. XXX
*DC CL22*SEEKED TO CYLINDER XXX
*DC CL22*ARRIVED AT CYLIND. XXxX
*Dc CL21°WHILE SEEKING XXXXXXX¢
DC CL14* FROM CYL. XXX
*pc CL7* FORWARD?
DC CL7°IB REV. °
pc cL7* ®
Dc XL2°01
*rc XL2*02°
DC XL1*0!
07AU0G70 018287 1 PROG ID OAOE-3
571531 571S$73 PAGP 2a
)
()
re oe
GRRE che ume, oy) tm
IBM BAINTENANCE DIAGNOSTIC PROGRAR
AOE3
ERR LOC
0D 36
0D37
0D38
OD3A
OD3E
OD4s2
OD48
OD4C
0p50
0D52
OD54
ODS8
OD5c
ODSD
OD5E
0D60
OD64
OD68
ODE6C
OD6D
OD6E
0D70
OD74
OD76
OD7A
OD7TE
OD82
0D85
0D87
O0DBB
ODBA
OD8E
0D94
0D98
OD9B
OD9F
ODA1
ODA3
ODA7
ODAB
ODAC
ODAD
ODAF
OLB3
ODB5
ODBB
ODBE
0DC2
opcs
ODCc9
ODCD
ODD1
ODDS
ODDS
ODDB
DATE
EC NO.
SEEK FUNCTION
OBJECT CODE
02
00
ODDF
3D 00
co 81
oc 00
3c 5c
co 87
1355
occc
3c 0S
co 87
00
00
1354
co 8&7
co 87
co 87
06
33
occc
co 87
A009
co 87
co 87
OB 26
0a10
1355
1356
1703
15E3
T3AD
OD76
15BC
O27A
0222
159¢
OpCcD
15E3
13AD
ODBS
oc99g
1359
1A
1703
T5RC
O21A
0222
1359
OF
1358
1358
135¢
1355
0216
1257
ODRC
T3NARTO
53715142
0B27
1353
1355
TEST
ADDR
0D36
0D37
0D39
OD51
0D53
On5c
OD5D
ODSF
oréec
OD 6D
OD6F
0D75
OD86
OD 87
OD89
ODAO
ODA2
ODAB
OnaACc
CDAE
ODB4
ODDA
C6APRT7O
571516
STST
200
201
292
203
204
205
206
207
208
209
2170
211
212
213
2T&
215
216
2?
278
219
226
221
222
223
228
225
226
227
228
229
230
231
232
233
234
235
226
237
236
239
240
2481
282
243
288
2a5
246
247
248
249
250
251
252
253
254
255
256
257
258
253
266
261
262
263
264
265
266
SOURCE STATEMENT
*
*
x
RTN2
RIN2A
RIN2ZB
RTN2C
BIN2D
RIN2E
225 RIF
571573
MVC
O1AUG7O
571534
ROUTINE WO.
ONE CYLINDER
02,
ROUTINE PREFACE
IL1*02!
XL 700!
AL2 (RTN3)
SETSH,0
SETDSK
WRTDFC+1(1) ,TRACK#
WRIDFC+2,X'5C!
CVD
AL2 (WRT DFC+1)
AL 2 (ERROB9)
SNSID,X*09
*STRTIO
XL 1°60!
XL1*00°
AL 2 (WRTDFC)
RTN2B
PRTSNS
XL 1°06
*IL1'51#
AL 2 (ERRORS)
RALT
XL2'aGO9
*VERIFY
RTN2E
SNSID,X*OF
*STRTIO
XL1°01°
XL1'O18
AL 2 (RDDFC)
RTW2D
RDIDER (3) ,THREEQ
RDDFC+1,X'FF
*RT N2D
cvD
AL2 (RDDFC¢1)
AL2 (RDIDER)
PRTSNS
PRING
XL1"'06
*IL 1"62¢
*AL2(RDIDER)
HALT
XL2*ACOF®
RDDFC+1(1) ,WRTDFC41
RTH2E
RDDFC, X'02?
RT N2E
RDDFC,X*01'
SEEKER
WRTDFC#+1,0
LI BK
STEPR
AL2 (ONE)
RTN2A
CIHART1
571573
PART NO. 5129626
PAGE 3
SEEK EACH CYLINDER FROM MAXISUM TO ZERO
AT A TIME
*s
ROUTINE NUMBER
ROUTINE FLAGS
ADDRESS OF NEXT ROUTINE
HAVE PARAMETERS BEEN ENTERED?
BRANCH IF NO
SET INITIAL ADDRESS TO MAXIMUS
SET FOR SECTOR 23
TO CONVERT CYL. NO TO DECIMAL
ADDRESS OF SOURCE
ADDRESS OF DESTINATION
INSERT ID IN PRINT
TO I/O SUBROUTINE
FUNCTION CODE (CONTROL)
CONTROL CODE (SEEK)
CONTROL FIELD ADDRESS
GCOD RETURN
ERROR RETURN
TO PRINT ERROR
FLAGS
LENGTH
ADDRESS OF LAST PRINT CHARACTER
TO DCP ERROR HALT
HALT ID
TO VERIFY HEAD POSITION
GOOD RETURN FROM VERIFY OPERATION
INSERT ID IN PRINT
TO I/O SUBROUTINE
FUNCTION CODE, (READ)
CONTROL CODE, (IDENTIFIER)
CONTROL PIELD ADDRESS
GOOD RETURN
PUT ??? IN ADDRESS READ
CHECK FOR ANY DATA TRANSFER
JUBP IF HO
TO CONVERT ADDRESS JUST READ
SOURCE
DESTINATION
TO PRINT UNEXPECTED ERROR
TO PRINT 3RD LINE
FLAGS
LENGTH
MESSAGE ADDRESS
TO DCP HALT
HALT ID
CCMPARE ID READ AND EXPECTED ID
JUMP IF EQUAL
CHECK FOR DEFECTIVE TRACK
JUMP PAST ERROR IF YES
CHECK FOR ALTERNATE TRACK
TO PRINT SEEK ERROR MESSAGES
IS NEW ADDRESS EQUAL TO ZERO?
ROUTINE EXIT
REDUCE SEEK ADDRESS BY OBE
LGOP TO WEXT SEEK
PROG ID ChOB-3
PAGE 3
C:
G
oO
QO
o.UmNdmUlUCOCUOCUO OUD
‘>
ce
am)
)
=)
Oo ©}
vy
oO
«> ey 2) oO 0) O
(> Oy
oO
()
“ot
OQ
IBA MAINTENANCE DIAGNOSTIC PROGRAR
AO E3
ERR LOC
ODDF
ODEO
ODE1
ODE3
ODE7
ODEB
ODEF
ODF3
ODF7
ODF9
ODFB
ODFF
0E03
OEOu
O£0S
0 £07
OEOB
OEOF
0E13
OET&
OES
0£17
OE1B
OED
OE21
OE25
0E29
OE2D
OE2E
OE2F
0F31
0E35
OE3B
OF3F
OE&2
OEG6
OE&8
OESA
OFEUE
OE52
0553
OES4
0556
OESA
OES5SC
OF62
0565
OF69
OF6C
OE70
OE74
OE78
OE7A
OE80
OEEu
SEEK
OBJECT CODE
03
OE88
3D 00
co 81
3c 00
3c SC
co 87
1355
occc
3c 09
co 87
06
oo
1354
co 87
co 87
co 87
06
33
occc
cO 87
A009
co 87
cO 87
3c OF
co 87
1358
FUNCTION TEST
0B 26
0A10
1355
1356
1703
15E3
13AD
OED
15BC
O21A
0222
159C
OE74
1553
13AD
OES5SC
ocs9
1359
1703
I5BC
O21A
T3MA.70
$731572
1353
1355
6527
ADDR STMT
ODDF
ODEO
ODE2
ODF8
ODFA
0EO3
OEO4
OEO6
0E13
OE 14
OE16
OEIC
OE2D
OE2ZE
0£30
OE&7
OES
OE52
0253
0E55
OESB
OE7S
OSAPRTO
571516
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
SOURCE STATEMENT
*
*
*
RTR3
RIN3A
RTN35
RTN3C
RTW2D
RTNSE
22RE 770
571573
ROUTINE NWO. 03, SEEK EACH CYL.
PART
PAGE
¥O. 5129626
3a
FROM ZERO TO SAXISOS
TWO CYLINDERS AT A TIBEZ s
ROUTINE PREFACE
DC XL1*03! RCUTINE NUSBER
DC XL1°008 ROUTIBZ FLAGS
DC AL2 (RTR4) ALDRESS OF NEXT ROUTINE
CLI SETSW,O BaVE PARASETERS BEEN ENTERED?
BE SETDSK BRANCH IF HO
BVI WRTDFC+1,0 SET TO START AT CYLINDER 0,
BVI WRIDFC+2,x "5c? SECTOR 23
B cvD TO CONVERT CYL. NO TO DECIMAL
Dc AL 2 (WRTDFC#1) ADDRESS OF SOURCE
DC AL2 (ERROR9) ALDRESS OF DESTINATION
MVI SNSID,x*09* IWSEPT ID IR PRINT
B STRTIO TO START I/0 SUBROUTINE
pc XL1*00# FURCTION CODE (CUBTROL)
Dc XL1°00? COBTEOL CODE (SEEK)
DC AL2 (WRTDFC) CONTROL FIELD ADDRESS
B RTN3B GOOD RETURS
B PRTSKS ERROR CH SIO
B PRINT TO PRIKT ERROR
pc XL 1"06* FLAGS
Dc IL1*51! LENGTH
pc AL2 (ERRORY) ADDBESS OF LAST PRINT CHARACTER
B HALT TG DCP ERROR FALT
Dc XL2* A009" HALT ID
B VERIFY TO VER{ FY HEAD POSITION
B RTN3E GOOD RETURN FROM VERIFY OPERATION
MVI SNSID,X*OF® INSERT ID IB PRINT
B STRTIO TO I/O SUBROUTINE
rc XL1*01" FUNCTIONS CODE, (READ)
Dc XL1°01? CONTROL CODE, (IDEKTIFIER)
pc AL2 (RDDFC) CONTROL FIELD ADDRESS
B RTH3D GOOD REIUSs
MVC RDIDER(3),THEEEC PUT 227 IB ADDRESS READ
CLI RDDFC+1,X*FF* CHECK FOR ANY DATA TRAEBSFER
JE RTN3D JUMP IF WO
B CVD TO CONVERT ADDRESS JUST READ
Dc AL2 (RDDFC+ 1) SOURCE
DC AL2 (RDIDER) DESTINATION
B PRTSKS TC PRINT UNEXPECTED ERROR
B PRINT TO PRINT 3RD LINE
DC XL1"06* FLAGS
pc IL 1" 62° LENGTH
Dc AL2 (RDIDER) MESSAGE ADDRESS
B HALT TO DCP HALT
pc XL2 *AOOF® HALT ID
CLC RDDFC#1(1),8RTDFC+1 #COERPARE EXPECTED ID AMD ID READ
JE RTH3E JUSP IF EQUAL
CLI RDDFC,x*02* CHECK FOR DEFECTIVE TRACK
JE RIN3E JUBP PAST ERROR IP YES
CLI apDDFCc,x*01? CHECK FOR ALTERNATE TRACK
BNE SEEKER TO PRINT SEEK ERROR MESSAGES
B STEPF STEP TO HEXT CYLINDEE
pc AL2 (TEO}
CLC WRTDFC#1(1), TRACK? COSPRRE NEW NOMBER WITH HAXIAUK.
BE LINK ROOTINE EXIT
8 Br RSA NOT DONE, SEEK HEET CYLINDER.
OVAUG7O GitB2R7i PROG ID OACE-3
571531 574593 PAGE 23
eseeaeoc ooeaeaseaeeoaeaseoeaseoenveaoenaeneeeon@eaee eee eo
*
tw
c>
ISH HAINTENANCE DIAGNOSTIC PROGRAS
AOE SEEK FUNCTION TEST
we ee le
Bee ee ee
SOURCE STATEMENT
ERR LOC OBJECT CODE ADDR STAT
336
*337
*338
339
*340
O£88 O48 OF88 341 RTNS
0289 00 QOE89 342
OESA OF3F OE8B 343
344
OE8C 3D 00 0B26 345
OE90 CO 81 0A10 346
OE98 OC 00 1355 0B27 347
GCESA 3C SC 1356 348
SESE CO 87 1703 349 RITNGA
OEA2 1355 OEA3 350
OEFA& OCCC OFAS 351
OEAG 3C 09 1583 352
OEAA CO 87 13AD 353
OEAE 00 OEAE 354
QEAF 00 OEAF 355
OEBO 1354 CEB1 356
OEB2 CO 87 OFCS8 357
O£B6 CO 87 15BC 358
OEBA CO 87 021A 359
QEBE 06 OEBE 360
OEBF 33 OEBF 361
BO ECO OCCC OEC1 362
GEC2 CO 87 0222 363
OEC6 A009 OEC7T 364
365
OECB CO 87 159C 366 RINSB
OECC CO 6&7 OFIF 367
368
GEDO 3c OF 1553 369 RTN&C
oepa co 87 13aD 370
COEDS 01 OEDS 371
GED9 01 QOED9 372
OEDA 1358 OEDB 373
Gepc CO 87 OFOT 374
GEEG OC 02 0C99 1353 375
GEE6 3D FF 1359 376
GEEA F2 81 1A 377
QEED CO 87 1703 378
GEF1 1359 OEF2 379
GEF3 0C99 OEF4 380
GEFS CO 87 15BC 381
OZFS cO 87 O21A 382
SOEFD 06 OEFD 383
QEFEZ 3E OEFE 384
OEFF CC99 OFOO 385
OFO0T CO 87 0222 386
OF05 AOOF OFO6 387
388
OFO7 OD 00 1359 1355 389 RTNGD
OFOD F2 81 OF 390
OF190 3D 02 1358 391
OFS F2 81 08 392
OF17 3D 01 1358 393
CFIB cO 01 135C 394
OFIF 3D 00 1355 395 RTNUE
GF23 CO 81 0216 396
OF27 CO 87 12E7 397
9?P2B 0D32 OF2C 398
OF2D 3D 00 1355 399
OF31 CO 81 0216 400
OF35 CO 87 1257 401
OF39 0D32 OF3A 402
OF38 CO 8&7 OEYE 403
DATE 13 MART7O OG APR70 22m AY70
fC #0. 571512 571516 571513
CLC
CLI
01A0G70
$7 1531
ROUTINE NO.
TWO CYLINDERS AT A
ROUTINE PREFACE
XL1°04!
XL1"00?
AL2 (BTHS)
SETSH,0
SETDSK
WRTDFC+1(1), TRACK#
WRT DFC+2,x'°SC!
CVD
AL2 (WRTDFC4#1)
AL2 (ERROR)
SNSID,X*09
*ST RTIO
XL1*00°
XL1°00!
AL2 (WRTDFC)
RTN4B
PRTSNS
XL1 #06 ¢
IL1*51!
AL2 (ERROR9)
HALT
XL2*A009#
VERIFY
RTNGE
SNSID,X"OF?
STRTIO
XL7*07°
XL1*01!
AL2 (RDDFC)
RTN4D
RDIDER (3) , THREEQ
RDDFC+1,X'FF?
RTW&D
CVD
AL 2 (RDDFC+ 1)
AL2(RDIDER)
PRTSNS
XL1°06
*IL 1°62
*AL2 (RDIDER)
HALT
XL2*AOOF
*RDDFC+1(1} , WRTDFC+1
RT NSE
RDDFC,X*02°
*RTNGE
RDDFC,X'07°
SEEKER
WRTDFC+1,0
LINK
STEPR
AL2 (ONE)
WRTDFC+1,0
LINK
STEPR
AL 2 (ONE)
RTNGA
01MABR71
571573
PART NO. 5129626
PAGE 4
O&, SEEK EACH CYLINDER FROM MAXIMUS TO ZERO
TIME
s
ROUTINE NUMBER
ROUTINE FLAGS
ADDRESS OF NEXT ROUTINE
HAVE PARAMETERS BEEN ENTERED?
BRANCH IF NO
SET INITIAL ADDRESS TO MAXISUS
SET FOR SECTOR 23.
TO CONVERT CYL. NO TO DECIMAL
ADDRESS OF SOURCE
ADDRESS OF DESTINATION
INSERT ID IN PRINT
TO I/0 SUBROUTINE
FUNCTION CODE (CONTROL)
CONTROL CODE (SEEK)
CONTROL FIELD ADDRESS
GCOD RETURN
ERROR RETURN
TO PRINT ERROR
FLAGS
LENGTH
ADDRESS OF LAST PRINT CHARACTER
TO DCP ERROR HALT
HALT ID
TO VERIFY HEAD POSITION
GOOD RETURN FROM VERIFY OPERATION
INSERT ID IN PRINT
TO 1/0 SUBROUTINE
FUNCTION CODE, (READ)
CONTROL CODE, (IDENTIFIER)
CONTROL FIELD ADDRESS
GOOD RETURN
PUT 2??? IN ADDRESS READ
CHECK FOR ANY DATA TRANSFER
JUMP IF NO
TO CONVERT ADDRESS JUST READ
SOURCE
DESTINATION
TO PRINT UNEXPECTED ERROR
TO PRINT 3RD LIKE
FLAGS
LENGTH
MESSAGE ADDRESS
TO DCP HALT
HALT ID
COMPARE ID READ AND EXPECTED ID
JUMP IF EQUAL
CHECK FOR DEFECTIVE TRACK
JUMP PAST ERROR IF YES
CHECK FOR ALTERNATE TRACK
TO PRINT SEEK ERROR MESSAGES
TEST CYLINDER ADDRESS FOR ZERO
ROUTINE EXIT
REDUCE SEEK ADDRESS BY ONE
IS NEW ADDRESS EQUAL TO ZERO
ROUTINE EXIT
REDUCE SEEK ADDRESS BY ONE
LOOP TO WEXT SEEK IF WO
PROG ID OA0E-3
PAGE a
oO oO
Oo oO oO
o
QO ©
i es
-) QO o
©
O
"
m
C
C
C
CO
C
6
©
°
&
0)
Oo 8 O 0
IBA HAYNTENANCE DIAGNOSTIC PROGRAS
o oO 0
SOURCE STATESENT
AOE3 SEEK FUNCTION TEST
ERR LOC OBJECT CODE ADDR STT
So 405
*806
*407
*° 408
OP3F 0S OF3F 409 RTNS
OF80 00 OF4O 410
& OF41 OFES OF42 411
u42
OF43 3D 00 0526 413
o OP47 CO 81 0A10 414
OF4B 3C 00 1355 415
OFUP 3c SC 1356 416
C 417
OF53 CO 87 1703 418 RTNSA
OFS7 1355 OF58 419
G OFS9 OCCC OFSA 420
421
OF5B 3C 09 15E3 422
CG OPSF CO 87 13AD 423
0F53 00 OF63 424
GF64 00 OF64 425
S OF6S 1354 OF66 426
OF67 CO 87 OFT7D 427
OF6B CO 87 15BC 428
o OP6F CO 87 021A 429
OF73 06 OF73 430
OF74 33 OF74u 431
oF75 Occc OF76 432
OF77 CO 87 0222 833
on OF7B A009 OF7C 434
oS 835
OF7D CO 87 159C 436 RTNSB
0f81 CO 87 OFDL 437
2 438
OF8S 3C OF 15F3 639 RTNSC
OF89 CG 87 13AD 44d
S OF8D 01 OF8D 4842
OPBE 01 OFSE 442
OFBF 1358 OF90 443
G OF91 CO 87 OFBC 644
OF9S OC 02 0C99 1353 BBS
OF9B 3D FF 1359 B46
CG OFSF F2 81 1A au7
OFA2 CO 87 1703 &uB
OFA6 1359 OFA? 449
G OFAS 0099 OFAS 450
851
es OFAA CO 87 158C u52
we OFAE CO 87 O21A 453
OFB2 06 OFB2 454
~ OFB3 3E OFB3 455
& OFE4 0C99 OFBS &56
OFB6 CO 87 0222 457
OFBA AOOF OFBB 458
G 459
OFBC OD 00 1359 1355 460 RTNSD
OFC2 F2 81 OF 461
C OFCS 3D 02 1358 462
OFC9 F2 81 08 463
: OFCC 3D 01 1358 uou
C OFDO CO 01 135C 865
OFD’ CO 87 129D 466 RTNSE
Pe OFD8 OFE8 OFD9 467
oO OFDA OD 00 1355 0827 u68
GOFEO CO 84 0216 469
OFES CO 87 OFS3 370
471
OFE8 09 OFE8 472 NINE
DATE 1. HARTO O6APR70 22mAY70
EC NO. 571512 571516 571543
ROUTINE NO.
NINE CYLINDERS
ROUTINE PREFACE
pc XL1°0S
*pc XL1°00
*pc L2 (RTR6)
CLI SETS#,0
BE SETDSK
MVI WRTDFC+1,0
SVI WRIDPC+2,x'5C®
B cvD
pc AL2(WRTDFC¢1)
pc AL2 (ERRORS)
AVI SNSID,X*09
*B STRTIO
pc XL1*"00
*DC XL1*00°
Dc AL2 (WRTDFC)
B RTNSB
B PRTSNS
B PRINT
pc XL1*06
*pc IL1*51°
DC AL 2 (ERROR)
B HALT
pc XL2*Aa0G9
*B VERIFY
B RINSE
NVI SNSID,X*OF®
B STRTIC
pc XL1°01!
pe XL1°01¢
pc AL2 (RDDFC)
B RBTNSD
NVC RDIDER(3),THKREEQ
CLI R8DDFC+1,X*FF
*JE RT NSD
B cvD
pc AL2 (RDDFC+¢ 1)
DC AL2 (RDIDER)
B PRTSHS
B PRINT
DC XL1°06¢
pc IL 1°62
pc AL2 (RDIDER)
B HALT
pc XL2°AOOF®
CLC RDDFC+1(1),8RTDFC+1
JE RTNSE
CLI RDDFC,xX*02"
JE RT NSE
CLI RDDFC,x*01
*BNE SEEKER
B STEPF
pc AL2 (NINE)
CLC WRTDFC+1(1), TRACK#
BH LINK
B RT SA
pc IL1#9¢
01AUG70 O1NABR71
571531 571573
OS, SEEK EACH CYL.
AT A TIBE s
{
PART RO. 5129626
PAGE wa
-
*ed
FROM ZEBO TO MAXISUB,
ROUTINE KUSBER
ROUTINE FLAGS
ACDRESS OF MEXT ROUTINE
HAVE PARASETERS BEES
BEANCH XP HO
SET TO START AT CYLINDER O,
SECTOR 23
ENTERED?
TO CONVEST CYL. WO TO DECIBAL
ADDRESS OF SOURCE
ALDRESS OF DESTINATIOR
IBSERT ID IN PRINT
TO IvO SUBROOTI BE
FURCTIOR CODE (CONTROL)
CONTROL CODE (SEEK)
CCETROL FIELD ADDRESS
GOOD RETUORS
ERROR O8 SIO
TO PRINT ERROR
FLAGS
LENGTH
ADDRESS OF LAST PRINT CHARACTER
TO DCP ERROR HALT
HALT ID
TO VERIFY HEAD POSITION
GOOD RETUEN FEROS VERIFY CFERATION
INSERT ID IB PRIST
TO 170 SUBROOTINE
FONCTION CODE, (READ)
CONTRIL CODE, (IDENTIFIER)
CONTROL FIELD ADDRESS
GOOD RETURN
PUT 227 IN ADDRESS READ
CHECK FOR ANY DATA TRASSFER
JUNP IF NO
TO COSVERT ADDRESS
SOURCE
DESTISATION
JUST READ
TO PRINT UNEXPECTED ERROR
TO PRINT 3RD LISE
FLAGS
LENGTH
BESSAGE ADDRESS
TO DCP HALT
HALT ID
COMPARE EXPECTED ID AND ID READ
JGHP IF EQUAL
CHECK FOR DEFECTIVE TRACK
JUSP PAST ERROR iF YES
CHECK FOR ALTERNATE TRACK
TO PRINT SEEK ERROR MESSAGES
STEP TO NEXT CYLINDER
COHPARE WEW NUMBER WITH MAXIAUG.
ROUTINE EXIT
NOT DONE, SEEK NEXT CYLINDER.
PROG ID OAOE-3
PAGE 8a
ot,
@e@eeeedee0e1et eee eee 8
~ ‘SGleie & wae ae > eS | Ge Shae cow ow ee
> : t A, APS eS : at vo . i ar ° - oh é went te owe i fT we Ee aes fel RS
IBB MAINTENANCE DIAGNOSTIC PROGRAS
AOQE3
ERR LOC
OFES
OFEA
OFEB
OFED
OFF1
OFFS
OFFS
OFFF
1003
7005
1007
10CB
T00F
1010
1071
10173
1017
10 1B
1O1F
10 20
1021
1023
1027
1029
102D
1031
4035
1039
1O3A
1038
103D
10481
1047
1048
IO4E
1052
1054
1056
105A
1055
105F
1060
1962
1066
1068
TOGE
4071
1075
1078
107C
1080
1084
1088
108C
3090
1092
1098
109C¢
70a0
10a5
BATE
Ec wo.
SEEK FUNCTION TEST
OBJECT CODE ADDR STMT SOURCE STATEMENT
u7u * ROUTINE NO. 06,
a75 * NINE CYLINDEBS AT
&76
u77 * ROUTINE PREFACE
478
06 OFE9 479 RTN6 DC XL1*°068
00 OFEA 480 DC XL1*00#
10A5 OFEC 481 pc AL2 (RTN7)
3D 00 0B26 482 CLI SETSW,0
CO 81 0A10 483 BE SETDSK
Oc 00 1355 0B27 484 MVC WRTIDFC+1(1) ,TRACK#
3c 5C 1356 885 MVI WRIDFC+2,x'5c
CO 87 1703 286 RTN6A B cvD
1355 1004 487 DC AL2 (WRTDFC+1)
occc 1006 488 DC AL2 (ERRORY)
3C 09 15E3 489 MVI SNSID,X*09°
CO 87 13AD 490 B STRTIO
00 100F 491 DC X1L1°00"
00 1010 492 ne L1*008
1358 1012 493 pc AL2 (WRIDFC)
‘CO 87 1029 494 B RTN6B
cO 87 15BC 495 B PRTSNS
CO 87 021A 496 B PRINT
06 101F 497 DC XL1*°06"
33 1020 498 pc IL1*°51°
occc 1022 499 DC AL2 (ERROR9)
CO 87 0222 500 B HALT
A009 1028 501 pc 1L2"a009°
502
cO 87 159C 503 RTN6B B VERIFY
cO 87 1080 504 B RINGE
505
3c OF 1553 506 RTN6C MVI SNSID,X*OF
*CO 87 13AD 507 B STRTIC
01 1039 508 DC XL1°01°
01 103A 509 DC XL1*018
1358 103c 510 DC AL2 (RDDFC)
cO 87 1068 511 B RT NED
0c 02 0C99 1353 512 MVC RDIDER(3),THREEQ
3D FF 1359 513 CLI RDDFC+1,X'FF
*F2 81 1A 514 JE RT R6D
CO 87 1703 515 B cvD
1359 1053 516 DC AL2 (RDDFC+ 1)
0c99 1055 517 pC AL2 (RDIDER)
cO 87 15BC 518 B PRTSNS
CO 87 021A 519 B PRINT
06 105E 520 Dc XL1°06
*3E 105F 521 DC IL1*62¢
0c99 1061 522 DC AL Z (RDIDER)
cO 87 0222 523 B HALT
AOOF 1067 524 DC XL2*a00F
*525
OD 00 1359 1355 526 RTN6D CLC RDDFC+1(1) ,WETDFC+1
F2 81 OF 527 JE RYN6E
3D 02 1358 528 CLI RDDFC,xX'02!
F2 81 08 529 JE RTN6E
3D 01 1358 530 CLI RDDFC,X‘'01
*CO 01 135¢ 531 BNE SEEKER
3c 09 10A4 532 RTN6GE MVI COUNTR,9
3D 00 1355 533 RTN6F CLI WRTDFC+#1,0
CO 81 0216 534 BE LINK
CO 87 1257 535 B STEPR
0D32 1091 536 DC AL2 (OBE)
OF 00 10a4% 0D32 537 SLC COUNTER (1) ,ONE
3D 00 10A4 538 CLI COUNTR,O
CO 81 OFFF 539 BE RT NGA
CO 87 1084 540 B RTNG6F
00 10A% 541 COUNTR DC XL1°0
*13MART7O 06APR70 22HAY70 01A0670 O1MAR71
571512 571516 571513 571531 571573
PART NO.
5129626
PAGE 5
SEEK EACH CYLINDER FROM MAXIMUM TO ZERO
A TIME
*s
ROUTINE NUMBER
ROUTINE FLAGS
ADDRESS OF NEXT ROUTINE
HAVE PARAMETERS BEEN ENTERED?
BRANCH IF NO
SET INITIAL ADDRESS TO MAXIMUS
SET FOR SECTOR 23
TO CONVERT CYL. NO TO DECIMAL
ADDRESS OF SOURCE
AEDRESS OF DESTINATION
INSERT ID IN PRINT
TO I/O SUBROUTINE
TUNCTION CODE (CONTROL)
CONTROL CODE (SEEK)
CONTROL FIELD ADDRESS
GOOD RETURN
EBROR RETURN
TO PRINT ERROR
FLAGS
LENGTH
ADDRESS OF LAST PRINT CHARACTER
TO DCP ERROR HALT
HALT ID
TO VERIFY HEAD POSITION
GOOD RETURN FROM VERIFY OPERATION
INSERT ID IN PRINT
TO I/Q SUBROUTINE
FUNCTION CODE, (READ)
CONTROL CODE, (IDENTIFIER)
CONTROL FIELD ADDRESS
GOOD RETURN
PUT 7277 IN ADDRESS READ
CHECK FOR ANY DATA TRANSFER
JUMP IF NO
TO CONVERT ADDRESS JOST READ
SOURCE
DESTINATION
TO PRINT UNEXPECTED ERROR
TO PRINT 3RD LINE
FLAGS
LENGTH
MESSAGE ADDRESS
TO DCP HALT m
HALT ID
CCMPARE ID READ AND EXPECTED ID
JUMP IF EQUAL
CHECK FOR DEFECTIVE TRACK
JUMP PAST ERROR IF YES
CHECK FOR ALTERNATE TRACK
TO PRINT SEEK ERROR MESSAGES
SET STEPPING COUNTER TO NINE
IS NEW ADDRESS EQUAL TO ZERO
ROUTINE EXIT
REDOCE SEEK ADDRESS BY ONE
REDUCE STEPPING COUNTER BY ONE
TEST STEPPING COUNTER FOR ZERO
LOOP TO NEXT SEEK IF WO
REDUCE SEEK ADDRESS AGAIH
PROG ID
OAOE-3
PAGE 5
>
Oo Oo 8
|
oO YO @
QO
Oo @8 OO 4) O © @ “©
©
|
|
oO oO 90 9 9 9
Q
oO O 9 Oo @
©
oO Oo OF OF @ @
©
©)
oO oO O O ®
U)
Oo
9
G
©
©
2 © O
IBM MAINTENANCE DIAGNOSTIC PROGRAMS
AOE3
ERE LOC
10a5
10A6
10A7
1OA9
10AD
1081
1085
10B8
10BC
108F
10C2
10C6
10C7
10C8
10CA
10CE
10D2
10D6
10DA
10DB
10DC
10DE
1CE2
10 F4
1GE8
10EC
10 F1
10F4&
10F9
10FD
1OFE
10FF
1101
1105
11409
1108
1105
1111
1115
1119
111A
1118
itp
1121
1123
1327
142B
112F
1133
1134
1135
1437
113B
4141
1145
1148
124aCc
DATE
EC NO.
SEEK FUNCTION TEST
OBJECT CODE ADDR
07 10a5
00 10A6
1771 10A8
c2 01
38 01
11BC
11BB
11BB
7D FF 00
cO 81 0216
7D EE 00
F2 01 26
cO 87 13AD
00 10C6
01 10C7
1354 10¢9
cO 87
3c OF
cO &7 15BC
cO 87 O21TA
06 IODA
36 10DB
11B9 10DD
TI7A
15E3
cO 87
AOQOE
cc 87
0222
10E3
0216
35 01 11BB
up 00 00 0B27
F2 8&4 £6
ic 00 1355 00
CO 87 13AD
00 10FD
00 IOFE
13548 1100
co 87
co 87
1355
occc
1123
2703
110A
110¢C
3c 09
CO &7 15BC
CO 87 O21A
06 1119
32 111A
occc Wic
co 87
A009
1553
0222
1122
co 87
cO 87
159C
IV7A
3C OF 15E3
CO 87 13AD
01 1133
01 1134
1356 1136
co 87
Oc 02 0Cc99
3D FF 1359
F2 81 1A
cO 87 1703
1359
1162
1353
T714D
13. AR70
571512
O6APR70
571516
STHT
5483
54a
545
546
547
548
549
550
551
$52
$53
554
555
556
557
558
559
560
561
562
563
5648
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
5 82
583
584
5&5
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
603
610
SOURCE
*
RTN7
RTN7A
RTN7B
RIN7C
22NAY70
571513
STATEMENT
ROUTINE WO. 07,
Dc XL1°07
*pc XL17*00?
DC AL2 (RO)
LA SKTBL,XR1
ST PRALST, IB1
L PRSLST,XB1
CLI 0(,XR1),X*FF?
BE LINK
CLI 0(,XR1),X*EE®
JNE RTHT7B
B STRTIO
pc XL1*00
*pc XL1°Q18
Dc AL2 (WRTDFC)
B RTRT7E
MVI SNSID,X*OE
*B PRTSNS
B PRINT
Dc XL1*06¢
Dc IL 1*5u¢
DC AL2 (RECALE)
B HALT
pC XL2* AQOE®
5) LINK
1 PRMLST,IR1
CLC 0(1,XR1),TRACK®
JH RTNTE
MVC WRITDFC#1(1),0(,XR1)
B STRTIO
DC XL1 "0?
DC XL7*0
*Dc AL2 (WRTDFC)
B RTN7C
B CcvD
pc AL2 (WRTDFC*1}
pc AL2 (ERROR)
NVI SNSID,X*09
*B PRTSNS
B PRINT
DC XL1"06
*pc IL1*50
*DC AL2 (ERRORS)
B HALT
pe XL2*A003?
B VERIFY
B RT NTE
M¥Yz SNSID,X*OF®
B STRTIO
DC XL1°07"
DC XL1*O18
DC AL2(RDDFC)
B RTN7D
MVC RDIDER (3), THREEQ
CLI RDDFC+1,X*FF
*JE RTN7D
B CVD
DC AL 2 (RDDFC+# 1)
01A0G70 O1MAR71
571531 571573
BIXED LONG ABD SHORT SEEKS
;
!
PART WO. 5129626
PAGE ry
ROUTINE BUABER
ROUTINE FLAGS
SET XR1 TO POINT TO
BEGINNING OF PARASETEB LIST
LOAD PARASETER POINTER
CHECK FOR EXD OF TABLE
EXIT IF AT EWD OF TABLE
CHECK FOR RECALIBRATE
JUBP IF KO
TC BRECAL
FUNCTION CODE, (CONTROL)
CONTROL CODF, (RECALIGSATE)
CCSTROL FIELD ALDRESS
GCOD RETURW
INSERT ID IR PEINT
TG GECODE ERROR
TO PRINT RECALIBRATE ERROR
FLAGS
LENGTH
BESSASE ADDRESS
TO DCP
HALT ID
TO bce
HALT
LCAD PARAMETER POINTER
CHECK SEEK ADDRESS WITH BAZ.
JuseP IF IT IS THO LABGE
INSERT WEXT SEEK ADDBESS
TO SEEK
FUNCTION CODE, (CONTROL)
COBTROL CODE, (SEEK)
CONTROL PIELD ADDRESS
GOOD RETURN
TO CONVEST CYL. HO.
SOURCE
DEST
PUT HALT ID IN ASG.
TO PRINT STATUS
TO PRINT SEEK ERROR
FLAGS
LENGTE
MESSAGE ADDRESS
TO DCP HALT
HALT ID
TO VERIFY HEAD POSITIOR
GOOD RETURN FROsS VERIFY OPERATION
PUT HALT ID I¥
TO READ ID
FUNCTION CODE, (READ)
CONTROL CODE , (ID)
CONTROL FIELD ADDRESS
GOOD RETUORS
PUT 22? I ADDRESS READ
SSG.
CBECK FOR ANY DATA TRANSFER
JUBP IF NO
TO CONVERT ADDRESS JUST READ
SOURCE
PROG ID OAOE-3
PAGE Sa
G | GC
IBM BAINTENANCE DIAGNCSTIC PROGRAS PART NO. 5129626 i IBM MAINTENANCE DIAGNOSTIC PROGRAN PART WO. 5129626 _
: PAGE 6 OG PAGE 6A M!
AOE3 SEEK FUNCTION TEST o i CG AOE3 SEEK FONCTION TEST on
| ; ‘ =
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT
114E 0099 114P 611 pc AL 2 (RDIDER) DESTINATION Cy c J1E2 OF 11E2 673 pc IL 1*015°
612 11E3 BC 41E3 674 pc IL1°188°
1150 CO 87 15BC 613 B PRTSNS TO PRINT STATUS ERROR : | VIEW 10 11E8 675 pc IL 1*°016°
1154 CO 87 O21A 614 B PRINT TO PRINT READ ID ERROR Gi c 11E5 BB 11E5 676 pc IL1°187°
1158 06 19758 615 BC XL1"06! FLAGS T1E6 11 11E6 677 DC IL 7*017°
1159 3E 1159 616 Dc IL1*62° LENGTH a 11E7 BA 11E7 678 bc 1L1°186°
1158 0C99 115B 617 pc AL 2 (RDIDER) MESSAGE ADDRESS O11 So T1E8 12 11E8 679 DC IL1°018°
115¢ CO 87 0222 618 B HALT TO DCP HALT 11E9 B9 11E9 680 pc IL1*185°
1160 AOOF 1161 619 Dc XL2*aOOF! HALT ID gee) sae T1EA 13 11EA 681 DC IL 1*019°
620 C |G 11EB BB 11EB 682 pc IL1°184°
1162 OD 00 1359 1355 621 RTN7D CLC RDDFC4+1(1) ,WETDFC+1 COMPARE ADDRESSES V1EC 14 11EC 683 pc IL 1*0z0°
1168 F2 81 OF 622 JE RTN7E JUMP IF EQUAL 11ED B7 11ED 684 pc IL1*183°
116B 3D 02 1358 623 CLI RDDFC,X'02! CHECK FOR DEFECTIVE TRACK GC |S 11EE 15 11EE 685 DC IL 1*021°
1316F F2 81 08 624 JE RTNTE JUMP PAST ERROR IF YES 11EF B6 11EF 686 pc IL1*182°
1172 3D 01 1358 625 CLI RDDFC,X*01° CHECK FOR ALTERNATE TRACK . 11P0 16 11FO 687 pc IL 1*022°
1176 CO 01 135C 626 BNE SEEKER TO PRINT SEEK ERROR MESSAGES Gy ¢ 41F1 BS 11F1 688 DC IL1°181°
627 11F2 17 11F2 689 pc IL 1*023#
147A OF 01 11BB 0D32 628 RTNJE ALC PRMLST(2),ONE STEP PARAMETER POINTER : 11F3 Ba 41F3 690 DC IL71°180°
*1180 CO 87 10R1 629 B RTNTA DO NEXT ENTRY Cc © 11F4 18 11PF4 691 pc IL 1*024!
630 11P5 B3 11F5 692 Dc IL1°179°
*1184 E3CBC54OD7TDICSES 41AE 631 DC CL43°THE PREVIOUS ERRORS OCCURRED AFTER DOING A ° a ie 11F6 19 11F6 693 pc IL1*025°
118C CODGEYE2U0CSD9DI 631 Cy fe 11F7 B2 11F7 694 DC IL1*°178°
1194 DSDSEZ4OD6C 3C 3E4 631 11F8 1A 11F8 695 pc 1L1*026°
119C DIDICSCHYOCICEE3 631 : | me 41F9 BI 11F9 696 pc IL1°1778#
ie weet aa |S ira as Wes S38 Be Hhastves
|
ae pec ecae spac ocean? 11B9 632 RECALE DC CL11*RECALIBRATE* ( e 11FC 1¢ 11FC 699 pc IL 1°028
*B7 C1E3C 632 nd 11FD AP 11FD 700 Dc IL7*175?#
11BA 0000 11BB 633 PRMLST DC XL2*0? VIFE 1D 11FE 701 Dc IL1*029°
11BC 638 SKTBL EQU * 11FF AE VIFF 702 DC IL17*1748
11BC EE 11BC 635 pc XL1°EE* GC ¢ 1200 1£ 1200 703 DC IL1*0308
v2 ea 11BD 636 pc IL 1* 100? 1201 AD 1201 7048 pc IL1*173°8
BE 11BE 637 pc ¥L1°99# 1202 1F 1202 705 pc IL 1*031°
V1BF 96 11BF 638 pc IL7°150# © 6 1203 Ac 1203 706 pc IL1°172°
qice 92 11C0 639 pc IL1*146* 4208 26 1208 707 pc IL 1#032
*C1 EE 11C1 640 pc XL1*EE* . 1205 AB 1205 708 pc IL1°171°
Vice . 11C2 641 pc IL1°108 GC G 1206 21 1206 709 DC IL 1*033
*Cc 1103 682 pe IL1* 80° 1207 AA 1207 710 pc IL7*170°
171C4 4E 11C4 683 DC IL1'78* 2 1208 22 1208 711 pce IL 1°034°
11c5 01 11c5 644 pc IL1¢1# G 6 1209 aa 1209 712 DC IL1*169®
11C6 02 11C6 645 DC IL1'2¢ 120A 23 120A 713 pce IL1*035°
11¢7 c9 11C7 646 pc IL 1*2018 a 120B A8 120B 7148 pc IL1*168°8 -
jice ce 11C8 647 pc IL1*200* Cc US 120C 28 120cC 715 Dc IL 1*036° a
a 11C9 648 pc IE 1*10* 120D aA? 120D 716 DC 11L1°1678
no ue 11CA 689 pc ILi*12¢ Oo. 120EF 25 12GE 717 DC IZ1*037
*11CB 650 PC IL1*200* Pp Faas 120F a6 120F 718 DC IL1"166°
Bs o 11CC 0651 DC IL1*001°8 1210 26 1210 719 pc IL 1*038
*c 11CD 652 pc IL1'1998 1211 AS 1211 720 pc IL1°165°
11CE 02 11CE 653 DC IL1'002! GO 1212 27 1212. 721 pc IL 1*039
*oe 32 ace 654 . ove IL1*193° 1213 A’ 1213 722 pc IL1°164°
1D0 655 pc IL1*003! 1214 28 1214 723 pc IL1*0408
11D1 CS 11D1 656 pc IL 1* 1978 G- " 1215 A3 1215 7248 D2 IL1°163
*11D2 07 11D2 657 pc IL1*007# 1216 29 1216 725 pc IL1*041°
11D3 cu 11D3 658 DC IL1*196# : 1217 A2 1217 726 pc IL1°162?
11D& 08 11D4 659 DC IL1*008° G © 1218 2A 1218 727 DC IL 7*042°®
ie - se 660 DC IL1*195* 1219 Al 1219 728 pc IL1°1617?
*D6 661 pc IL1*009! 121A 2B 121A 729 pc IL 1*°043¢
11D7 C2 11D7 662 pc IL1*1948 Cc Oo 121B AO 121B 730 pc IL1*160'
Hs 2 vies S62 Dc IL1°010!# 121¢ 2c 121C 731 pc IL1' Ou?
D 64 pc IL 1" 1938 es 121D 9F 121D 732 DC IL1?759°8
11DA OB 41DA 665 pe IL1#0171°? O° @ 121E 2D 121E 733 Dc 1L1*045"
vee a Nace 666 pc IL 1#192# 121F 9E 121F 734 DC IL1*°153°
DC 667 pc IL1*012¢ ta 1220 2E 1220 735 DC IL 17046?
11DD BF 11DD 668 DC IL1*1918 Cc CG 1221 9D 1221 736 pc IL1°1578
ne es ee 669 pc IL1°013¢ 1222 2F 1222 737 DC IL1*0478
DF 670 pc In 1! 190* 1223 9c 1223 738 DC IL1*156°
*11E0 OF 11E0 671 pc 8 «IL1#0148 Oo 9 1224 30 1228 739 DC IL 1*048
*VIET BD WEY 672 DC IL1* 189° 1225 9B 1225 740 pc 1L1°155
*oO ¢
te cos esac oer? gerer70 01A0G70 01MAR71 PROG ID OAQE-3 DATE 13m? 270 O6APR70 22MAY70 0 1A0G70 O1NAR71 FROG ID OAOE-3
571531 571573 PAGE G EC NO. 571512 571516 571513 571531 571573 PAGE 6a
C | :
GS
| 9 ‘
@eeeeoeeoeoeeoaegeonoeeoeeaeeeoaesaeoadedsoee1esesngeoeedeeoeeee eee @ @
@. eo eo. @. @. eo @. @ ®@ 6 © @ @ & 6 & © oe & @
IBS MAINTENANCE DIAGNOSTIC PROGRAK
A0E3
ERR LOC
1226
1227
1228
1229
122,
122B
122C
t22D
122E
122F
1230
4231
1232
1233
1234
1235
1236
1237
1238
1239
123A
123B
123C¢
123D
123E
123F
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
124,
1248
124C
124D
T24E
124F
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
125A
125B
425¢
125D
125E
125F
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
DATE
EC NO.
SEEK FUNCTION
OBJECT CODE
31
9A
32
99
33
98
34
97
35
96
36
95
37
34
38
93
39
92
3A
91
3B
99
13M AR7G
571512
O6APR7
571516
TEST
ADDR
1226
1227
1228
1229
122A
1228
122C
122D
122E
122F
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
123A
1238
123¢
123D
123E
123F
1240
1241
1242
1243
12u4
12485
1246
1247
1248
1249
124A
1248
124C
124D
1242
124F
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
125A
1258
125¢
125D
125E
125F
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
0
STST SOURCE STATEMENT
7a bc IL1*04&9!
7a2 DC IL 1*154¢
743 oc I1L1'050°
7uu pc IL 1* 153!
7&5 pc IL1'051
*746 pc IL1*152¢
747 bc IL1*052°
748 DC Ir.17* 1518
74g DC I117*053
*750 bc IL1* 1508
751 pc Ii1°0548
7582 pec IL 1* 1498
753 DC IL1*055°
*754 pe IL 1° 148
*755 bc IL1*056
*756 pc IL1*147
*W57 pc IL1°057°
*758 pc IL1*1746
*759 DC IL1*'058!
760 pc IL1* 745°
761 DC I1L7'059°
762 pc IL 1'744¢
763 Bc IL1 060!
764 be IL 1° 143
*765 DC IL1*061
*766 pe TL 7? 142¢
767 pc IL 1*'062'
768 DC ILi*vaiy
769 DC IL1'063°
770 pc IL1*'140
*771 c IL1* 0648
772 oc IL 1*7139°
*773 pe IL1'065°
774 pe IL1'138
*775 DC IL7°066
*776 BC IL 14° 137!
777 DC IL1*067
*778 BC IL 1*136
*779 Dc IL1 068"
780 Bc IL1° 135°
781 be IL1°069
*782 pe IL 7" 134!
783 DC IL1'070°8
784 pc IL 7*133
*785 pc IL1'132
*786 pc IL1°076
*787 pc IL1°131°
*788 BC IL 1'077
*7893 bc IL1*130¢#
790 pc IL 1*078
*791 pc I11*129°8
792 pc IL1*079
*793 DC IL1*128°
7948 pe IL 1*080
*795 Dc IL7*127°
*796 pe IL 1*0818
797 pe IL1°126?
798 be IL 1°082!
799 DC IL1*125
*800 pc IL 1*083
*801 pc IL1°124
*802 be IL 1* 0848
803 bc I1L1 "1238
804 DC IL 1°085!
805 bc IL1'122¢
806 DC IL 1*086!
807 bc IL1°121°
*808 bc IL1*087
*22mAY70 O1A0G70 O1MAR7 1
571513 571531 571573
PART NO.
PAGE
PROG ID
PAGE
5129626
7
OAOE-3
7
cs
Qe CO, dt n®
oO
oOo ® 0
©
Qo
o Oo 9O
o oO 8
ls
i
|
> $e 3Oy CO
oOo O89 Oo 9 9 0 0 0 0 0 0 0 0 08 0 0 09 4
Q Oo Oo QO 0
©
QO oO
IBM MAINTENANCE DIAGNOSTIC PROGRAS
AOE3
ERR LOC
126A
1268
126C
126D
126E
126F
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
I27A
1278
127C
127D
127E
127F
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
128A
1283
128C
128D
128E
128F
1291
1295
1299
DATE
EC nO.
SEEK FUNCTION TEST
OBJECT CODE
78
58
77
59
76
5a
75
5B
74
SC
73
5c
72
SD
71
SE
70
SP
6F
60
6E
61
6D
62
6c
63
68
64
6A
65
69
66
68
67
FF
09
00
FYFF
3C 00 0526
3¢C 00 0B25
cO 87 0000
13 “AR70
571512
SOURCE STATEMENT
ADDR STAT
1264 809
126B 810
126C 811
126D 812
126E 6813
126F 814
1270 815
1271 816
1272 817
1273 818
1278 819
1275 820
1276 821
1277 =822
1278 823
1279 824
127A «6825
1278 826
127C 827
127D 828
127E 829
127F 830
71280 831
1281 832
1282 833
1283 634
1284 835
1285 836
1286 837
1287 838
1288 839
1289 840
128A 6841
128B 842
128C 843
84a
128D 845 RTNY
12bE 846
1290 847 NEG
848
849
850
851
O6APR7O 22HAY70
571516 571513
pc IL 1*120°
oc IL1*°088°
*bc IL 3*119?
DC IL1*089°
*pc IL 1° 118¢
Dc IL1*090
*bc IL 2°1178
pc 1L171°091°
DC IL 1° 116°
pc IL1°092
*bc IL 1*415
*ne IL1*092
*bc In4*714°
DC IL1*093°
DC Tm 1°113°
bc IL1*09a8®
pc IL4*1172
*DC IL1*095°
DC IL 1°34717°
be IL1*096°
pc IL 1* 110°
pc IL1°0978
bc IL 1* 109°
DC IL1*098
*Dc IL 1*108
*pc IL1*099°
BC. IL 1°107
*pc IL1*100
*DC IL 1* 106°
pe XIL7*°1074
*pc IL 1° 105
*DC IL1*162°
*DC IL 1° 7048"
DC IL1*103
*pe XL 1° FF!
Dc XL1°09
*be XL1*°00°
pc XL2* FFFF
*aVI SETSW,9
BVI SKPUDT,0
B 0
01A0G70 O'HARZ 1
571531 $74573
PART HO.
PAGE
FLAGS
SET ENTRY SWITCH TC ZERO
ZERO THE SKIP UDT FLAG
RESTART PROGRAA
PROG ID
PAGE
5129626 :
ma OU
OAOE-3
7A
IBM MAINTENANCE DIAGNOSTIC PROGRAH
AO E3
SEEK
FUNCTION TEST
ERR LOC OBJECT CODE
129D
1241
12A5
T2AB
12B0
12B6
12BA
I2BF
¥2C2
12c8
12CB
12CF
12D5
1209
12DD
12E1
12E5
12E7
12EB
12EF
12F5
J2FA
1300
1304
1309
130Cc
1312
1315
1319
131F
1323
34 08
35 01
OE 01
ic 01
OF 00
c2 01
1D 00
F2 01
OE 00
D2 01
34 01
OD 01
co 01
co 87
12DC
12DC
12DC
12B5
1355
12DD
1355
06
1355
01
1332
1332
12BA
0090
040506487
UBUS4ANS
12E5
34 08
35 01
OE 01
1c 01
OF 00
C2 01
iD 00
F2 01
OF 00
D2 01
34 01
OD 01
co 01
co 87
1326
1326
1326
I2FF
1355
1327
1355
06
1355
01
1332
1332
130%
0000
1327 SBuAaSHS
132B 470605048
132F
1331
DATE
EC WO.
132F
0000
13MAR7
571512
0
ADDR
OD34
014
0000
00
0D32
1256
12DD
12E0
12E4
12E6
OD34
01
0000
00
0D32
1330
1327
132A
132E
1330
1332
O6APR70
5715 16
PART NO. 5129626
PAGE 8
STMT SOURCE STATESENT
853 * SUBROUTIKE TO STEP THE CYLINDER ADDRESS FORWARD
*858
855 STEPF ST STEPEX+3,ARR SAVE THE EXIT ADDRESS
856 L STEPEX+3,XR1 LOAD PARAMETER ADDRESS IW XR1
857 ALC STEPEX+3 (2) »TWO INCREASE EXIT ADDRESS
858 MVC ALC#5 (2) ,1(,XR1) SET ADDRESS OF INCREMENT VALUE
859 ALC ALC WRIDFC+1(1) ,*-* STEP CONTROL FIELD ADDRESS
860 LA FWDTBL,XE1 PUT ADDRESS OF TABLE IN XR1
861 CKCYLF CLC WHTDFC+1(1),0(,XR1) TEST CURRENT CONTROL FIELD ADDRESS
862 INE STPFWD NOT EQUAL TO ONE IN THE TABLE
863 ALC WRTIDFC+1(1) ,ONE STEP CONTROL FIELD ADDRESS
864 STPFWD LA 1(,XR1) ,XB1 INCREMENT TABLE POINTER
865 ST SAVXR1,XR1 SAVE CURRENT VALUE IN XR1
866 CLC SAVXR1(2) ,FWDEND TEST XR1 FOR EQUAL TO TABLE END
867 BNE CKCYLF ERANCH BACK IF NOT DONE
868 STEPEX B *-* ROUTINE EXIT
869
870 FWDTBL EQU
*871 DC XLS "040506478
872 DC XL4*4BU9RARB?
873 FaDEND DC AL2 (*)
874
875 * SUBROUTINE TO STEP THE CYLINDER ADDRESS BACKWARD
*876
877 STEPR ST STPREX+3,ARR SAVE THE EXIT ADDRESS
878 - STPREX+3,XR1 LOAD PARAMETER ADDRESS IN XR1
879 ALC ST PREX¢3(2) , TRO INCREASE EXIT ADDRESS
880 MVC SLC#5 (2), 1(~XR1) SET ADDRESS OF INCREMENT VALUE
881 SLC SLC WRTIDFC+1(1) ,*-* STEP CONTROL FIELD ADDRESS
882 LA REVTBL,XB1 PUT ADDRESS OF TABLE IN XB1
883 CKCYLR CLC WRTDFC+1(1),0(,XR1) | TEST CURRENT CONTROL FIELD ADDRESS
884 INE STPREV NOT EQUAL TO ONE IN THE TABLE
885 SLC WRIDFC+1(1) ,ONE STEP CONTROL FIELD ADDRESS
886 STPREV LA 1(,XR1) ,XR1 INCREMENT TABLE POINTER
887 ST SAVXR1,£B1 SAVE CURRENT VALUE IN XR1
888 CLC SAVXR1(2) ,REVEND TEST XR1 FOR EQUAL TO TABLE END
889 BNE CKCYLR ERANCH BACK IF NOT DONE
890 STPREX B *-* ROUTINE EXIT
891
892 REVTBL EQU)
*893 Dc XL4 "HB AUQNBE
894 DC XL4* 47060504"
895 REVEND DC AL2 (*)
896 SAVXB1 DC ¥L2' 0!
22mMAY70 9 1AUG70 01MAR71 PROG ID OAQE-3
571513 571531 571573 PAGE 8
OQ
©
O
f)
oO fm OO ©
oO
OF OF "@.. 6
oO
Oo oO 9 O89 O 9) O
2 ee ere cence 2 ne NEE fe
Oo
2 ce, |e ants tearm enone mre esr tinihiaiutianeneinn Saas Sanaa
Oo Qa 909 8 80 OF 08 4
oO
rs)
IBM MAINTENANCE DIAGNOSTIC PROGRAM
AOE3
ERR LOC
1333
1337
133B
133F
1345
13&9
34D
134F
1351
1354
1355
1356
1357
1358
1359
W35A
135B
135C
1360
1366
136A
136D
1371
1373
1375
1379
1378
137D
1381
1382
1383
1385
1387
1388
138C
138D
138F
1393
1394
1395
1397
1398
139D
13A1
13A2
13a3
13a5
13a9
DATE
EC NO.
SEEK FUNCTION TEST
OBJECT CODE
1304
0D32
138C
1346
1350
6000
34 68
36 08
34% 08
08 03
30 00
co 87
0000
0000
0000
6F6F6F
00
00
00
90
00
00
00
00
T3AC
OcF8
1359
1353
F2 81 08
1703
1703
0214
O21A
O21A
0222
T3AD
13a9
0000
1 UMAR70O
571512
O6APR7
571516
ADDR
134E
1350
1353
1354
1355
1356
1357
1358
1359
135A
13583
1372
1374
137A
137¢
1381
1382
1384
1386
138B
138C
138E
1393
1394
1396
139C
13A1
13A2
IZA
0
STNI SOURCE
898
*899 SENSE
900
901
902
903
904
905
S06
3907
908
909
910
91%
912
913
914
915
916
917
918
919
*920
921
922
923
924
*925
926
927
928
929
$30
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
9548
955
956
957
958
959
960 SKEREX
SNSMOV
SNS
SNSEXT
SETXR2
STATOS
THREEQ
WRIDFC
RDDFC
SEEKER
SEKERA
22mMAY70
571513
STATEMEST
SENSE I/O ROUTINE
st SNSMOV+5, ARR
A ONE, ARP
ST SNSEXT+3, ARR
HNN SNS4¢1,%-#
SNS STATUS,O
B *—
*pc XL2"08
pc XL2"08
pc CL3°2228
pc XL1700°
pc XL1*00°
DC XL1*00'
pc XL 1*00
*pc XL1*008
pc XL1"00!
pc XL 1°00!
pc XL1°00!
ROUTINE TO PRIKT SEEK
ST SKEREX+3, ARR
MVC SZEKAT(3) ,THREEQ
CLI RDDFC+1,X'FP
*JE SEKERA
B CVD
pc AL 2(RDDFC+1)
pc AL2 (SEEKAT)
B CVD
pc AL2(WRTDFC+1)
pc AL2 (SEEKTO)
B PRINT
pc x 1°C1#
DC IL1*22"
pc AL 2 (SEEKTO)
DC XL2"a00a
*B PRINT
pc XL1*O18
pc IL1"228
pc AL2 (SEEKAT)
B PRINT
pc XL 1°06"
Dc IL1*35
*pc AL2 (OLDADk)
B HALT
pc XL2*a00a
*B STRTIO
pc XL17" 00°
pc XL1*O7F
pc AL2 (WRTDFC)
R +e
B a
01A0G70 018aR71?
571531 571573
PART WO. 5129626
PAGE 8a
SAVE ADDEBESS RECALL BEGISTER
AiD ONE TO BYPASS PARAMETER
STORE EXIT ADDRESS
BOVE IN FURCTION CODE
PERFORS SEWSE
EXIT
FLAG BYTE
CYLINDER HUBBER
HEAL AND SECTOR
NUMBER OF SECTORS TO PROCESS
FLAG
CYLINDER BUASER
HEAD AND SECTOR
BUBBER OF SECTORS TO PROCESS
ERROR SESSAGES
SAVE EXIT ADDRESS
SET SEEK AT HESSAGE TO 722
DETERMINE IF ANY DATA BAS TAASS.
BY TSE READ ID COSMABD
JUMP IF KO
TO CONVERT
ADDRESS OF
ACDRESS OF
CYL. WO TO DECIBAL
SCURCE
DESTINATION
TO CORVERT
ADDRESS OF
ALCDRESS GF
CYL. BO. TO DECIBAL
SOORCE
DESTINATIOB
TC PRINT ERROR
FLAGS
LENGTH
BESS&GE ADDRESS
MESSAGE ICESTIFICATION
TO PEINT 3RD LINE
FLAGS
LENGTH
MESSAGE ADDRESS
TO PRINT STH LIWE
FLAGS
LENGTH
MESSAGE ADDRESS
TO DCP E2EROR HAIT
BALT ID
TO RECALIEPRATE
FUNCTION CODE (CONTROL)
CONTROL CODE (RECALIBRATE)
COBTROL FIELD ADDRESS
ExITt
PROG ID OA0E-3
PAGE 8h
IBA MAINTENANCE DIAGNOSTIC PROGRAN
AOE3
ERR LOC
13AD
1351
13B5
13B9
13BD
73c0
13c4
13C8
13cc
13D0
13D5
I3DA
13DF
13E3
13E6
13EA
13EE
13F1
13F5
13F9
13FC
7400
W404
1408
T40C
1410
1413
1817
141B
IGE
1422
TH25
142B
182F
1430
1436
TO3A
I43E
1443
TH46
T40Aa
1asD
1450
1454
1457
145A
T45E
1462
1467
T4U6B
1870
1874
4478
1478
T47F
1482
7485
1489
748D
1491
1494
DATE
Ec NO.
SEEK FUNCTION TEST
OBJECT CODE ADDR
T3KE
IZ4E
1502
O20A
F2 90 04
1502
1500
I4PF
1359
1471 00
112 01
150A 03
1502
F2 10 OB
1441
1492
F2 87 08
1411
1892
1450
150A
150c
159B
2260
F3 AO 00
150P
14 FF
0D35
F2 81 19
1508
1333
02 142F
1508 1505
1350
1423
03 1NFE
BB 01 02
OBB2
134E
E1 AO 08
EO 87 04
14QPA
BD 01 01
F2 01 08
1500
T4FC
1S0E 03
150E
14FE 03
14YF
WFC
F2 01 21
14FC
BB 01 02
BC FF 03
0D35
14FD
150A
F3 a0 00
1590
T3HAR7O
571512
O6APR7O
5715 16
STAT
962
963
964
965
966
967
96P
369
970
971
972
973
974
975
976
977
978
979
980
981
962
983
984
985
986
987
988
989
990
991
992
993
9948
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1919
1020
1021
1022
1023
10248
1025
1026
1027
10256
10629
SOURCE
®
STRTIO
SETFIX
CKSEEK
LDFCR
LDFDR
sIo
WAIT
SEEKSN
RESTON
TSTERR
*
*
SETADR
SETRCL
RUDFCR
RSTO
22MAY70
571513
STATEMENT
MYC
SBF
L
TIO
8
START 1/0 SUBROUTINE
SETXR2, ARR
SETXR2, X82
DISKTP,0
SECTSW,X*O4!
“47
DISKTP,xX'08'
RECAL,O
SAVS#,00
RDDFC+1,X* FF?
SI0+1,0 (,XR2)
SI0+2(1) ,1(,¥R2)
DFCR (2) ,3 (~XR2)
DISKTP,X*08'
SETFIX
SIO0+1,X"'08!
RSI0+1,X*08!
CKSEEK
SI0+1,X'08
*RSIO4¢17,xX* 08!
0(,XR2) ,00
SETADR
DFCR,X*A6!
DFDR,X* Aut
IN DXPL, 0
88C0,XR1
X*00*,xX'aO?
BUSY,X*A2
*SAVSW,X'FF!
TSTERB
TKCTR,O
RESTON
HXTIBE (3), ZERO
SENSE
XL1'02?
HXTIME(3) ,TIMKON
STATUS ,X*10!
SEEKSN
3 (1,XR2),DFC3SV
2(,-XEB2),01
SETXR2, XB2
8 (,XR2) ,X*A0
*4&(,XR2)
PART
PAGE
NO. 5129626
9
SAVE ADDRESS RECALL REGISTER.
LOAD XR2 WITH VALUE FROS ARR.
SET TO BUN ON REMOVABLE DISK
TEST FOR BYPASS REMOVABLE
JUMP IF NO
SET TO RUN OW FIXED
RESET SWITCH
ZERO SWITCH
SET READ ID AREA TO
SET FUNCTION CODE
SET CONTROL CODE IN SIO
SET DATA ADDRESS FOR DFCR
TEST FOR RUN ON LOWER DISK
JUMP IF YES
SET FOR REMOVABLE DISK
SET FOR REMOVABLE DISK
PROCEED
SET FOR FIXED DISK
SET FOR FIXED DISK
PEST FOR SEEK
IF YES, GO SET ADDRESS
LOAD CONTROL REGISTER
LOAD DATA REGISTER
tFrFe
START I/O CPERATION
BRANCH IF BUSY
IS SWITCH ON?
IF NO, SKIP RESTORE
TEST FOR A ZERO SEEK
JUMP IF YES
ZERO THE TIME AREA
TC SENSE DEVICE STATUS
GET BYTES O AND 1
ADD TO THE TIME AREA
TEsT FOR SEEK BUSY
BRANCH BACK IF STILL BUSY
RESTORE N BYTE
TURN OFF THE FOR/ REV BIT
RESTORE PARAMETER POINTER
BRANCH IF ERROR
EXIT
SUBROUTINE TO SET THE NUMBER OF TRACKS AND THE
DIRECTION (FORWARD OR REVERSE), TO SEEK
ST ADREXT+3, ARR
CLI 1(,XR2),01
JNE SETRCL
MVI RECAL,X'FF®
NVI FRSTPS,O
MVC XR2WK(2),3(,XR2)
L XR2WK, XBR2
MVC = DFC3S¥(1) ,3{ ,XR2)
NVI SAVSW,X'FF
*CLI FPRSTPS,00
SNE SETADA
MVI -FRSTPS,01
SBF 2(,X%R2),01
MVI «=—s- 3 (, XR2),.255
NVI -s- TKCTR, 255
NVI LASTAD,00
LIO DFCE,X!R6°
SIO 00,x*aA0?
CiI RECAL,X*FF?
01A0G70 01MAR71
571531 571573
SAVE EXIT
IS THIS A RECALIBRATE?
IF NO, BYPASS SWITCH RESET
SET SWITCH TO INDICATE A RECAL.
RESET RECALIBRATE SWITCH
SAVE ADDR. OF CTL. FLD. ADDR.
LOAD XR2 WITH CONTROL FLD. ADDR.
SAVE N BYTE IN CONTROL FIELD
SET SAVE SWITCH
IS THIS FIRST PASS
SKIP RECALIBRATE IF NO
SET FIRST PASS SWITCH
SET FWD/REV BIT TO REV.
SET MAXIMUM TRACK CROSSIRG
SET FOR MAXIMUM TRACK CROSSING
SET OLD ADDR TO 0
LOAD DATA CONTROL REGISTEE
SEEK REVERSE
WAS THE I/O REQUEST A RECAL?
ADDRESS
PROG ID OACE-3
PAGE 9
a)
oO 9 9 08 ©
Qo ©
mo 4 Q
C) cy ©
’
©”
Qo ao Oo O9 OF ©
O
oO
Oo 9 9 G
60 8 ©
@
Q 28 0
©
QO
-) QO oO )
@
CG
©
6)
oO
Oo @d ©
Wo
IBA MAINTENANCE DIAGNOSTIC PROGRAS
AOE3
ERR Loc
1498
149C
14aA0
14Aa2
T4UAu
TRAD
14AC
T4AaF
14B2
14 B8
14BD
T&C3
14C6
14C9
T4UCE
14D4a
TEDA
18DD
14E1
TUE7
T4HEC
T4F2
V4F7
14FB
i4Fc
14FD
14FE
14°F
1500
15014
1503
1506
1509
1508
150D
150F
1513
1517
1518
151C
I51F
1523
1527
152B
152F
1533
1536
1S3A
153B
153¢c
153E
1540
7544
1546
TSUR
154Cc
154E
DATE
EC NO.
SEEK FUNCTION TEST
OBJECT CODE ADDR STMT SOURCE STATEMENT
cO 81 1413 1030 BE WAIT
1031
cO 87 1703 1032 SETADA B CVD
14FD 14A1 1033 DC AL2 (LASTAD)
OD1B 16A3 1034 pc AL2(OLDADR)
1035
8D 00 01 14FD 1036 CLC 1(1,XR2) ,LASTAD
F2 81 31 1037 JE NOS EEK
F2 84 17 1038 JH PWDSEK
BB U1 02 1039 SBF 2(,XR2),01
Oc 00 14FB 14FD 1040 SVC SCRCH(1),LASTAD
2F 0G 14FB 01 1041 SLC SCRCH(1),1(,XB2)
Oc 06 ODOD oD29 1042 MVC SEEKDR(7),REV
F2 87 21 1043 J SETADB
1044
BA 01 02 1045 FRDSEK SBN 2{ ,XR2),01
2C 00 14FB 01 1046 MVC SCRCH(1),1(,XR2)
OF 00 14FB 14FD 1087 SLC SCRCH(1),LASTAD
OC 06 ODOD 0D22 1048 SVC SEEKDER(7),FOBWD
F2 87 OA 1049 J SETADB
1050
3c 00 14FB 1051 NOSEEK NVI SCRCE,O
OC 06 ODOD 0D30 1052 MVC SEEXDR(7) ,SVBBLK
1053
BC 00 03 14FB 1054 SETADB MVC 3(1,XR2),SCRCH
Gc 00 0D35 14FB 1055 MVC TKCTR(1),SCRCH
2c 00 14FD 01 1056 MVC LASTAD(1).1(,XR2)
cO 87 0000 1057 ADREXT B +-+
00 14PB 1058 SCRCH DC XL1*°00°
00 14FC 1059 FRSTPS DC XL1*00
*00 14PD 1060 LASTAD DC XL1'GO
*00 1NFE 1661 DFC3S¥ DC XL 1°00!
00 14FP 1062 SAVSW DC XL1°008
00 1500 1063 RECAL DC XL17*°0#
0000 1502 1064 DISKTP DC XL2 "0°
00005D 1505 1065 TIMKON DC IL3*93¢
000000 1508 1066 HXTIME DC XL3*°0
*0000 150A 1067 DFCR DC AL2 (##)
150F 150C 1068 DFDR DC AL2(WCRK)
0000 15Q0E 1069 XR2KK DC XL2*0#
150F 1070 WORK FQU.
*34 01 159A 1071 BUSY ST TINE,X81
CO 87 1333 1072 B SEKSE
03 1517 1073 Dc XL1°03°
38 08 134F 1074 TBN STATUS-1,X*O6
*F2 90 04 1075 JF +7
3C FF 159B 1076 MVI INDXPL,X*FF
*1077
35 01 159A 1078 L TIME,XB1
36 01 1290 1079 A NEG1, XB1
CO 84 1413 1080 BH WAIT
3D FF 1598 1081 CLI INDXPL,X*FF
*F2 81 10 1082 JE TCVD
1083
CO 87 021~ 1084 B PRINT
C6 153a 1085 Dc XL 1*C6
*25 153B 1686 DC IL1*37°
158A 153D 1087 DC AL2 (MINDEX)
A089 153F 1088 Dc XL2*a089
*1089
CO 87 0222 1090 B HALT
A089 1585 1091 DC XL2*a089¢
1092
cO 87 1703 1093 TCYWD 8B CVD
0A03 1S54B 1094 pe AL2(BREFX)
1598 iS8D 1095 Dc AL2 (TI HOST)
3C 4O 1596 1096 MVI TIMGUT-2,c*
*1097
13m..R70 OSAPR7O 22MAY70 01A0G70 OTHAR71
571512 571516 571513 571531 571573
PART WO. §129626
PAGE 9A
BRAWCH IF YES
TO CONVERT GOLD SEEK ADDRzZSS
SOURCE ADDEESS
*DESTIKATION ADDRESS
CCHPASE PRESENT ADDR. WITH NEW ORE
ECUAL, SEEK IS KOT RECESSARY
NEW ACDR. HIGHER, DC FORBAED SEEK
NEW ADDR. LOWER, SET BIT FOR REV.
PLACE LAST ADDE IN WORKAREA
SUBTRACT NEW ADDR. FROS LAST ADDR.
PUT REVERSE IW SEEK DIRECTION ASG.
PROCEED
SET BIT OM FOR FOEWARD SEEK
PLACE NEW ACDR. IR WORKABHEA
SUBTRACT LAST ADDR. FROM NEW ADDR.
PUT FORWARD IN SEEK DIRECTICB ASG.
PROCEED
OF TKS. CBOSSED TO ZERO.
PLACE IN MO. OF TRACKS CROSSED
SAVE NUMBER OF TRACKS TO CROSS
SAVE WEW ADDRESS
EXIT
TEST FOR INDEX
JUMP IF NORE
SET BIT FOR INDEX RECIEVED
BRANCH BACK TO TiO IP HOT TIMED OUT
TEST FOR ANY INDEX BEFORE TIMEOUT
JUSP IF THLRE WAS AN INDEX
TP PRIST WO INDEX BEFORE TIMEOUT
BESSAGE ADDRESS
BESSAGE ID
TO CONVERT ROOTING HUABER
SOURCE
DEST ZBATION
PROG ID
PAGE 9A
f
ta
we tae oe he! PR ten yee ca Na Reg ee Me ee er tae ee ee - . ee Me tate - yy) - rr “ee nee 4 7 te — ~—
G ¢ ~
IBM MAINTENANCE DIAGNOSTIC PROGRAN PART NO. 5129626 | IBM MAINTENANCE DIAGNOSTIC PROGRAM PART WO. §129626 -
PAGE 10 O1G PAGE 10a -
7 {
A0E3 SEEK FUNCTION TEST 5 G AOE3 SEEK FUNCTION TEST e
j ee
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT : ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT
1552 CO 87 O21A 1098 B PRINT TO PRINT ROUTINE NUMBER e sc 1124 * SUBROUTINE TO PRINT THE CONTENTS OF DEVICE STATOS
*1556 C6 1556 1099 pc XL 1*C6! 4125
1557 15 1557 1100 pc ILi*21? ISBC 34 08 163A 1126 PRISNS ST PRTEXT+3, ABR SAVE ADDRESS RECALL REGISTER
1558 1598 1559 1101 pc AL 2 (TINOUT) MESSAGE ADDRESS Co c 15c0 CO 87 1333 1127 B SENSE TO PERFORS SENSE
1554 AO8E 155B 1102 pc XL2"*AOQ8E* MESSAGE ID 15C4& 02 15C8 1128 pc AL1 (STATO 1) GET DEVICE STATCS BYTES 0% 1.
155¢ CO 87 0222 1103 B HALT 1129
1560 AOS8E 1561 1104 pc XL2*AO08E* Cc. 15C5 CO 87 O21E 1130 B UNPACK TOD UNPACK STATUS BYTES
1562 CO 87 0000 1105 B 0 15C9 02 15C9 1131 pe XL1°02
*1106 | ISCA 1350 ISCB 1132 pc AL2 (STATUS)
1566 DSD64O0C9DSCUCSE7 158A 1107 MINDEX DC CL27"'NO INDEX PULSES SENSED BEFORE TIMEOUT® eS 1SccC 1653 1SCD 1133 pc AL2 (HEXSTA~4)
156E SOD7EYDZE2ZCSE2ZN0 1107 15CE 3C 01 15FE 4134 AVI STPSNS+1,01 SET FOR COMPLETION OF FIRST BITE
1576 E2C5DSE2C5C440C2 1107 15D2 C2 01 1669 1135 LA STATWD,XR1 SET XR1 TO POINT TO FIRST SESSAGE
ISTE CSC6D6DIC5SYO0E3CI 1107 GS 15D6 C2 02 16FA 1136 LA STMASK,XR2 SET XR2 TO POINT TO TEST ASK
1586 DUCSDGESE3 1107 4137
158B SOCSDSHYODIDGEESE3 1598 1108 TIMOUT DC CL14" IN ROUTINE Xx? 15DA CO 87 G213A 1138 B PRINT TO PRINT SHS WITH HEADISG
1593 CODSCSUOETE7 1108 o| ¢ ISDE C1 ISDE 1139 pe XL1°C1# FLAGS
1599 0000 159A 1109 TIME DC XL 2*0° 15DF 01 ISDF 1140 Dc iL 1*01* LEXGTA
159B 00 159B 1110 INDXPL DC XL1*O? 15E0 1669 1521 1141 pc AL2 (STAT WD) ALDRESS OF LAST PRIST CHARACTER
OA03 1111 RPFX EQU) = X*A03° GC | cS 15E2 A000 15E3 1182 SNSID DC XL2?7a000° MESSAGE IDEKTIFICATION
4112 i5F4 2C 00 1I5SEF 00 1143 MOVEBT NVC TSTBT+1(1),0(,XR2) SET MASK BIT IN TEST BITS IRSTRUCT.
159c 34 08 15B9 1113 VERIFY ST VEREXT+3, ARR SAVE RETURN ADDRESS | 1S5SE9 1C 11 1770 00 17144 MVC STATER(18) ,0 (,XB1) SET MESSAGE IM FIELD
1520 3C 00 1357 © 1114 MVI WRIDFC+3,0 SET TO VERIFY ONE SECTOR Co:90 1145
15A4 CO 87 13AD 1715 B STRTIO TO VERIFY ISEE 38 00 134F 1186 TSTBT TBN STATUS-1,*-* TEST CURRENT BIT FOR OR
15A8 01 15A8 1116 Dc XL1'O1# FUNCTION CODE, (READ) 15F2 F2 90 08 1187 JF STPSNS SYPASS PRINT IF OFF
15A9 03 1529 1117 pC XL 1#03" CONTROL CODZ, (VERIFY) © c 1148
1ISAA 1354 1SAB 1118 DC AL2 (WET DFC) CONTROL FIELD ADDRESS 15F5 CO 87 O21A 1149 B PRINT TO PRINT SHS WITHOUT HZADIEG
15AC CC 87 1536 1119 B VEREXT GOOD RETURN , 15F9 01 15F9 1150 pc XL1°O178 FLAGS
15B0 OF 01 1589 15BB 1120 ALC VEREXT+3(2), FOUR INCREMENT RETURN ADDRESS Cc 1G 1SPA 12 ISFA 1151 DC IL 1°18? LENGTH :
15B6 CO 87 0000 112% VEREXT B *—* EXIT ADDRESS : 15FB 1770 ISFC 1152 pc AL2 (STATPR) ADDRESS OF LAST PINT CHARACTER
15BA C004 15BB 1122 FOUR DC XL2"4 1153
O° ISFD 3D 00 15EF 1154 STPSNS CLI TISTBT+1,*-* TEST FOR FINISHED
1601 F2 81 OA 1155 JE SENSA JUMP IF FINISHED WITH THIS BYTE
ee 1604 E2 02 01 1156 LA 1(, XB2) ,XR2 STEP XR2 TO POINT TO KEXT MASK BIT
go: ¢ 1607 D2 01 12 1157 SENSB LA 18 (,XR1) ,XR1 STEP XR1 TO POINT TO WEXT BESSAGE
| 160A CI 87 15E4 1158 B MOVEBT GO TEST NEXT SEBSE SIT
1159
Cig 160E 3D 80 15FE 1160 SENSA CLI STPSNS+1,X*80" TEST FOR COMPLETION OF 25D BYTE
| 1612 F2 81 1A 1161 JE PRTHEX TO EXIT IF DOWE
24 1615 3C 80 15FE 1162 NVI STPSHS+1,X*80* SET POR CHECK OF 25D BYTE 7
Ce 1619 CO 87 1333 4163 'B SENSE TO SENSE a
161D 03 161D 11648 pc XL1*03* BYTES 2 & 3 a4
161E CO 87 O21E 1165 B UNPACK TO DRPACK STATUS BYTES .
CG | ° 1622 02 1622 1166 Dc XL1"02* ‘
1623 1350 1624 1167 pc AL2 (STATUS)
sail 1625 1657 1626 1168 DC AL2(HEXST A) .
Cis 1627 C2 02 16FA 1169 LA STMASK,XR2 SET BIT POINTER
162B CO 87 1607 1170 B SENSB TO PROCESS 2ND BYTE
1171
Gu S 162F CO 87 021A 1172 PRTHEX B PRINT TO PRINT STATUS I® HEX
1633 02 1633 1173 DC XL1*°02
*as 1634 1D 1634 1178 pe IL1*29# 5
oO ¢C 1635 1657 1636 1175 DC AL2 (HEXSTA)
1637 CO 87 0000 1176 PRTEXT B *—* SUBROUTINE EXIT
1177
oO 1638 E2E3C 1E3ESE240C2 164F 1178 pc CL21'*STATUS EYTES IN HEX,
*16483 EBE3CSE240C9D540 1178
: 164B C8CSE76B40 1178
Gc CS 1650 0000000000000000 1657 1179 HEXSTA DC XL8*"0
*: 1658 DSD64OD6D7404040 1669 1180 STATWD DC CL18*NC OP 8
1660 40408040804 08040 1180 ;
Go C 1666 4040 1180 -
166A CODSE3CSDIESC5DS 167B 1181 pc CL1IS*INTERVENTION REQD.
*1672 E3CSD6ED540D9C5D8 1181
oO CG 167A C4UB 1181 .
167C DS&C9EZE2CID5C 740 168D 1182 pc CL18*MISSING ADDR. MARBK®
*- 1684 C1C&C4D94 B4ODSCI 1182 ns
Cc UV 168C D9D2 1182 “
16BE CSD8EXCOIDTDAC5DS 169F 1183 pc CL18*EQUIPMENT CHECK ®
“
oe °c “
DATE 13H AR70 O6APR7O0 22MAY70 01A0G70 O1MAR71 PROG ID OAOE-3 DATE 138..R70 O6APR70 22maY70 01A0G70 0184871 PROG ID OAOE-3
EC WO. 571512 571516 571513 571531 571573 PAGE 10 0 0 EC KO. 571512 571516 571513 571531 571573 PAGE 10a é
e © o
©®@e€eeooeoeoeeode@~edee@eeeneoeeemngeegeoneeoeeeene ee ee 8 ee 8
ee. © see @ nf @ sat e@. a eo ke @ ey oe % @ ty @ Z @ & e oa @ @ a @ : @
IBM MAINTENANCE DIAGNOSTIC PROGRAB
AOE3
ERR LOC
16 96
169E
16A0
16A8
16B0
16B2
16BA
16C2
16C4
16CC
16D4
16D6
16DE
16E6
16E8
16 FO
16F8
16FA
16FE
1702,
1703
1707
1708
170F
1713
1717
1718
171F
1725
1728
1731
1737
173D
1743
17486
174&C
1750
1754
1755
175D
175F
4771
W772
4773
1778
DATE
EC NO.
SEEK FUNCTION TEST
OBJECT CODE ADDR
EJ#OC3C8C5C3D240
4040
CACTEICI“OC3CBCS 1681
C3D24804804 0NCU0NO
4040
DSD64ND9IC SC 3DEDI 16C3
C&UOCE D6 E¥DSC4RO
4040
E3D240C3D6D5C4C9 16D5
E3C9D6D540C3C 8C5
c3D2
E2cSC5D240C3C8C5 16E7
C3D24080404 04040
4040
EGDSE2ZCIC6C540480 16F9
HO4UDKOROLONCHONO
4040
16FA
80402010 16FD
08040201 1701
ot 1702
36 08 0D32
348 08 1724
36 08 OD34
34 08 172A
34 08 1730
36 08 OD32
34 08 1753
39C 01 1736 0000
oc 01 1749 0000
0c 01 173A 0000
0c 00 1702 0000
04 20 0000 I75E
OF 00 1702 0D32
F2 82 OA
06 20 0000 1754
co 87 173D
co 87 0000
F1 1754
FUF2F3F&P5SF6F7F8 175E
FSFO
1770
0003
0076
0001
0002
0008
0002
0003
OOA6
OOAS
0080
0040
0208
020A
0212
0216
O2TA
O21E
0222
022A
003C
003F
08 1771
00 1772
128D 17748
3D F2 OBSE
T3NAR7O O6APR70
571512 571516
STST
3183
1183
71848
4184
41384
1185
1185
4185
1186
4186
1186
4187
1187
4187
1188
1188
1188
41189
1190
1191
1192
4193
7194
1135
4196
1197
4798
4199
4200
1201
4202
1203
12048
1205
1206
1207
41208
1209
1210
1271
1211
1212
4213
1214
1215
1216
1217
1218
1219
1220
4221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
SOURCE STATEMENT
STMASK
BXBYT
CvD
FROM
TYBOT
OTORZ
FROBYT
ZROTO
DECGAR
TORYT
TIXE
DECONE
UNITS
STATPR
H1
H2
22MAY70
571513
PART HO. $129626
PAGE 11
Dc CL18*DATA CHECK ‘
Dc CL18*NO RECORD FCUND
*pc CL18*TK CONDITION CHECK®
pc CL18"SEEK CHECK ’
Dc CL18" UNSAFE '
EQU)
*DC XL4* 808020108
Dc XL4 "080402018
DC XL7*008
A ONE, ARR ALD 1 TO GET 1ST PARAMETER
st FROM+5 ARB INSERT THE FROM ADDR.
A TWO, ARR ADD 2 AND GET THE 2ND PARANETER
ST TYBCY+5,ARRB INSERT THE TO ADDR.
ST OTORZ+5, ARR INSERT THE TO ADDR.
A ONE, ARR ALD ONE HCRE FOR RETURN ADDRESS
ST TIXE+3,ARB SET RETURN ADDR.
MVC FROBYT+#+5(2), *-
*MVC TOBYT+#+3(2) ,*-
*MVC =. ZROTO+ 3 (2) , *-
*MVC HXBYT(1),*-* PUT BYTE IN WORK AREA
ZAZ *-*(3),UNITS (1) ZERO THE TO AREA
SLC HXBYT(1) ,ONE DECREMENT THE HEX BYTE
JL TIXE EXIT IF BELOW 1
AZ *—* (3) , DECONE (1) INCREMENT THE DECEMAL COUNT
B DECGAN
B *-* EXIT
Dc CLitie
DC CL 10" 123456790!
DS CL18
EQU x*03! HALT DISPLAY 1
EQU) x'76° HALT DISPLAY 2
EQU O01
£00) 02
FOU 08
EQU) x*02?
FOU ¥* 03"
EQU xX*A~A6?
EQD = xX* At
EOD x*80!
EOU = x* 408
EQU) x*208"
EQU x*20a
*EQU ¥*212°
EQU 8 =*°216"
EQU xX*21~A?
EQU X*21E
*EQD) x*222°
EQU) X*22a"
EQU x*3C? HALT DISPLAY F
EQU X*3F* HALT DISPLAY A
DC XL1*'08"
pc XL 1°00!
DC AL2 (BTN9)
CLI SPNMSG,C*2¢
*01AUG70 O1MART? PROG ID GAOE-3
571531 571573 PAGE 11
0
ry
C-)
ees yh Se Des, SS Il he eae ae ante ce a
9
Oo oO
O
Oo OO O O
@ Oo
OO Ay —O
eR, RS A eR ce onan
a o 08 8® * ®
Oo 9 98 8 Oo
= @o ep 2dr @ vos 6 R eo as eo i wee @ See a eels ABE. Pea say geal, VSPA PSS RE eo Sees eR ae Hehe AES cas Bik ae ae ste Bn de Oe € ” 2
AOE3
ERR LOC
1779
477D
1781
1785
1789
178D
1791
1795
1799
179D
17A1
i7A5
1749
47AD
1781
17B5
17B9
17BD
17¢1
17¢5
179
17¢D
17D1
17D5
17D9
17DD
1751
IVES
17E9
47ED
17F3
177
17FA
1800
1804
1808
180B
1811
1815
1819
181B
181D
181F
1823
1825
1829
182D
1831
1834
1838
183A
G 183C
183E
1842
C 16844
1848
1B4E
1852
1858
185B
185E
1862
1866
1869
186F
1873
1877
1879
oa @ 8 98 OO @
@
#)
oO &%8 08 OO
&)
©
Q
QO
DATE
EC NO.
SEEK FUNCTION TEST
CBJECT
co 81
3B 10
3B 10
3B 10
3B 10
3B 10
3B 10
3B 10
3B 10
3B 10
38 16
c2 01
3& 01
38 O48
co 10
co 87
3A 10
3A 10
3A 10
3A 10
3A 10
3A 10
3A 10
3A 10
3a 10
3A 10
c2 01
34 01
co 87
0c 02
31 A6
F3 AO
oc 01
30 A2
38 10
90
OF 01
co 01
co 87
C517
1950
A011
cO 87
A011
cO 87
c1 AQ
38 40
F2 10
co 87
A012
196E
A012
13R AR?
5745142
CODE
17B9
17FP8B
1801
182A
1859
185¢
185F
1888
188C
18aD
18B1
OAOC
1780
CAOC
17ED
0216
17F8
1801
182A
1859
185C
185F
1888
188C
18AD
18B4
CAOF
1780
I7AD
1933
1935
00
1937
1970
1970
1E
1937
1800
O21A
192B
1939
OD 32
0222
I7WED
1887
1970
1a
O27A
0222
17ED
1933 192F
1935
1937 18E2
00
01
1970
197C
83
1937 0D32
185E
G21A
IBM MAINTENANCE DIAGNOSTIC PROGRASA
ADDR STMT
181A
18 1C
I8TE
1824
1839
1838
183D
1843
1878
I8S7A
0 O6APR7O
571576
1239
1240
1261
1242
1243
1244
1245
1246
12487
1248
1249
1250
1251
1252
1253
1254
1255
1256
4257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
1285
12 86
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
41304
1305
1306
SOURCE STATEMENT
LATE
WHAT
TOOT
STREC
STOCAL
$1
BELL
CARL
SIOF
RDID
LOOPIT
22MAY70
577513
BE TOOT
SBF SIOCAL¢1,X*10
*SBF $141,%* 10°
SBF BELL¢1,X*10°
SBF SIOF4+1,X°10°
SBF RDID¢1,X*10°
SBF LOOPIT+¢1,X°10°
SBF JUNK+1,x°10°
SBF JUNK+5,X*10°
SBF DONT+¢1,X*10
*SBF DONT+5,X°10
*LA UNA, XR1
St LATE+3,XB1
TBN UNA,X*O4
*BT STREC
B LINK
SBN SIOCAL+¢1,X*10°
SBN $14#1,xX*108
SBN BELL+1,X*10°
SBN SIOF4¢1,X*10°
SBN RDID+1,x*10
*SBN LOOPIT+1,X*°10°
SBN JUNK4+1,x°10
*SBN JUNK+¢5,x°10
*SBN DONT#1,X°10
*SBN DONT+5,X*10
*LA UNB,XR1
ST LATE+3.XR1
B LATE
MYC MASTER(4), ABE
LIO ADRFLD,X*A6
*SIO x'CO",x*AO®
AVC REAL(2) ,CAL
SNS BYTEO1,8B01
TBN BYTEO?,X*10°
JF BELL
SLC REAL(2) ,ONE
BNZ $1
B PRINT
DC XL2*C517
*DC AL 2(RTIB)
Dc XL2*a011°
B HALT
pc XL2*A0171°
B STREC
TIO JUNK,ERROR
TBN BYTEO1,x°40
*JT CARL
B PRINT
Dc XL2 *a012
*pc AL2 (HOO)
Dc XL2*A012°
B HALT
DC XL2*a012°
B STREC
NVC MASTER (4),SK100
LIO ADRFLD,X*A6?
MVC REAL(2),SF100
SIO Xx*00*,X*AO?
SIO x*O1*®,x*a1®
SNS BYTEO1,B01
TBN BYTEO1,X*10°
JF DONT
SLC REAL(2) ONE
BNZ LOOPIT
B PRIIT
be XL2 *€£517
*pc AL2 (SLOW)
01RUG70 01NAR71
571531 571573
PART BO. 5129626
PAGE 1A
SEE IF HIGH SPEED DEFINED
RECALIBRATE
SET UP TIME OUT
SENSE STATUS 0 ¢ 1
TEST FOR SEEK BUSY
PRINT TIME OUT OB RECAL
** 11
TIO BR. IF ERROR
TEST FOR CYL 0
PRINT NO CYL O AFTER RECAL
** 12
SEI UP CONTROL FIEKD
SET UP TIME OUT FOR HI SPEED
SEEK FORWARD 100 CYL
READ ID
SENSE BYTES 0 ¢ 1
TEST FOR SEEK BUSY
PRINT ACCESS TOO SLO@ #SG
PROG ID OACE-3
PAGE 142
paar enn eet nnecgenen ns
Cy
ee : Bb Bowe vee ade, he
IBM MAINTENANCE DIAGNOSTIC PROGRAM
A0E3 SEZK FUNCTION TEST
ERR LOC OBJECT CODE ADDR
1878 AOSS 187Cc
187p CO 87 0222
1881 A055 1882
1883 CO 87 17ED
1887 30 A2 1970
188B 30 A3 1972
188F CO 87 O21E
1893 04 1893
1894 1972 1895
1896 1982 1897
71898 CO 87 O21A
189C C510 189D
T8SGE 1982 189F
T8A0 A012 1BA1
18A2 CO 87 0222
18A6 A013 18A7
18A8 CO 87 17ED
18AC C1 A2 18AC
18B0 C1 AO 1887
18B4Y 3D 64 1931
18B8 CO 81 17B5
18BC-CO 87 O217A
18cO C118 18C 1
18C2 1911 18c3
18C4 AOYS 185
18C6 CO 87 O21E
18CA 01 18CA
18CB 1931 18cc
18CD 1927 18CE
18CF CO 87 O21A
T8D3 0516 18D4
18D5 1927 18D6
18D7 CO 87 0222
18DB A045 18DCc
18DD CO 87 17ED
T8E1 1085 18E2
18E3 C6C9D3C540C1C3C3 18F9
18EB CSEZE2C9DSCT4CE3
18FS D6DE4YOE2ZD3D6E6
1BFR E2CSCSD2C5C440E3 1911
1902 D640E6D9D6D5C 740
190A C3E8D3C9D5C4&C5D9
1912 E2C8D6END3C440C2 1927
191A C5S4OCTE340F6F440
1922 DSD6E340E7E7
1928 OO0000FF 1928
192C 00008764 1327
1930 00000000 1933
1934 1930 1935
1936 0000 1937
1938 4000 1939
193A E3C9DSCSYODGE4ES 1°50
1942 40D6D540D9C5C3C1
194A D3C9C2D9C 1£B3C5
1951 C3E8D340FO40D5D6 196E
1959 E34OD6D540C 1C6E3
1961 C5D940D9C5C3C1D3
1969 C9C2D9C1E3C5
0OA2
OcaA0
OOA2
O0A3
196F 0000 1976
1971 0000 1972
1973 YOEZE3CIE3EGE28O 1982
197B EVEVEVEVEVEVETVEV
OBB?
DATE 13MAaR70 O6APR70
EC WO. 571512 §71516
Ra ne ee Oa oe. oa . : é it Me a ae a awe GS sei fe ea eek
PART NO.
PAGE
5129626
12
STMT SOURCE STATEMENT
1307
1308
1309
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
1320
1321
1322
1323
4324
1325
1326
1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
1339
1340
13491
1342
1343
1343
1343
1384
1384
13448
1345
43485
1345
1346
1387
1348
1349
1350
1351
%352
4352
1352
1353
1353
1353
1353
13548
1355
1356
4357
1358
4359
1366
1360
1361
JUNK
DONT
SF 100
SLOW
PAR
CYLS
ABE
SK100
MASTER
ADRFLD
REAL
CAL
RTIA
xco
BZY
ERROR
B01
B23
BYTEO1
BYTE23
SNSG
22maY70
571513
pc XL2*a055! ** 55
B HALT
DC XL2*a055
*B S™REC
SNS BYTEO1,B01 SENSE ALL STATUS
SNS BYTEZ3,B23
B UNPACK
DC XL1*Q4!
Dc AL 2 { BYTEZ3)
pc AL2(SMSG)
B PRINT
pc XL 2°C510
*pc AL2 (SHSG)
rc XI.27A013?
B HALT
ac XL2"aA013?
B STREC
TIO DONT, BZY LOOP TILL BUSY DROPS
TIO JUNK,ERROR
CLI MASTER-2,X'64! SEE IF CYL 100
BE WHAT
B PRINT PRINT COMPARE ERROW
DC XL2'°C1188
Dc AL2 (PAR)
pc XL2*A045! ** 45
B UNPACK
DC XL1"01°
DC AL2 (MASTER-2)
DC AL2(CYLS)
B PRINT
DC XL 2"0516°
pc AL2 (CYLS)
B HALT
pc XL2*A045
*B STREC
Dc XL2'1085* -04256 NS X 4229 = APPROX 180 4S
pc CL23'FILE ACCESSING TOO SLOW
*Dc CL2&*SEEKED TO WRONG CYLINDER'
*Dc CL22*SHOULD BE AT 64 NOT XX!
DC XL 4* 000000FF
*oc XL4 #00008 164
*pec XL4*000000008
Dc AL2 (MASTER-3)
pc XL2*00008
Dc XL2"40008 ~
pc CL23'TIME OUT ON RECALIERATE®
pc CL30"°CYL O NOT ON AFTER RECALIBRATE®
£QD0 xXx* a2?
EQU X*AO
*EQU xX*Z2°
EQU X*A~A3#
bc XL2" 0000!
Dc xL2*0600"
Dc <L16* STATUS XXXXXXXxX!
END BEGIN
0130670 O1MAR71 PROG ID 0A0E-3
571531 571573 PAGR 12
©
Oo
Oo 0
G :
O
©
co ee A)
Oo
Cs
©
Qo
)
f.
Oo Oo 9 © a
Oo oO
fy
oO a
9
Qa ao a @6
mo QO gQ
Cs
09 OF 08 08 08 9 © &
IBS MAINTENANCE DIAGNOSTIC PROGRAS
AOE
SYMBOL
ABE
ADREXT
ADRFLD
ALC
ARR
AOE
BEGIN
BELL
BITO
BIT1
BUSY
BYTEO1
BYTE23
BZY
B01
B23
CAL
CARL
CKCYLF
CKCYLR
CKSEFK
COUNTR
CTRL
CvD
CYLs
DATA
TCECGAN
DECONE
DFCR
DFC3SV
DFDR
DISKTP
DONT
EEROR
ERRORS
FORWD
FOUR
FROBYT
PROM
FRSTPS
FSTERR
FWDEND
FWDS EK
FWDTBL
RA
HALT
HEXSTA
HF
HX BYT
20 De oe be 0) 0 0 oe oe Oe >» > 3
0) pe oD b> oe op Dm Db 7)
OO pe a b> be De bp
be 0 0 oe oe oe pe pe oe 02 9 oe ob 0) De
SEEK FUNCTION ‘TEST
LEN VALUE DEFN REPERENCES
004 192B 1346 1268
004 %<8&F7 1057 10718
002 1935 1349 1269 1295
006 1280 0859 0858
*001 0008 1218 0020 0855
1198 11958
001 0000 0003
004 OBB? 0126 1361
008 1829 1284 1242* 12578
001 0080 1223
007 0080 1224
004 150F 1071 0990
002 1970 1358 1272* 1273
002 1972 1359 1312* 1315
001 OOA2 1354 13248
001 OO0OA2 1356 1272 1299
007 O0A3 1357 1312
002 1939 1351 1271
006 1848 1294 1286
005 12BA 0861 0867
005 1304 0883 0889
003 13F9 0983 0980
001 10A4% 0581 0532* 0537
001 OOA6 1221
004 1703 1193 0131 0162
0584 0609
022 1927 1345 1335 1338
OC? OOAS 1222
006 173y 1205 1208
007 3754 1210 1207
002 150A 1067 0975* 0985
001 <4FE 1061 1001 1018%
002 150C 1068 0986
002 1502 1064 0966* 03969
004 18aC 1324 1248* 1249%
001 OOA0Q 1355 1284 1325
051 Ooccc 0168 0133 0146
0586 0593
007 OD22 0193 1048
002 15BB 1122 1120
006 1731 7203 1200
006 1717F 1260 11944
001 <18FC 1059 0084* 1015
004 OBAD 0114 0095
002 12566 0873 0866
003 18CEé 1045 1038
007 12DD 0870 0860
001 O03F 1234
0071 0222 1231 0097 0147
0523 0570
008 1657 1179 1133 «©1168
007 003C 1233
001 1702 1192 1203* 1205
003 1508 1066 0995* 0998
*001 0003 i214
0031 0076 1215
001 159B 1110 O987* 1076%
004 OAFS 0088 0085
004 7887 1311 1246%* 12474
001 <14FD 1060 1026* 1033
004% <1I7AD 1252 1251* 1266
004 1400 0985 0052* 0055
*004 8048 0986 0063
*001 0216 1228 0183 0263
001 O22A 1232 0049
004 185E 1299 1285* 1260
*13 5AR70 O6APR70 22mAY70
571512 571516 §71513
9eoeqoeoeoeeedeeoe?esd28 ®&
CROSS~REFER EXCE
0877 0899 0900* 0901 0921
1196 1197 1198* 1199
1274
1285 1299 1300 1311
1311
0538
0213 0288 0280 0312 03489
0927 0931 1032 10$3
1027
0976
1263* 1264# 1301 13248
0215 0228 0282 0296 0351
1020 1022¢
0171 0229 0253 C257 G32
0594 0618 0957 1090 1103
1175
1081
1261* 1262% 12848 1325
1036 70280 1047 1056
1267
0063 0068 0065 0066 00587
0333 0396 O400 O869 0534
1303
01A0G70 OTHAR7 1
571531 571573
PART WO. 5129626
PAGE 12a
0968 1011 1113 «#1126 11938
0378 O818 O888 O886 0515
0362 04820 0832 0888 0899
0363 0386 0433 0457 0500
1281 1297 1308 1321 1339
0068 0069
0553 0572 1254
PROG ID 0a OEF-3
PAGE 124
Satan ae be eye Sta ae Ge
Cy
1
*.
Le
3
o
G
: wees we ‘ e 5 . ion ia < e bestest, ev mcr Be 9 gta ck Bee est LA 7 . . : 4 27 } y 2 iepe a te So eke eg. Mee nea) ates
tee ass ling aS Ge. PT ad ticle Bin Dyin og bh Waa see eet ales AS pei ae coh ee ee é : Mae eos p46 « 2
© &
oo
Ne
IBM SAINTENANCE DIAGNOSTIC PROGRAS PART HO. 5129626 ee a IBM MAINTENANCE DIAGNOSTIC PROGRAS PART WO. 5129626 é
PACE 13 GG © PAGE 13, i
AOE3 SEEK FUNCTION TEST AQ E3 SEEK FUNCTION TEST ee
GS CG =
CROSS— REFERENCE CROSS- REPERENCE
SYMBOL T LEN VALUE DEFN REFERENCES © G SYMBOL T LEN VALUE DEFN REFERENCES a
MASTER & 004 1933 1348 1268* 1294% 1326 1334 1349 : RTNS A001 OF3F 0409 0343
BINDEX A 037 158A 1107 1087 C ©@ RrySa 2 004 OF53 0418 0470
MOVEBT A 005 145E8 1143 1158 RTNSB A OOR OFTD 0436 0427
NEG7 A 002 1290 0887 1079 a 0 RTNSC A 008 OFS85S 0439
NINE A 0017 OFES 0472 0467 CG RTNSD A 006 OFBC 0460 O4B& 0447
WOSEEK A 008 14pD 1051 1037 RTNSE A O04 OFDS 0466 0437 0861 0463
NOUNIT A 026 OB78 0112 0046 oe RTN6 A001 OFES 0479 0411 re
NOO A 036 196E 1353 1289 CG oC RTN6A A OO8& OFFF O486 0539
OLDADR A014 OD1B 0192 0949 1034 RTN6B A 004 1029 0503 0494
ONE A 002 OD3Z 0196 0181 0265 0398 0402 0536 0537 0628 0863 0885 0900 1193 1198 aa RTN6C A 004 1031 0506
1205 1275 1302 Ve © RTN6D A 006 1068 0526 0511 05144
OTORZ A 006 172B 1202 1197% RTN6E A 004 1080 0532 0504 0527 0529
PAR A 028 1911 1344 1330 a RTN6F A 00% 1084 0533 0540
PRINT C001 O21A 1229 0043 0076 0080 0092 0143 0167 0225 0289 0293 0317 0359 0382 C RTN7 A OO1 10A5 0585 0481
C429 0453 0496 0519 0565 0590 0614 0935 0941 0946 1084 1098 RTN7A A004 1081 0551 0629
1138 11489 1172 4277) #1287 130% 1317 1328 1336 . os RTN7JE A OO& 10E8 0574 0556
PRMLST A 002 11BB 0633 0550* 0551 05748 0628 LC ft RTN7C A 008 1123 0597 0583
PRTEXT A OO& 1637 £41176 4126% RTN7D A 006 1162 0621 0605 0608
PRTHEX A 004% 162F 1172 1161 Pe = RIN7E A 006 117A 0628 0562 0576 0598 0622 0624
PRTSNS A 004. 15BC 1126 C091 0142 0166 0223 0248 0291 0316 0358 0381 0828 0452 0495 Ce RTN9 A O01 128D 0885 1237
: 0518 05648 0589 0613 SAVSW A001 14FF 1062 0971* 0991 1019#
PRTSPN A904 OADB 0076 0023 0074 s is SAYXR1 A 002 14332 0896 0865* 0866 0887* 0888
RDDFC A 001 1358 0914 0157 0160 0163 0174 0176 0178 0239 02482 0245 0256 0258 0260 As ~ SCRCH A 001 14FB 1058 1040* 1041*® 1086* 1047* 1051% 1058 1055
0307 0310 0313 0324 0326 0328 (C373 0376 0379 0389 0391 0393 SECMSG A 029 OB46 0110 0079
0443 0446 O849 0460 0462 0464 0510 0513 0516 0526 0528 0530 s SECTS® C 001 020A 1226 0967
0604 0607 0610 0621 0623 0625 0923 0928 0972# 2 C SEEKAT A 022 OCF8 0190 0922* 0929 09448
RDID A 003 1858 1298 1244* 1259% SEEKDR A 021 ODOD 0191 1042* 1048* 10528
RDIDER A 012 0C99 0187 0159* 0164 0170 6241* 0246 0252 0309* 0314 9320 0375* 0380 0385 z x SEEKER A OC8 135C 0921 0179 0261 0329 0394 0465 0531 0626
O485* 0450 0456 C512* 0517 0522 0606* 0631 0617 - ~ SEEKSN A 00% 142B 0996 1000
REAL A 002 1937 1350 1271* 1275* 1296* 1302* SEEKTO A 022 OCE2 0189 0933 0938
RECAL A 001 1500 1063 0970* 1014* 1029 . 2 SEKERA A 00% 1375 0931 0925
RECALE A 011 11B9 0632 0568 x te SENSA A 004 160E 1160 1155
REMVDS A 001 OB24 0104 0030* 0059* SENSB A 003 1607 1157 1170
RESTON A 005 143E 1001 0994 ae SENSE a 004 1333 0895 0070 0996 1072 1127 1163
REV A 007 0D29 0194 1042 < we SETA A 006 OA72 0052 0034
REVEND A 002 1330 0895 0888 SETADA A 004 149C 1032 1021
REVTBL A 001 1327 0892 0882 > he SETADB A 005 14E7 1058 1013 1049 <
RLDFCR A 008 48D 1027 00638* C we SETADR A 00% 1450 1011 0984 =
RON kh 001 1771 1235 0547 SETB A006 OA7F 0055 0038
RPFX C001 OAO03 1111 1094 SETBTH A 003 OAS3 0060 00S4 0058 oe
RSIO aA 003 1891 1028 0069* 0979* 0982% CG. te SETDSK A 004 0A10 0020 0127 0210 0277 0346 O41&8 ONE3 ee
RTIM A023 1950 1352 1279 SETEXT A 00% O0B20 0102 0020
*RTN1 A 001 OBB3 0123 0012 Zs SETFIX A 008 13F1 0981 0977 a
ETNIA A O0O& OBC? 0131 0184 c o SETRCL A 00S 1462 1016 1013 a
RTNIB A GO&8 OBF1 0150 0140 SETSW A 001 OB26 0106 0021* 0047* 0088* 0099*% 0126 0209 0276 0385 0813 ©0882 08age
RTNIC A 00% OBF9 0153 SETXR2 & 002 138E 0906 0964* 0965 1004 1
RTNID & 006 0C30 0174 0158 0161 G & SET103 A 004 OADS 0075 -
RTNTE A 0048 oc4us 0180 0151 0175 0177 SF100 A 002 1882 1342 1296
RTN2 A 001 OD36 0205 0125 ita S10 A 003 1410 0989 0064* 0973* 0974* 09788 0981*% 5
RTN2A A OO& ODUC 0213 0266 Ce SIQCAL A 003 17F7 1270 1240* 1255* i
RTNZ2B A 004 OD76 0232 0222 SIOF aA 003 1858 1297 1243* 12588
RTN2C A 004 OD7E 0235 cau sts SKEBEX A 004 13AS9 0960 0921*
*RTN2D A 006 ODBS 0256 0240 0243 eae SKPEXT A 004% OB1C 0101 0087
RTNZE A 008 ODCD 0262 0233 0257 0259 SKPUDT A 003 O0B25 0105 0022 0089* 0101% O850
*RIN3 A001 ODDF 0272 0207 Zz SKTBL A 001 11BC 0634 0549 .
RTN3A A 004 ODF3 0280 0338 ee SK100 A 00% 192F 1347 1294
RTN3B A OO& OED 0300 0290 SLC A 006 112FA O881 0880
RTN3C A 008 OF25 0303 an SLOW A 023 13F9 1343 1306 ~
RTN3D A 006 OEFSC 0324 0308 0311 ae SMSG A016 1982 1360 1316 1319
RIN3E A O0O& OE74 0330 0301 0325 0327 i SNS A OOS 1345 0903 0067* 0902
RTNS A 001 OF88 0341 0274 = SNSEXT A 008 17349 904 0$01# 2
RTNSA A 0O% OEGE 0349 0403 eC f SNSID A 002 45E3 1142 0090* 0134* 0153* 0217% 0235* O2e84* 0302* 0352% 0369% 0422% 0439% 0489s be
RTNOB A OO& OECB 0366 0357 : 0506* 0563* 0588" O60"
RTESC A 008 CEDO 0369 » SNSMOV A 006 133F 0902 0899 rn
RTNGD A 006 OFO? 9389 0378 0377 GC SPRDLA A 001 OB28 0108 0052 we
RINSE A 008 OFF 6395 0367 0390 90392 SPHDLB & 001 OB29 0109 0055
DATE 134AR70 O6APR70 22HAY70 01AUG7O O1MART71 PROG ID DAQE-2 DATE 13 ARTO OGRPRTS Z2HKY70 C1AUG7O CINAEF* PROG ID ORCE-3
EC NO. 571572 5771516 5371513 57 153% 5771573 PAGE 13 5 fe FC sO. 5871512 571516 571513 571531 571573 PAGE 434 rae
: €: i? :
om om
IBM MAINTENANCE DIAGNOSTIC PROGRAM
A0E3
SYMBOL
SPNMSG
STATPR
STATUS
STATWD
STAIO1
STAT 23
STEPEX
STEPF
STEPR
STS ASK
STPF WD
STPREV
STPREX
STPSNS
STREC
STRTIO
SVN BLK
S@ITCH
$1
TCVD
TEST
THREEQ
TIME
TIMKON
TIMNOUT
TIXE
TKCTR
TOBYT
TOOT
TRACK#
TSTBT
TST ERR
THRO
TYBOT
UDTPTR
OFIND!
GFIND2
UNA
ORB
GRITS
UNPACK
UTAB
YEREXT
VERIFY
WAIT
WHAT
WORK
BRTDFC
rR1
XR2
XR2WK
ZERO
ZROTO
Ca
bee mee tee ee tee pe ee fee Be) (C) De oe De
poe pee few pes fee bee CD) bee he De fe ie Dew fae pew te De Dow pie ee bes De tee tw fee tee (De De) te
aA
A
A
SEEX FUNCTION TEST
LEN
024
018
002
018
001
001
004
004
004
001
003
003
004
004
006
0.04
007
001
004
‘004
001
003
092
003
014
004
001
006
00a
001
004
003
002
006
002
004
004
003
003
010
0014
001
0048
CO4
004
004
001
001
001
001
002
003
006
VALUE
OBSE
1770
1350
1669
0002
0003
12D9
129D
12E7
16FA
12C8
1312
1323
15FD
ITED
13AD
0D30
0208
1800
* 4546
0212
1353
159A
1505
15938
1750
0D35
1746
1789
0B27
15EE
144a
OD34
1725
OBAF
OAZE
OA2A
oaonc
OA OF
T75E
O21E
0232
15B6
159C
1413
17B5
150F
1354
0001
0002
150E
OBB2
1737
DEFN
0171
1212
0907
1180
1219
1220
0868
Ce55
0877
1189
0864
0886
0890
41548
1268
0964
0195
1225
1272
‘1093
1227
0908
1109
1065
1108
1209
0138
1207
1255
0107
1146
7005
0197
1201
0115
0029
0028
0014
0015
1211
1230
0117
1121
1113
0990
1254
1070
0910
1216
1217
1069
0116
1204
REFERENCES
0053* 0056
*1144% 1152
0073 0903
*1135 1141
1128.
0855* 0856
0180 0330
0264 0397
1136 . 1169
0862
0884
0877* 0878
1134 1187
1253 1283
0136 0154
0558 0579
1052
0031 0035
1241* 1256+¢
1082
0159 0241
1071* 1078
0998
1095 1096
*1199* 1206
0993 1025
1201
*1239
0072* 0075
*1183* 1154
0066* 0086
0331 0857
7196
*0024 0028
*0025
0042
1250 1252
1265
1204
1130 1165
0027
1113*® 4119
017150 0232
0065* 1030
1327
1068
0128* 0129
0278* 0279%
0399 0415
*0533 0561
0932 0957
0027* 0028
0549* 0550
0864 0864
*1078* 1079
*0085* 0965
*1016 1017
*1136* 1143
1016* 1017
0048 0995
1202
CROSS- REFERENCE
TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY =
DATE
ec NO.
13MAR70
571512
O6APR70
571516
22HAY70
571513
0083 1238
0999 1074
0857#
0466
04017 0535
0879
*1160 1162
*1293 1310
0218 6236
0601 0954
1276
0309 0375
1101
1055
*0182 0211
0992
0879 1195
0029 O048
*1313 1332
1120%
0300 0366
1080
0132 0139
0281 0289
0816* 0419
0577* 0582
1174® 1118
0029* 0033
0551* 0552
0865 0878
*4135* 1744
C973 0974
1018 1023
1156 1156
*01A0G70
571531
#
&
1132
1323
0266
1115
044s
0332
0061
*0436
0174
C3248
0426
0585
0037
0555
0880
1157
0975
1024
1169
*O1MART7
571573
1146
1341
0304
0512
0347
0503
0782
0332
O4E0
0621
0040
0574+
0882
*1157
*0983
1936
1
1167
0353
0606
0468
0597
0211
*034 7%
O46E
0859
0041
C575
0883
1250
*1001
1039
0370
0922
o4sa
0212
*03484
O4BG
*0861
004 1%
0577
0886
1251
1002
1041
0423
0575
0274
0350
0485
*0863
0057
0856
*0886
*1265
*1004
*1045
04840
0221
0356
0487
088 1
*0060
0858
0887
1266
1005
1046
PART NO.
PAGE
0490 0507
0256 0262
0389 0395
0493 0526
0883 0&85
*0060* 0061
0860* 0861
0988* 107%
1006 1072
1058 17056
PROG ID
PAGE
5129626
148
OA0E-3
a
©
Oo 2 90 90 O09 08 OO OO
©)
o
oO OF QO 8 G&G
oO ©
nearer eames reas
oO OO OO
0 989 8 8 &¢ 8 8 O
0 @ 0000000 00 00 00 0 0 0 0 8 8 @
QO
Qo 8 8 Oo @o
G
T+-Y3 Y+<
IBM MAINTENANCE DIAGNOSTIC PROGRANS
AOE3
THE CHARACTER
SEEK FUNCTICN TEST
OBJECT CARD LISTING
PART
PAGE
INDICATES A BLANK COLUMN AND THE CHARACTERS C E£ H INDICATE NUAERIC SHIFT.
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 488 CL 49 THROUGH 64 CL 65 THROUGH 80
& Ba
T+-Z5D RYY C2-Ka
T+-D0OB2-206_;2Y
*T+-,, &- D&QM E-
T+-%WO-HH@<BGED,
T+-_/ HBOO%PG2) N
Te->*E4+LN2; | SE<T
T+-2P5_XEE+.T0)X
T+-OK A(MOH*.3*B
T+-1(@YDEOH*P 1(
T+-2HCE LNESXOHE
T+-3C04I 2*3 03{
T+-3=6<]Y44_ 9=-
T+-NOBSPEGRXNGGC
T+-5415 .IXBAB/.
T+-62B*BGER3 /07
T+-7D/0HSY 2( AC
T+-8V} LNL1*D5$
T+-9-C1IPTOH*L,&D
T+-:$N-HAC34BD5T
T+-#0D5$ /1*CD58
DATE
EC NO.
1. MAR7O
571512
HA . & C&HB2<
8 &H-@/ F~$S$ @YD
MB OM ERZI IH. PX-
EH8N &- EIHM *B
2
"/O%*| .IT3"B2K
” B&PEWUCF9 (PCB@X
AQ*N OSPESNCT1;.
12) PGE+|EB><
GES3 /OHEAT<<3<B
RCIX /1020H*BF-0
BESBGBO“T2<N 5*X
Q=TLKUCX9=3T2<N
XSRPEALPDE+s [OE< |]
X9=AX9=-XE<$R5_J
< A(NB2*aPA (OOH
*(1 @NSAaBGD:4A J(
RDSP2-Ea" /(Q@YD
" /1#CDSH<3COIE: |
ADST /OS*C HCW (
2-&-* J (Q0 DLP<B
a" O%W+] a. I-HE>L4
?;A AG-DCOI HASB
A 2HEAC3"B2LK &<
GD3<B} <&.13-HDSC
@SAPTOH*N2<BG /,
OSHCT1;.TE<G010?
T1*LD2;-KE (PO84C
"D> CLO’ SWORD
G SH-B*BGER3 /01
=CIx /OHSY at A
E9*X09+I 1)XR5_ x
"S*xE9*x094I 1)x
Y4aXN1<PRE+7X9 2G
” O=TLKSCX9=-F5_X
P 1(NC<O@BJPTOH*®
QOH* (_E0BCIULA37
HIEDLO< ADSO* A{
/i+_ LN<BGC/7
L] ~@LO-~HAF &BGEO<
GDZ4(( 4 DSH.raB
<3COIEs{ /it+_ LN<BGCST /10380 HF
O06APR70 22mAY70 01A0G70
571516 571513 571531
”B:"2 STB SH2( D
G /YFF-_8] ~1-0
4 &>?B BAJEAB
20 GaROSXOH®BF-D
F(E>_YBT /OHSYE-
NS>R 8ZPS8aXH14C
R1*GD:DCO6BCS5_}
HDCO DEN@PA(OCH
*Hj aN82BGD:8— J(
RDSP2-&8" /(Q@YD
SE (SCO=LR6*PDE<G
RS_XISE& ($CO=LR6*P
R6*XV1*I 0; ( O=T
WO) D2) G*EVKSA
L,& DS. s05608
*"D5x2-3, /1*CD5U
NORDBEXBGD>* (<ZE
” /102@0H*BF-93C<3
LO&2B0H*N2<BG /Y
D /S /073A 1434
BF-Q3C<3 /OHSY X
01ma871
571573
«,3HAB:2 %0¢ 5
AB:a.%%BG SY & -
HDJEAB MEAGAB
) BUS /OHEA/~. PTO
a@ %w) -1*8BG
D2;.KE<LR2;PEG¢~
I 1DCE6) XO6HCO55C
P 1(NC<O@BIPTOR®
QOH*<< OBCIULNS7
HJEDLO< ADS3 “18
F8@PRE<XLO2) PGE<E
DE +$H2) | E5+.E1).
L2) PDK&C 19=—82<X
“spa ep 6 BOE
H2<BG /YF<O3<0H
*<w*BGES3 /OHEATS
GCHOC :HI& .I%B
/OHSY X /10#08
*FJ-2ROH*BHD |C&
"B2$ -SYEC LNES
"/10*0H*§G301E3!
5129626
aa
nO.
CL 81 THROUGH 96
BB"H PIMAOE30001
“PD ULeA0E30002
BK16 LOYAOE30003
“£10 2HRAOE3000%
“*"" 11000230005
Au*< EQ 820230006
B1*Q )- 20£30007
L,& *Q<a0z30008
"p50 3B5A0E30009
)CLH 92 A0E30010
”6*8 a6DA0E30011
IS** #0a00£30012
Lis *30a0£30013
“cya 19800230018
BHD a@Y<a02Z30015
<&* 304A0E30016
AB/ H$UA0E30017
+)CO HY&A0E30018
LOJ< )RYA0Z30019
XfEO RKSAOE30020
/1< @0R0E30021
PROG ID CAOE-3
PAGE 18a
a
€
eeeeeeeeeegeeeenaenaenenaeeecaonoedeedeoeeanengeoeeee eo 8 @
ISM SAINTENANCE DIAGNOSTIC PROGRAS
IBN HAXINTENANCE DIAGNOSTIC PROGRAS PART NO. 5129626 : o PART NO. 5129626 G
eee ; PAGE 15 © | FAGE 45a :
AOE3 SEEK FUNCTION TEST QO | ° AQE3 SEEK FUNCTION TEST =
i
OBJECT CARD LISTING | OBJECT CARD LISTING
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 C G ©L 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 68 CL 65 THROUGH 80 CL 81 THROUGH 96 G
* 2 : e e e e © | °e 2a@e . e oe se ee @ oe ° or
T+-33,EDAD5T £02 GC HXWI(LJ7@LO-H AFXBGEO<LOG2ROH*® N?<BG /YFJ-2ROH* BHD JC& LOJ(N@YD 416H ) 1*A0E30022 | T¢+/ETDLSHEI.2/0- :BA&J+—-8U,4 <B AEE 1Z/MH<EGNCCO ER?B YI-@: CEB SC37"EI"%2 KO* & S&YD JRHAOE3I00R8
o o e o « ° ° a o e 2 @ee © : e 2 e ons = e e e
T+#-*<D5T2-E-" J( QO DLPC4 DSP -E&H OOH*K9042}]6 LN*B A /S /1.XCL. /O: 3A& { 214 B2$ -SY 6] =#8A0230023 . T+/J; FE0BEE-.2%B GD3<BC-HNBAME+A LS< SEB>< <B",% A THBDUG/Y T-/05 “BAL: rEDAa-DHI{ @ B CO 28Ga0E3C04N5
2 oe o e e e o | 6 oe e e ee e e oe ee oe ea »
T+-=GD5M@PA(OOH* P 1(NC<O@BJPTOR® L,& DSL /O'*OH* N2<BG /YF<03<OH* BHD IOH*NX<BGC'& a@C1M $YNA0E30024 T+/KR AL@. DNC-< 5S sM+, M™-<O"1L "JE M™EHAHLOAEJ2 € EH|"0<a"04N5) B’LIWES,3Y "18 OD €B AOE30086
2 e e e oe so a G e e oe ee e @ e e e e
T+-"BEDBGDI4A J( QOH*}? OBCIULM37 "DSX2-3, /1*CD5U <W*BGE$3 /OHEATS <W*BG SH-CO4 DSU L&-H SREAOE30025 T+/LBEA] /1*CEJG { FBG JL*@YDI@YE P>ODBC B=1L'.0 M=OD<A-4(CKX2/2F =: GHS AL# G@ EIR A"E0 *2:-A0E30087
. o a daa e es oe @ oa * = ea o S e . eo» ee s oe @eweeoeeoeaeceaee @ @ea@ee eo *2#@ee eo =o eo
T+-"'-E9" /(Q@YD HJEDLO< ADS3 /1H )C=-( A(NB2~ / H OOH*|KOUF ABV]& ~IXBAB/ < A(NB2* @PA< LRQAO0E30926 T+/MIA-G(CK.2/0¥ @& AL#C C(CE4OT CEIS< 45E)%% AL * *BG P& E&a C& :KHAOE30088
oe ° se a o ~ - oe 2 es e G : CG -* -_ = Oe * - - - » > ; :
T+/ BNZBGEOXLNE3 <j UNS@BGD:4 A( MOH*EH*BGE$3 /OH EAT<<3<BG SH-B*E GFER3 /1B j| @N8@B GD:4 0, 8@A0E30027 T¢/NH JOZEOH*L<O< 8BA(§@Z DIJO@NW3M AERY6 JHEOHEND37? “ZR72-JC s/OHEISH WSDBIOH*BACBIOH® P OY 92YAOEIO0SS
o e e . e e °° e e a “ ° e e e ° e 2°e - e e e :
T+/A3 EDLOCBGDF- < -2RD5<'"1(RaYD EOH*P 1(RCIX /10 @OH*BF-Q=-CIX /OP SY @( A{ RD5P2-E@ * /< "14A0E30028 T¢/OE 10Q01D NVZB G /,FEJOQYH# /OH SYH# /O 5}R 2)P D1;) S=LLEXPSE+. E5;.E1DCBISSO6"R 830 7FCKROESO0SO
}
. es e co @ oe a eo e ee 2 oe e e oO e e e e Sd ee e eo eoeee e eo
T+/B>0O | HABC4ADST J(*| USZCH DSP -&HOOH*K904ZCO 62 4246 EZ<BAC"™ /1BD * E7GB JF a@( D :18A0E30029 T+/P S<PO9+( 2)N 6) $U6MXN1NCX90 C&HESU@ A(POR* L,EDCDSL /106C-L w>JOs0H® D( - O+% ©.0A0E30051
e e 2 ee oe oe oe 2 = CO G e s e e e . oe e e e » ee a 2 os
T+/C2ZD$%5 JF#-8 OHDBEX7> JHAIZB GD:4 J(MOH*I;TO +E;]| /10@0H*BF-Q 6D$X /OHSY # /OH O(&D EYG@A0E30030 T+/P#/1<3 LBG /B BDS ONZJO0AE“#B JR ZO-HO=%BG /,A JR ZY % AP? AOJE7 ¢ LL"HEB<BG /Y AD/* B1<A0E30052
eaoe se * o s s e e ° —_* e e C | o e = e e . = oe * Sd td es = © =
T+/DUDS_{ -I"H D//0 DSS OH*L,& DSL /1DTOH*F 1( NC<O@BIPTOK*N?<B G /YF<-3<OH*BHD IOH* & 2A 0E£30031 T+/Q6*C4 E£5"2-6& S -GK J. /I1PUJQ N"?HAFT2 E~# /1< 3 @BG /B8BLS ON@H BE?, /1Q0GOH*BP-B )EV* 3£%30E30053
= 7 ‘s = 2 -_ > ‘= C So ee eneeneenese e ° e eo . = oe = .
T+/E~ER3 /1E:| 8 NG@BGD24A J(QOH* JQ-OBCIULMS37"D5X 2-J, /1*CDS5U<¥*B GE33 /OHEAT8<W*B G SH 6.*A0E30032 T+/RIOH* +¢.T03] USUCB:+}EBUCISHC H1;),& 5)R 5_) SDA EDA G&DA EDA 2)PT1,X W1)8 $2: 840E30058
- °° 2 *e e ry oS G 2 * eo [ e °
T+/FEY @( A(RDSP 2-&@' /(CG@YDHJED LO< ADSO+ JF#CL. /1B18@TEE(~R1;P I5>LSE<PR6) $RBUC O0& FIGA0E30033 T+/ESB@XOSMCR1)T DK*LIS>.IS*) OFL D6M_ 5S<GRUKZPQO<X PS<PNBRCC2<PCHUA S&<LAS@E OSTEOtI ED P wA0E30055
e e a e 2 oe 2 oe e © G e e e o e e ee
T+/GN9O(XR1*T OF$ T1)¥ 1(SIS*) ORC R1*)A4DXBE*GTIS #WITVZ.>BVA+ & I2 Y<2 GG %QC1E> DB<< $8-A0E30034 T+/EXEDA EDCN5UC R1*jO6*I 1_$U5*J EDCT4UCC5 PD23} I5_N O@TEO*.S1*P KE<|HI*{ KEDA EDA ED =/*30E30056
4 — *. — °® ne ares eae = oe C G e e oe oe e a ° o oe - saa eo e e ® co
T+/REBSHHOS? C.8 (2-2 °C#OE>1F:D,0 L>AK7ESQO_J;4F.< R&/DIF# *,16>GD4 -+~,BB,HEYSDK+YIH* VZS¢ PL%A0E30035 T+/*S9(PSO*SEEDA EDA EDA EDA -D -D -D-D (--(<T& HE2&6B S4( -PHTG HE3 6B 42( -PHOO AE3Q “9DA0£30057
— _ ae . ; - oe Cc e eee es eee e eee = eee ease «- 2oee oe ae -
T+/I.ZK;OHH<KZYSD /H: %X26;.247XCB S<CRYZHL*Q(I*SVTE N(9ESU3WK+ZD#UC2 | jQO8=TL=<&H_ASUH I68- 3KEA0E30036 T+/)) < J) < J*: < A*B DH E58] A*PCL. 2--YFH E51 /1* ‘OH*® 4G61a744'~$ 7=|0 22800230058
hageiti ~- 2 a ea Q o es @e@eneeoeoene 22028 @eeeoeeecaveceaeneaoeneee e@eea@eomeoeoeeeeooeeeaaenese eee een eeanescaeaeeenee @e@meee eeeeceaeezee 32 88 @es eee
T¢/HFIH) E/OEE/D2 CLOI+-M= BG*J-VI 'M71M;S5N:NXVP3E/ TOPRE) N_SEG(**V5 IPXA-S6A>Q05SSSF( ,RFY NTEAOE30037 T A);2@ ~K%a0 £30059
“aaa ° oe ee e ° ° e ee o ° o e G 3 eo ° e e o ° e e eo 7 “
T+/.AROVWEF="BEC "30 B2C@ XVOH* C&ERD_OS J.*C-D K7 44G DK_&D+ A( W CB J.)G& LNESC 2 &0 LK8A0E30038 T+/3,B KTL72B5¢ -J;9¢1 F=C%EF D #DA-D+1 QCLREFEO #DA/~+1 QSCKEFHO #DAS_+1 Q%*HAB-O0 4&8 J* 1HFA0E30060
« e e eo 2e s e eo oe e C C ° eo. e e @ oe 8 ne
T+/.@C- LNEY2U-D A( DL<-4AD3HK9% AD,, /O A MFIS/ IKURKOILEHD2Q5 J< WC-DLI-44G DK"OD | A< &$%A0E30039 T¢/>W%C-DB-3 DA~ _OH*BETYGE"-:DA- A+/ OBRTYEFEU:DA/ *+/ CP3YESFH-:[AS <+/ Q,LY&F.GB EY { | ( D @ HAQE30061
oe «e CI a e e e ee x) oe e ee | GS e = asus ee ° o e * e ° e
T+/<7NE& O-DLI14 DSH @-DFCO LNEY 24-DA( DL<-4AD3H L<< ADOL yO K&Z IKD*FAEEL.0 [( - LJICO 5:%A0E30040 T+/-/EtC /13;_C < R<1U,<ECE(+4- 0 AFL*R+LBSFP 8DAV O0@2Z ;CODR(0820 D Q <BG /,EEIVEYAG /08 9/8A0E30062
* °° eo ee ae = oe @eeeaoeee e@e2+ee# @eeeos e es 2s is G Cc —_ = ion 2 -_ ° i 7 i .
T+/(2B 42( -1L - CD4Q C D5C /0 F*2$0 ( -L, OBC{ ]- Ls37"DS5x2-&T /1* CD50 EC 8A0E30041 T+//*HD JOH*P#*F -FH*8EAVOO/ MOH* BFD KPO:-D%&BG SH -DEBGE=4< 103FK@ 1Z2/05C DR(1TS@: @:D ;3QA0E30063
s = = > — i a? e o ee e oO G e °° e ° ry ° <= o e
T+/+_CiT /1*CD5N <8KBG /,AE-3SY , /OHE JQ<=<BG /Y FHOSSOH*BHD HOH* L,& ADSL /1+Z0R* C& #ZQA0E30042 | T+/SP LBSFP BDAY O@ZACCODR(0420 D OQOPRBG /,EEIT9YEP /OBSYEP /1~_<HH R*CRTFP. /OH; AAV 2FQH KKYAQEI0068
: ae ae Jo ee ee —_— ‘ ss Cc. o _ ee pie 2 . Bw =
T+/{ YBA(+(EHLLTO ESHBA HH@Z D} - N TO E& @ AL™}]{ @ LOK-CEAD . MD-D % JMH 3-HEG&.2D & #BA& 0/QA0E30043 T+/TKOH*BFSMNEFQH -D@BG SH-D@BGE=7 AY/SKCE QO/35UFLG —J;SOH*BFSDCFIF -J*BG /SAFLORI@B G /Y¥ £/EA0E30065
eG
DATE 13HAR70 O6APR70 22mayx70 01A0G70 O1MAR71 PROG ID OAOE-3 DATE 12 1AR70 O6APR70 22MAY70 01A0G70 G TERRI? PROG ID OAOE~3
EC WO. 571512 571516 571513 571531 571573 PAGE 15 eic EC WO. 571512 571516 571513 571531 S71573 PAGE 15—
ce 8
IBM MAINTENANCE DIAGNOSTIC PROGRAB PART NO. 5129626 _
PAGE 16 C
tt
AOE3 SEEK FUNCTION TEST
wy
a)
OBJECT CARD LISTING
c
*Ce
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL &9 THRCUGH 64 CL 65 THROUGH 8O CL 81 THROUGH 96
ry
OY
T+/U (AJQRI@BG SH -dJ*BGE=45/*$I14aN 6*|C1;.52)PGE+] OSUCSU*$WSRPEGKP DE+{ OE+$R5 PGEX] Y4OU QASANE30066
4 « eee ee @eeeeaese eee e e
T+/VHS*LE6;.HS>L LIDCBIMCAG8C6'DC N5>( 9=% c" BAR R< & C 7T2)LEE($U84COSMC R1*< $A*A0E30067
¢ es e es se es@2eee aes C
T+JWBO) { i0_XAB@P Cz({ @DCNS5>( 5_N O*$T1)V 6*PCO){ IO_XABG &+. TOS|UBUCK9=~xX9=~ X90 '0-A0E30068
€ @ev aee eo ese eee eee a @ee @eneeooaoeeone eoeee C
EB) *E7*=-~DC "PHS ="7MEF] ] c FR asc R A SO Q 16570501700 3027102%a0F390069
ey
oO
om
&Y
( non
ey my me) eo ey
on
c g
Cc C
f ”.
N Vw
é ? c
: C
c ¢
¢ c
C c
C s ;
(0 ttt ence enone ooo + 2 +--+ = = LAST PaGE ------------------------—-------------------- =
€ C
DATE 13 46aR70 O6APRT70O 22MAY70 01A0G79 01MAR71 PROG ID OaACE-3
EC NO. 571512 571516 571513 57153% 571573 PAGE 16
€ . o
€ om
oe oe
4 4
Anse
| BBR Loc
coo
0a00
OACO
0a02
0203
OAOa
OR 06
8208
O2ata
ba0D
Oati
OaA15S
Cca19
OaiC
0820
OaA28
OA28
Oa2Cc
0a30
OA33
0A36
0a39
OA3D
0a80
Oau3
OANG
OA&9
OAC
OA5SO
OASS
0a55
0056
Oas8
Oasc
OA62
OA66
SA6B
OAGE
OA72
OA75
OA7B
OATP
OA82
OA85S
OA89
OA8C
0aA90
0A96
OAIC
OAA2
OAAS8
OAAE
DATE
EC WO.
. PAGE i
PBISK WRITE FUWCTION PES F
OBJECT CODE ADDR STMT SOURCE STATEMENT
2 205 START 0
3 DECK 4
a. ORG x*OA00?
Ss ER We ee aE HT HS MRS PISA Sw Ms CAE CE SEH SEKAESA OPER SE KSCMKARGRESAERRRSRAGRE
6+ SECTION. PREPACE
*7* :
*A056 OA01 6 pc XL 2° A056* PROGRAM ID
00 OA02 3 Dc XL7°OG* SECTION FLAGS
01 0A03 © §©610 Dc EL7207" CURRENT ROUTINE BUNBER
0000 on0S5) = 17 pc XL2°00° RESERVED
cc2r oaoy 12 DC AL2 (RTN1) ADDRESS OF FIRST ROUTINE PREPEX
193A ca09 = 13 pc AL2({ ETABLE) ADDRESS OF ERBOR RECORDIHG TABLE
A0%000 OACT ie pc XL3*a01000°
Ss *
*36 Se SE He Re Be EE ee RR OR ea a HE aH de Ss Se EE RH HHS HEL TS CHS STARR SE SRECALSERSESAREMASRSSRE RS
7 .
18 © 1. SET SWITCH 15 TO BYPASS BUNNHING ON THE REMOVABLE DISK
19 « 2. SET SWITCH 16 TO BYPASS RUSNING OY THE PIXED DISK
*20 * 3. SET SWITCH 1E TO BYPASS RUNNING OB DISK DRIVE 1
*21 « &. SET SWITCH 1F TO BYPASS RUNNING ON DISK DRIVE 2
*22 7
34 C8 GAPB 23 SETDSK ST SETEXT+ 3,aRB SAVE EXIT ADDRESS
3C FF 0819 2% NVI - SETS#, X*FF® SET SETUP SWITCH
25 :
3D 60 0817 . 26 CLI SDTPTR,O HAS POINTER BEEN YRITILIZED?
F2 61 08 27 INE UFIND1 JUMP IP YES oe
C2 01 0232 28 LA UTAB, XB1 LOAD IP ¥O
38 01 0817 29 OFIND2 ST UDTPTR,XR1
35 01 OB17 30 UPIND1 L UDTPTR, XR1
3c CO OB18 31 BVI RENVDS,O ZERO THE REMOVABLE ONLY S#ITCH
38 02 0208 32 TBN SWITCH43,xX°02° TEST SSW TE
F2 10 06 33 3T #49 JUMP IP OFF, BEVER RON DISK 1
7D ad 00 38 CLI 0{ , x81) ,X*A0® TEST FOR A UNIT ADDRESS OF ‘at
F2 81 2F 35 JE SETA JUHP IP THERE IS ONE
38 01 0205 36 TBR SWITCH*3,x*01° TEST SS¥ 1F
P2 10 06 37 JT #49 JUMP TF OW, WEVER RUY DISK 2
7D 80 00 38 CLI 0(,%R1),X"BOF TEST POR A UNIT ADDRESS OF 'B?
*F2 81 2P 39 Jz SETB JUHP IP THERE IS ORE
78 10 01 &0 TBN 1(,XR1),X°10? TEST POR LAST ERTRY
D2 01 03 a4 La 3(,XB1) ,XR1 STEP POINTER TO NEXT ENTRY
cO 90 Oa20 42 BF UPIND2 CONTINUE IP NOT THE LAST ENTRY
CC 87 O21~ 43 B PRINT TO PRINT ALL UKITS SELECTED
06 CaS& 4g pc XL7*06° PLaGS
1A 0as5) 8S DC IL 1° 26% LENGTH
0B15 0a5S7 —s__&&6 DC AL2 (HOUNIT) MESSAGE ADDRESS
3C CO 0819 a7 NVI SETS®,O
Oc Of OBI? 0820 88 BY¥C UDTPTR(2),T#OZE
CO 87 022A a9 8 LOAD TO PRINT NO ENTRIES LEFT
0040 . oa67 8650 DC XL2°40¢ FLAGS
51
08 00 198C OB1B $2 SETA ZZ LDFCR¢1,SPNDLA SET TO RUN ON SPINDLE ‘a?
3C Fl OBuC 53 NVI SPNASG,C*'1° SET MESSAGE FOR SPINDLE *1%
*F2 87 14 54 3 SETBTH PROCEED
55
08 CO 198C OBIC S56 SETB ZZ LDFCR+1,SPNDLB SET FOR SPINDLE B.
3C F2 OBSC 57 MVI.- SPNNSG,C*2? SET MNESAAGE POR SPINDLE °2¢®
78 01 02 58 TBN 2(,XR1),X*O1° TEST OPTION BIT FOR REMOVABLE ONLY
F2 90 04 59 JF SETBTH JUMP IF BIT NOT ON
3C FF 0818 60 SVI RENVDS,X*PF® SET BIT TO SPECIFY REMOVABLE OSLY
61
D2 01 03 62 SETBTH LA 3(,XR1),XR1 STEP POINTER TO NEXT ESTRY
3& 01 0B17 63 ST UDTPTR,XR1
08 00 1990 198C 64 SZZ LDPDR+1,LDFCR+1 SET FOR CURRENT SPINDLE
08 CO 19BD 198C 65 AZZ SIO¢1,LDFCR¢1 SET FOR CURRENT SPINDLE
08 00 19C0 198¢c 66 MZZ =- WAIT#¢1, LDFCR+1 SET POR CURRENT SPINDLE
08 CO 1A08 198C 67 SZZ TSTERR+1,LDPCR¢1 SLT FOR CURRENT SPINDLE
08 00 1A0B 198C 68 AZZ TSTSCN¢1,LDPCR¢1 SET FOR CURRENT SPINDLE
08 00 192E 198C 69 NZZ SNS#1,LDFCR¢1 SET FOR CURRENT SPINDLE
06 APR70 22MAY70 01A0G70 010CT70 28APR71 01J3U1L71 21APB72 PROG ID 0a0S-6
571516 571513 571531 5715480 571565 571565B 571591 PAGE 1
S Yen MAINTEWANCE DIAGNOSTIC PROGRAN |
PART WO. 5129628
marmot
ae
att
i
’
3% 1
4 T
* 1
i
i
“y
a
"
|
ey y
é
'
am
+
AQOB TY,
IBY MAINTENANCE DIAGNOSTIC FROGRAN
4956
ERR Loc
OABS
OAEA
ACO
OaAcé&
OaACA
OACB
OacP
GAD
OAD6
OADA
OADE
GADF
OAEO
OAEZ
OAE6
Oae?7
ORER
OAEBA
OAEF
OAPS
OAPS
OarCc
0804
oBOC
OEM
0814
OB1T8
OPIS
CBA
OBIS
OBIC
OBGD
OBIE
OBtr
0827
OF22
OB2A
0832
0B35
OB3L
o0e8g5
OBSD
6855
0850
0665S
OB6D
DATE
ec wo.
DIS
OBJECT CODE
08 C0
08 06
08 690
co 87
02
3C CB OBA
38 08 1937
F2 390 08 .
3C 67 SBTA
1A88
TA&C
VASP
419290
3398¢€
798C
¥98C
co 87
01
22
OB6E
co 87
06 .
18
ORGC
3c 00
0c 02
3c 00
co 87
O278
O28
16FP
TOPE
JASS
0000
IOrF
CIDILIVOESDSCIL3
E280C8CTESCS40C2
CSCSDESOEICSE2E3
csc
0000
09
00
00
40
BO
00
00
ocoo
00
CODSESCIDIC9CHHO
E2ZE2E680F 2C5E3E3
C9psc7
DED6EO4 OE 3CSE2ZE3
CSLSC7TUOCHCIE2D2
SOCUDYICSESCSAVJE?
C2CSC7ICIDSYOESDS
CSEICSHOCHUCIE3CI
§OC6FUDSC3E 3C9DE
DSYOE3CSE2ZE340C1
POFS
O6AFR7TO
571516
22mAY
57151
FUHCTICON FEST
PRET BO. 3129628
PAGE , Wa
SOURCE STATEMENT
BRITE
ADDR STMT
70
71
72
73
OaCcAa 748
75
76
77
78
79
80
OADE 87
OADP 82
GAEI 83
34
OAE6 85
OAE? 86
ORES 87
88
89
90
91 SETEXT
92
0815 93 NOUNIT
93
93
93
0B1I7 Su UDTPTR
0232 95 UTAB
OBS 96 RENVDS
OR19 97 SETS
OBTA 98 TRACKS
0B78 99 SPNDLA
OB1C 1400 SPNDLB
OBID 1101 RUNESY
OBIE 102 RUNFIX
0820 103 TWOZE
0B21 104 PASS
OB 3a 105 INWVPLG
105
105
OBuC 106 SPHKHSG
106
106
OB6E 107 SECASG
107
107
107
107
70 01A0G70
3 571531
Zz RLDPCRE 1, LDPCR+4 1 SET FOR CURRENT SPIRDLE
AZZ RSIO+1, LDPCH+4 SET POR CURREST SPINDLE
AZZ RRAITE1, LDPCROT SET FOR CURRENT SPINDLE -
8 SENSE
DC =—s_—«s X“L4-° 028 ASK POR DEVICE STATOS BYTES 0 6 1,
BPI TRACKS, 203 SET POR PULL CAPACITY DISK
TBN STATUS, X*084 TEST CYL 100 BIT
oF *+7 IF OFF, COETINUE
VI TRACKS,103 SET POR HALF CAPACITY DISK
B PRIST TO PRINT SECTION HEADING
pC XLI*O1° FLAGS
pc IL1*34a* LENGTH
DC AL2 (SECHSG) BESSAGE ADDRESS
B PRINT TO FRINT SPINDLE
DC XL1* 06° FLAGS
pc TL2°2u¢ LENGTH
DC AL2 (SPKMSG) SESSAGE ADDRESS -
MYI HDT BL+3,0 ZERO HEAD
8 ¥C HOTBL42 (3) ,HDTBL*3 ERROR FLAGS 7
svi FRSTPS, 0 SET SWITCH FOR RECALIBRATE
B t-* EXIT
DC CL26°ALL UNITS HAVE BEEN TESTED®
pc XL2°08
EQU x*232°
DC XLI°O#
pc XL1°O°
pc XL7*00°
pc XL1*a0°¢
pc XL7° BOF :
DC XL1#C
*pc XL17°O8
DC XL2*08
pc XL17*0°
pc CLI9* INVALID SSW SETTING
*DC CL24*NOW TESTING DISK DRIVE x
*DC CL38*BEGIB WRITE DATA PUSCTIOS TEST AO0S®
010CT70 2B8aPR71 C1JUL71 24APR72 PROG ID 0005-6
571540 571565 571565B §71591 PAGE FY
Bee he gh A ean ts BAS ae Se ge € a eg ee Aes Se eee ot Shee Bes
= ee os ad ae) i
‘« EBS BAINTENANCE DIAGNOSTIC PROGRESS PART NO. 5129628 a IBS SALNTZNANCE DIAGNOSTIC PROGRAS ‘“ E paar 0. eesagee
a . . . Pace 2 fd. ee ys 4 ol. ae, oo 2 = . Pace 2a
DISK WRITE FUUCTION TEST oo, AOS6 DIS K WRITE PERC T : o a TES?
OBJECT CODF ADDR STMT SOURCE STATESEST ERR LOC OBJECT CODE - ADDR STNHT souRce (Statieer
38 O68 OCOA 109 TSTSPN ST TSTEZT¢3 , ARB STORE BxiT ADDRESS _ 168 « i ROUTINE No. o1, CHEex PBNCTION OF #O RECORD FPOOND
*3D 09 0321 410 cLI PASS,O IS TUIS THE FIRST Tras THROUGH ? 469 #. i SENSE BIT, { BYTE @, BIT 5) _ &
F2 01 07 114 JHE SETSPR | gone iP 20 370 “
3C FF 0821 112 NVI PASS, X°FP* SET SHITCH 171 * & ROUTINE PREPACE s
F2 87 Oc 413 a TSTSB a PROCEED TO TEST SWITCHERS le eae, es 472 & eS eas ed
OD 01 OBIE 0820 128 SETSPN CLC RUNFIX(2) ,THOZR HAVE ALL DISKS BEEN RDN? OC2P 01 OC2P 173 ATT DC 4 ELI*O1* ROUTINE WO.
F2 61°87 345 JE ZROCTR JUsP IF YES CC30 00 6C30 1474 DC = xLdeoos ROUTINE FLAGS
F2 87 3c 7716 J SETRAV JOSP IP HO 0C31 ODES 0c 32 a3 DC £ AL2(BTE2) ADDRESS OF HEXT ROUTIBE
: 1317) —C 176 Ss ;
38 06 020a 118 TSTSY TBR SECTSH, X06" TEST POR BOTH SSH°S 25 & 16 OF 0C33 3D 00 0819 177 BEGIN CLI ¢ SETSH,O HAVE PARAMETERS BEEN ENTERED?
F2 90 18 179 aF TSTREV JUSP IP BOTH KOT O8 0C37 CO 81 OACD 178 BE ° SeToOSK BRANCH IF wo
CO 7 G2IA 120 | B PRINT TO PRIBT INVALID SSS SETTING 0C3B CO 87 OB6F 79 RINIA B TSTSPR
C6 | os98 123 pc XL 7° c6e FLAGS OC3F 3C 00 1936 180 MYI «STATUS-1,0 ZERO SENSE AREA
43 - €B99 122 oc IL1°79¢e LENGTH . O0C#3 3c 09 1B6C “481 AVI S¥STB,09 INSERT ID IN PRIBT
OB34 0B9B 123 DC aL2 { INVFLG) MESSAGE ADDRESS OC4’7 CC 00 197B OBIA 182 MVC = RD DPC+1 (1) , TRACKS SET TO SEEK THE CE TRACK
adPa cB9D 128 DC XL2*a0rat BESSAGE ID OCOD CO 87 194F 183 8 . STRTLO TO 1/0 SUBROSTINE
425 , 0c571 CO — 0c51 «184 DC Cté#ERKEZLAI 1: FONCTION CODE. (CONTROL)
7 CO 87 0222 126 2 HALT TO DCP ERROR HALT cc52 CO ocS2 185 pc X19 00° ‘CONTROL CODE (SEEK)
AOPra OBA3 127 pc XL2*aOFA* BALT ID 0C53 199A 0C58 186 pc AL2 (RDDPFC) CONTROL FIELD ADDRESS
co 87 0212 ~~ 128 3 TEST TO READ CONSOLE SeITCBES 0c55 CO 87 OC6F 187 B RTNTA1 GOOD RETURE
CO 87 ORSD 129 B TSTSH 0c59 cO 87 OCSD 7168 8 +44 ;
38 OF 020A. 130 TSTRAY TBR SECTS, Z* 044 TEST FOR SHITCH 15 OF OCSD CO 87 1836 189 B PRTSHS TO DECOGRE EREOR
P2 77 0a 231 re TSTPIX JuseP IF ON . 0C61 CO B87 D2TA 790 B PRIST TO PRIST
3C FF OBID 132 | NVI RONRAV, 2° PE? IF NOT OW, SET TO RUN REMOVABLE DISK 0C55 06 0c6éS «191» DC XL 1° 06° PLAGS
38 02 020A 133 TSTPIX TEN SECTSB,X*02* TEST POR SWITCH 16 OF 0C66 35 OC66 192 DC IL1°53¢ LENGTH
F2 70 OB 1348 aT SETRAY JOSP IF ON | 0c6é7 OCF? oc6ésB 793 DC — AL2 (ERRORS) RESSAGE ADDRESS
3D FF 08618 135 CLI REMVDS,X* FF CHECK THE RESOVABLE ONLY FLAG 0c69 CO 87 0222 . 194 B i HALT TO DCP HALT
F2 81 04 136 JE SETRAY IF ON, BYPASS SETTING RON PIXED Oc6éD A009 OC6E 195 DC % XL2*Aa009¢ HALT ID
3C FP OBIE 137 avr ROWPIX,X°FF* IP NOT ON, SET TO RUN FIXED DISK 196 é
3D 00 OBID 138 SETRMV CLI RUNRHY,0 DO WE WANT TO RUN ON RENOVABLE? OC6F CO 87 17A0 197 RTNIAT Bo os TSTSEK TO TEST FOR GOOD SEEK
P2 81 15 139 JE FIXED JO8P IF NO 0C73 3C FF 191B 198 avI x RDDPC+1,X* PF* SET CYLINDER MO. TO FORCE A 8RF.
OF 017 1681 191F 740 ALC TBLE(2),ONE INCRENSERT TABLE POINTER 0C77 3C CO 191C 199 MVI «=—- RDDFC+#2,0 SET TRACK &
3C 01 OC2E 181 NVI STEP,1 SET SWITCH TO INDICATE SABE OC7B 3C 00 191D 200 “VI «=RDDPC#3,0 SECTOR VALUZS
3C 00 1899 142 SVi © DISKTP,0 SET TO RUN ON REMOVABLE 201 f ;
3C 00 0B1D 143 NVI RUNRNY,O CLEAR RUN REMOVABLE ‘SaITCE OC7F CO 87 194F 202 8B { STRETIO 10 r70 SUBROU LINE
F2 87 22 784 3 TSTEXT TO EXIT 0c83 o2 Cc83 263 oc & XL1*02¢ PUNCTION CODE (HRITE)
1485 ocs4s co OCc8a 204 pc XL7*00* CONTROL CODE { DAaTA)
3D 0O OB1z 146 FIXED CLI ROHPIX,0 DO WE WANT TO RUN ON FIXED? OCBS WIR ecsée 205 DC AL2 (EDDFC) CONTROL FIELD ADDRESS
F2 81 1F 487 32 ZROCTR JUMP IF WO o0cs7? co 87 0Ccs3 ; 206 5 RTSTAZ GOOD RETURH, { ROT EXPECTED)
OF 01 16£% 197F 143 ALC TBLH(2),ONE INCRESENT TABLE POINTER OC8B CO RF OCKP 207 B #4
3D 01 OC2E 1489 GLI STEP, 1 TEST POR PREVIOUS STEP Oc8P CO 87 GCA3 208 B RTHIB BORNAL RETURN PROB EXPECTED ERROR
F2 B1 06 150 BE #49 JONP IP YES 0CS3 CO 87 O2Z1A - 209 RYTNTAZ PB PRINT TO PRINT ROUTINE ERROR
OE 01 1681 191P 151 "ALC 8=—s TBLHA(2) ,ONE INCREMENT TABLE POLNTER oc97 C6 ocd? 2140 bc XL7*C6* FLAGS
3C 08 1499 152 AVI DISKTP, X°08° SET DISK TYPE TO FIXED oc38 54 cc9s) 271 BC ILi* eae LENGTH
3c 00 OBIE 153 MVE RUNPFIZ,O CLEAR BUN FIZED SWITCH Cc99 OLCSF OcoR 212 DC AL2 (ERR 1A} ADDRESS OF LAST PRINT CHARACTER
we 154 OCSP #010 oc9c) =. 293 pc XL2°a0170" HESSAGE ID
0c0O7 cO 87 O000 455 TSTEXT B to EXxIT ‘ oc3sp cC 87 0222 274 8 HALT TO BCP HALT
156 OCA? AQ10 CCA2 215 DC XL2*a010° BALT ID
0C03B 3D 66 OA03 157 ZROCTR CLI X*0A03°, 06 CHECK FOR LAST RODTINE 276
« -OCOP 3C ©0 0821 158 SV¥I PASS,0 ZERO SWITCH OCA3 CO 87 1920 217 RTHIB B SENSE TO SENSE I/O SUBROUTISE
0C13 F2 07 08 159 ‘ONE *e11 JUMP IF WOT LAST ROUTINE Oca7? 02 GCAT 218 pc ALT (STATO) DEVICE STATSS BYTES 06 1
0C16 3c 00 0819 160 : MVE SETS¥,O0 RESET SWITCH 219
~OC1A CC 87 0000 161 B 0 OCaB 38 08 1936 220 TBN STATUS-1,x°088 TEST BYTE 0, BIT S FOR OF
OCTE 3C 00 OC2E 162 AVI STEP,0 ZERO STEP SWITCH 221 * THIS IS "NO RECORD FOUND®
0C22 3D 03 OA03 163 CLI X*0a03'* ,03 CHECK POR COMPLETION OP ROUTIEE 3. OcaC F2 10 10 222 st RTEIC JUSP IP O8
-, 0C26 CO @1 16C2 16u BE CKHDER BRANCH TO CHECK ERRORS 223
“ OC2a cO 87 0216 165 B LINK TO NEXT ROUTINE Ocar CO 87 O2TA 2248 B PRINT TO PRINT ERROR
0C2E 00 OC2E 166 STEP-- DC XL7i*o¢ OCB3 C6 0CB3 225 pc IL1°C6* PLAGS
OCcRG 34 OCBS 226 DC IL1*52* LENGTR
OCBS OD9F 0CcB6 227 DC AL2 (ERB 1B) ADDRESS OF LAST PRINT CHARACTER
OCE7 A011 CCBB 228 DC XL2°A0118 MESSAGE ID
0CB9 CO 87 0222 229 B HALT TO DCP HALT
OCED a011 OCBE 230 DC ~. XL2*a011* HALT ID
231 aoe
OCEF CO 87 0C3B 232 RTNIC B RTW1A ROUTINE EXIT
233 a
OCC3 E3CACS8OD7IDICSES OCF1 234 DC CL4&7*THE PREVIOUS ERRORS OCCURRED WHILE SEEKING THE
*OCCE CSL6ESE280CSD9D9 238
DATE O6APR70 22MAY70 01AUG70 010CT70 28APR71 0130L71 21APR72 PROG ID 0A05-6 DATE OG APRTO 22MAY70 0 1AUG70 010CT70 28APR74 O1JUL71 21APB72 PROG ID 0405-6
EC NO. 571516 571513 571531 571540. 571565 571565B 571591 PAGE 2 EC WO. 571516 571513 571531 571540 571565 $71565B 571591 PAGE 2a
-- £
IBM MAINTENANCE DIAGNOSTIC PROGRAS PART uo. 5129628 ot IRM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 5129628
PaGE S$ OY | PAGE | 3a
A056 pPIsSKk #@RITE FuNCTION TEST xs A056 pIS kK WRITE PuNCcTIOOWN TEST
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT COLE ADDR STAT SOURCE STATEMENT
OCD3 D6DIEZLODEC3C IES 234 24a * ROUTINE KO. O02, CHECK WRITE FURCTIO‘
*SCDB DYDICSCYSOESBCBCI 234 245 *# USING HEADS 0 & 2
OCE3 N3CS8OE2ZC5C5D2C9 234 246
OCEB DSC7HOE3C8C540 234 ODES 02 ODES 287 RTN2 pc XL17°02° ROUTIWE WUABEB
OCF2 C3C540C3E8D3 CCF? 235 ERROR DC CLO6'CE CYL* ODE6 GC ODE6 248 oc XL1*00* RCUTIRE FLAGS
OCFS DSD68OC5D9IDIDEDI OD27 236 DC CL&8*NO ERROR WHEN EXPECTED APTER DOING & BRITE DATA * ODE? OFDO ODES 249 DC AL2 (RTN3) ADDRESS OF NEXT ROUTIBE PREFIX
OD00 SOFECB8CSDS540CSE7 236 250
ODO8 DICSCIE3CSCHBICI 236 CDES C2 02 16FB " 354 LA HDTBL-1,XR2 SET POINTER
0D10 C6E3SCSDI“OCKDECI 236 ODED 34 62 16£1 252 ST TBLH, RZ FCR HEAD 0, REMOVABLE DISK
CD18 DSC74ICINOFEDICYI 236 ODF1 3D 00 0819 253 CLI SETS#,0 HAVE PARABETERS BEEN ENTERED?
OD20 E3C5S4OC&CTE3C 140 236 ODF5 CO 84 OAOD 254 BE SETDSK SHANCH IF NO
OD28 C3DEDYDSCH8OEKE2 OD4YB 237 ERRYA DC CL36*COMND USING A HON EXISTANT SECTOR iD ODF9 CO 87 OB6FP 255 RTNZA 8 TSTSPS
0L30 C9ILSC74HOC 14OD5D6 237 ODFD C2 02 %6E2 256 LA SECTBL, X82 SEP ERROR TABLE POINTER
O0D38 DS&OCSE7CSE2ZE3CI 237 CEC? BC 00 17 257 4VI 23(,XR2),0 ZEKO SECTOR
OD4O DSEIHOEZCSCIEI3D6B 237 GFOM AC 16 16 17 258 MYC 22(23,X82) ,23(,XR2) ELROR FLAGS
opse pgeccgca 237 OEO8 CC CO 1917 OBTA 259 MYC WRTDFCe1(1), TRACKS SET WRITE ADDRESS TO CE TRACK
OLBC DSTEHOD9ICSC34B4O CDIB 238 pc CLU8*NO REC. POUND SENSE BIT NOT SET BY A WRITP BATA * CEOE 3C 00 19148 260 AVI W@RTDFC+2,0 SET POk HEAD 0, SECTOR 0
O0D54 C6DEESDSCUSOE2ZCS 238 O6F12 3C 00 ODES 261 4MVI EXPSEC,0 SET EXPECTED HEAD & SECTOR HO.
OLSc DSE2ZCS40C2ZC IE 386 238 0276 3C 09 BKC 262 “VI SNSID,09 INSERT ID IN PRIBET
OD6% DSDEE34OE2CSE34GC 238 263
OL6C CZEBYOCTUOEEDICI 238 OFIA CC 87 194F 26u B STRTIO TO SEEK CE TRACK
ODF FICSHOCKCTE3SCIANO 238 QETE CO OS1E 265 pc XL1°O?* FUSCTION CODE (CONTROL)
OD?IC C3D6DULSCHYUCEYE2 ODOF 239 ERRIR DC CL36*COMND USING A NOW EXISTABT SECTOR ID* CEIF 00 OEIF 266 pc XL1°O° CONTROL CODE (SEEK}
opee CYD5C74OC WWOD5DE 239 CE20 1916 O£21 267 pc AL2 (WRTDFC) CONTPOL PIELD ADDRESS
OLrBC DSXOCSETCIEZEIC1 23° CE22 CC 87 OE3C 268 B RTNZA1 GOOD LETUsH
CL°k DSESXOE2ZCSC3E3D6 239 0E26 CO 37 OE2A 269 B e+
orgsc c9eaccycs 239 OE2A CC 87 1B36 270 B PRTSNS TO DECODE ERROR
ODAO C8CSCICK4HISOUDOE2 ODDZ 240 DC CL52"HEAD & SECTOR BYTE OF CONTROL FIELD CHANGED APTER A ° OE2E CC 87 O21A 271 B PRINT TO PRIRT
OCDA8 CSC3E3IDODISOC2ZES8 240 0£32 06 OF32 272 DC XL1*06°* FLAGS
OpBO E3CcS&OD6C640C3D6 240 0233 35 0£33 273 DC IL 1* 53? LENGTH
ODB8 PSE3SLILED340CECI 2480 O£34 OCP? CE35 274 pc AL2 (ERRORY) SESSAGE aDOBESS
ODCO C5D3C48OC3CBCIDS 240 GCE36 CO 87 0222 275 B HALT TO DCP HALT
ODC8 C7CECY4OCIC6E3CS 240 OB3A A009 0F3B 276 pc XL2*a009* HALT ID
ODDO D94OC140 240 277
ODDS DODSCSYOE2CSCIE3 ODE3 241 ERROZD DC CL16"ONE SECTOR WRITES OF3C CC 87 17A0 278 RTN2A1 B TSTSEK TO CHECK FOR A GOOD SEEK
ODDC D6EDS4OE6DICIEICS 281 ' 279
ODES 00 ODES 242 EXPSEC DC KL1‘O° OFNO 3C ET 1EFD 280 RTNZE SSVI WORK¢255,X°E7° SET DATA FIELD
GES4 OC FE EFC 1EFD 281 “VC WORK+254 (255) ,WORK*+255
282
OESA 3C 12 1B6C 283 MVI SNSID,X*12° PGT MESSAGE ID IN PRIBT
OBUE 3c CC 1919 284 “VI WRTDFC+3,0 SET TO WRITE ONE SECTOR
OF52 CO 97 194F 285 B STETIO TO I/O SUBROUTINE
CES6 02 0556 286 DC XL 1*02° FURCTION CODE (WRITE)
CES7 00 CES7 287 pc XL1°00* CONTROL CODE (DATA)
OESB 1916 OFES9 288 pc AL2 (WRTDFC) CONTROL FIELD ADDRESS
OF5A CO 37 0595 289 B RTNZB1 GCOD RETURN
OFSE CO 37 OF62 290 B sey
291
OE62 CO 87 1D16 292 RTN2C 8B SHIFT TO SAIFT BITS POR DECISAL KUSBER
CEG6 1916 OF67 293 DC AL2(WRTDFC) ADPRESS OF SOURCE
OF68 CO 87 TD6A 294 B cvD TO CONVERT TO DECISAL HUABER
OF6C 1D5B OF6D 295 pc AL2 (CYLNO) ADDRESS OF SOURCE
OF6E OF70 CESP 296 pe AL2(ERBO2A) ADDRESS OF DESTINATION
O£F70 3C 40 OF6E 297 SVT BRROZA-2,C* ° SET A BLANK IX PRIBT IBAGE
OF78 CO 87 1652 298 B SETERR * "oO SET ERROR PLAG FOR THIS SECT.
0278 CG 87 1B36 299 B PRTSNS TO PRINT SENSE INFO.
OF7C CC 87 O21A 300 B PRINT TO PRINT THIRD LINE
0280 06 CE80 301 DC XL17*°06" FLAGS
OF81 59 O£E81 302 pc IL1*89° LENGTHS
OF82 OF70 OE83 303 vc AL2 (ERRO2A) MESSAGE ADDRESS
CE8& 38 01 1BCC 304 TBN TKCNSW,X*OT" 1S COND SW ON?
OF8S CO 10 1DEB 305 BT ALARA GO TO PRINT #ARNING.
ofac CO 87 0222 306 B BALT TC DCP HALT
CE90 A012 OF91 307 DC XL2*a012* HALT ID
OE9Z F2 87 68 308 J RTN2G
309
0£E9S CO 87 1748 310 RTN2Bi 38 TSTDAT TO TEST DATA ADDRESS
OF99 12PE OE9A 371 pc AL2 (WORK #256)
eens ae ee a oeaeea a yieae cee 01J0L71 2TAPBR72 PROG ID 0a05-6 DATE O6APR7O 22NAY70 01A0G70 010CT70 20AaPR71 01901471 2TAPRI72 FROG ID 0205-6
° 65 5715658 571591 TAGE 3 EC NO. 571516 571513 571531 571540 571565 5715658 $71591 PAGE 3a
ED ER
te
Lee, SRE = mye
TLE By TSR:
wee es
“ 288 MAIUTEMANCE DIAGNOSTIC PROGEAN
a0S6
ERR LOC
DATE
EC WO.
PART 26.
PAGE
DIS kK ORYITE PBRBUCTION TEST
OBIFCT CODE ADDER STAT SOURCE STATENEUT
*. aa 312 a rae
OF9B 3D. FF 1919 313 RTF2C? CLI WRTIDPCC3,X° FF® TEST SECTOR COUNTER FOR STEPPING.
. CEOF FP2 841 10 © 3178 . Jf RTN2C2 PROCEED IF OK.
OEA2 CO 87 OZ1A 315 B PRINT TO PRINT SECTOR COUNTER BOT STEPPED
O£fA6 COC y OFA6 316 tc XL3°C6* FLAGS
OFA7 2B. OEA? 317 pc IL2*a3* LENGTH
CEAS OFOS OFAS 318 pc AL2 (ZRRO2B) MESSAGE ADDRESS
OEAA a013 | OFAB 319 pc XL2*a013¢* MESSAGE IDEWTIFICATION
OEAC CO 87 0222 320 B BALT TC DCP HALT
CEFO a0%3 OFB1 321 DC XL2°a013° HALT ID
ef é 322
OFB2 OD 0O 1918 ODES 323 RTR2C2 CLC WRT DFC+2( 1) , EXPSEC CHECK HEAD & SECTOR NO. AFTER
oo, : ; 324 WRITE IS COMPLETED, { EXPECT BO CHG.)
OEBG F2 81 10 325 JE RTR2D PROCEED IF OX
OESB CO 87 021A - 326 B PRINT TO PRINT ERROR
OEBF C6 OEBF 327 pc XL 1° C6* FLAGS
OECO. 4a ofcoO «328. pc IL1*68°*. LENGTH
OEC? ODES OfC2 329 pc AL 2 (ERRO2D) MESSAGE ADDRESS
OfCS A078 Orca 330 pc XL2*a018* HESSAGE IDENTIFICATION
GECS CO 87 0222 331 B RALT TC BCP HALT
OFCO agi4 . GECA 332 pc XL2*a014¢ RALT ID
OECH e727 02 IPR * 333 RPN2ZD LA WORK | ERZ SET XR2 TO POINT TO #ORK AREA
OECP BD E7 00 334 RTN2F CLI 0 (, X82) ,X*E7* CHECK WORK AREA POR NO CHANGE
O£D2 F2 01 14 335 INE RTN2E JUMP TO PRINT IF WET. FLD. IS CHG.
OFDS E2 02 01 336 LA 1, XR2) , X82 NOT DONE, INCREMENT XR2
EDS 34 02 1939 337 st SHSXR2,1R2 NO CHG, SET TO CHECK NEXT BYTE
VELC OD 01 1939 1827 338 CLC SNS XR2 (2) ,WORK1 CHECK XR2 FOR REACHED UPPER LIMIT.
OFE2 F2 81 18 339. JE RTN2G TO ROUTINE END.
OEFS CO 87 OECF 380 B BIN2F CHECK NEXT BYTE .
CEES CO 87 O21A 381 RTNZE B PRINT TO PRINT DATA FIELD WAS CHANGED.
OEFED C6 GCEED 342 pc XL1*C6? FLAGS
OFEE 34 OEEE 343 pc IL13*52¢ LENGTH
OEE? OFC? OEFO 344 DC AL2 (ERBO2C} MESSAGE ADDRESS
OFF? 2015 OEF2 385 pc XL2* a0ts* MESSAGE IDERTIPICATION
OFF3 CO 87 0222 386 B HALT TO DCP HALT
COEF? a015 OfFB 3487 pc XL2*Aa0175* HALT ID
348
OEF9 3D SC 1918 349 RTN2G CLI BRT DFC*2,2°SC* TEST FOR LaST SECTOR OF TRACK 0
OEPD F2 O01 08 350 JNE RTN2H JUSP IF NOT DOWE —
OFO0O CO 87 1670 351 B CKHED TO CHECK FOR ERRORS
OrPrO4s CO 87 ODFS 352 B RTN2A
OFOS OF 00 1918 182B 353 RTN2H ALC WRTDFC#¢2 (1) , OWES EC NOT COMFLETE, STEP TO NEXT SECTOR
OFCE CE CO ODES 182B 354 ALC EX PSEC (1) ,ONESEC INCREASE EXPECTED HEAD & SECTOR HO.
OF14 CO 67 OF40 355 8 RTN2B REPEAT ON NEXT SECTOR
OF 18 E3CBCSSODIDICSES OFSB 356 pc CL52'THE PREVIOUS EBRORS WERE PRESENT APTER DOING A WRITE
*CF20 COD6E4E2ZHOCSDED9 356
OF28 DELIEZKOESCSDSCS 356
OF30 8OD7D9CSE2C5SDSE3 356
OF38 BOC IC6E3CSD9NNCE 356
OFSC DECODSCTKOCISDES 356
OFS@ C9C9E3CS 356
OFUC SOCUCTE3CI“OC3D6 OF70 357 ERRO2ZA DC CL37* DATA COMMAND USING HEAD X, SECTOR xx
*OFSS DULACIESCUSCESE2 357
OFSC cC9D5Cc74a0cscscica 357
OF64 SOF76B40F2CS5C3E3 357
OF6C D6OD9S0E7TET7 357 ; .
OF71 F2CSC3E3DED94K0C3 OFIB 358 ERRO2B DC CL&3*SECTOR COUKTER IN CORTROL FIELD NOT STEPPED
*OP79 D6EFEDSE3C5D940C9 358
OF81 DS4OC3IL6DSEIDIDES 358
OF89 D340C6C9C5D3C840 358
OF91 DOSD6E340E2F3C5D7 358
CF99 DIC5SCY 358
OF9C E6DICIEZCS4YOC6CI OFCF 359 ERRO2C DC CLS2*WRITE FIELD WAS ALTERED AFTER GIVING WHT. DATA CAND.
*OFAG C5SD3C4Y4OF6C1E240 359
OPAC CIL3E3CSDICSC4HUO 359
OFBY CIC6E3C5D940C7C9 359
OFEC ESCOLSCTHOFEDYE 3 359
OFC4 UBYOCEC1E3C140C3 | 359
O6APR70 22MAY70 01A0G70 010CT70 2B8APR71 O1JUL71 21aPRI2 PROG ID OA0S-6
571516 §71513 571531 571540 571565 571565B
571531
5129628 |
8
PAGE a
Wey
Ah
to's
~
IBS MAINTENANCE DIAGHESTIC PROGRAS.
A056
ERR LOC OBJECT CODE |
1 can RRMRMNRNRRE te a oe | 6 eh enn RENNES NARI nn how LAO ANE SICA RATS IRGC IE IETS,
Sine aH en ee eA weenie
&
38h
weal
eh
DISK Rite PesctiIon
ADDR STBT SOUBCE STATERENT
OFCC DELSCSSB 359
DATE O6AFR70 22"2Y70 O1AUG70 010CT70
EC NO. 571516 571513 571531 571590
' : os
oe yh * ve
‘IBM SAINTENANCE DIAGNOSTIC PROGRAK PART NO. 5129628 as
- ve PAGE . § iro
ee , ; : ox
A056 DISK BRITE PURCTIOH TEST i
‘ERR LOC OBJECT CODE ADDR STMT SOURCE STATESENT |
367 * ROUTINE NO. 03, CHECK WRITE FUNCTION _®
362 * USING HEADS 2 & 3
363
OFDO 03 OPDO 364 RTN3 DC XL1°038 ROUTINE NUMBER
OFDI CO OfD1 365 BC XL1¢908 ROUTINE PLAGS
OFDZ 117063 ‘OFD3 366 aC AL2 (RTRSY ADDRESS OF NEXT ROUTINE PREPIX
367
CFD4 C2 02 16FD 368 La HDTBL+1,XK2 SET POINTER
OFDS 34°02 1681 369 ST TBLH,ERZ FOR HEAD 1, REMOVABLE DISK
OFBC 3D 00 OB4S 370 CLI SETS, HAVE PARASETESS BEES ESTERED?
OFEO CO 81 OAOD 371 BE SEYDSK BRANCH IF RO
OPES CO 87 OB6F 372 RTN3A 8B TSTSPU
OFFS C2 02 1682 373 LA SECTBL, ZB2 SET ERROR TABLE POINTER
OFEC BC 00 17 3748 NVI 23(,X82),90 ZERO SECTOR
OPEF AC 16 16 17 375 MVC 22(23,kK2) 23,282) ERROR FLKGS
GPP3 OC 060 1917 OBIA 376 AVC MQTDFC+1 (2) , TRACKS SET BRITE AUCDRESS TO CE TRACK
OFF9 3c 80 1918 377 M¥I «- WRTDFC+2,x°80" SET FOR HEAD 3, SECTOR ©
OFFD 3C 80 ODEs 378 avr EXPSEC,xX?#80* S28? EXPECTED HEAD & SECTOR FO.
7007 3c 09 1H6C 379 SVI SNSID,09 LWSERT ID IN PRINT
380
7005 cO 87 194PF 381 B STRTIO TO SEEK CE TRACK
1009 00 1009 382 BC XLi*O® POUNCTION CODE (CONTROL)
7CCA OC 10GA 383 pc XLi¢ 08 CONTROL CODE { SEERK)
VBO0B 19176 400C 388 de AL2 (8RTDPC) CONTRCL PIELD ADDRESS
4CCD CO 87 1027 385 B RTN3ZA1 GOOD RETURN
1011 CO 87 1015 386 B *+4
40975 cO @7 1836 387 B PRTSNS TO CECODE ZRROR
16919 CO 87 Q27A 388 Rg PRINT TO PRIRT
101D 06 101D 389 BC ZL1°06* PLAGS
1O1E 35 10TE 390 pc IL1°53* LENGTS J
TOF OCP? 1020 391 pc AL2 (ERRORS) HESSAGE ADDRESS °
4027 CO 87 0222 392 B HALT TO DCP HALT
1025 A009 1026 393 pc XL2*a0098 HALT ED
3948
7027 CO 87 1740 395 RTN3ZAT B TSTSEK TO CHECK FOR A GOOD SEEK
396
102B 3C F? VEFD 397 RTN3B SYI WORK#255,X'E?! SET DATA FIELD
¥02F OC FE 1EFC 1EFD 398 NYC WORK#25& (255) ,WORK*255
399
1035 3C 17 1B6C 400 NVI SNSID,x*17° PUT ID IH PRINT
1039 3c 00 1919 401 NVI WRTDPC?#3,0 SET TO ¥RITE ONE SECTOR
103D CO 87 194F $02 B STRTIO TO WRITE DATA
1041 02 1047 803 Dc XL1°02° FONCTION CODE (WEITE)
1042 00 1042 604 pc XL1*°00° CONTROL CODE (DATA)
1043 1916 1049 6405 Dc AL2 (WRTDFC} CONTROL PYELD ADDRESS
10485 CO 8&7 1080 406 B RTN3B1 GOOD RETURN
1089 cC 87 104D 807 B *e4
808 ‘
104D CO 87 1D16 609 RTN3C OB SHIPT TO SHIFT BITS POR DECIMAL NUSBER
1051 1916 1052 %10 pe AL2 (WRTDFC) ADDRESS OF SOURCE
1053 CO 87 1D6~A 811 i) cvD TO CONVEBT NOSBER TO DECINAL
1057 1D5B 1058 412 pc AL2(CYLNO) ADDRESS OP SOURCE®
1059 OF70 105A 813 pc AL2 (EBRO2A) ADDRESS OF DESTINATION
1C5B 3C GO OF6E u14 MV¥VI ERROZA-2,C* * SET A BLAWK IM PRINT IMAGE :
1OSF CC 87 1652 415 B SETERR TO SET ESROP PLAG POR THIS SECT. :
1063 CO 87 1836 416 B PRTSNS TO PRINT SENSE INFO.
1067 CO 87 O21A 417 B PRINT TO PRINT THIBD LINE .
1C6B 06 106B 4818 pc XL1*06° FLAGS =
106c 59 106C 419 pc IL1°89¢ LENGTA
106D OF70 106B 420 pc AL2 (ERBO2A) MESSAGE ADDRESS ” g
106F 38 01 1BCC 421 TBN TKCNSH,X*0O1* IS COND SW ON? -
1073 CO 10 1DBB 422 BT ALARS GO TO PRINT WARNING
1077 CO &7 0222 423 B HALT TC DCP HALT
1C7B AC17 107C 4424 DC XL2*a017* HALT ID
425
107D F2 €7 68 826 a RTN 3G
1080 CO 87 1748 427 RTN3B1 B TSTDAT TO TEST DATA ADDRESS
1C84 1EPE 1085 428 pc AL2 (WORK #256)
DATE ‘OG APR70 22MAY70 07AUG70 010CT70 28APR71 O1J0L71 21APR72 PROG ID 0aA05-6
EC NO. 571516 571513 571531 571540 571565 571565B 571591 PAGE 5
IBN WAINTENANCE DIAGHOSTIC FROGRAM
A0S6
ERR LOC
1086
TCBA
108D
4091
1092
1093
7Oa5
1097
109P
IOSE
70a3
OAS
TOAA
TORS
TOac
tOaE
T0B0
TOES
TOR6
TOBA
TOBD
70C0
10C3
16Cc7
19CD
10D0
70r4a
7Crs
10D9
TOLA
TCDC
4OLE
WWEZ
10E&
108
TOEB
VOEF
10F3
1CF9
10OFF
DATE
EC NO.
OBJECT CODz
3D FP
F2 81
co 37
cé
28
OFS5
A073
co 87
A073
oD 00
F2
co
cé
Be
ODE3
A0ts
co 87
AOTK
87
a7
C2
PD
F2
E2
34
GSD
F2
co
G2
ET
01
02
02
01
81
87
co
C6
34
OFCF
£015
cO 87
Ags
87
DISK...
4379,
30°
O2TA
0222
1i$78
10
O21A
0222
3918
1670
OPFEY
1918
CDES
1028
O6APR7O
571516
HRI? E
FoR
8 & © @ S Ss Z f ! wep eee ee re, : * z s . = io eS 3 5 “a
>
cTrroNw TEST
ADDR STNST SOURCE STATENERT
829
830 RTN3IC1 CLI WETDPC+3,X° FF?
434 JE | RTN3C2
422 B PRINT
1697 833 pe XL1*° C6?
3092 434 pc ILt#uze
1098 835 pc AL2 { ERRO2B}
7096 836 pc XE27A07S
*437 B HALT
109C 438 Dc XL2°A013?
- 839
ODES 820 RTN3C2 CLC @RTDPC#2(1) , EXPSEC
“ay =
“42 JE RTN3D
83 8 PRIBT
FORA 484 pe XLIPcEe
10AB 8&5 DC IL1°68?
FORD 8B6 pe AL2 (ERRO2D)
VOAP 447 Dc XL2*aOTKE
aus B HALT
7085 sag Bc XL2°a0 1749
B50
457 RTN3D LA WORK, XBZ
452 RTN3P CLI 0(,XRZ) -X*E7 &
B53 JNE RTN3E
&S4 LA ¥(,XR2) ,XR2
855 St SNSXR2,XRZ
1827 u56 CLC SNSXR2(2} ,WORK1
&57 JE RTN3G
4SR B RTN3F
“59
460 RTN3E B PRINT
1CD8 461 DC XLi*co6?
10D9 462 pc IL?*52
*1CDB 4863 DC. AL2 (ERRO2C)
i0DDB 465 pc XL2*A075
*865 B HALT
40E3 66 c XL2* a0i15¢
467
4868 RTH3G CLI WURTDPC+2, X* DCE
469 INE RTN3H
&70 B CKHED
574 B RTNGA
782B 472 RTS3H ALC WRIDPC42(1} , CHESEC
1828 473 ALC EXPSEC (7} ,CHESEC
u7u 3) RTRIB
22MAY79 OTAUG7O 010CT70 28APR71
§71513 571531 571540 571565
0130171
5715658
5129628 -
PART BO.
| Sa
PAGE
TEST SECTOR COUNTER FOR STEPPIRG
PROCEED IF O& :
TO PRINT SECTOR COUNTER HOT STEPPED
PLAGS
LENGTH
HESSACE ADDRESS
HESSAGE IDENTIFICATION
TO DCP HALT
HALT ID
CHECK HEAD & SECTOR HO.
BRITE IS COSPLETED,
PROCEED IF O&
TC PRINT ERROR
FLAGS
LLSGTR
RESSAGE ADDRESS
MESSAGE IDENTIFICATION
TO DCP HALT
HALT ID
APTER
(EXPECT WO CHS.}
SET 482 TO POINT TO VORK AREA
CHECK WORK ARERR FOR 8O CHANGE
JUSP TO PRINT IF WT. FLD. IS CHG.
NOT DORE INCRESERT xR2 ,
NO CHG, SET TO CHECK HEX? BYTE
CHECK XR2 FOR REACHED UPPER LIMIT
TO ROUTINE ERD :
CHECK REXT BYTE
TO PRIBT DATA PEELD YAS CHANGED
PLAGS
LENGTE
MESSAGE ADDRESS
MESSAGE IDENTIFICATION
TO DCP HALT
HALT ID
TEST POR 3.AST SECTOR OF TRACK 4
JUSP IF NOT DORE
TO CHECK FOR ERRORS
TO DCP IF COMPLETE
ROT COMPLETE, STEP TO REXT SECTOR
INCREASE EXPECTED HEAD & SECTOR NO.
REPEAT OW NEXT SECTOR
se ee
are et
27APR72
571591
0a05-6
PROG ID
SA
PAGE
IBS MAINTENANCE DIAGNOSTIC PROGRAM
- A056
ERR LOC
1103
T1048
1165
1107
1108
410F
4413
V7
UV1B
1724
1425
1129
112D
112E
112P
1131
1135
1139
113D
1141
1142
1143
1745
1149
1743
714F
1453
1159
145F
1763
1167
1158
176C
116D
T16F
1173
1177
1178
T17FP
11848
17188
1189
148A
148C
1190
1192
1196
1198
119C
119F
TTA3
71a4
17A5
VVA7
T7A9
" 11aD
+ Si ep.
reps
“ORE oKpMe
DATE
EC NO.
Povert ger.
OBJECT CODE
08
co
V2A1
C2
3%
3D
02
02
00
co
oc
3c.
3c
0
cea
09
co
00
09
19346
co 87
cC 87
co 87
co 87
06
35
OCF?
cC 87
adog
87
cc 87
3C
oc
0c
10
FE
FF
3¢
3c
co
02
co
1916
cc 87
cc 87
12
01
e7
co
35
1c
co
06
59
1250
cc 87
AQ12
co 87
VEPE
87
01
00
87
3D FF
F2 81
CO 87
C6
28
OF9B
A013
CO 87
A013
DISK
16FB
T6E1
OB19
Oa0D
OB6F
1917
19978
BEC
q9uF
T1488
1139
1B36
O27A
0222
1740
TEED
IFFC
TEFD
7B6C
19179
194F
1192
1177,
1B36
1621
12464
O2TA
0222
I7T4E
1919
10
O27A
0222
OGAPR70
571516
“gat
ADDR
OB:
IFFD
VEFE |.
04
1703
47104
9106
112d
T12E
1130:
1481
V2
4144
TINA
1168
116C
T16E
1188
1789
118B
1194
1197
T1A3
TiAa
T1A6
T7A8
TIAE
22MAY70
571513
PART RO. $129628
PAGE 6
TE FUNHCTIORN Pest
STMT SCURCE STATEMENT
876 * ROUTINE wo. O&, CHECK WRITE DATA eo.
*aT] * USING MULTIPLE SECTORS
*478 * HEADS 0 & 2
879 .
480 RTNG pc XL17°O8 ROUTINE NOMBER-
881 pc XL1*00° ROUTINE FLAGS
882 pc AL2 (RTNS} ADDRESS OF NEXT ROUTINE PREFIE
883 oe
aBu LA HDTBL-1, 582 LOAD HEAD BO. POINTER
885 St TBLH, XR2 STORE
886 CLI SETSW,0 HAVE PARAMETERS BEEN ENTERED?
867 BE SETDSK BRANCH IF NO
688 RTNGA 8B TSTSPR
489 | VC WRIDFC+1(1) ,TSACKS SET WRITE ADDRESS TO CE TRACK
890 VI WRYDFC+2,0— SET FOR HEAD 0, SECTOR 0
$91 NVI SRSID,09. INSERT ID LN PRINT
892
493 B STRTIO TO SEEK CE TRECK
4gu Dc XL1'O¢ FUNCTION CODE (CONTROL)
495 pc AL4*0# CONTROL CODE (SEEK)
496 pc AL2 { WRTDFC) CONTROL FIELD ADDRESS
897 B RTNG AI GOOD RETURN
ao8 B +o
899 B PRTSNS TO DECODE ERROR
500 B PRINT TO PRINT
501 DC XIL1*06* FLAGS
502 pc IL 1*53° LENGTH
503 Dc AL2 (ERROR) MESSAGE ADDRESS
504 B HALT TO DCP HALT
505 pc XL2*a009¢ HALT ID
506
507 RTN4AT B TSTSEK TO TEST FOR A GOCD SEEK
508
509 RTNSB MYI WORK¢517,X%" 108 SET :
510 . m9C WORK4#510 (255) ,WORKE511 2 SECTOR
511 SVC WORK #255 (256) ,pWORK #256 WORKAREA
512
513 MYI SNSID,X*12° PUT ID IN PRINT
514 VI WRTDFC+3,01 SET TO WRITE 2 SPCTORS F
515 B STRTIO TO WRITE DATA, (2 SECTORS)
516 pc XL1¢0O2* FUNCTION CODE (WRITE)
517 DC XL1° 90" CONTROL CODE (DATA)
578 pc AL2 (WRTDFC) CONTROL FIELD ADDRESS
519 B RTNGB1 GOOD RETURN
520 B eeu
521 R
522 RTNSC B PRTSNS TO PRINT SENSE INFO
523 L TBLH,XR1 LOAD HEAD NO. POINTER ‘
524 SVC ERROGA-15(1),%8(,XR1) PUT HEAD HO. IK ERROR MSG.
525 B PRINT TO PRINT 3RD LINE
526 pc XL1°06* FLAGS
527 pc IL1*89¢ LENGTH
528 pC AL2 (ERROGA) SESSAGE ADDRESS
529 B HALT TO DCP HALT
530 pc XL2*a012" HALT ID
531 RTNSBI B TSTDAT TO TEST TATA ADDRESS
532 pc AL2 (WORK#512) EXPECTED ADDRESS
§33 :
534
535 RTNUC1 CLI WRTIDPC+3,X* PF TEST SECTOR COUNTER FOR STEPPING
536 JE RTNSC2 PROCEED IF OK
537 3 PRINT TO PRINT SECTOR COUNTER NOT STEPPED
536 pe XL1°C6* PLAGS
539 _pe IL 1*43° LENGTH
540 pc AL2 (ERR02B) MESSAGE ADDRESS
591 BC XL2* 20138 MESSAGE IDENTIFICATION
542 B HALT TO DCP HALT
543 pc XL2*a013* HALT ID
O1AUG70 010CT70 ZSAPR71 O1JUL71 2IAPR72 PROG ID OA0S-6
571531 571580 571565 5715658 571591 PAGE 6
ZPAH MAINTENANCE DIAGNOSTIC PROGRAS
A056 - DISK.
FUNCTION
“PART. 80.
PAGE
5129628
CHECK HEAD & SECTOR HO. AFTER
WRITE IS COMPLETED,
JUMP TFSTEPPED CORRECTLY
FLAGS
LENGTH
MESSAGE ADDRESS
MESSAGE IDENTIFICATION
TO DCP HALT
HALT ID Lis
SET X82 TO POLHT TO WORKAREA |
CHECK WORKAREA FOR NO CHANGE.
JOSP TO PRT. IP wRT.
PLD.
SET TO. CHECK REXT BYTE
STORE FOR COMPARE
CHECK XR2 FOR SPPER LIAIT
TO ROUTINE END IF DONE
CHECK NEXT BYTE
IS CHG.
TO PRINT DATA -FIELD WAS CHANGED
FLAGS
LENGTH
SESSAGE ADDRESS
HESSAGE IDENYTIPICATION
TO DCP HALT
HALT ID
ROUTINE EXIT
CLS2*THE PREVIOUS ERRORS WERE PRESENT AFTER DOIG A URT. °
CL37*DTA. CMND. USING HD. X, SECTORS 0 & 7
*CLS2*HEAD & SECTOR BYTE OF CONTROL FIELD HOT STEPPED CORR®
CL28°ECTLY AFTER A 2 SECTOR WRITE®
*RITE TesT
ERR LOC ORJECT Core “ADDR STST SOURCE STATESENT
58a
VIAP 3D 64 1918 585 RTNGC2 CLI WETDFC#2,04
, 546 = :
1183 F2 81 10 587 J£ RTN&D
1186 CO 87 O2Z1A 548 B PRINT
T7BA C6 118A 549 DC” =XL7* Cee
11EB 50 T1BB 550 pc IL1*66
*11BC 12,0 11BD 551 DC AL 2 (ERRO&B)
TIEBE AVS TIBP 552 pC XL2°a01788
11C0 CO 87 0222 553 B HALT
t4icH A019 71C5 «554 pc XL2*° 40018?
555 ‘
11C6 C2 02 DFE SS@ RTRAD LA WORK, XR2
1iCR BD 70 00 557 RTNUF CLI 0(,XR2) -X*10°
ViCD F2 014 14. 558 INE RTNUE
11DO F2 02 01 559 LA 1¢,XR2) , XR2
11D3 34 02 1939 560 | ST SNSXR2, XR2
V1L27 Ce 01 1939 1827 561 cLC SNSXRZ(Z) g WORK
ViDD F2 81 4 ‘562 JE RTRUG
V1EO CO @7 21CA 563 B RTNGF
-- $64 ~ ee ?
“VIER CO 87 O24:a 565 BTRGE 8B PRINT
11E8 C6 V1EB8 566 DC XL1°C6
*V1E9 3a VES 567 pc IL1*52¢
T1EA OFCF VIEB 568 DC: AL2 (ERBRO2C)
TIEC AOS TIED 569 pc XL2°a015°
TIEE CO 87 0222 570 B HALT
V1IF2 A015 V4F3 #571 pc XL2* 20158
572
V1F& CO 87 1117 S73 RTRAG B RTNGA
VIFS ESC8CSSODTIDSCSES 1228 574 pc
7200 COLGESE2UDCSDIDS 574
2208 DODSE2ZU0FEC5SDICS 574
12310 SCD7LICSE2ZCSDSE3 5748
1278 SOCIC6E3C5D9S0C4 S74
1220 COCSLESCTISOCISOES 578
1228 D9E34BN0 574
122C C&F3ICISBSOC3IDYDE 4250 S75 BRROBA DC
12324 CUNPUCESGE2ZCODSC? 575
123C HOC8CUURYCETEBSO $75
1244 EICSC3EIDEDIE2ZHO 575
126C FOSOSOUOF? 575
12©1 CEC5SCICUYISOKOE? 1284 576 pe
7259 CSCZEITENIVCCZEB 576
1261 E3C540D6CHh40C 3D6 576
1263 DSEIDLSLEDISNCECY 576
1271 CSD3CSXODSDOE3E0 576
1279 E2E3ICSDIDICSECHHO 576
1281 C3DED9D9 576
1285 CSCIEIDZERKOC ICG 41220 577 ERROSB DC
128D E3CSDI4OCI4OF2U0 577
3295 E2CEC3EIDEDSROES 577
129D L9YCSE3CS 577
DATE OGAPRTC 22KAY70 QO 1ANG70 010CT70 2UAPRFt
FC NO. 571516 571513 571531 571540 571565
O13J0L71
571565B
2TAPRT2
571591
PROG ID
PAGE
‘OA05-6
6A
ca
(SHOULD step)...’
# 3
~
‘ ter 4 “ :
eoeeceeesecoccs
IBM MAINTENANCE DIAGNOSTIC PROGRAS PART NO.
5129628 os IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. =5 129628
PAGE 7 3 : PAGE 7a
A0S6 DISK WRITE FUNCTION TEST <> A056 DISK WRITE PUNCTION TEST.
EFR LOC OBJECT COLE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CCDE ADDR STMT SOURCE STATEMENT .
| 579 * ROUTINE NO. OS, CHECK WRITE FUNCTION USING * 1343 CO 87 O21A 647 B PRINT TO PRINT HEAD & SECTOR ADDRESS
580 * HEAD SWITCHING, * 648 * MOT STEPPED CORRECTLY
581 * BEGIN WITH HEAD 0, SECTOR 23, * 1347 Co 1387 649 pc XL1"C6? Se ecta a
582 © END WITH HEAD 1, SECTOR 0 * 1348 SB 1388 86650 bc IL1°91° :
583 1349 1835 1342 651 DC ~< 7AK2{ (ERRO5B) .cMESSAGE ADDRESS... | -7 0 - py yeay -
12A1 05 12A1 S88 RTNS DC xXL7#058 ROUTINE NUMBER 134E A019 134C 652 DC XL2* A019! NESSAGE IDENTIFICATION
12A2 00 12a2 585 DC XL1*00! ROUTINE PLAGS 1348D CO 87 0222 653 B HALT raeae
1243 1436 1284 986 DC AL 2 (RTN6) ADDRESS OF NEXT ROUTINE PREFIX eon Rely ti ee i aii mA
587 |
( SET XR2 TO POINT TO WORK AREA
12a5 30 CC 0B19 588 CLI SETSW,0 HAVE PARAMETERS BEEN ENTERED? 1353 C2 02 DFE 656 RTNSD LA WORK, XR2
12A9 CO 81 OAOD 589 BE SETDSK BRANCH IF NO 1357 BP E7 00 657 RINSF CLIO 0O({ ,XR2)¢X°E7® CHECK WRITE FIELD FOR NO CHANGE
12AD CO 87 OB6F 590 RTNSA B TSTSPN 135A FP2 01 18 658 JNE -RTNSE JUMP TO PRINT IP WRT. FLD. IS CAG.
1281 CC 00 1917 OB1A 591 MVC «- WRTDFC+1(1) , TRACK# SET CYLINDER ADDRESS TO CE TRACK 135D E2 02 01 659 LA 1(, XR2) 4 XR2 NCT DONE, aes eee
12B7 3c 5C 1918 592 NVI WRTDPC#2,x*SCt SET FOR HEAD 0, SECTOR 23 1360 34 0z 1939 660 ST SNSXR2,XR2 SET TO CHECE x
12EB 3C 09 7ROEC 593 MVI SNSID,09 INSERT ID IN PRINT 1368 CD 01 1939 1827 661 CLC SNSXR2(2) WORK CHECK XR2 FOR UPPER LISIT
598 136A F2 81 14 662 JE RTNSG IF DONE, GO TO ROUTINE END
12EF CO @7 194F 595 B STRTIO TO SEEK CE TRACK _ _ 436D CO 87 1357 663 B RTWOP mot, BORE S: COECK BER BITE
12¢3 00 12C3 S96 pc ILT#O8¢ FUNCTION CODE (CONTROL) 668 - eer
12c% 00 12c4 597 pc XL1*08 CONTROL CODE (SEEK) 1371 CC 87 O24A 665 RTNSE B PRINT TO PRIHT DATA FIELD WAS CHARGED
12C5 1916 12C6 598 DC AL2 (WRT DFC) CONTROL FIELD ADDRESS 1375 C6 1375 666 DC xL1*Ce" ence
12C7 CO 87 1281 599 B RTNSA1 S00D RETURN 1376 34 1376 667 DC IL 1*52* LENGT
12CE CO 87 12CP 609 B *+4 1377 OFCF 1378 668 pc AL2 (ERRO2C) HESSAGE ADDRESS
12CF CO 87 1B36 601 B PRTSNS TC DECODE ERROR 1379 A015 137A 664 DC XL2*A015° RESSAGE IDENTIFICATION
12D3 CO @7 021A 602 B PRINT TO PRINT 137B CO 87 0222 670 B HALT TO DCP HALT
12D7 06 12D7 603 pc XL1°06°* PLAGS 137F A01S 1380 671 ac XL24A015* HALT ID
12D8 35 12D8 608 DC IL 1°53 LENGTH 672 aig: ‘nee
12D9 OCF? 12DA 605 bc AL2 (ERRORY) SESSAGE ADDRESS 1331 CO 87 12AD oe RTNSG 8B RTNSA
12DB CO 87 0222 606 B HALT TO DCP HALT
12DF A009 1220 607 DC 1L2*A009° HALT ID 1385 F3CPCSYOD7DICSES 1388 675 pc CL52'*THE PREVIOUS ERRORS WERE PRESENT AFTER DOING A WRITE?
608 a 1380 CSD6F8F240C5D9D9 675
12E1 CO 87 17A0 609 RTNSA1l B TSTSEK TO CHECK FOR A GOOD SEEK 1395 DODIEZ4OFECSDICS 675
610 139D SODTDICSEZCSDSE3 675
12E5 3C E7 1FFD 6117 RTNSB AVI = WORK¢511,X*E7!" SET V3AS SOC ICOESCEDSNCCA 675
1279 OC FF 1FFC 1FFD 612 MYC WORK*510 (256) ,WORK4#511 DATA Aes eee oe
12EP OC FE 1EPC 1£FD 613 MVC WORK*#254 (255) ,WORK4+255 PIELD c :
eaa (299), 1339 SOD6CH4OF2ZS0E2C5 13DA 676 ERROSA DC CL34* OF 2 SECTORS USING HEAD SWITCHING®
12F5 3C 1A 1B6C 615 MVI SNSID,X*"1aA®* PUT ID IN PRINT 13C1 C3EILELIEZYOFUE? 676
12F9 3c 01 1919 616 NVI - WRTDFC+3,1 SET TO WRITE TWO SECTORS ¥3C9 CSDSC74OCB8CSCICH 676
12FD CC &7 194P 617 B STRTIO TO I/O SUBROUTINE | cae ecege ore pens
1301 02 1301 618 DC 1L1°02" FUNCTION CODE (WRITE
7302 Cu 1302 619 rc XL1*008 CONTROL CODE ishene : TICE CBCSCICHNOCSOSOE2 14802 677 DC CLO2*HEAD & SECTCR BYTE OF CONTROL FIELD NOT STEPPED CORR
*1303 1916 1304 620 DC AL2 (WRT DFC) CONTROL FIELD ADDRESS V3E3 CSCIESTEDIGOCZES 677
1305 CO 87 131F 621 B RTNSB1 GOOD RETURN ' VIJEB EICSUCL6CE4OC 3D6 677
4309 CO 87 130D 622 B *4+4 13F3 D5SE 3D9D6N 34 0C6C9 677
623 13FB CSL3IC4UODSD6E340 677
130D CO 87 18336 628 RTNSC B PRTSNS TO PRINT SENSE INFO. ie eases ees
1311 CO 87 O21A 625 B -PRINT TO PRINT 3RD LIWE Cc.
1315 06 1315 626 pc XL 1*06* FLAGS 14UOP CSC3EIDZEBHOCICS 1435 678 ERROSB DC CL39° ECTLi: AFTER A WRITE WITH READ SSITCHING? -
1316 56 1316 627 DC IL1*86* LENGTH W417 EICSLINOC 1UOEEDS 678
1317 13DA 1318 628 pc AL 2 (ERRO5A) MESSAGE ADDRESS WIP CIEICSUOFECIEICR 678
1319 CO 87 0222 629 B #ALT TC DCP HALT 1427 SOCECSCIC4UUOE 2E6 678
131D AO1A 131E 630 pc XL2*a01Aa* BaLT ID TU2P CIEIC3CBCIDSCT 678
631
131P CO 87 1782 . 632 RINSB1 B TSTDatT TO TEST DATA ADDRESS
1323 1FFE 1324 633 . pc AL 2(WORK*#512) EXPECTED ADDRESS
638
1325 30 FF 19.9 635 RTN5SC1 CLI WRTDFC+3,X* FF TEST SECTOR COUNTER FOR STEPPING
1329 P2 81 10 6 36 JE RTNSC2 PROCEED IF OK
132¢ CC 87 021A 637 B PRINT TO PRINT SECTOR COUNTER NOT STEPPED
1330 C6 1330 638 pc XL1°C6* FLAGS
133% 2B 1331 639 DC IL 1°93¢ LENGTH
1332 OFOB 1333 680 Dc AL2 (ERRO2B) MESSAGE ADDRESS
13348 A013 1335 681 pc XL2*a013° MESSAGE IDENTIFICATION
1336 CO 87 0222 6&2 8 HALT TO DCP HALT
133A A013 1238 6683 DC 1L2*a013* HALT ID
648 . ;
133c 3D 80 1918 645 RTWSC2 CLI WRIDPC+#2,x°80' TEST ENDING HEAD & SECTOR ADDRESS ,
1340 P2 81 10 686 JE RTKSD PROCEED IF OK
DATE O6APR70 22HAY70 0100G70 010CT70 28APR71 013UL71 21APR72 PROG ID 0A05-6 CATE O6APRT7O 22mMAY70 01A0G70 010CT70 28APR71 01JUL71 21APR72 Bate ID ener e
EC NO. 571516 571513 571531 571580 571565 5715658 571591 PAGE 7 EC NO. 571516 571513 571531 571565 5715658 571591
571540
“A056
"ERR LOC
1436
1437
1438
1U3A
143E
1442
1846
1u4C
1450
14548
14858
1459
145A
145C
1460
1868
1468
146C
146D
1N6E
1470
1U 74
1476
167A
1ATE
1484
748A
TUBE
1492
1493
1494
1496
149A
1495
14A2
1446
14A7
1448
TUAA
14 AC
18B0
14B2
14B6
T8B7
TeBB
14BE
1&C2
1aCc3
14c4
14C6
14C8
14cc
TACE
1452
14D4
DATE
EC NO.
‘IBM MAINTENANCE DIAGNOSTIC PROGRAM _
DISK WRITE
OBJECT COLE.
680
*681
*682
683
*684
C6 1436 685 RTN6
co 1837 686
FFFF 1439 687
688
3c CO OBIS 689
cO 81 OAOD 690
CO 87 OB6F 691 RTN6GA
OC CO 1917 OBIA 692
3C DC 1918 693
3c 09 1B6C 694
CO 8&7 194P 695
C0 1858 696
oC 1059 697
1916 185B 698
CO 87 1476 699
CO 87 1464 700
CO 87 1B36 701
CO 87 O21A 702
06 EC 73
35 146D 704
OCF? 146F 705
cO 87 9222 706
A009 1475 707
CC 87 17A0 708 RTNGAI
3C EV FFD 709 RTN6B
OC FE 1FFC FFD 719
OC FF iEFD 1EFE 711
3c €1 1919 712
CO @7 194F 713
02 1492 714
co 1493 715
1916 1495 716
cO 87 14A~A2 717
CO 87 1898 718
CO &7 1&B2 719
CO 87 O21A 720 RTN6B1
C6 14Aa6 0 721
&C “WAT «(722
1562 1449 723
AOIC 14AB 7248
co 87 0222 725
A01C 1881 726
727
co 8&7 1920 728 RTN6C
02 14B6 (729
730
38 20 1937 731
732
*F2 10 10 733
734
cC 87 O21A 735
cé 14C2 736
88 14803 737
1SAA 14c5) 738
AD1E 14C7. 739
740
CO 87 0222 741
AOTE 14CD 782
743
CO 87 174E 784 RTN6D
VEFE 7ap3 0 7as
746
3D CO 1919 747
O6APR70 22MAY70 01A0670
571516 571531
£71513
pe
DC
CLI
ave
AVI
SYI
MVI
CLI
070CT70
571540
PUN CTION TEST.
ADDR STMT SOURCE STATEMENT.
PART NO.
oe PART "0. 5129628
SS pa@R BRE
JUSP IP CORRECT © 9°. -
*TO PRINT SECTO: COUNTZIA NOT
STEPPED CORRECTLY
__. FLacs
~"BERGTH- 4 Wea Se
MESSAGE ADDRESS -
‘MESSAGE IDENTIFICATION
TO DCP HALT
HALT ID
CHECK HEAD & SECTOR NO.
WRITE IS COMPLETED,
JUMP IP NO CHANGE
TO PRINT FRROR
PLAGS
LENGTH
MESSAGE ADDRESS -
MESSAGE IDENTIFICATION
APTER |
{ SHOULD NOT STP)
to er
TO DCP HALT
HALT ID
TO SEEX TO CLEAR END OF CYL.
FONCTION CODE (CONTROL) ©
CONTROL CODE (SEEK)
CONTROL FIELD ADDRESS
GOOD RETURN
ROUTINE EXIT
ON ERHKOR DID NOT BRANCH AFTER ATTEMPTING ¢
.
SS ees
CL2S'*TO WRITE PAST END OF CY¥L.
*CLOS2°END OF CYL. SENSE EIT NOT SET AFTER ATTEMPTING TO ¥E
*CL20°ITE PAST END OF CYL.
*CLS2*SECTOR COUKTER IN CONTROL FIELD NOT STEPPED CORRECTL®
=
WRITE WITH END OP CYL.
*CLS2*HEAD & SECTOR BYTE OP CONTROL FIELD CHANGED AFTER A
*9a05-6
8a
PROG ID
PAGE
21APR72
571591
0130L71
5715658
5129628 ee IBM MAINTENANCE DIAGNOSTIC PROGRAM. -
PAGE =~ 8 Pte Re ae fo pie ae a, es
= A056 — DISK WRITE: PUNCTIOW TEST |
ERR LOC OBJECT CODE ADDR STAT SOORCE STATESEST . --
ROUTINE NO. 06, CHECK FUNCTION OF END OP CYLINDER +& 44D8 P2 81 10 Fun JE RTNGE
SENSE BIT, (BYTE 1, BIT 2) * 14DB CO 87 O2TA 749 Bs PRINT
750
*ROUTINE PREFACE CRU kL pr eee >> , 18DF C6 ceutcr: 7 TEDF. 7591 DC = XL1*° 6° :
1VEO 54 " “F6807 752 pe IL7*Bat
XL1*068 ROUTINE NUSBER WQE1 1SPE 14E2 753 pe AL2 (EBRO6C)
XL7*00! ROUTINE FLAGS 1423 A013 WEG 758 pe KL2¢a013¢
XL2* PRFF* LAST ROUTINE FLAG 755
18E5 CC 87 0222 7156 8 HALT
SETSH,90 HAVE PARAMETERS BEEN ENTERED? THE9 AO13 WEA 757 pe XL2*A013°
SPTDSK BRANCH IF NO. 758
TSTSPR WEB 3D DC 1918 759 RTN6OE CLI aRTDFC#2,X"DC
*WRIDFC4+1 (1) ,> TRACKS SET SEEK ADDRESS TO CE TRACK 160 ®
WRIDFC+#2,X*DC* SET FOR HEAD 1, SECTOR 23 VQEF F2 81 10 761 JE RTNOF
SNSID,09 INSERT ID IN PRINT 14P2 CO 87 027A 762 B PRINT
STRTIO TO SEEK CE TRACK TUP6 C6 14F6 763 pe XL1*C6?°
ML-1°O-4 .FUNCTION CODE (CONTROL, Sop PORT &teccrug: 1UP7 «67648 DO». cp EE UNBSS 05.
XL1°0O? CONTROL CODE (SEEK) 14P8 1651 -94F9 765 DC AL2 (ERROGD)~
AL2 (WRT DFC) CONTROL FIELD ADDRESS i4PA AOWF 18FB 766 pc XL2¢a01F
*RTNOAI SCOD RETURN 767
*+4 IFC CO &? 0222 768 B HALT
PRTSNS TO DECODE ERROR 1500 AOIF 1501 769 Dc XL2*AO1F
*PRINT TO PRINT 15992 CC 87 194F 770 RTN6OPF BL STRTLO
XL1* 06? FLAGS 1506 CO 1506 771 pc XL7°0#
IL1"538 LENGTH 1507 CO 1507 772 Dc XL1¢0
*AL 2 (ERROR3) MESSAGE ADDRESS 1508 1916 1509 773 DC . AL2 (WRTDFC)
HALT TC DCP HALT 15CA CC 87 150E 778 B *4+u
XL2* A009! HALT ID 1502 cO 87 1512 175 8 +4
TSTSEK TO TEST FOR A GOOD SEEK 1512 CO 87 1482 7176 B RTNGOA
WORK#511,X"%E7* SET 777 ‘
WORK#510 (255) ,HORK*+511 2 SECTOR 1516 CIVOE3CSEZE34IC9 1549 778 DC CL52*A TEST I/0
WORK+t 255(256) ,WORK+256 WRITE PIELD ISTE 6G1LEYOLEDS4OCSDS 778
WRTDPC+3,01 SET TO WRITE 2 SECTORS 1526 D9ONSDINCCHCICHAD 776
STRTIO TO WRITE DATA, (EXPECT END OP CYL.) - 5. ASZE, DEPSESUOC2DICIDS - - 778 iaeetae
XLi°O2¢ PUNCTION CODE (8RITE) 1536 C3CBYOCICHE3CSDI 778
XL1°008 CONTROL CODE (DATA) 1S3E GOCTESEICSDUDTE3 778
AL2 (WRTDFC) CONTROL FIELD ADDRESS 1545 CSD5C740 778
RTNOBI GOOD RETURN, (NOT EXPECTED) 1SUA EXLEGOE6DICIEICE 1562 779 ERROGA DC
+4 1852 YCD7CIE2E 340C5D5 779
RTNSC ERROR RETORN (EXPECTED) 155A C440L6C640C3E8D3 779
PRINT TO PRINT NO ERROR FROS TIO 1562 4B 779
XL1°C6* FLAGS 1563 CSESCUKDDECEN0C3 1556 780 pc
IL1* 76¢ LENGTH 156B EFSLISPRXOE2ZCSDSE2 780
AL2 (ERRO6A) MESSAGE ADDRESS 1573 CS¥0C2C9F34N0D5D6 780
XL2*aQ1c* MESSAGE IDENTIFICATION 157B F3ISOE2ZCSE340C1IC6 780
HALT TO DCP HALT 1583 F3CSD9N0OC IEIE3CS 780
XL2*a01c* HALT ID Z 15€B DAD7TE3IC9IDSC7TUOES 780 Spy Se essa
1593 CA4OEEDS 780
SENSE TC SENSE DEVICE STATUS 1557 CYEICSHODICIEZE3 15AA 781 ERROGL DC
AL1(STATO1) BYTES 0 & 1. ISYF GOCELECHRODECE LO 781
1547 C3E@D34B 781
STATUS,X*20! TEST BYTE 1 BIT 2 FOR ON, ISAB E2CSC3E3D6D940C3 15D 782_ pc
(THIS IS *END OF CYLINDER®) 15B3 DEEYDSE3IC5D980C9 782
RTNOD JUSP IF ON 15PB DSYOC3LELCEE 3DGD6 782
: 15C3 D34CC6CIC5SD3ICH4O 782
PRINT TO PRINT SENSE BIT NOT ON ISCB DSLGEIAOF 2E 3C5D7 782
XL1°C6* FLAGS 15D3 D7C£C&40C 3D6D9D9 782
IL1°72¢ LENGTH ISEB CSC3F3ID3 782
AL2 (ERRO6 8B) MESSAGE ADDRESS ISDF E84OCIC6E3C5D940 15PE 783 ERRO6C DC CL32*Y AFTER A
XL2*aQ1E¢ MESSAGE IDENTIFICATION ISEV CISCE6L9ICIE3CS4O 783 doa hp
1SEP E6C9FIC8HOC5DSCa + 783
HALT TC DCP HALT 15F7 8OD6C640C 3ESD 34B 783
KL2*A0Q1E* RALT IDENTIFICATION 15FF CRCSCICHYOSOGOE2 1632 7848 pc
ao 1607 CSC3F3L6D940C 2E8 784
TSTDAT TO TEST DATA ADDRESS 160F E3CS&8OD6ECE6NCC3IBEG 7e4N
AL2 (WORK+256} EXPECTED ADDRESS 1617 DSE3IDIDED340C6C9 764
: 167F C5D3C440C3C8C1D5 788
WRIDFC+ 3,00 TEST SECTOR COUNTER POR STEPPING 1627 C7CSC4& HOC 1C6R 3C5 784
$ .
28APR71 0130L71 21APR72 FROG ID 0405-6 DATE O6APR70 22MAY70 01A0670 010CT70 28apa7i
571565 5715658 $71591 PAGE 8 4 $C NO. 571516 571513 — §71531 5715490 571565
é
oeeeeeeeeeeee7ee e282 eee ee eeeeeeeneeeens
e.
Xe
z
os
vee
B
PART HO. . 5129628 aang,
“YBS BAINTENANCE DIAGNOSTIC PROGRAL -
se j . PAT oe a e . PaGk 9 : >
‘ACSS DISK WRITE FURCTION TEST =:
ERR LOC OBJECT COLE ADDR STMT SOURCE STATENERT
462% D940C 1&0 7846
1633 F2Q0E2CSC3E3D6D9 1657 785 ERROG6D DC CL37°2 SECTOR WRITE WITH END OF CIL.°
163E SORELOICSEIC5SSORG 785
1683 CIPICBHOCSDSCANOD 785
T6GEB CECENOCIEBD 348 785
: 786
786
787 «© SET AN ERROR FLAG POR EACH SECTOR ERROR
788
4652 34 08 166F . 789 SETERR ST SETERX¢3, ARQ - SAVE BXIT ADDRESS
9656 (€ 00 1662 DSB 790 NVC SETERA+2(1),CYLNO SET CURREHT CYL. WO IR SOVE
“165C C2 02 16E2. 791. La SECTBL,XR2 LOAD XR2 AS POINTER
- 1660 BC FF 00 792 SETERA SVX *%-©(,%R2),x° FF? SET a PFLAG FOR THIS SECTOR
1663 35 01 16F1 . 793 L TBLH, XR1 LOAD HEAD POINTER
1667 1C 00 OF65 Ou 794 avc ERRO2A~ 3°, SE4,ER Ty INSERT HEAD WO. IN.ERROR SESSAGE
"466 CO 8&7 CODD ; 795 SETERX B . toe EXIT
Te 796 , ;
“797 «* CHECK FOR ERRORS ON ALL SECTORS
“a ois 2 798
1670 «38 08 16¢1 799 CKHED st HDEXT¢3 ARR SAVE EXIT ADDRESS
4678 35 01 162% 800 | L TBLH, XR1 LOAD XR1 AS ERROR PFLAG POINTER
1678 C2 02 16F2 Be LA SECTBL, XR2 LOAD X82 AS SECTOR PLAG POINTER
467C BD CO 00 802 CKHEDA CLI 0(,XR2),0 CHECK EACH SECTOR FLAG
167F F2 81 3c 803 JE HDEXT JUMP WHEN PIRST ONE XS POUND OFF
4682 £2 02 01 8048 LA 1(,XR2),XR2_ STEP POINTER
1685 38 02 1939 805 ST SNSXR2,XR2 STORE
1689 CD C1 1939 16FB 806 CLC SNSXR2 (2), TBLEND CHECK FOR LAST ENTR
168F CD 01 167¢ 807 BNE CKHEDA BRANCH IP NOT DONE
4693 7C FF. 00 808 MVI O(,XR1),X°FP* SET FLAG TO INDICATE DEFECTIVE HEAD
1666 OC 08 173A 1749 809 HVC ONEHED-5 (5), RNYDSK SET MESSAGE FOR REMOVABLE
169C 3D 00 1099 810 CLI DISKTP,O TEST FOR RUN ON KESOVABLE
W6aC F2 81 06 811 JE €49 JUSE IP YES
7603 OC 04 173A 17484 812 M¥C ONEHED-5(5), FIXDSK SET MESSAGE FOR FIXED
1689 4¢ CO 1734 OB 813 BVC ONEHED-72¢1) ,4(,XR?) SET HEAD NUMBER IN HESSAGE
16aE CC 87 O21A 614 B PRINT TO PRINT HEAD ERROR
16B2 C6 16B2 815 DC XL1°C6? FLAGS
16B3 22 16583 816 pc IL7¢ 344 LERGTH
16B4 173F 16B5 817 pc AL2 (ONEHED) MESSAGE ADDRESS
16B6 ACB6 16B7 818 Dc XL2* A086? RESSAGE ID
16B8 CO 87 0222 819 B HALT $
16BC AC86 16BD 820 pc XL2* A086° HALT ID
16BE CO 87 COO0 821 HDEXT B + EXIT
822
16C2 OD 03 16FE 174D 823 CKHDER CLC HDTBL¢3(&) ,FOURPF CHECK POR ALL HEADS PAILING
16C8 CO 01 0216 824 BNE LINK ERANCH IPF NOT
16CC CO 87 O21A 825 B PRINT TO PRINT ALL HEADS FAILING
1600 C6 16D0 826 pc XL1'C6® FLAGS
16D1 7A 16D1 6827 pe IL 1* 26° LENGTH .
1622 171D 16D3 828 pc AL2 (ALLHED) MESSAGE ADDRESS “
16D4 A087 16D5 829 pc XL2*age7* - BESSAGE ID
1626 CO 87 0222 830 B HALT ;
16DA A087 16DB 831 DC. XL2°a087# HALT ID :
16DC CO 87 0216 832 B LINK
833 :
16EC C000 16E1 834 TBLH pe XL2*08 :
. 16E2 835 SECTBL EQU. ®
16E2 CCCOCCCOCOOCO000 16F9 836 cc XL24*Q* SECTOR ERROR RECORDING TABLE F
16FA CCCCCCCOCCCOOD0D 836 :
T6PF2 CCCCCCCCCOCOD00D 836 :
16FA 16F9 © 16FB 837 TBLEND. DC AL2 (*-4) :
16FC 00 16PC 638 HDTBL pC XL7°O8 POR HEAD 0, RESOVABLE DISK
16FD 00 16PD 839 9c XL1¢0° FOR HEAD 2, FIXED DISK
16PE 09 160PE 840 DC XL1*08 FOR HEAD 1, RE®OVABLE DISK é
16FP 00 16FP 641 pe XL1*Qf POR HEAD 3, FIXED DISK
1700 FO 1700 842 pc CL1¢°O8
1701 F2 1701 843 pc CLi*2° f
1702 F1 1702 824 DCs CLIete :
1703 P3 1703 845 DC CL1¢ 3°
DATE O6APRT70 22KAY70 O1AUG 70 010CT70 2HAPR7 1 01JUL71 21APR72 PROG ID OA0S-6
- BO NO. 571516 571513 571531 5715480 571565B 571591 PAGE 9
me
$71565
A0S6.
ERF Loc
1708
170¢
1774
q71C
-U71E
1726
1722
1736
1732
1780
1785
T78A
TIE
1752
1756
1758
1761
1765
1766
176C
176F
1775
1778
W7¢E
177D
TIVE
1780
1782
1786
1788
178cC
1790
1791
1792
1794
1796
I79A
179C
17A0
T7A4
I7AR
T7A9
T7AC
1781
17B5S
17B8
T7BC
17c0
17C1
17C2
17C4
17C8
17CC
DATE
EC NO.
DESK WRITE FOR
OBJECT CODE ADDR STMT SOURTE
E2D6LC3ICICKHOCSDS 177D Bk6 ALLHZD
DILETSSOESCIE ICS 846 :
&0C1D3D380C8C5C1 846
C4E2 846
EIDEDICICHROCSDS WRF 8&7 OKENED
DILELI“OEGCSE ICE 847
% OCBCSCICKLOETEO 8u7
EVEVETETET&OCUC9 847
22D2 | 847
C6C9ETCSCH 1744 848 FIXDSK
CSCSDYESaR 1789 849 REVOSK
FFEFIPFFP 174&D 86850 POURFP
851
852
*853
*854
855
34 OF 179P 856 TSTDAT
35 02 179F 857
2c 01 1827 01 858
OE 01 179F 1829 859
co €7 1920 B69
AB 1765 861
862
OD 01 1937 1827 863
P2 81 2D R64
865
*oD C1 1937 1A82D 866
| 867
*P2 81 18 868
869 «=
CO 87 O27A 870
cé 17W7C («871
2B 177D «872
1285e 177F 873
AQ3F 1781 6874 DATID1
CO 87 0222 875
AC3E 1787 876
ce 87 179¢ 877
B78
CO 87 O21A 879 DATOIA
ch 1796 880
9 1781) (881
1971 1793 882
AO3E 1795 883 DATID2
CO 87 0222 B84
A03F 179B 885
cc #7 00CO B86 DATEXT
887
e868
889
*890
34 08 I7EA 891 TSTSEK
CO 8&7 1920 892 SKTSTA
02 17A8 893
894
33.10 1937 B95
CO 10 17A8 896
38 01 1936 897
F2 10 36 898
3C OF 186C 899
cC €7 194P 900
01 17c0 901
01 17C1 902
17EB 17C3 903
CO 87 17DE 904
co A7 17CC 905
CO 87 1836 906
O€APR70 22M AY70 O1A0G70
571516 571513 571531
IBS MAINTERANCE DIAGEOSTIC PROGRAN
PART HO. 5129628
PAGE 9A
CTION TEST
STATEMENT
DC CL26*SOLID ERROR WITH ALL HEADS
*DC CL38°SOLID ERROR WITH HEAD K XXKXXX DISK
*DC CLO*PIXED®
Dc CLS*REMV.®
pc iL °FFPFPPFP * 2
SUSROUTINE TO DETERAIHE IPF DATA ADDRESS ..
_ IS STEPPING CORRECTLY .
ST DATEXT+¢3,ARR SAVE RETURH ADDRESS —.
L DATEXT+3,XR2 LOAD XR2 WITH PARAMETER POLNTER
BYC WORK1 (2) 49 (, XR2) MOVE EXPECTED ADDRESS POR COSPARE
ALC DATEXT*¢3(2), TNO. INCREASE EXIT ADDRESS
8 SENSE TO STORE DATA ADDRESS
DC AL1 (DATA)
cLc STATUS (2) , WORK CHECK DATA ADDRESS :
JE DATEXT JUMP IP ADDRESS HAS SiDPPRED cosRECT
DATA ADDRESS DID NOT STEP CORRECTLY
CLC STATUS (2),WORK2 CHECK DATA ADDRESS
POR ORIGINAL VALUE
JE DATOTA JURP IP DATA ADDRESS IS
, STILL AT OBIGINAL VALUE
B PRINT TO PRINT DATA ADDRESS NOT CoRRECT
DC XL1°C6* FLAGS
pc IL1*a3° LENGTA
DC AL2 (DATPR1)_ ADDRESS OF SESSAGE Pe OE
Dc XL2*AQ3E° MESSAGE IDENTIFICATION
E HALT TO DCP HALT .
pc XL2*AOD3E* HALT ID
B DATEXT TO Exit
B PRINT TO PRINT DATA ADDRESS NOT STEPPING
pc XL.1°C6* PLAGS
DC IL17¢*25¢ LENGTA
pc AL2 (DATPR2) ADDRESS OP MESSAGE :
DC. XL2°a03P* MESSAGE IDENTIFICATION
B BALT TO DCP HALT
Dc XL2*a03P° HALT ID
B +-% EXIT
COME HERE TO TEST POR A GOOD SEEK
*ST SEKEXT¢3, ARR SAVE RETURN ADDRESS
B SENSE TC SENSE DEVICE STATUS |
pc AL1(STATO1) BYTZS O 6 1.
TBN STATOS,X*10°® TEST THE SEEK BUSY SENSE BIT
BT SKTSTA IP ON DO ANOTHER SENSE
TBN STATUS-14,X°O1* TEST FOR SEEK CHECK
JT SEEKER IPF ON, GO TO SEEK ERROR PRIBT
NVI SNSID,X°OF® PUT ID IN SENSZ FRIMNT
8B STRTIO TO SEAD ID &
pc XL17°0 1° =
DC XL1°QO78 y
Dc AL2 (IDFLD- 2)
3 CKID GCOD SETURE
B seg
8 PRTSUS ERROR RETURS
010CT70 28AaPR71 0130174 27aPR72 PROG ID 0A05-6
571540 571565 571565B 571591 PAGE 94
= | ; a. .
“EBN MAINTENANCE DIACHOSTIC PROGRAK , : PART HO. 5129628 a TBH MAINTENANCE DIAGROSTIC PROGRAR an PART WO. 5129628........
Besa i ve So PAGE 20 in : _ PAGE TOR
a | 4 2 ae 8 | | : ., | aa te
A056. —. DPYISK WRITE FuescTrrIOoONn TEST ; «> — A056 © — DISK WRITE PUNCTION TEST: )
‘ERR LOC OBJECT cope ADDR STBT SOURCE STATEMENT. : : _ ERR LOC OBSECT COLE ADDR STMT SOURCE STATERERT id .
1700 CO 87 O21A. 907 3 PRINT TO PRINT ERROR OR READ 1D -18F3 DIDSCECHSOEGCECY 953 ;
17D8 06. 97p4 908 pc XL1* 06° FLAGS ' 8PB D3CSaODICSCICHCS 953 »
17D5 3B 17D5 «909 pc IL7°59¢ LENGTH 1803 L5C76OCICHHOCIE3 953 2
1706 1915 77D7 «910 pc AL2 (IDERR) MESSAGE ADDRESS . 19CB 4OE3CBC5 953 e
17D8 CC 87 0222 $11. B HALT — ; 190F 4OC3C5&CC3E8D3 1915 958 IDERR pc CLO?* CE CYL* ¢
I7DC AOOF V7DD =—-9:12 DBC XL2*a00F* 1916 06. 1916 955 WRTDFC pC XL1*°00* & FLAG
T7DE CD OO T7EC OBA 913 CKID CLC IDPLD-1{ 1) , TRACKS 1997 00 1917 956 Dc XL1*00* ue CYLINDER
47ES F2 01 07. ' 944 SNE SEEKER 1918 CO 41918 957. pc XL17°00* en TRACK & SECTOR
= ; 915 1919 00 1819 958 pc XL7*°00* . NO. OP SECTORS OR WO. OF TRACKS
17E7 CO 87 0000 916 SEKEXT B *—* EXIT , 197A 00 191A 959 RDDPC DC XL1°900¢ ” FLAG
47EB (Cv000. 17ED 917 IDFLD pC XL3*OG# ; 1978 00 1918 960 DC XL1°00¢ CYLINDER
918 | : 191C 00 191C 961 DC XL1¢°00" 7 TRACK & SECTOR
919 * CONE HERE IF AN ERROR OCCURRED * 191D 00 . 191D 962 pc XL1*90* = KO. OF SECTORS OR NO. OF TRACKS
$20 * WHILE SEEKING THE C® TRACK * WIE GL01 i91F 963 ONE pc XL2*01
*V7EE CC 87 ID6A $921 SEEKER B cvD SOQ FFEKEEE EEE EE EER ESS OEE EEE EES SREKE SE EARERER ESSERE EEK ERAEKRSEE SSE EBERES
WF2 I7EC | 47P3 922 DC AL2 (IDF LD-1) 965 * SENSE I/O ROUTIRE
“t7FA 1882 17F5 923 pc AL2 (ARIVED) 1920 34 08 1939 866 SENSE ST SNSXR2, ARB SAVE ADDRESS RECALL REGISTER
17P6 CO 87 O21A 924 B PRINT TO PRINT ERROR ON SEEK 1924 35 01 1939 967 L SNSKR2,XR1 os LOAD XR1 BITH VALUE FROM ARE.
17Pa C1 17FA 6925 pc XLV¢C18 FLAGS 1928 18 03 192 00 968 SNN 8 SNS#1,0(,XR1) - MOVE IN FUNCTION CODE
T7FB 2A 17FB 926 bc IL1°42¢ LENGTH -162D 30 CO 1937 _ 969 SNS SNS STATUS,0 < PERFORS SENSE
VTEC. LaQE. . WFD 927 DC. = AL2 (SEKER1) ADDRESS OF MESSAGE 1931 CO 87 01 ‘ 970 ~ 8B “ 1,XB1) : EXIT
V7FE A03C 17PF 928 SEEKID pC XL2* a03C* MESSAGE IDENTIFICATION 1638 0000 . 1935 971 SETXR2 DC XL2°O
*1800 CO 87 O2TA ; 929 B PRINT TO PRINT SECOND LIBE 1936 0000 1937 972 STATUS DC XL2*0#
1804 01 1204 930 - pc XL1°O18 1938 9000 1939 9¥73 SNSXR2 DC XL2*O* : .
1805 17 1805 931 pc IL1* 23° 974 « EFPOR RECORDING TABLE
*1806 1882 1807 932 pc AL2 (ARIVED) 193A 975 ETABLF FQU * ” “
«933 1S3a CO 193A 976 QCODEF pC XL1*°0# * *Q* CODE
1808 CO 87 O21A . 934 B PRINT 193B 00 193B 977 CCODE oc XL1¢O°* s CONTROL CODE
18CC 06 180C 935 pc XL1*°06* FLAGS 193c COCO 193D 978 SNSOT pC XL2°08 3 STATUS BYTES 0 & 1
180D 28 180D 936 pc IL1*ao? LENGTH W93E TUCO 193P 979 SKS23 Dc XL2°*9O°* : STATUS BYTES 2 & 3
18CE 18DA 180F 937 DC AL2 (SEKER2) ADDRESS OF MESSAGE 1ENC C(CCCCCOO 1943 980 DCFI pc XLetoe , DISK CONTROL FPIELD, (INITIAL)
1810 3c 00 0821 938 VI PASS,O 1cua (CCOOCOD 1947 981 DCFF oDc XL4&*QO# DISK CONTROL FIELD, (PINAL)
7874 3c CO 08179 939 MVI SETSH,0 1948 0009 1949 982 DPCRI DC ZL2*O* CCNTROL REGISTER ADDRESS
71838 3c CO 1498 940 NVI PRSTPS,0 SET TO CAUSE A RECALIBRATE 194A COO00 194B 983 DFDRI pc XL2*°0* : DATA REGISTER ADDRESS, (INITIAL)
18ic cC 87 0222. 941 B HALT TO DCP ERROR BALT 19ac OCCOo 194D 98% DFDRP Dc XL2 *Q* x DATA REGISTER ADDRESS, (FINAL)
1820 AO3C 1821 982 DC XL2* a03c¢ HALT ID 194E CO 1948E $85 ROUTNO BC XL1*0* ; CURRENT ROUTINE NO.
1822 cO 87 0000 943 B 0
1826 C900 1827 984 WORK1 DC AL 2 (*-*)
1828 0002 1829 985 TWO )30 Ce XL2*02¢
1824 COOK 182B 946 ONESEC DC XL2° 04"
182C DFE 1€2D 987 WORK2 DC AL2 (WORK)
182E CUCTE3CI“SOCIC4CKH 1858 948 DATPRI DC CL43"*DATA ADDRESS WAS STEPPED TO INCORRECT VALUE®
1836 COCSEZF2U0E6C1E2 948 3
-- 983E WOR2E3CSDIDICSCH 948 |
“#1806 UOEIDEGOCIDSC3IDS 9468
| VRGE DSLICSCIE340FSC1 948
1€56 D3EuCS 948
1859 CUCTE3C1I40CICUCKU 1871 949 DATPR2 DC CL2Z5*DATA ADDRESS NOT STEPPING®
1861 DOICSEZ2F2N0DSD6E3 949
1869 GOE2E3C5D7D7C9D5 949
1€71 C7 94g
1872 CSDPSLIDEDI“ODECS 1898 950 SEKER1 DC CLU2*ERROR OCCURRED WHILE SEEKING THE CE TRACK, ®
187A CIESLOLSCSCH4OES 950
1882 CACOL3CS8OE2CSCS 950
188A D2C9D5C740E3C8CS 950
1892 4OC3CS40E3D9CIC3 950 i
18SA L26B 950 om :
189C CID9DICIESCSC44O 18B2 951 ARIVED DC CL23"ARRIVED AT CYL. NO. XXx°
*18AU CIE3U0C3E8D34B40 951
18AC DSCEUBUOETETE? 951
(1883 DIESDSHOE2C5C5D2 18DA 952 SEKER2 DC CL40*RUN SEEK TEST SECTION AO3 POR MORE INFO.®
IBBE YOFSCSEZF340E2C5 952
18C3 C3E3C9DEDS4UNCTFO 952
18CB F340CEDEDINOD4DS 952
18D3 DOCSYOCOLSCODE4B 952
18DB E3C8CSYOD7TLCICSES 190F 953 pc CLO2*THE PREVIOUS ERRORS OCCURRED WHILE READING ID AT THE®
18E3 CID6EXE24U0C5D9D9 953
T8EB DOL9E2UOLEC3IC3E4 953
DATE CEAPR70 22MAY70 01AUG70 010CT70 28APR71 01JUL71 21APR72 PROG ID 0A05-6 CATE O06 APR70 22mAY70 0 1AUG70 010CT70 28APK72 O1JUL71 21APR72 PROG ID OA0S-6
EFC WO. 671516 571513 571531 571540 571565 571565B 571591 PAGE 10
EC NO. 571516 £71513 571531 571580 571565 571565B 571591 PAGE TOA
6
*
IBM MAINTENANCE DIAGHOSTIC PROGRAK - PART HO. $129628 = GRP SAINTENANCE DIAGNOSTIC PROGEAN - PART RO. 5129628
; Peas ‘ : PAGE , ; _ 9t 3 : , 0 oa > ; i PAGE .. 9 Ua
, A056 DISK WRITE PUNCTIOR TEST =~ a0s6é DISK BRITE FPURCTIOR TEST.
£RR LOC OBSECT CODE ‘ADDR STAT SOURCE STATENERT ERR LOC ONJECT COLE ADDR STHT SOURCE STATEMENT ~~ se oh. Oe .
987 * START L/O SUBROUTINE TASE Ci A2 FARE: 7055 RWAIT TIO *,x*:;2* wart oy ek me
a Ss 688. : FaS2 BD CO O41 1895 1056 SETADA CLce 1(1,X82),LASTAD COHPARE PRESENT ADDR. WITH NEW ORE
i 494PF 38 68 1935 989 STRTIO ST SETXR2, ABR SAVE ADDRESS EECALL REGISTER. 1a57 F2 81 25 1057 JB NOSEEK EQUAL, SEEK IS NOT NECESSARY
= 1953 35 €2 1935 290 L SETXRZ,ERZ LOAD XR2 WITH VALUE PRON ARR. YASA F2 84 44 1058 oH FWDS EK YEW ADDR. HIGHER, DO FORWARD SEEK
1957 3c 00 1497 994 AVY SAVSH,O0 ZERO SHITCH VASD RB OT 02 1059 SBF 2{ ,%R2} ,01 SEW ADDR. LOWER, SET BIT FOR BEV.
» 1958 28 03 19BD CO 992 MEN SIO+1,0(,282} SET FUNCTION CODE VA6G CC OD 1893 7a95 1060 MVC SCRCH(1),LASTAD PLACE LAST ABBR IN WORKAREA .
t 1960 2c CO 19BE 01 993 MVC =©9S$1042¢1),1{ , X22} SET CONTRGL CODE in sro TA66 2F 00 1493 01 1064 SLC SCRCH(1),1{ ,2R2) SUBTRACT WER ADDE. FROS LEST ADDR.
. 1965 2C 01 1A9B 03. O94 MYC | DFCR{ 2),3{ ,2%22) SET DATA ADDRESS FOR DFCR JA6B F2 87 17 . 1062 a SETADB PBOCEED
: 196 38 C8 1299 995 TBH DISKTP,xX*O8* TEST POR RON OM LOWER DISK TAGE BA G1 02 1063 FEDSER SBN 2(,XR2},01 SET BIT OR FOR FORWARD SEEK
196E F2 10 OB 996 ST SET FIX Jum? IP YES TA74 2C CO 1093 OF { 064 «VC 08©6«SCROH (2) 17 ¢,%R2) PLACE NEW ADDR. IN WORKAREA
1971 38 08 19BD 997 SBP S10+1,x*088 SET FOR REMOVABLE DISK _ YA76'° CF CO 7A93 1095 1065 SLC SCRCH(1),LASTAD SUBTRACT LAST ADDR. FROM HEW ADDR.
a 1975 3B O08 Yaac 998 SBP RSIO+1,x*O8* SET FOR RENOYABLE DISK TATC F2 87 O6 1066 3 SETADB PROCEED cca Je
* 1979 ¥2 87 08 999 J CKSEEK SUSP TO CHECK PCR A SEEK TATF BC CO 03 1067 NOSEEK AVI 3{ ¢XR2) 0 SET NO. OF TKS. CROSSED TO ZERO.
= 167¢ 3A C8 19RD 1000 SETFIX SBN SI0+1,x'08* SET POR FIXED DISK TAG2Z F2 O7 OA 1068 J ADREXT TO EXIT .
4980 38 08 TAUE 1001 SBH RSIO0+1,x°08* SET POR FIXED. DISK 1A8S5 SC GO 03 1493 1069 SETADB MVC 4(1,XR2),SCKCH PLACE IN RO. OF TRACKS CROSSED
1588 BD OO 00 1002 CKSZEK CLI 0(,XR2},00 TEST POR SEEK . TABA 2C CD 1295 01 1070 BVYC LASTAD{ (1),.1(,%R2) SAVE NEY ADDRESS ORS
1987 CO 81 1410. 1003 . BE SETADR IF YES, GO SET ADDRESS TARE CO &7 C000 1071 ADREXT B a-% Exit
1988 31 AG 1498 7004 LDPCR LIO DPCR,X'A6? LOAD CONTROL REGISTER 14893 CO 7A93 1072 SCRCH DC XL1*00
*198F 37 Aw 1A9D 1005 LDFDR LIO DFDR,X°A4* LOAD DATA REGISTER 1A94 00 4A98% 1073 PBSTPS DC XL17*00t
1993 Oc CO 193A 19RD 1006 MVC QCODE(1),S10+¢1 7a95 00 7A95 1074 LASTAD DC XL7°09
*1699 CC 00 193B 19BE 1007 MVC CCODE(1),S10¢2 1896 00 1496 1075 DFC3SV DC XL1°0G
*199F Oc 01 1949 1098 1008 aVC DFCRI(2),DPCR 1A97 00 1A97 1076 SAVS® DC XL1*00¢
1945 OC 01 19488 1A9D 1009 SVC DFDRI(2),DFDR 1AS8 OOFP 1A99 1077 DISKTP DC XL2° FF?
192B 35 OF 1098 7010 L DYCR,XR1 TA9A OCOD JAIB 1078 DFCR DC AL2 (*- S
19AF 1¢ C3 1943 03 7011 avVC 8 =e DC F1(4) ,3(,XR1) TA9C 1DPE JAS9D 1074 DFDR- pC AL2 (WORK)
19P4 3C 00 7AA2 1012 SVI INDXPL,U RESET INDEX PULSE S¥ITCH 1A9E C000 JA9F 7080 XR2WK DC KL2*08 r
19B8 C2 01 19C8 1013 LA 6600, X1 LOAD DELAY VALUE IN xR1 TAAO PIFP 1kA1 1081 NEG? DC XL2* PFPFt
19BC F3 AO 00 1018 SIO SIO X*00', xZ*A0t START I/0 OPERATION VAA2 CC TAA2 1082 INDXPL DC XL1°9¢
19BP C1 AZ 1AA3 1015 WAIT TIO BUSY,X*A2®* TEST POR BUSY TAA3 38 01 1875 1083 BUSY ST TINE, XR1 SAVE COUNTER
19C3 CO 8&7 1920 1016 B SENSE TAA? CC 67 1920 - 4088 B SENSE TO SENSE DEVICE SATAUS
19C7 08 16C7 1017 pc XL1°Qu! VAAB 03 TAAB 1085 pe XL1°03°* :
nA 18C8 Cc C1 194D 1937 101718 svc DPFDRF (2),STaATUS TAAC 38 CB 1936 1086 TBN STATUS-1,xX°08° TEST POR INDEX BIT
ey 19CE 35 07 TA9B 1019 L DFCR,ER1 TABO F2 90 Cu 1087 JP 47 = af
" 19D2 1c C3 1947 03 1020 SVC DCEP(S),3¢,XR1) 1AB3 3C FF 1AA2 1088 MVI INDXPL, X*PF* SET SWITCH TO SAY INDE RCV¥D.
e 19D7 CC &7 1920 1021 B SENSE TAB? 35 01 1835 1089 L TISE,XR1 RELOAD TISE VALUE
sj 19Ee 02 19DB 1022 pc XL1*02¢ TAER 36 O1 1AA1 1090 A NEG1,XR1 DECREMERT DELAY COUERTER
19Dc OC 01 193D 1937 1023 4VC 5NS01(2),STATUS JABP CC &4 I9RP 10914 BH WAIT RETURN TO TIO IF NOT TIAE OUT
19E2 CO &7 1920 1024 B SENSE VAC3 3D FF 1AA2 1092 CLI IVDIPL,X'PP* CHECK FOR INDEX RCVD. .
19E6 C3 19E6 1025 pc XL1°038 VAC? F2 BT 10 1093 JE TCYD JUMP IF THERE WAS AN INDEX
: 19E7 OC 01 193F 1937 1026 S¥C SNS23(2),STATUS VACA CO 87 C21A 1094 3 PuINT TO PRINT MISSING IHDEX PULSE
$ 19ED OC CO 194E 0a03 1027 MYC ROUTRO(1),8PFY JACE C6 VACE 1095 pc KL1°C6! PLAGS
i 19F3 30 FF 1A97 1028 CLI SAVS&,X'FF* IS SWITCH ON? VACP 25 IACF 1096 DC IL1°37* LENGTH .
ie 19F7 CO 01 1203 1929 BNE LDXR2 IF NO, SKIP RESTORE TADO 1833 TAD? 1097 DC AL 2 (MINDZX) MESSAGE ADDRESS
r 19FB 8C CO C3 1096 1030 MVC 3(1,XR2),DFC3SV RESTORE W BYTE TAD2 A089 JAD3 1098 DC XL2*a089* MESSAGE ID
r 1A00 ER 01 62 1031 SBP 2(,XE2),01 TURN OFF THE POR/ REV BIT TADS’ CO BF 0222 1099 B HALT TC DCP ZEROR SALT
1803 35 02 1935 1032 LDXR2 L SETXR2, XR2 RESTORE PARAMETER POINTER TADS A089 1AD9 1700 Dc XL2*acsg9¢ HALT ID oe
§ 1007 F171 AO OC 1033 TSTERR TIO 12(,XR2},X*°A0* BRANCH IF ERROR TADA CO €7 ID6A 1101 TCVD B cvD TINE OUT OCCURED, CONVERT ROUT. NO.
; 1A0A £1 24 O08 1034 TSTSCN TIO 8(,XR2),X*AS? BRANCH IP SCAN FOUND TADE CaQ3 VADF 1102 BC AL2 (RPFX) CURRENT ROUTINE NO.
: TACD BO €7 08 1035 B &(,XR2) EXIT JAEO 1POE WAEY 1163 pc AL2(TINOUT) ADDRESS OF DESTINATION
' 1036 ; YAE2 3C 4O 180C 1104 NVI TINOUT-2,c* ®
; 1037 * SUBROUTINE TO SET THE NUMBER OF TRACKS AND THE TAEG6 CO 87 C2TA 13705 B PRINT TO PRINT TISEOCT OCCURED
t 1038 © DIRECTION (PORWARD OR REVERSE), TO SEEK IAEA C6 1AFA 1106 pc XL1°C6* FLAGS
ii 1A10 34 C8 12392 1039 SETADR ST ADREXT¢3, ARR SAVE EXIT ADDRESS 1AEB 15 1AEB 1107 pc In3*21* LENGTH
f 1A1G BD 01 01 10480 CLI = 74(,XR2),01 IS THIS A RECALIBRATE? | TREC 1BO0E TAED 1108 DC AL2 (TISQUT) NESSAGE ADDRESS
s 1A17 CO 01 TA1P 1091 BNE *¢#8 IP NO, BYPASS SWITCH RESET TAEE ACBE TAEP 1109 DC XL2* AO8E* MESSAGE ID
‘ TATE 3c GO 1098 1042 AVI FRSTPS,O BESET RECALIBRATE SWITCH TAFO CO 87 0222 1710 THALT B HALT TO DCP ERROR HALT
TAIF 2C 01 1A9F 03 1043 AVC XR2WK (2) ,3 (-XB2) SAYE ADDR. OP CTL. PLD. ADDR. TAP4Y AOGBE YAPS 1411 DC XL2* aAOSE* HALT ID
& Ya2u 35 02 1Aa9P 1094 L AR2WK,XR2 LOAD XR2 WITH CONTROL FLD. ADDR. 1AP6 CC 87 COCO W142 B 0
. TA2B 2C CO 1396 03 71045 AVC DFC3SV(1) .3{ ,XR2) SAVE ® BYTE IN CONTROL PIELD YAFA E3C9TSCSDOE4E3N) IROE 1113 TYNOUT DC CLZU°TINEOUT IN ROOTINE Xx
*S VA2D 3C FF 1A97 1046 SVI «-SAVSW,X* FF SET SAVE SWITCH 1B02 C9DSSODIDEEYE3C9 1113
&, 1a31 3D CO 1094 1087 CLI FRSTPS,00 IS THIS FIRST PASS TEOA CSCSGOFTET 1113
1035 CO 01 1052 1048 BNE SETADA SKIP RECALIBRATE IP NO 1BOF DSDE4OC9IDSCUCSE? 1833 1118 MINDEX DC CL37*NO INDEX PULSES SENSED BEFORE TINEOUT®
1A39 3C 07 148948 1049 NVI PRSTPS,01 SET PIRST PASS SWITCH TEV? GOLTEYLIE2ZCSE200 1719 ,
1A3D BB 01 02 1050 SBP 2(,XR2),01 SET PWD/REV BIT TO BEV. TEVP E2CSDSE2CSCUNDC2 1119
: 1A40 BC FF 03 1051 avr 3(.XR2) ,255 SET MAXIMUM TRACK CROSSING VE27 CSCELELICSLOEICYS 17148
: 1a43 3c 00 1A95 1052 AVI = =LASTAD,00 SET OLD ADDR TO 0 1B2P CUCSDEEVE3 14
Ke 1A47 31 AG 1A9B 1053 RLDPCR LIO DFCR,X*°A6? LOAD DATA CONTROL REGISTER 1B34 COO0O 1B35 1115 TIME pc XL2*O
*: TAUB P3 AO 00 1054 RSIO SIO 00,Xx*AO0* SEEK REVERSE OAQ3 1116 RPFPX EQU xX*~A038
DATE O6APR70 22H AY70 01A0G70 010CT70 28APR71 01J0L71 21APR72 PROG ID 0A05-6 CATE O6APEFTO 22MAY70 01AUG70 010CT70 28APR71 0130171 21APR72 PROG ID 0A05-6
FC NO. 571516 571513 571531 571540 571565 571565B 571591 PAGE 11 EC NO. 571516 571513 571531 571540 571565 5715655 571591 PAGE tia.
. an: ; ; | 23 ;
; TES HAINTERANCE DIAGNCSTIC PROGRAM PART £0. $129628 ee IBA MAINTENANCE DIAGNOSTIC PROGRAM PART HO. 5129628
F : | PAGE 12 ey : PAGE 12a
z A0ss DISK BRITE PUNCTION TEST = aosc DISK WRITE PUHCTION TEST
: BRR LOC OBJECT CODE ADDR STAT SOURCE STATEMENT EPR LOC OBJECT CODE ADDR STST SOURCE STATEMENT
1118 * SUBROUTINE TO PRINT THE CONTENTS OF DEVICE STATUS o 1228 £340C3CB8C5SCID28O 1177
oe 4119 é 1€30 4040 1177 er ae
7836 38 C8 TECB. 1120 PRTSEHS ST PRTEXT¢3,ABR SAVE ADDRESS RZCALL REGISTER - 1C32 CUCTEZCVROCICRCS. 1043 1178 be CL18*DATA CHECK”
*TE3AR CO &7 1920 4121 - 8B SENSE. TO PERPORS SENSE TC3R CILZ4O4OUDHOKOKD 1478 -
1B3E 02 VE3E 1122 DC. ALI{ STATO}} GET DEVICE STATUS BYTES 0 & %. 1C82 4940 1178 .
1E3F CO 8&7 O2ZI1E 1123 BO UNPACK - TC UNPACK STATUS AYTES 1C44 DSBEXIDSCSC3DHDY 1055 11379 DC CLi8°NO RECORD FCUND °
1583 02 1243 1724 pc KL1*°02¢ 1C4C C440CEDG F4DSCaND 1179
1B44 1937 TENS 7125 DC AL2 (STATUS) 1c54 8940 ; 1773
1E86 IBES 1BG7 1126 pc AL2 (HEXSTA-4) 1C56 E3D260C3D6D5C4C9 1067 1180 DC CL18*°TK CONDITION CHECK®
1B48 3B 01 7BCC 1927 SBF TKCNSH,X°075 TURN OFF TRK END S¥ITCH TCSE E3C9DENS UOC 3C eCS. 11.80
TB4C 38 C2 1936 1128 TBN STATUS-1,xX°02° IS THIS TRK EXD CHK? 1066 C3D2 1180
71850 P2 9C 08” 1129 aP e$7 1C68 E2CSCSD280C3CKCS 1079 1181 Dc CLI8*SEEK CHECK .
1853 3K 014 1BCC 1130 SBR TKCNS¥,X"07¢ TORN ON TSK END SWITCH 1C70 C3D2ZUCROLOK CHONG 1181
7B57 3¢ 01 1387 4731 AVI « STPSNS#1,01 SET FOR CCNPLETIOW CF PIRST BYTE 1C7B 8040 3 1181
TESB C2 01 IBEB 1432 LA STATWD,KR1 SET XR1 TO POINT TO PIRST RESSAGE ICTA EYDSE2ZCICHC5S4ONO 1C8B 1182 pc CL18* UNSAPE ?
iBSF C2 02 IDOE 1133 LA STMASK, XR2 SET XR2 TO POINT TO TEST SASK 1C82 GOUDEORORDNOYOSO 1182
7863 CO 87 O21A 1134 B PRINT TO PRINT SNS WITH HEADING 1CBA 4540 1182
1267 1 1B67 1135 | Dc XL?*C1° FLAGS IC8C SCC3CSUOFILICICI ICAR 1183 LNET DC CL32°*CE TRACK, HEAD X, IS DEPECTIVE*®
1868: 01 1868 1136 DC IL1°018 LENGTH 1094 N26RLOCKCSCICLNO 1183
1269 IBFB TE6A 1137 pc AL2 (STAT WD) ADDRESS OF LAST PRINT CHARACTER ICSC EVOBYOCIE2NOCHCS 1183
¥26B x000" 1B6C 3338 SNSID DC XL2*a000* MESSAGE IDENTIPICATION FCAW CECSCIE3ICIESCSSC 1183
7F6D 2C 00 1878 00 1739 MOVEBT MYC TSTBT+1(1),0(,XR2) SET MASK BIT IN TEST BITS INSTRUCT. ICAC C3CG6LSEZKBYUOFICS ICDO 1184 pc CL37"CONT. TESTING MAY GIVE FALSE ERRORS.
*1872 1¢ 1% IDED 00 1140 MYC STATPR(18) ,0 { ,XR1) SET MESSAGE IM FLELD ICBM E2ZE3C9LSC74 ODUCT 1183
1B77 38 CO 1936 1161 TSTBT TBN STATUS~1,#-# TEST CURRENT 3IT FOR OW ICBC FRUCCTICIFSCEUNCE 1184
1E7a F2 90 08 1142 JF STPSNS BYPASS PRINT IF OFP 1CCK CIDIFEZCS4OCSDIDI 17184
1BVE CC 87 O27A 1143 B PRINT TO PRINT SNS WITHOUT HEADING ICCC LOLYEZUB4O 1784
1BB2 01 1B82 1184 DC XL1°01° FLAGS 1CD1 FIDGEBYOCIPOF9NO ICE6 1785 LNE2 DC CL22*TRY AU? TO CLEAR FLAG.
*1883 12 . 1283 1185 - DC IL1* 188 LENGTH CLO FIDEVOCILICSC1D9 1785
1888 1DFD 1385 11386 DC AL2 (STATPR) ADDRESS OF LAST PRINT CRARACTER 1CE7 BOCHD3CIC7UB 17185
TRE6 3D CO 1878 1147 STPSNS CLI TSTBT?i,#-# TEST POR FINISHED ICE? CICENOEICSICIEZUI IDOD 1186 LNEI DC CL39"IP THIS HD IS ON A CE PACK, REPL. PACK.
*1E82 F2 87 OA 1188 JE SENSA JUMP IF FINISHED WITH THIS BYTE ICEF CACUSCCIF240D6DS 1186
1B8D E2 02 01 tiny LA 1(,XR2) ,XR2 STEP XR2 TO POINT TO NEXT SASK BIT 1CF7 49CTHOC3ICSYODICI 1186
1890 D2 01 12 1150 SENSB LA 18(,XR1) ,XR1 STEP XR1 TO POINT TO NEXT MESSAGE ICFF C3D26BL0D9CSD7D3 1186
1E93 CO &7 186D 1751 B NOVEBT GO TEST NEXT SENSE BIT 1D07 SBYOLICIC3ID 248 11A6
1B97 3D 80 1887 1152 SENSA CLI STPSNS#1,X*80! TEST FOR COMPLETION OF 28D BYTE 1DOPR 1187 STNASK EQD
*1E9B P2 81 22 1153 JE PRTHEX TO EXIT IF DONE IDCE 30802010 1D?1 7188 DC XL4¥ 480802010"
1B9E 3C 80 1587 1154 AVI STPSNS+1,X'80? SET FOR CHECK CF 2D BYTE 1D12 €8040201 IDS 1189 pc IL4* 08069 201°
1EA2 30 C1 1BB7 1155 ST SENSC4#3,XR1 SAVE XR1 1190
JEAG CO £7 1920 1956 B SENSE TC SENSE 1197 * SUBROUTINE TO SHIPT BITS IN CONTROL PIELD
EAA 03 TEAR 1157 - DC XL7°03° BYTES 2 & 3 1D16 38 CR IDSA 4192 SHIFT ST SHPEXT*#¢3,ARR STORE ADDRESS RECALL REGISTER
1EAB CO @7 O021F 1158 B UNPACK TO UNPACK STATUS BYTES IDIA 35 61 IDSA 1193 1 SHPEXT43,XKR1 LOAD EXIT ADDRESS IN XK}
BAF 02 TEBAF 1159" rc XL1°62° ID1F 35 O02 IDSA 1194 L SEPEXT43,XR2 LCAD ZXIT ADDRESS IN XR2
iEBO 1937 1BB1 1160 DC AL2 (STATOS) 1D22 36 O2 1829 1195 A TBO, XR2 INCREASE BY 2
TEE2 1BE9 1BB3 1161 Dc AL2 (HEXSTA} 1D26 34 02 IDSA 1196 T SHPEXT?@?3,XR2 STORE FOR TRUE EXIT ADDRESS
1EB4 C2 01 0000 1162 SENSC La *-*,XB1 RELOAD XR1 ID2A 3C CO 1D5B 17197 MVI CYLNO,O ZERO WORK AREA ae eee
1EB8 C2 02 IDOE 1163 LA STMASK, XE2 SET BIT POINTER 1D2B C2 02 IDSC 1198 LA SHFT BL, XR2 LCAD ADDRESS CF SHIFT TABLE IW XR2
1BBC CO &7? 1890 1166 B SENSB TO PROCESS 2ND BYTE 1p32 75 01 01 1199 L 1(,%R1) ,XB1 LCAD CONTROL PIELD ADDRESS IN XR1
VECO CO 87 021A 1165 PRTHEK 8B PRINT TO PRINT STATUS IN HEE 7D35 2c CO IDO O06 1200 MVCTSN MYC TBN*7(1),0(,XR2) INSERT CORRECT KASK FOR TEST BITS
1BCU 02 1BC4 1166 oc XL 1°02 ID3A 2C CO Des OS 1201 MVC 9 - SBN¢1¢1} 65 (-XR2) INSERT CORRECT BITS FOR SET BITS
TBC5 4D BCS 1167 Dc YL1°29* 1D3P 78 CC 02 1202 TBH TEN 2(,XR1),*-* TEST ONE BIT FOR OF
1BC6 1BE9 TEC? 1168 pc AL2 (HEXSTA) 1082 F2 90 Ou 1263 JF +7 JUMP IF OFF ;
1BC8 CO &7 000 1169 PRTEXT B a-* SUBROUTINE EXiT 1D4S 3a CO TDSRB 7204 SRN S8N CYLNO,*-* SET ONE BIT ON IN DECIMAL FIELD
1BCC 00 BCC 1170 TKCNSW DC XL7°0° 1D89 3D 40 1N4Od 1205 CLI TSN41,K*°80O8 TEST POR LAST BIT
TECD EZE3CVE3E4E2U0C2 1BE1 1171 pc CL21"*STATUS BYTES IN HEX, * ID4D F2 381 OF 1206 JE SHFEXT JUMP TO EXIT IF ALL DONE
TELS ERE3ICSE24CCODENO 1971 1D50 £2 02 01 1207 LA 1€,XR2),XR2 NOT DONE, STEP XR2
TEDD C8CSE7EB40 1171 1D53 CO €7 1D35 1268 8 EVCTBR TO TEST NEXT BIT
TEF2 CCOOCCCOOCCCCCO0 1BE9 1172 HEXSTA DC XL8°0* 1D57 CC 87 9000 1209 SHPEXT 5 *-* EXIT
1173 1C05B 00 1DSB 1270 CYLNO DC XL7*O"
TREA DSD6O4ODED7404N040 1EFB 1174 STATWD BC CL16*NO OP : 1ESC 04 iDSC 1211 SHFTBL DC XL1*0g
*TBF2 4CHONONOROUCHIUD 1174 1D5D 08 1259 1212 DC XLt*08
*1EFA 4040 1174 IDSE 10 IDSE 4213 DC XL1°108
TBFC CSDSE3CSD9ESCS5DS 1COD 41175 DC CLIS" INTERVENTION REQD.® 1D5P 20 DSF 7214 DC XL 1° 208
1COW F3CSDELCS4CLSCSDB 1175 1D60 49 1D60 1215 DC KL1°9o8
1cOC cuaB 1175 1D61 01 10617 .12%6 DC XL2°Q1"
TCOE CD&C9SEZE2CIDSCT4O 1C1P 1176 pc CLI8S*MISSING ADDR. SARK® 1D62 02 1D62 1217 DC XL7°O2
*1€16 CICUCUD94BUODECI 1176 1D63 C4 1D63 1218 DC XL 1°08e 2
IC1E DOD2 1176 1D64 C8 iN6e 1279 oc XL7*08°
1€20 CODEESCOD7DUC5DS 1031 1177 DC CLIB*EQUIPHENT CHECK * 1D65 10 165 1220 DC XL1I* 198
DATE 06 APR7O 22MAY70 O1AUG70 O1OCT7O 28APR73 0133171 21APR72 PROG ID OA0S-6 DATE OGAPR70 22NAY70 OIAUG7O 010CT70 28APR7 1 01JUL71 21APR72 PROG ID 0A05-6
EC NO. 571516 571513 571531 5715480 571565 571565B 571591 PAGE 12 EC NO. 571516 571513 571531 571540 $71565 571565B 571591 PAGE 12A
tt et
a i . . rn :, os . :
" ‘EBA MAINTENANCE DIAGNCSTIC PROGRAN PART NO. 5129628 ene IBM MAINTENANCE DIAGNOSTIC PROGRAM | Se, PART WO. 5129628
pst PAGE 13 - op : . PAGE _ Vtn
A056. DISK WRITE FUNCTION TEESE = a0S6 DIs kK WRITE FUNCTION TEST
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT , FFR LOC OBJECT COLE ADDR STMT SOURCE STATEMENT
1D66 20 1D66 1221 pc XL1*#20° 1225 * SUBROUTINE TO CONVERT A KUMBER TO DECISAL
1D67 20 1D67 1222 pc XL1*ao? 1D69 00 1269 1226 HXBYT DC rL17*0
*1D68 80 1D68 1223 pc XL1°80# 1D6A 36 (8B 191F 1227 CVD A ONE, ARR ACD ONE TO GET FIRST PARANETER
1D6E 34 CB 1D8B 1228 ST PRON¢5, ABR INSERT THE FROM ADDRESS
1D72 36 O&8 1829 1229 A TWO, ARB ADD T#O TO GET THE SECOND PARAMETER
1D76 3&4 C8 1D91 1230 ST TY BOT¢S, ARR INSERT THE TO ADDR
1D7A 34 O8 1D97 1231 ST OTORZ+5 , ABR
ID7E 36 C8 191F 1232 A ONE, ARR ADD ONE FOR EXIT ADDRESS
1D82 3&8 Of IDBA 1233 ST TI XE+3, ABR STOKE EXIT ADDRESS
1D86 OC 01 IDID COCO 1234 FRON MVC =—s- PROBYT #5 (2) - #-®
1Z8C OC 01 IDBG 0000 1235 TYBOT SYC TOBYT¢3(2) ,*-
*1D92 OC 01 1DA1 0000 1236 OTORZ MVC ZROTOe3 (2) ,%-
*j 1D98 CC 00 1D69 0000 1237 PROBYT MVC HXBYT(1),9-* PUT BYTE IS WORK AREA
IDIE 04 20 CO0O 1DEB 1238 ZROTO Z2AZ *-# (3), UNITS (1) ZERO THE TO AREA
j IDAG OF 00 1D69 191F 1239 DECGAN SLC HXBYT(1),ONE DECRERENT THE HEX BYTE
f IDAA F2 62 OA 1240 JL TIXE JUBP IP BELOW 1
IDAD 06 20 0000 1DE1 1241 TOBYT AZ *-* (3) , DECONE(1) INCREAENT THE DECISAL COURT
1DB3 CC 87 IDA 1242 B DECGAN
1027 cO 87 0000 1243 TIXE B *-% EXIt
i IDBB 346 O08 IDEO 1248 ALARH ST EALARN+3,X°08* STORE RETORS
1DPF OC CO 1C9C OF65 1245 AVC LNE1-15(1) ,EFRO2&-11 SET HEAT &SG
1DC5 CO R87 O21A 1246 B PRINT
IDC9 02 1DC9 1247 pc xL1°02°
IDCA 20 IDCA 1248 pc IL1* 32°
ICCB 1CAB iwcce 12489 DC AL2 (LNE1)
} IDCD CO @7 O21A 1250 B PRINT
P IDDT 02 1DD1 1251 pc XL171*02°
IDD2 38 1DD2 1252 DC IL1°59°
| 12D3 1CEEé IDDS 1253 - pe AL2 (LNE2)
1DDS CO 87 021A 125% B PRIWT
IDD9 06 1DD9 1255 pc XL1°06
*IDA 27 1DDA 1256 DC IL 1¢® 39°
1EER 1IDOD IDDC 1257 pc AL2 (L¥E3)
i 1DDD CO A7 0000 1258 EALARS B es
1DE1 F1 1DE1 1259 DECONE DC CLi*1
*IDE2 FIF2ZP3F4FSP6F7F8 IDEB 1260 UNITS DC CL10* 1234567890
*IDEA FOFO 1260
1DEC 1DFD 1261 STATPR DS CL18
IPE 1262 WOrk EQU) ®
IDFE TEFD 1263 DS CL256
1EFE : IFPD 1264 DS CL256
0003 1265 AI EOD) x #03" HALT DISPLAY 1
CO76 1266 H2 EQG x*76° HALT DISPLAY 2
CCO1 1267 XxR1 EQD) «OO
. COO2 1268 XR2 FOU) «O22
CCOA 1269 ARR EQU) O88
0002 1270 STATO? EQU x*O02
*CCO3 1271 STAT23 EQU x*03
*; OOA6 1272 CTRL FOU X* A6
*COA4 1273 DATA £Ou xXx*faae
CO80 1274 BITO £QD) Os x* B08
CO4O 1275 BIT Broo x*uoe ja
C208 1276 SWITCH FQU x*208°
O2Z0A 1277 SECTSW EQU x*20aA°
*C112 1278 TEST EQU) s«K® 222°
CZ16 1279 LINK ZOD) x*216°
021A 1280 PRINT EQU X*21A®
- OZ1E 1281 UNPACK EQD xX*21E®
0222 1282 HALT EQU x*222* |
OZZA 1283 LOAD BQO x*22a° ,
003C 1284 HF ZOU) X* 3c" HALT DISPLAY F
CO3P 1285 HA EQU x°3P¢ HALT DISPLAY A
0226 1286 PACK EQU) X*226°
. CC33 1287 END BEGIN
ed
DATE OG6APR70 22mAY70 01a0G70 010CT70 28APR71 01JUL7i 27APR72 PROG ID 0005-6 DATE O6APR70 22maY70 01AUG 70 010CT70 28APR71 0130171 21APR72 PROG ID 0a05-6
RC NO. 571516 571513 571531 571540 571565 571565B 571591 PAGE 13
EC WO. 571516 971513 $71531 571540 §71565 5715658 571591 PAGE 43a
TEN MAINTENANCE DIAGNOSTIC PROGRAS PART NO. 5129628 TBM RAINTENANCE DIAGNOSTIC PROGRAS , oe PART WO. 5129628
=! ny ae a PAGE 14 , PAGE . 14,
Leg. : ; . . af z . “. 7 . : i é . 3 5 ; Vane
pp. Bese es DIS K @RITE PUNCTIANR TEST: oe * a0s6. pISsk BRITE FUNCTION TESA
5 - _. CROSS~REPERENCE. . : CROSS~ REPERENCE
.. SYMBOL T LEN VALUE DEFN “REFERENCES SYMBOL T LEN VALUE DEFN REFERENCES
e ADREXT A COM ABF 1071 1039* 1068 0706 0725 0741 0756 0768 0819 0830 0875 088% 09113 0981 1099
rb ALARM A GOS <I5PRR 1264 0305 0822 > | 11710
on ALLHED A 026 -3171D C846 0828 HDEXT A OO& 168E 08621 0799¢ 0803 °
sf ARIVED A C23. 1882 0951 0923 0932 3 | HDTSL A 001 16FC 0838 0088* 0089 9989* 9251 0368 O888 0823
bk ARR Cc 001 0008 1269 0023 0109 0789 0799 0856 0891 0966 0989 1039 1120 1192 12278 | BEXSTA A 008 1BE9 1172 71126 1161 1168
Py 4228 1229% 1230 1231 1232* 1233 | HF C C01 £03C 1288
rt aos A CCY COCO O02 ; | AXBYT a 007 D639 1226 1237% 12398
‘, BEGIN aA OC8 0C33 0177 1287 H1 Cc 0601 0093 1265
«* BITC C OCT OCBO 1274 . #2 c CO? 0076 1266
oe BIT1 C 009 0080 1275 IDERR A CO? 1915 6954 0910
“ BUSY aA COS AA3 1083 © 1015 IDFLE A 003 IVWED 0917 0903 0913 0922
| €CODE a 001 1938 C977 1007* INDXPL A O07 1AA2 1082 1012* 1088¢ 1992
: CKHDER A O0C6 26C2 0823 0164 IWVFLG A C19 OB38 O1CS 0123
t CKHED aA 004 1670 C799 0351 0470. LASTAD A CC? 1295 1074 1052* 1056 10609 1065 1070#
z CKHEDA A 0C3 167C Ca802 0807 LOFCK a 0048 1988 1008 — 0052 0056* 2064 0065 0066 0067 0068 0069 0070 0077 0072
: CKID A CO6 ‘FIDE 0913 0904 LOFDR A OOU 198P 1005 C0oKRse
" CKSERK A 0C3 139848 1002 0999 LDXR2 A COS 1203 1032 1029
CTRL C001 COAG 1272 LINK C 001 0216 1279 0165 0824 0832
CBD a Q0% 4D6A 1227 C29 0447 0921 #1101 ~| . LNFI A 032 CAB 1183 1245* 1249
. CYLNO aA OO1 PSB 1210 0295 0812 0790 11978 12044 LNE2 aA 022 ICE6 1185 1253
" CATA C001 COA& 1273 0861 LNF3 A C39 1D0D 1136 1257
‘4 BPATEXZT A O0OW’ 179C 0886 0856* 0857. 0859* 0864 0877 LOAD C 001 022A 1283 00489
& EATIDI A CO2 G7SI OB74 MINDEX A 037 1833 1118 1097
. TaATICT2 A 002 1798 O&E&3 | MOVEET A COS 86D 1139 1151
“ DATPR1 A 043 1858 0948 0873 MVCTBN A CCS 1D3S 1200 1208
' CATPR2 a 025 1871 C9uS C882: NEG1 A CO2 AAT 1081 1090
* DATOIA A CC&’ 178C 0879 086s — BOSEEK A 003 1A7F 1067 1057
. CCFF aA 004% 1947 0681 1020* ROONIT A O2€ CBS 0093 004u6
DCFI A OC’ 1943 0980 10118 CNE A CC2 191F 0953 9140 07488 0151 1227 1232 123: , oe
t CECGAN A 006 1DA4% 1239 4242 | OWEHEL 8 038 173F CES? CHC9* OR12* 0813* 0817
DECONE A 001 DEI 1259 1284 ONESEC A CC2 182B 0946 0353 0354 0872 0473
CFCR A002 1a98 1078 0994* 1008 1008 1010 1019 1053 OTORZ aA 006 1092 1236 1231
*DFCRI aA COZ 1946 0982 10088 PACK C 9301 0226 1286
DFC3S¥ A 0O1 1096 1075 1030 1045* | PaSS A 001 OB21 0108 0110 G112* 0158* 09348
DFDR aA CO2 17A9D 1079 1005 1009 FRINT C OCT O2TA 1280 C043 0080 0088 90120 0190 0209 0228 O27%7 +0300 0315 0326 0341
DFDRF A 002 194D oO9848 1018* 0388 0417 O432 O8483 0860 OSOO 0525 0537 0598 0565 0602 0625
-DPDRI A 002 1948 0983 1009® C637 0687 0665 0702 0720 OF38 O749 O762 0814 0825 0870 0879
: DISKTP A 002 2A99 £41077 0142* 07152* 0810 0995 0907 0928 0929 O934 10948 #%$4205 1134 $4$439183 #1165 #+%4$286 1256 1258
/ EALARM A 004 DDD 1258 124q% PRTEXT A COS 1BC8 1469 71208
> ERRORS A COG OCF7T 0235 0193 0274 0391 0503 0605 0705 PRTHEX A CCH IBCO 1165 1153
ERRC2A A C37 OF70 0357 0296 0297% 9303 0413 O0414* 0420 0798* 1245 PRISNS A C2. 7736 1120 0189 0270 0299 0387 O416 Oa#9E 0522 0601 062% 0701 0906
ERRO2ZE A 083 OFSB 0358 0318 0835 0540 0640 CCODE A CC1 193A C97E 1006
*ERRO2C A 052 OFCEF C359 0344 0463 0568 0668 RECFE aA 007 191A 0959 0182" 0746 0198* 01998 C2308 c205
ERRO2D A 016 ODE3 0241 0329 O44 FEMVDS A CC? Of18 0096 0031* 0060* 0135
oe A 037 1250 0575 05248* 0528 RLDFCR A 008 1AN7 1053 90704
ERROUB A 028 1200 0577 0551 REVDSA A 005 1789 CRUS 0809
FRROSA A 034 13DA 0676 0628 RCUTKRO & CO1 T9NE 0985 1027%
ERROSE A C39 1435 0678 0651 FPFX C COT CAOZ 411€ 1027 1102
ERRO6GA A 925 1562 0779 0723 PSIO aA 003 1A48 1054 -0071*% 0994* 1601%
ERRO6E A 020 I5AA 0781 0738 RTN1 A 00% OC2F ©C173 0G12
ERROG6GC A 03Z IS5FE 0783 0753 RIRTA A CCB OC3B 0179 0232
ERRO6D A C37 1651 0785 0765 RTNIA1T A OG4 CC6F O01¢7 0187
ERRIA A 036 OCD4B 0237 0212 RTN1AZ A CC’ CC93 0209 0206 ©
ERR1B A C36 OD9F 0233 0227 i FINTE a CC& OCCA3 0217 02¢8
ETABLE A 001 193A 0975 0013 RTNIC A CCR OCRP 0232 0222
EXPSEC A OC1 CDEW 0242 0261* 0323 0354* 9378* 0440 04738 FTN2 a 0041 OMFS 0247 6375
FIXDSK A 005 1744 0848 0812 ; RTNZA A CC4 ODFY 0255 6352
PIXFD A O04 OBES 0146 0139 RTN2ZA1 A CO& OF3C 0278 0268
FOURFF A O04 174D O€5O 0823 i RTN2P aA CC& OFBO 0286 0355
FROBYT A906 %3D98 1237 12344 i RTNZ2E7 A OCH CESS G316 0289
PRON A C06 1086 1234 (1228% RTNZ2C A CCH OF6Z2 0292
FRSTPS A CO1 1A94 1073 0090* 0940* 1042* 1047 10498 RTRZ2C1 A COU OEFSR 0313
pauses s oe a 1063 1058 RTN2C2 A CC6 CEB2 0323 0314
O3P 1285 : RTN2D A OCR CECB (C233 0325
HALT C001 0222 1282 0126 0194 0214 9229 0275 030€ 0320 0331 0346 0392 04623 0437 : RTRZ2E a CCU OEE9 6381 0335
0448 0465 6504 0529 U542 0553 0570 ©0606 0629 G642 0653 0670 i RTN2F & 003 VECF 0334 0340
DATE O6APR70 22M AY70 01A0G70 010CT70 282PR71 O1JUL7T1 21APR72 poc ID 0aA05-6 DATE OGAPRT70 22NAY70 01A0G70 010CT7C 28aPR71 O1J0L71 21APR72 PROG ID 0A05-6.
EC NO. 571516 $71513 571531 571540 571565 571565B 571591 fice 14 EC NO. 571516 S71813 571531 | 5715480 571565 571565B 571591 PAGE 14a
t
-
aa ak eeeoe eevee ee eeoeeoeeeeee eee @
aanaann0aga50an4gaggneaeeeee
oee@6¢6¢6eoeeeee0oaeee e0oeoeenensoeoen5oauaunueseedeaeendeee
YER MAINTENANCE DIAGNOSTIC PROGRAS a — PART HO. = 5129628 Re TBM MAINTENANCE DIAGNOSTIC PROGRAN PART NO. 5129628
pe I Ee a . PAGE te 15 oY PAGE Sa
£056 DISK WRITE FUNRCTIOR PEST = AOS6 DISK BRITE PHUHCTION teEese
CROSS~ BEPERERCE : : : ; CROSS~REPERENCE
SYHBOL T LES VALUE DEPN REFERENCES s a . : : SYMBOL T LEN VALGE DEFR. REFERENCES
BTH2G A O08 OFFI 0349 0308 0339 “ SETA & 006 OAEB OOfZ 90035
RTN3 a cC1 OFDO 0358 0249 SETADE A COS 1A8S 17069 1062 1066
RTEZA a COS OFEH 0272 Os71 : . : SETADR A OOS 7a170 1039 1003
RIN3A? A OO% 1027 0395 0385 . ; SETE A 006 0a75 0056 0039
ETR3E a CO& 2028 0397 Ca78 SETBTH A CC3 GASS9 0062 00548 0959
RTN3E1 A COS 1080 0827 0406 SETDSK A O08 OACD 0023 O778 025% 0371 0487 e589 0696
RTN3C BRB COU 108d C439 SETERA A 003 1660 0792 0790
RTN3C1 A CCH 1086 04830 > . ; SETERR A COH 3652 €789 0298 oO8%5
BRIN3C2 A OC6 OSD O44D 0837 SETERX A 008 166C 0795 O7T89%
RTN3ID A COW 1086 O851 ouy2 - SETEXT A OCO& OAFS 6£91 0023
RTN3E A. COK 10Da o046Ec 04853 : ‘ SETPIX A COU 197C 1600 0996 :
RIN3F a CO3 7OBA 0a52 0253 eal , ; SETRNY A 008 O8BC9 0133 0776 0134 C135
FTH3G A COS 0E4 0868 0426 04857 : SETSPN A CC6 OBB 0118 0471 : -
RTN3H A CO6 10F3 0472 0469 . SETSH A O01 OB1S ¢CC97 0024 0047* 0160 0177 0253 0370 0886 0588 0689 09398
ts TNS A 00% 1103 Oa80 0366 SETXR2 A CCO2 1935 0971 0969* 0999 1032 é
4 BINSA & COB 1917 O888 0573 , SHPREXT A O04 1057 1209 1792* 1193 #1194 1796* 1206
“ RPRBAT A COS 174B 0507 0497 GORE RE Bh oON ROG. tals 6 oa88
f SauhE a 100k. 16363 SCeOos a | SHIFT a 00% D116 1192 0292 04809 :
¥ ETHGE1 A COB 1992 05314 0519 siIo A C03 198C 4018 0065* 0992 0993* 0997* 71000* 1006 1007
a RTRSC A COM 1177 0522 SKTSTA A CCS 47AuU ORY? 0896
* RTNSCT A CON ,1198 0535 SNS A CON 192D 0966 CO69* 0968
RTNUC2 A OO I1AP 0545 0536 : ; SNSID A CO2 BEC 11438 0181* 0262* 0283* 0379% QU0O* 0497* 0513* 0593 0615* 0696* 0899%
RTNSD A CO& 11C6 0556 0547 . SNSKR2 A CO2 1939 90973 0337* 0338 0455* 0456 0560* 0561 0660* 0661 0805* 6806 0966* 0967
RINSE A 008 17E8 0565 05s8. SNS91 A 002 1193p 0978 10234
FTRGF a CG3 77CA C557 0563 SNS23 A 002 193P 0979 1026
*RTNYG aA COM U1PH O573 0562 SENDLA aA CIT OBIB (C99 0052
RTNS A 001 12a7. C&RBYy 04882 SPNNLB A&A CCI OBIC 0100 0056 ie
RTNSA A COB’ 12AD 0599" 0673 SPNNSG &8 024 O84UC 0106 CO53* 0057* 0087 3
ETRSA?T A 008 92E7 0609 - 0599 STATPR A 372 IDFD 1261 1740% 7146
RTNSE A CON 12E5 0611 STATUS A 9002 1937 0972 0076 0189* 0220 0731 0863 O866 0895 0897 0969* 1018 1023 1026
a RTNSET A COU 131F 0632 0621 1086 1325 1728 «#11417 «1160
vy RTNSC AB COS 130D 0628 STATWD A 0189 WEFR 1174 1132 ©1137
Me BTNSC1 A CO8 1325 O€35 STATO? C COT O0C0OzZ 1270 02718 0729 0833 1122
RTNSC2 A COW’ 133C 0685 0636 STAT23 C 901 C003 1271
4 ETNSD A 008 123253 0656 0686 STEP A007 OC2E OVE6 0781* 0149 0162%
y RTNSE A 0OU 13717 GE6S 0658 STMASK a 001 IDOE 1187 1133 17163
FTRSP A003 2387 C657 0663 : STPSNS A 008 18869 11447 1131* 1782 71152 11548
ETNSG aA CO& 1381 0673 0662 STPTIO A CCa 19GP 0989 9183 0202 0264 0285 0381 O402 0493 0515 0595 0617 0695 0713
_ <BTNG A007 18436 O0€85 0586 0770 0990
‘ RTN6A A COU 14842 0691 O776 : SWITCH C 00171 O208 14276 0032 0036
RTNGAT A CO4 1476 C708 0699 TBLERD A CCO2 16PR 0837 9806
RTN6E A CCS 147A 0799 - TPLH A 002 6E1 0834 0140* 0148, 0151* 0252* 0369* 0485* 0523 0793 0600
BETNGET A008 14A2 ©€720 0717 IBN A 003 ‘4D3F 1202 1200#* 1205
RTN6C A COS 1882 0728 0719 TCVD A098 t4ADA 1101 1093
RTN6D A 004 CE 0744 0733 TEST Cc CCT G212 1278 0128
RTN6E A COM W4ER 0759 0748 THALT A 00% ‘AFO 1119
RTN6OF aA COM 1502 C770 0761 TISE A CO2 1835 1115 1083 1089
RUNFIX A COT OBIE 0102 0174 0137* 0146 0153 TISOUT A O24 BOE 11413 1703 1104 1108
RUNRAVY A 001 OBID 0101 0132* 0138 0143* TIXE A COG IDBF 1243 1233* 1280
RWAIT A CC& ASE 7055 0072 TKCNSW A O04 313CC 117¢ 0308 0421 1127* 11308
SAVSH A O01 TA97 1076 C997* 1028 1046 TOBYT A CO6 IDAD 1281 1235
*SBN A 004 DSS 12048 1201* . TRACK@ A 00% OFTA CC98 - 0075* 0C78* 0182 9259 0376 0489 0591 0692 0913
ie SCRCH A 001 1893 1072. 1060* 1061* 1064% 1065* 1069 IST8T A COM B77 1141 1339* 1147
z SECMNSG A C34 OB6E 01C€7 0083 TSIDAT A COU 1I78F 0856 0310 0427 0531 0632 O744
- SECTEL A 001 1682 0835 0256 0373 ©7912 0801 TSTEFFR A CO3 A077 1033 00672
SECTSHW C 001 O20A 1277 0178 0130 0133 TSTFEXT A 004 OCO7 0155 0109*% 0184
: SEEKER A 008 47EE 0921 0898 0914 TSTFIX A 904 OBB? 9133 0131
vs SEEKIB A CO2 ‘7FF 0928 TSTPSV A OCS’ OBAC 01390 0119
= SEKER1 A C82 1789R 0950 0927 TSTSCN A U03 TAOA 1034 0068
SEKER2 A C4O 18fA 0982 0937 ISTSEK A COM’ 147890 0891 0197 0278 2395 0507 0609 0708
SEKEXT A CC4 I7E7 0916 0891 TSTSPN A O00&S OB6F 0109 01738 0255 0372 0488 0590 0691
“ SENSA A O00& 1897 1152 1148 TSTS@ a CC& OBSD C118 0113 0129
— SENSB A CO3 7890 1150 11648 TWO A 002 1629 0945 0859 1195 1229
S SENSC A.00G BBY 1162 1155% TWOZR A O02 0820 0103 00S8 0118
SENSE A COU’ 1920 0966 0073 0217 0728 0860 0892 1016 1021 1024 1088 1121 1156 . TYBOT A 006 DBC 1235 1230
*CATE O06 APR70 22NAT70 01A0G70 010CT70 28APR71 013UL71 21APR72 PROG ID 0A05-6 BATE OG6APR70 22MAY70 OTAUG7O 010CT70 28APR71 O1J0L71 21APR72 PROG ID O0A0S-6
EC NO. 571516 §71513 571531 571540 571565 5715658 571591 PAGE 15 EC NO. 571516 §71513 571531 571540 571565 571S565B $71591 PAGE 15a
Be IBS WAINTENANCE DIAGNOSTIC PROGEAN PART BO. 5129628 oe IBE MAINTENANCE DIAGNOSTIC PROGRAR PART HO. 5129628
ns - PAGE % * [Db . : ‘ PAGE 3oa
a056 DISK WRITE FUNCTION TEST wt ACcS6 BDISK BRITE PURCTION TEST .
ae CROSS-REFERENCE OBJECT CARD LISTING ee
| SYMBOL T LEN VALUE DEPE REPERERCES : eee i
2 . THE CHARACTER INDICATFS A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT.
» UDTPTR aA 002 0817 0C98 0026 0029 0030 Ode6e 00638 ; - wlan Poa {
>; UFIND1 aA OC8 OA2% 0030 0027 CL 1 THROUGH 16 CE 17 THROUGH 32 CL 33 THROUGH S66 CL 89 THROUGH 6& CL 65 THROUGH SO CL 67 THROUGH 96
*-, UPIND2 2 008 OA20 0029 . 0082 | |
(: UNITS A O10 DEB 1260. 1238
%, ORPACK € 001 O21E 1281 1123 1758 : co ee. -- ° - : : ° * - 0s oe
' OTAB C001 0232 0095 0028 Te-YSYEQ §& CBS ReD & CEHB7RAI"OR RIE .E"HAB<KHA THR 48 EXP{ ED.E30 BI- 8 -Hoay FxE adYD 2+ D. =DQA05S60001
WAIT €& 004 9BF 1015 0066 1091 :
{ WORK A 001 IDPFE 1262 0280* 0281 0281% 0311 0333 0397 0398 0398 0828 04851 0509* 0510 ‘ a ae ese, = ee ° “22 _ ce oO
0510* 051% O511* 0532 6556 0677 0612 0612* 0613 0673* 0623 0656 Te-Z25 ~?2?2D R°S C 2-K*8D CK &3 DU Y -~-OH*BP-QEBIN@ & RC D.EOS-OH*BH-~ B RT &S5)iD-LIR GE - LI-a0560002 . e
h , 0709* 0710 07108 0771 O717¢ 0785 0947 1079 : ae ~
"' WORKT aA CO2 1827 09488 0338° 0456 0561 0661 0858 0862 a . : “ ‘ Ps ae ; . ae °
F° WORK2 A 002 182D 0987 0866 T¢-DO AW<EWOG@-_. <3 CB@Z Di}@.P(H A 3EABI*H AWGSFOO H AW@*PQOH AX FQO # AYSPOOH AY.FQO A AU =2820560003
B, WRIDFC a ©0171 1976 0955 0259* 0260% 0267 028%" 0288 0293 0313 0323 0389 0353* 0375* 03778 pe a
Hy, 0384 O0807% 0405 6810 0430 0480 0868 0472* 0489* 0490" 0496 O574¢ oc. wai, oo . 228 eh: Pi a = ‘ ee
0578 0535 0585 0591 05492* 0598 0616 0620 0635 6685 06925 0693 Tew gee /W¥CE EKAW <B ELAW<B ELI <OH*RH H@ZORE+ - R("HEACIXB1, /OH EF KH.S&BG /YFP aS | 65 YA0560008
: 0698 0712* 0716 O747 0759 0773 in eo AS: 4
ER1 C 601 0001 1267 0028* 0029 0030¢ 0038 0038 0080 0041 0047* 0058 0062 0062* 0063 6 es a . coe cee cevscce ° e
- ‘ 0523% 0528 0793 079% 0800% O08 0813 0967* 0968 0970 1010* 1071 Te-TVwF23a< /$=E278 OB ALTHOH* <GLUSC US*KTBUCHO;PEE<. £E1) 8 8@PS 8aPD “Bet 2)P VO)< #8# AOGS60005
sf 1043 1019 1020 7083 1089*% 10907 1132 1160 1150 1150% 1155 17629 : i _—
: 1193% 1199 1199 1202 7 ° . es : See oe
> ¥R2 c 00%? C002 1268 0251% 0252 0256 0257 ©6258 O25@8 0333 0334 C336 0336* 0337 0368 Tée-_f/273 8>.WE+. EB=fIS*-NS>R BSP SBAXNIGCD2;.KE<L R2: PEE4+—~B1F~I15S8C WOSXITIECDO; LAECS US*< 834940560006 ° |
0369 0373* 0374 0375 0375 0451* 0452 0455 0454* 0855 O04884% 9485 . : ee
H 0556* 0557 0559 0559* 0560 0656* 0657 0659 0659* 0660 07918 0792 + ee -~ -° ie. ay * >. ~-° See.
| 0801* 0602 C804 O804* 0805 0857* 0858 0990* 0992 0993 0998 102 Te->*BeXOSMCTI;. TEXGO*LEHC Y© K /@-DGI{ [email protected]~HGC @ ABIS.H}HA-~HG]C- FP -,20URT /OHEI/< . (8 =,UA0S60007. -
y 1030 1031 1032 1033 1034 1035 1080 1083 1044* 1045 1050 1051 °
a 1056 1959 1061 1063 1064 1067 1065 1070 1133" 1139 1149 11498 7 8 - . - 2. ze ee a
e : 1763* 1194*% 1195* 1196 1198* 1200 1202 1207 12078 T4+-?2?P=2BG SH-=%B G /. /0>(+ EBR?7H GAC3"B1IN8 -HHay .{ [email protected]{ BAAC3"B1@ * &)@Y¥DNC-DO83IU -~] D 1¢QA0550008
I KER2WK A CC2 1A9P 1080 1043* 1084
f. ZEOCTR aA OO’ OCCB 0157 0175 0147 Bio ney Ls P é 3 eo ee ee ee Sy a8
., ZROTO & 006 IDIE 1238 1236% T+-OKCBRA ADR -G->HGHT4 B1@2-Ja ¢ J$/FJa* €0>@YD FC-LO8J0~j -EWLO B1# /O { 6QH 30 B2D 2C<A0560609
‘, TOTAL STATEMENTS FLAGGED IR THIS ASSEMBLY = 0 - o- eee oe an - eee +. es : - © « ec
ae . Te¢-1(@-DA} .~F*B G @&@ O>|E<H @B AEX. SOHO DCM © SRORDHC*BGB68 @ AUG] USS O FIR .FXR 3: A0S60070
i a:
: Te-2H/1V4 RPSB GCP" /01)0H*S(SB G /YF(E370H*BAD IOH*PYC3"PJSA AU *) BGeBCFEGB AG EOR* R- 200560011
&
i = . oe * ; sa
: T¢-3CCI) s02¢0H* <yYaRG 7oPN S.YAC /OHSYAC /10- T- ‘DFLS2DAC /OKE1TG& (Xz: JOH*BHD JGH*® <#=< 27~200560012
Te-3=2€N S*XEQ*X C9¢l 1) XRS_XSE(S CO=LR6O*PDE*SH2)$ EEC. E1).15*) BGT ESXPEE<{ YU*POECP R6)Q-2H A0S6gE
Te-S96RCRZCENECP XS@ECS@EDECGPGAP RECLO2) PGECE 9_X 8G 1<GTOMCCS_L WIDCUSRENIGCAE(P. OSH ATEA0SE0010™
| T4-5U15318>4 a5; ( GLPCB*SRECXDS}R 6*PCKACFSD>LNIDC S12) PSIMCB23( 5)$ TE+.E88CHrDCAE*S R23< a~<a0560015".. ~~
5 Me Lon
of . . ° s 3 :
Te-G7IMCDOSPAE<K} OS(EDE*1LS2) PGEXE 5) S$NECPX2;.T0)P TEF.EO=JOOMCII<T EO*J HDCS1*jT5_V O>- $-*A0560016
T¢-7D8AN SER O'S NB*XOGNCP2*PLIDC C2<GNI@PDE<GP¥@P RECXE 5_PEE+.E0=} O6NCHO*XTIE B © 60-H ES*A0560017
T+-RVE?ZG /S/}E .F*BAB-7 /0_20-H 08,0 E:00E/*< AU PBIYa AUQ] (9CO IF63 /1¥] RE&SB GCTO a64a0560018
e T+-9-OH**+HYBGP3S /OHEATN<'@5G SH -B*BGE: @913°C}]8 s"Ae*|AHSSCO FIX /1V - RESBGCZP 798 *L<€20560019
: é ° e os @ e Se ams s ‘
- Te-:FCRBGGIORESB GEOY)OO'OYD F$¥B GEV. /IS60H*RP-BR RCT & J?<0A )>@B G SH-D?HGR<BGESS8 3"T4 £0%A0560020
; € « eo oe ‘oe eo e . r . =
ue T+-#O"1TURAYDECH® BFRO,C9>-DaBG SH -DOU FJ-(9JHAD<B G /,FJ 7TYAL /OH SYALB /7=?;* @D #8-H )YUA0560021
ms € ;
> DATE OGAPR70 22MAT70 O1AUGTO 010CT70 28APR74 0130174 21APR72 PROG ID GA05S-6& DATE COAPRTO 22H AY70 O1A0G7O 010CT7C 28aPR71 O1J0L71 ZYAPR72 PROG ID OA05~6 |
t FC NO. 571516 571513 571531 571540 571565 5£71565B 571591 PAGE 16g EC NO. 571516 571513 571531 571540 571565 5715658 571591 PAGE 168
i
z
E . ,
k og
A
:PCCCOCCSC COCO HCOOH OED OHOEOKRHOOROOC OOH OLE
we at
gage
sf
a
2 Ty Ree
es 8 one,
a
5
OWE A EN A TP RE 8 2
at,
B
RRP ah Se
)
A056
Tes B- FU
CL 1 THROUGH 16
T+-]9 LEPFLU( 30
T+-"<FB? /09 BaT
Te-=G61<GTOMCCS_L
Te-"RS ( IZXEUGI
bt geee'8e 1<GTONC
USS<B
T+/A3] RE*EGPHA
T+/B>DAG6 #0H*BED
T+/CZECBG SH-E<H
T+/DUEXEGEXC 0"
T+/E~} USS<BGFNA
ie Cad
T+/PED/_%] CRF*B
Tt/GNPAZAD<BG /,
T+/HE+E4NAPLUQI"H
, a
T/T. S*XESRENBME
T+ /HFADAGE|GHI*G
T+/. 48° | YS<GFBAP
T+/.2L0 PS /1.
T+/<7TOH*RLOR FIS
1+/(2 SH-D36 FUT
T+s+_ /-F( "PYAP
T+/}¥2)PGE<CE ¢ x
DATE OGAPRTO
EC NO. 571516
DISK
WRITE
CL 17 THROBGH 32
OFB~2-SL 00] OH
*EG ("R13 PI5>1SE<P
KO) PDS+LS2) PGE<T
5) $164.71) ~PIFL
“CS (PDKO< DEIB YS
GPMa@ ADOOH*EIaB
B AUOOH*6-<BGDD?
P@Y) UOH*PL/ sj ~o
BG3:'90CZ JLS -D
UC- RFA-,C- (9a-
*” au00H*aKaBGDLX
GFHGB AVOOH*I0%5
PHO=SYA} /OHSYAC
AECBGD*, /OHEITE
A1> | EGMCDSEXNTUC
DEEA @RFC8* SRE<.
RECE aUCSI#ITS_V
/OH*K3@BGF3$ /0H
” / 1K 0B*LC#BGF 35
2-30" JOREIWEMIE.
/OHSYAE /1H_8aT
18s SZR QUCSI*]
22NAY70
571513
OTAUG7O
571531
FURCTIOR
TEST
OBJECT CARD LISTING
CL 33 THROUGH 4&8
BFtQSCa=-E*BG SE
R6) $RSUCW1) XEE (=
£0*J 96. S2PCB*S
WO*XTUNCP2*PLUDC
*{ AOBLG BIX -fY
GDAP /1%608* BF-Q
/14OPSS /15DGRR
RP~HAD<BG /, FHO=
& /U 9CEDR+ J- X9YD
,OH*EHOE DDGB /S
” /1%60H*BP-05C1~
GDP~ /1%6 (600850
* AAU COYDE 9H* BPRB
13: NOH*BHD NOH
*AG+SRBY_ I+} AKUC
Y8aN SER O'SNG'X
“g xreame AGGIE
EATM<*aBG SH-B*B
/OHEAVQL6%BG SH
-ROHK*BHD RO-H)",7
EG (-R1; PISSLSE<PB
T5_XS6¢LS2) PGE<T
0171C0CT70
5715480
28ARPRT1
571565
CL 89 THROUGH 6&
~ELS*PJT2 &T /1B
RI5.E53( OFST$)¥
' RE+~XBAPCB* SRE<]
WO; I OPITIPXEtTOC
(OH*. SaHBE>Ha a;
SCi{ ~ /OHSY X /1;
1*C1 CO# /IRKOH
*SYA} /OHSYAC( aU
HOHSE>EBG /,F(™
#( HOBLS BIX -EY
2
JOHSY X /15-4A-
” DUDDOH*BP-RRDVC
&DDB-F<BG SH-P<H
JE=|HIECP6*PV2) S
CS (PDK 4CUBRXH 14C
O4SCP2*PL1IDCES> (
-F*BAB-7 /0_?C
GE: a9 1°*Cjas"A"
-PRBGENB "TI" POX
X |HAE¢HB LEBPLU
R6) SRBOCW1) XEE (>
EOQ*J 8>218a{ H2) P
C1JOL71
5715658
PART HO. 5129628
PAGE 7
CL 65 THROUGA 8&0
008*(=88 FJ-OHOS
1(SI5*}) OMCWOH*EZ
O9O(PTIPV 2)8 O°S
A1l>{ EGCG 2; PIS*)
RE/QPC REOSELH
- 445 %63=670;"LO0
S(NBG /TPOE'O* D
OC;L2-3C /OHEI NE
IYAP /OHSYAM*7AU
(OH*.500 Fa*.PT0
~"& 3=G"0~"E 3"G 78
SOHSTA. /1)¢G6"8
BG~:'D C2 JLS -D
USUCE6) X06; 1 9%P
BiD_ 96. 8KxPce's
”8>) ES*sE1DCCS_x
REOSE| LOR FCOIP63
"C]Bs"AG* TAYSSCO
2-J3C /OHEISSI
(| JU9PB=2-3L /1¢
R1;.ES3( O*STIVV
G2<PATDAEE+. EO=]
2UAPE72
571591
PROG ID
PAGE 7
‘CL 8% THROUGH 96
C3& 110480560022
TIN JC#A0560023
NB°D §2080560024
9 0 30820560025
RFCO 10040560026
PF60 @4%A0560027
$3< SBYA0S60028
(8: *"ARA0560029
Q@-D 2TQA0560030
PJ- €24A0560031
"TO @&6HAOSS0032
**10 ~68A0500033
u /0 818A0560034
BI 238A0566035
BBU 8 930A0560036
:81S< *©8KA0560037
7iU 88A0560038
APJU 1L87A0560039
LOH® BS AOSE6E0040
POHR*® O:8A0S600N)
1(Q =/*k0500082
O6bR 2, 740560043
Q0a05-6
Rin
wae
IBM MAINTENANCE DIAGHCSTIC PROGRAR
A056 c
CL % THROUGB 16
T¢/EXOPTT ACO TUE
16/3522) HE<TEOSS
Te/KRRBGEFL 1%
T¢/LROH*NIZEGF..
leyn] aurayDeon®
Te/NHEI. /1IPORC
T+/OESUCWEFXTIAC
1¢/P ECGTRAINS=4
T*+/P86) SLE<E11)}
T*+/062:((.2<PAILA
T¢/R1O=|CONCHE*E
T¢+/FREXDS JS/0-H
T¢/SXACBG 7, FH/
*Ty*ss
T+/) )E<PR6) SRECS
16/5 0X1-Z0H*RNHE
Te/aLHD “CH CE
Te/-¢ATRRE®EG SH
T+//16T0 82Da_ &
T¢/SD2) PCS_XR1*}
T¢/S"1NCST*TK2)P
I
SK WRITE
CL 17 THROUGH 32
CS_PT6) $LE<ST1)}
B>$18A]H2) PGA-C
60H*RE-QS5SCji~ /O0H
JOFFIUONOD *OH®
BPS PPE~:-DaBG SH
T13 -TECV,/SUCOSHC
PO;.TE<ENIDCO1UC
15} 8° 9_x18aN
DE (POEGCSSaPPSaP
€£¢.,E0= { OGNCRs ¢f{
TIRCWZs 1 HE<PNIDC
08,4 |HA{ +HB L&
oe o e
"YHE /sOHSYHE /0
eweeneewecence
E?8
188/ 2<PAIDCXEt~
( JU7TPB.2-K4u¢ JD
HF=, siU- T-EFL~
-COW E=G. P?HAAQ@B
RY} EV<EG SH-}<B
T&E+PAN=LE1<GTOMC
G&* | HIMCCTIMCTOFG
T+/Ts&+. EC=[15_N C~C3E<ECHOMCNS X
DATE
EC WO.
OHAFRTO
571516
Z22MAYTCO
571513
OTAUGTO
5971531
FUNCTION
TEST
OBJECT CARD LISTISG
CL 33 THROUGH 8&8
DE (POB4YCSBaPPSaP
"934 BIX -EY(OH
*SY xX /13-]4*3"63
BHD *OH®RH HBHAD
-D37#PIT2-IC OK
£6) XO6MCD2*I 5) S
Cz ({ . 1) PDE (SFE<]
5 aGSAUCES es”
DE<1| 06) XEO=]L: DC
EE (SFE<405s 4 RO_(
010CC:((. { -0$00
2 oe
BFLU( JO9E?? JR
C&<0"1) (0 DEERE
aj) .18=.049%
K9=NXECLIB_.P23>
7PB72-3JL /OHEISS
DA;U4 DR(2HE(TO
G C /15DE=0
G B 6&)"&L
A1<LR1;.S&(PO84C
C4W2A6) XI9*PDECG
EG<XN1T_R. 8ATEE (~
010CT70
571540
5k.
28APE71
571565
‘CL 49 THROUGH 64
D&< $06) XBO=4L: DC
-$00 F3*. PT3*FI-
=G"0="£3"674; "TO
Jas GOH*BPARHEED
E1vcomE ~onepad”
TEC. RO) PC2DCA1>|
¥S4_ SSPHBAN OFX
O=TLK=. E0=}O68C
A1> J E6RCAE¢SR2: |}
WWXE8aJ OaTAS#~
EWR) O@bBE>H|a"0
e ad
a-ja C EPt*/ INE
G /, FF/*) YB /08
DECPR6) SRE*ST80/
E1(XES¢N. Mmmnn zg
OOH =OH*BHD =0He
»
{ F63 /1VE EDP2aAE
ORZBG /,AH/SSYC3
AB@E O*LD6*PS8UC
S8aPP5SSXN12PRE) S
TEC|Y4G_ 5) R.6¢~
RISPISSLSE<PRO) S$
OIJOL71
57156568
PART #0.
PAGE
CL 65 THROUGH 80
A1>}| EGSCAE+S$R23]}
aBJ_SOH*RLO FOS.
APII /1V} - RESB
~cxa” si-exaceus
~OR*RLO PIS /18
EOSCAS={ ES (~T2) P
TE (POBACSIs ( OFS
C5>LNSSPRE<ZNE< |
PE+S1Ba/ 1) PDE ($
E1DCA1>§ B6NCAG] I
5 33/G { REL 0
‘EW@~HAA-ODE3 YPIA0
SY5~ /0EO
0) 1LE<TEO*LSB S$
HE9@S /3~. DQIOD
PX<BG /,FPS/1KC
*G2°e /15<OH#S (5B
” JOKE J*Q%KBG /Y
WOs;1 @>] E5*.E1DC
RE (SCO=LR6*PDECS
19" XUSMCS1*PKE4|
R80CO0@]06) XE IDC
ZTAPR72
571591
PROG ID
PAGE
ee se tae ; oe aa . = | -
IBA NAINTENANCE DIAGNOSTIC PROGRAR
| 978
CL 81 THROUGA 96
EE+Q SLOUA0SSO0S4
/1E BREAOSEONGS
_GEHB JZ7-a05600486
3"T& ©=<S0A0560087
*08* :SHa0560008
GE+< 52800560089
T1)U *Y a0560050
O5S3< 33880560051
FE<< 3£BA0560052
8RH } ¥8A0560053
oe
{ - &Y8A0560054
£36 0,0Aa0560055
@aeeonse oe
.L2*& Q$*A0560057
+ 3* PHQA0S60058
"70H K9840560059
G /Y &/@A0560060
FHA- H-%A0560061
150 a$<a0560062
H2)< 0D&A0560063
E8>< ;8HA0S60064
W2<0 OKMA0560065
405-6
V7k
5129628
3 840560056
IB@ BAINTENANCE DIAGHOSTIC PROGRAM
A056
CL 1% THROUGE 16
T+/U54AN 6*PA1CKX
Tesvo.
{ +/8,+0-R2LZHFUZ
@4/XN IDSG <REO<
- geyrye DR}TUTC
4/2 8x0€5 Da.
T+/EP>ODBC FID
Te/,k J@ aT= Cc
a jcigene Saaese
T¢/_H9" POEKXN1CP
Digit ies
T+/>=G-4" a_BaYD
14/29U<EG /YBGI?
—- T+/C4EDCISS 1 E63P
14/120NCC2<PCUDA
T+/2D0"I EDA GER
T+/3VP<]O5S3 (0644
T+/U~KaXP6¢}H2:1
—- T+/SSOTQBFEUS /5
1+/60A -GHD A -E
T+/73_ 0 GouU
TPJ7,413WOR*BF-Q
CATE
EC NG.
O6APE70
5771516
~ Se
risk
WRETE
CL 17 THROUGH 32
NIUCI IDCAGSCT2CN
2/0-2BAW'+~-EL.a
@ ATSO-DR2|4- <F
RL-YC}~aEVa AF-«
eeeamineie cic
2 ;
N.O0 EU0G2/1;: 6H
"0 & JZ50H*RA <
GCOYH 1%4]D SC<B
XE (~U09=. E80CS1) P
EACYAFA0a@ J>GO-D
H8-HAG-DKCH*SS$L6
z08* CS8acT9er
ES: 1I15_N 6*POQUD?
ECR ELA S}R 6P
G+ LESAZGPISA SDA
E8>{ 15*) S<GYE<~
2€3 23Y S_N ONC
Et )O3HBGN1S 6D
HDPA - 6BAG~( -
- )202 souRG"H
XGE7 0 a@~G2a"L
22RAY70
$71513
OTAUG7O
5714531
PBENcCTION
TEsT
OBJECT CARD LISTING
CL 33 THROUGH 48
O@N O=TL
CeHFLAS 0
We, eer neces
SPD] /10-A OAPRG
< <Ev,%a TRBFLP
APVH@ JDM>ODB?1 a
% ADL ba FZ<EV-
8BAUG3Z DI { EYTA
G /,FEIS*#YH® /0H
S1*J3 O€PFS_XEGe}
$=a4BGE@ /OHEOED
” PB_2-KHO-A>G( D
“O>TT1sI 2) N 2<P
M2; .52) PGE<GD1(¥
CS_XDE<$O9(PDEDA
“EDA EDA EEICINC
I9*N INGL8EN 1px
CINCPO*) KEGCR1)-~
% AS BO GNOE;
)S3QHPEUSBAGT( -
BB-Q- )8*BGGEL
S58 2?~8=—
010CT70
571546
28APR71
571565
‘CL 49 THROBGH 64
es eaeuve
LEHFLUS JO
5] EV2-crss .
EXx€0 FLYR?E0 FLS
R(3SAFZR* WG O38
/1 3/2 T~/0E8BAD
C} EVLPWrz?73Y C
GA,0
“HGBYO 1D
AP3N6 JD/OHER?37
SYH# /O 68aXxm1)$
I5S<PO94¢< CE&HFO?
$=: . $3 *DdJ7
$_@BGFK COH*BG-H
XE (&
o&(LA6) .BE*LIS*L
B*T OfSNI<xXT2)$
To*GC4N_ _2<PA1DC
RS_XSKUCT63/ O-C
LEGCPO*|KK8BA BA.
Baz D+- )035 GSC
) V3QBFJ@4BA6=C D
70 ( -)8 0 GIO
G1JUL71
5715658
PART KO.
5329628
PRGE 16
CL 65 THROUGH 80 CL 81 TEROUGH 96
OF <B.- 0 aADTaRE
R?-D% JDS 3-HPZx
8?-OAPSUEWOOA PAS
GFK BC DB} JU70R
*K?EDAOQ DEG3O FZ&
AY/Z+T& AFZP2-KP
L. EVEG /0
“FD. 2-J3C /OHEISA
DSSCISBCRS>LT2) P
/U- %&BG /8BPL
** C- FLS20 T /OH
R(17Z0-D <HBGEEe
O&(SPEDA EDA &DA
ES; ( O@TEO*I 6DC
WEC]HI*{ KERPEUUC
XEYCISOCD1*SE0=|
95+ { OE<]| LISGRECS
HA HA( -) OTSAGNY
2-6-S ~G /TSS0H*®
) x6
C Ds cD
PR*BG /YBHA2, ORF
eeoeneoemeananeeanence
ZIAPRT2
571591
a #H220560066
ZD ®& ©S8A0560067
EXLA 78800560068
BH < 22Q9A0560069
& JY = 8A0560070
27AD 81840560071
eeose
"O a0560072
$<: =/8A05S60073
keee saya0SeuOT7e
$9L% a:QA0S60075
Z JH QR|A0S60076
“1% 8ZHA0S60077
&D *0*a0560078
DO:< Q&<A0560079
C2<m £8%A0560080
I9*8 =2%A0560081
LO** ##<a0560082
S /% OR*A0560083
~J<A0560088
}YG 6TYA0560085
BR-H 23840559086
eenee
@8Q40560087
PROG ID OA0S-6
PAGE 18
AGH YAY
ags6
cL
ECC (*E7*==PC™PHS
SS ee we ee ee wm ee we we me we me em ew wm oe we we wm wee ee ee ee we ee ee
CATE
EC NO.
DISK
1 THROUGH 16
OGAPRTO
571516
®@RiITE
_ IBA SAIRTERANCE DIRGROSTIC PROGRAH
PUNCTIONS
fest
CBJECT CARD LISTING
CL 17 THROUGH 32 CL 33 THROUGH &8 CL 4&9 THROUGH 64
="IMEF |
22MAY70
$71813
3129628
PART #0.
a.
PAGE
CL 65 THROUGH 80 CL 81 THROUGH 96
c re ASC RA so g : 23280503700 501723L1YA0560088
en
?
«
LAST. PAGE Coste Seen ee sere see ee sss esere ss ses ess aSeeees —
OTAUG70O 010CT70 ZBAPR71 OWUL71 ZIAPR72 PROG ID 0205-€.
571531 5715480 371565 S71565B 571591 PAGE 18H.
i,
es
A Nreeteat eateries eget no
IBA HAINTENANCE DIAGNOSTIC PROGRAR.
A063
ERR
0000
OA0D
oaco
0a02
0003
oacs
0A06
0a08
ORDA
OAOD :
OAT4
GATS
OaA13
Oa IC
0Aa20
OGCAZ&
fhaA28
OR2C
OR20
QA33
O36
Ga 39
OR AD
CANO
GAY
OAuG
O2UY
CAKC
caso
OaASH
Oass
OR5S6
Oass8
Oasc
OA62
OA6E
CA68B
OAGE
OAT2
OA75
OATE
OATF
OAB2
GABS
OAE9
OA8C
OASC
OKS96
OASC
ORA2
DATE
EC. NO.
VErRIF ¥
A063
00
01
0000
0c 2a
¥9E3
301000
08 OO TARC
13MAR7O
571512
DATA
LOC OBJECT CODE
0001
OA02
0a03
OA05
0a07
OaAo9
oaoc |
OaSa
0a55
OAS7
OB1A
OAG67
0B15
0B16
1435
1A35
1A35
1435
G6APR70
571516
ADDR STNT SOURCE STATEMENT
PART wo.
PAGE
CERES TE EE SESE SERERESEEESEEE SEES SEEES OEE OE HE ERESES OE OE DKEEKE SECESERESR EEE
tseneuaneseseccenssenessvnssensssensass scan sccueesenesesenessssenseeses
2 DECK 4
3 a06 START O
4 ORG X*OA00t
5
6 * SECTICN PREFACE
7
*8 pc ‘XL2* A063 °
*9 DC XL7*00
*40 | pc XL1° 018
11 DC XL2*'00!
12 pc ALZ(RTN1)
13 pc AL2 (ETABLE)®
18 pC. XL3*207000",.
+S
*16
17.
2+ OPEMATING INSTRUCTIONS
19 ©
20 * 1. SET SWITCH 15 ‘to BYPASS
21 * 2. SET SWITCH 16 TO BYPASS
22 * 3. SET SWITCH 1E£ TO BYPASS
23 4. SET SWITCH 1F TO BYPASS
24
25 SEIDSK ST SETE xXT+3 , ARR
26 NVI SETSW,X'*FF
*27
28 CLI UDTPTR,O
29 JNE UPIND1
30 LA UTAB,XR1
31 OFIND2 ST UDTPTR,XR1
32 UFIND1 L UDTPTR,XR1
33 NVI. REMVDS,0
34 TBN SWITCH+3,X'C2#
35 JT *+9
36 CLI O{ ,XR1),X?A0!
37 JE SETA
38 TBN SWITCH+3,X'07!
39 ST #49
80 CLI O(,XR1),X*BO?
u4 3 SETB
4&2 TBN 1(,XR1),xX*°10"
a3 La 3(,X%81) ,XR7
uy BF UP IND2
a5 B PRINT
46 pe XL1* 06!
a7 pc IL1°26
*4B DC AL2(NOUNIT)
49 MVI SETSW,O
50 MVC UDTPTR(2),TROZR
51 B LOAD
2 DC XL2 "40°
53
54.SETA MZZ LDI.R+1,SPNDLA
55 SVI SPNMSG,Ctit
56 3 SETBTH
57
58 SEIB ZZ LDFCR+1,SPNDLB
59 NVI SPNMSG,C'2®
*60 IBN 2(,XR1),X'078
61 JF SEI BTH
62 MVI REMVDS,X*FF!
63
64 SETETH LA 3(,XR1),XR1
65 ST UDTPTK,XR1
66 MZZ = =«=LDFDR¢ 1, LDFCR#1
67 MZZ 0s SIO# 1, LDFCR#1
68 MZZ WAIT+4¢1,LDFCR41
69 NZZ TSTERR+1,LDFCR1
22mAY70 01A0G79 010CT70
571513 571531 571540
&
+
PROGRAN ID
SECTION FLAGS
CURRENT ROUTINE NUMBER
RESERVED
ADDRESS CF FIRST ROUTINE PREFEX
ADDRESS OCF ERROR RECORDING TABLE
*
RUNNING ON THE REMOVABLE DISK
RONNING ON THE FIXED DISK >
RUNNING ON DISK DRIVE 1
*RUNNING ON DISK DRIVE 2
*SAVE EXIT ADDRESS
SET SETOP SWITCH
HAS POINTER BEEN INITILIZED?
JONP IF YES =
LOAD IF NO
ZERO
TEST
JUMP
TEST
"JUMP
TEST
JONP
TEST
JOMP
THE REMOVABLE ONLY SWITCH
SSW 1E
IF CN, NEVER RUN DISK 1
FOR A UNIT ADDRESS OF *A?
*IF THERE IS ONE
SSW 1F
IF ON, NEVER RON DISK 2
POR A UNIT ADDREAA OF *B?
IF THERE IS ONE
TEST FOR LAST ENTRY
STEP POINTER TO NEXT ENTRY
CONTINUE IF NOT THE LAST ENTRY
TO PRINT ALL DNITS SELECTED
FLAGS
LENGTH
MESSAGE ADDRESS
TO PRINT NO ENTRIES LEFT
FLAGS
SET TO RUN ON SFEINDLE ‘A?
SET MESSAGE FOR SPINDLE ‘1!
PROCEED
SET FOR SPINDLE RB. ‘
SET MES2AGE FOR SPINDLE '2°
TEST OPTION BIT FOR REMOVABLE ONLY
JUMF If NOT ON
SET BIT IO SPECIFY REMOVABLE ONLY
STEP POINTER TO NEXT ENTRY
SET FOR CURRERT
SET FOR CURRENT
SET FOR CURRENT
SET FOR CURRENT
SPINDI.E
SFINDLE
SPINDLE
SPINDLE
PROG ID OA06-3
PAGE 1
5129630:
1
O° 6:
Q
oO 90 9 60 9
e
C).
a) cy
a)
ory
XY
ee te ee ES A TE on RINE oe
C)
my
cine ee est eee | ee eRe OMNES aeNeNmERed remem meee
9 9 0 8 © @0200000 0
O- © 1: *6
t)
gd
7
O
O
O
'S
oo
cy
—@-@- 2 eo oe eo @-@
IBM MAINTENANCE DIAGHOSTIC PROGRAR
ee af 4s, Sina af : ; : : vue fo aha .
aah ae eee atl Mak ewe coe z . : ~ S >
So aicles - : ‘ Poe as < j Se tae oe Paces eS Ae Sans %
5129630
PART #0.
PAGE , WA
a063 VERIFY DawtTa
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEAERT
OAAS 08 OO TAAF 1435 70 MZ2Z ‘YISTSCN+1,LDPCRE1 SET FOR CURRENT SPINDLE
OAAE C8 00 19D7 1A35 71 SZZ 9 -SNS¢1, LDFCR+1 SET POR CURRENT SPINDLE
OABY O8 OO IAEA 1435 a SZZ RLDPCR#1,LDFCR+1 SET FOR CURRENT SPINDLE
OABA O08 00 1AEE 1435 73 aZZ RSIO¢1, LDFCK#1 SET POR CURRENT SPINDLE
0acoO CO 87. 19cC9 74 B SENSE .
Oac4&’ 02 . Oaca 75 pe KL17°O2¢ ASK POR DEVICE STATUS BYTES 0 & 1,
OacS 3C CB 0B14a 76 NVI TRACK#, 203 SET FOR FULL CAPACITY DISK
0ac9 38 08 1980 77 TBH STATIS, X*O8* TEST CYL 100 BIT
OACD F2 90 04 78 - JF PRTS PN IP OFF , CONTINUE
OADO 3C 67 OB14 79 AVI TRACKS, 2103 SET TO DO 103 CYL.
OaD4Y CO 87 O21A 80 PRTSPH RB PRINT -.- TO PRINT SECTION HEADIKG
OADS 01 OADS 81 DC XL1'071 © FLAGS
OADS 23 OaAD9 82 De; soIL14* 358 LENGTH
OADA 0869 OADB 83 pc AL2{ (SECHSG) |. MESSAGE ADDRESS
OaADC CO 87 O2iA. B84 B PRINT TO PRINT SPINDLE
OAEO 06 CAEO 85 pc XL1°06* FLAGS
OaAE1 18 OAE1 86 DC IL1* 248 LENGTH
DAE2 OB46 OAE3 87 rc AL2 (SPNMSG)} MESSAGE ADDRESS
OAES 3C 00 182D 88 NVI HDTBL4 3,0 ZERO HEAL
OAES OC 02 182C 182D 89 nVC HDTBL+42 (3) ,HDTBL+3 ERROR FLAGS
OAEE 3c OC 1832 90 BVI FPRSTPS,0 SET SWITCH FOR RECALIBRATE
OAF2 CO 87 0000 91 SETEXT B t-+* EXIT :
92 °
OAF6 CIDIDZYOEUDSCYE3 OBOF 93 NOUNIT pc CL26*ALL ONITS BRAVE BEEN TESTED
*OAFE E240C &C1ESCS4 OC? 93
OBC6 CSCSDSSOE3CSEZE3 93.
OBOE C5Sca 93
O0B40 0000 0B11 98 UDIPTR DC XL2"0
*0232 95 UTAB EQU X*232
*0812 0O OB12 96 REPFVDS DC XL17°0
*0813 090 0B13 97 SETSW pC XL1*O?
CB14 60 OB14& 98 TRACK# DC XL1°008
OBTS ao OB15 99 SERKDLA DC XL1* a0?
O0B16 BO 0816 190 SPNDLE DC XL1tBOr
0B17 00 OR17 101 RUNRMV SC XL1°0°
ORTB OO 0818 102 RUNFIX DC XL7°C?
o0B1is o0CcO OB1A 103 TWCZR DC XL2" 08
OR1B O00 0818 108 PASS pe XL1°O?
OBIS CODSESTID3ICACLUO OCBZE 105 IRVFLG DC CLISG'INVALID SSW SETTING?
OB24 F2EZ2ZEFGUOF2CSERE3 105
O082C C3DSC? 105
OB2E DSDEEGYOFICSE2ZE3 OB&86 166 SPNMSG DC CL24*NOW TESTING DISK DRIVE x?
OB37 CEDSC7UDCECZIEZ DZ 106
CB3F SOCUDOCSESCE LOET 106
OBY7 C2CSC7ICIDSYUCESCS OB69 107 SECMSG DC CL35" BEGIN VERIFY DATA FUNCTION TEST AOG?
*OBYE LICSCHFSUOCUCTE3 107
0B57 CIYOCGESDSC3E3CS 107
OBSF D6ELSYUGEICSEZE34&0 107
OBE? CIFOFE 107
DATE 13MAR70 O6GAPR70 228A 770 O1AU0G70 010CT70 PROG iD OA06-2
EC KO. 571512 571516 5715813 571531 571540 PAGE Th
12% MAINTENANCE DIAGNOSTIC PROGRAS
A063 ©
£kR Loc
OB6A
OB6E
C572
OB75
0B79
OBTC
OBB2
0R85
OnPeB
OBS8C
OBSF
0B93
Og94u
~0B95
OBY7
0B99
CB9D
OBSF
OBA 3
OBAT
OBAB
OBAE
OBB2
OP R6
OPBY
ORBD
OBCO
oRgcy
oBCSs
OBCT
OBD1
OEDS
SAD9
OBDD
OBEO
OBEY
OBE7
OBEL
O3F1
OBFS
OPFA
OBFE
oc02
0Cc06
OCOA
OCOE
oct
0c15
0c19
Oc 1D
0c21
oc25
0c29
, DATE
Ay NO. 571512
; Cc QO 7 | | ;
®eoeeveeeevnevovnu5aueseeeeaeaoenaeaeneaeneeaeaeeeeeeeee ©
OBJECT
34 08
3D 00
F2 01
3¢ FF
F2 87
OD 01
F2 81
F2 87
38 06
F2 90
co 87
c6
13
OB2E
AOFA
VERIPY
CODE
oco0s
9818
Cc?
OB1B
T3MARTC
»D ata
ADDR
OBIA
0893
0n94
0B96
0n98
OBOE
19¢8
19c¢8
19¢8
0c29
OGBRPR70
571516
SOURCE STATEMENT
STAT
109 TSTSPN ST TSTEXT+3, ARR
110 CLI PASS,0
1711 IWE SETS PN
' 942 SSVI PASS,X'PF
*113 J TSTSHW
114 SETSPN CLC RUNFIX(2) ,TWOZR
115 JE ZROCTR.
116 a SETREV
117~—«
118 TSTSW TEN SECTSW,X*06!
119 JF TSTRAV
120 B PRINT
121 pc XL1°C6
*422 rc IL1*19¢
123 pc AL2 (INVF1G)
124 pc XL2*a0Fa
*125
126 B HALT
127 rc XLZ*AOFA®
128 B TEST
129 B TSTS®
130 TSTRNV TBN SECTSW,X*OK'
131 JT TSTFIX
132 MVI RUNRMV,X'FFS
133
134 TSTFIX TBN SECTSW,X*02!'
135 JT SETRBV
136 CLI RENVDS,X*FF?
137 JE SETRMV
138 MVI RUNFIX,X*FP?
139 SEIRMNV CLI RONRMYV,0
180 JE FIXED
141 ALC TBLA(2),ONE
142 NVI STEP,1
143 MVI DISKTP,O
144 MVI RUNENV,O
145 3 TSTEXT
156
147 FIXED CLI RUNFIX,0
148 JE ZROCTR
149. ALC TS8LH(2),ONE
150 CLI STEP,1
151 JE *+9
152 ALC TBLH(2),ONF
153 MVI DISKTP,xX'08!
154 sVI RUNFIX,0
455
156 TSTEXT B +
457
158 ZRCCTR CLI X*0a203",06
159 MVI PASS,0
160 JNE *411
161 MVI SETSK, )
162 B 0
163 MVI STEP,0
164 CLI X*0A03*,03
165 BE CKHDER
166 E LINK
167 STEP rc XL1°O?
22MAY7C 01A0G70 010CT70
571513 571531 571540
PART BO.
$129630
" PAGE 2
STORE EXIT. ADDRESS
IS THIS THE FIRST TIME THROUGH ?.
JUNP IF NO
SET SWITCH
PROCEED TO TEST SWITCHES
HAVE ALL DISKS BFES RUN?
JUNP IF YES 3 |
JUMP IF NO
TEST FOR BOTH SS8*S 15 & 16 ON
JUMP IF EOTH NOT OF
TO PRINT INVALID SSW SETTING
FLAGS
. LENGTH
MESSAGE ADDRESS
MESSAGE ID
TO DCP ERROR HALT
‘HALT ID
_TO READ CONSOLE SWITCHES
TEST FOR SWITCH 15 CN
JUNP IF ON
IF NOT ON, SET 10 RUN REMOVABLE DISK
TEST FOR SWITCH 16 ON
JUNP IF ON
TEST FOR REMOVABLE DISK ONLY
JUMP IF YES, NEVER RUN FIXED
IF NOT ON, SET TO RUN FIXED DISK
DO KE WANT [TO RUN ON REMOVABLE?
JUMP IF RO
INCREMENT TABLE POINTER
SET TO INDICATE SAME =
SET TO RUN ON REMOVABLE
CLEAR RUN REMOVABLE SWITCH
TO EXit
DO WE WANT TO RUN ON FIXED?
JUMP IF NO
INCREMENT TABLE POINTER
TEST FOR PREVIOUS STEP
JUNP IF YES
INCREMENT TABLE PCINTER
SET DISK TYPE TO FIXED
CLEAR RUL FIXED SWITCH
EXIT
CHECK FOR LAST ROUTINE
ZERO SWITCH
JUMP IF NOT LAST RCUTINE
RESET SWITCH
ZERO STEP S# ITCH
CHECK FOR COMPLETICN OF ROUTIKE 3.
BRANCH TO CHECK ERRORS
TO NEXT ROUTINE
PzOG ID OA06-3
PAGE 2
2 0 00000 6 @!;
oO ©
(
9 f) eg)
ey
OO. 2- 3
O
co
oS
Cc
Q
” 0 0 400 0
OY a A
‘-)
2)
) () oy
Q
a)
O
Fa eS a a nae eh A Eee co age ee eet ee
eis
IBM BAINTEMANCE DIAGHOSTIC PROGRAH
VeRrIFyY
Da
A063 Ta
ERR LOC OBJECT CODE ADDR
9C2aA 01 Oc2a
0c2B 00 0c28
-0C2C O£1D _ oc2D
OC2E 3D 00 0813
0C32 CO 81 OAOD
0C36 CO 87 OB6A
0C3A 3C 00 19DF
OC3E 3C 09 1BAz4
OC42 OC 00 19C4 OBIR
OC&B CO 87 19F8
ocsc 00 ocac
ocuD 00 ocap
OCUE 19C3 OCuF
0c50 CO 87 OC6A
OC54 CO 87 0C58B
OCcSE CO 87 1B7D.
OC5C CO 87 021A
oc60 06 0c60
OCé1 35 0c61
(C62 OCFO 0cs3
OC64 CO 87 0222
0C68 A009 Océs
OC6A CO 87 1853
OC6E 3C FF 19C4&
0C72 OC 01 19C6 OBIA
0c78 CO 87 19F8
oc7c 01 oc7c
OC7L 03 oc7D
OC7E 19C3 OC7F
Oc8o cO 87 OC8C
Oca’ CO 87 0c8s
oc88 co 87 OCc9C
OC8C CO 87 021A
0C90 C6 0c90
0c91 32 0c91
0c92 0D22 0c93
0C98 A020 oc9as
0C96 CO 87 0222
OC9A A020 ocoB
Oc9C CO B7 199
OCAO 02 OCAO
OCA1 38 04 19DF
OCAS F2 10 10
OCA8 CO 87 021A
OCAC C6 OCAC
OCAL 34 ocaD
OCAE OD69 OCAF
OCBO 4021 ocB1
0cB2 CO 87 0222
OCBE AG21 OCB7
OCB2 CO 87 0C36
OCEC E3C@CSIOD7DSCSES OCEA
OCC4Y CID6ESEZ%0CSD9D9
DATE 13NAR70 OGAPR7O..
EC NO. 571512 571516
ea eee x es Su me en eee
PART 80. 5129639
PAGE ae 2a
STST SOURCE STATEMENT
169 * ROUTINE HO. 01, CHECK FUNCTION OF NO RECORD FOUND 2
170 * ‘SENSE BIT, (BYTE 0, BIT 5)
*171 * USING THE VERIFY COMMAND
*172
173 * ROUTINE PREFACE a
174 ,
175 RTN7- DC XL1191¢ ROUTINE WO.
176 DC - = XL1* 06" ROUTINE FLACS
sh DC AL2 (RTN2) ADDRESS OF NEXT ROUTINE
1
179 BEGIN CLI SETSH,0 HAVE PARAMETERS BEEN EWT ERED?
180 BE SETDSK BRANCH IF NO
187 RTNIA B TSTSPH
*182 AVI STATOS-1,0 us ZERO SENSE AREA
183 NVI SNSID,09 INSERT ID IN PRINT
184 MVC RDDFC4+1(1),TRACK# SET TO SEEK THE CE TRACK
185 .B STRTIO TO I/O SUBROUTINE
186 pe XL1°00? FONCTION CQDE (CONTROL):
187 Dec XL17*0Q8 CONTROL CODE (SEEK}
188 DC AL2 (RDDFC) CONT ROL FIELD ADDRESS
189 B RTN1A1 GOOD RETURN
190 B #44. 3, Gane
191 B PRISNS TO DECUDE ERROR am Sine y
192 B PRINT TO PRINT ee
193 pe XL1*° 068 FLAGS - Bho eaheteae ee
194 DC I1L1'538 LENGTH
195 Dc AL2 (ERROR) MESSAGE ADDRESS
196 B HALT TO DCP HALT
197 BC XL2* A009" RALT ID
198 “
199 RTNIA1 2B TSTSEK TO TEST FOR GOOD SEEK Le
200 BVI RDDFC+1,xX' FF? SET CYLINDER NO. TC FORCE A HRP:
201 HVC RDDFC+3{ 2) ,TWOZR SET FOR TRACK 0, SECTOR 0
202
203 B STRTIO TO I/0 SUBROUTINE
204 Dc XL1*07" FUNCTION CODE (READ)
205 DC XL1*03°* CONTROL COLE (VERIFY)
206 pc AL2(RDDFC} CONTROL FIELD ADDRESS
207 B RTN1A2 GOOD RETURN, (KOT EXPECTED)
z08 B *+4
209 B RTN1B NORMAL RETURN PRON EXPECTED ERROR
270 RTNIA2 B PRINT TO PRINT ROUTINE ERROR
211 pc XL1'c6? FLAGS
212 DC IL1*°50° LENGTH
213 DC AL2 (ERR1A} ADDRESS OF LAST PRINT CHARACTER
214 Dc XL2*a020° MESSAGE ID
215 B HALT 70 DCP HALT
216 cc XL2* a020° HALT ID
217
278 RTNIB B SEKSE TO SENSE I/O SUBRCUTINE
219 Dc AL1(STATO1} DEVICE STATUS EYTES O & 1
220
221 TEN #$STATUS-1,X°08* TEST BYTE 0, BIT 5S POR OW
222 * ae Is 'NO RECORD ‘POUNDS ;
223 JT RTNIC MP IF ON
224
225 B PRINT TO PRINT ERROR
226 pc XL1'C6* FLAGS
227 DC IL1*52°¢ LENGTH
228 Dc AL2(ERB1B} ADDRESS OF LAST PRINT CHARACTER
229 pc XL2*aA024* MESSAGE ID
230 B HALT TO DCP HALT
231 pc XL2* a021* HALT ID
232
233 RTNIC B RTWIA ROUTINE EXIT
234
235 pc CL47"*THE PREVIOUS ERRORS OCCURRED WHILE SEEKING THE °
235
2." AY70 0 1A0G70 010CTTC PROG ID 0a06-3
57 “323 571531 571546 PAGE 2k
Ste a to a eR ee Ri ew
a
ie.
sie 3 .
vega. Costs
@9eeeedeoe@eee ee
Lae
LEU or
a
ey os
en
rt ern
rt
n
IBM BAINTENANCE DIAGNOSTIC PROGRAS
A063
ERR LOC
occc
ocra
OCDC
OCE4
OCEE
OCF 1
OCF9
onc}
ODesS
CD11
D193
0D21°
0D23
OD2B
O23
ODIB
Obu3
OpuB
0553
0D57
ors?
OD67
OD6A
CD72
ODTA
CD82
ODRA
Ong2
CBIA
OD9E
ODA6
ODA
, ODBS
ODBFE
crc
ODLg
ODp1
ones
OLE]
ODEY
ODF
ODES
OLTD
OF OS
CEOL
OES
DATE
EC NO.
VERIFY
OCJECT CODE
D6ODOEZUONGC 3C IER
p9IP9ecscu 4 CEGCECS
CICSHOEZCSCSD2C9
D5C74HOEIC BC5H4KO
CICSAOCIERD
ESCS5D9C9CE FB4 Ore
CIEZSCTHOEMEZC SE:
C7 NOC TSOD5SDERSCS
EFTCSE2ZE3C IDSE2UC
E2CSCIEINBROCE CE
GRY4ODS DES OCS DS DS
BHO
D5SL64ODICSC INE LO
C6 DEER DSCK ODS LE
EJ XOEQZCSEINOCZES
UOC 180E5C5DICSCE
ESNGCHUCTE3C1U0C3
CELA DUCIDSC4& CES
E2CSD540
C740 14OE 205 3E3
COLTSeGCICGNODECE
&BOCECE
E3CBCSYODIDSCSES
CELGESE2&CCSD9YDY
C6 DI F2ZUOFECSDICS
HOD TDOCSE2CSD5E3
SOCICGBE3C5SD9INOCY
DCACIDSC7HOC1N OES
cSrescgycs
ESUOD6CE4 OF 24 NE2
CSC3EIL6EDGE2 GER
£2C9D5C74u 0C8C5C1
CHROEZE6CSE3C3C8
c9psc7 ;
CEC5CICHKOSCK OE?
CSC JEIDED 94 OCZEG
FICS4OL6Cb6L0C IDE
DSEIDYDED 240CECS
CSLICUUODSDEE340O
E2FICSDIDICSCLUEG
CILEDSDS
CSCIEIDIERYOCICE
EICSPIGOCTROFSCS
DSCSCEEBYOFSECIES
CRECCBC5C IC4HOE2
E6CSEICICBCSDECT
TIMALTO
5715%2
DaeTa
ADDR
OcFo
Obnz2
ors6
Ont 8
ODSD
onco
ODF&
OEIC
OE RERTO
SVT USTE
STAT
235
235
235
235
236
237
237
237
237
237
237
237
‘238
238
238
' 238
238
238
238
239
239
239
240
240
240
240
240
240
249
241
244
241
244
244
242
242
242
242
2u2
242
242
243
243
243
243
243
22MAY70
57151313
PART #0. 5129636
PAGE 3
SOURCE STATERERT
EPRORS
ERRGA
CLOG6'CE CYL?
pc ;
CLSO‘VERIPY DATZ USING A NCONEXISTANT SECT. ID, "O ERR.
*be
CL52*HO REC. FCOND NOT SET BY A VERIFY DATA COMMAND USIK
*ERRB CL19*G A SECTOR ID OF FF®
*DC CL52°THE PREVIODS ERRORS WERE PRESENT AFTER DOING A VERIF®
ERROSA CL35*Y OF 2 SECTORS USING HEAD SWITCHIKG?
Dc CL5S2*HEAD & SECTOR BYTE OP CONTROL FIELL NOT STEPPED CORR’
ERKOSE DC CLYOTECTLY AFTER A VERIFY WITH HEAD SWITCHING
0 1AUG70
571531
010CT70
FRCE ID OaC6-3
571540
PAGL 3
oo 00°00 4 864
Q
ry
co
{ ’)
ar of
Oo a OQ a
oO no OF 8 8 aA © O&O QO @
qo aia
o . ; - . ae i: > Ss
CS
2)
O
")
g)
¢9
Qo Oo @
a063
ERR LOC OBJECT CODE
02
00
10 DS
1829
180P
0B13
OAOD
OBGA
1810
7
16 17
02
°39C%
10D3
1BAS
«
1978
OET4&
O£62
IBID
O21A
0222
18B1
VEBS
1EEB
3c
3c
oc
co
02
00
19 BF
87
67
87
TBA
19C2
19Ci
19F8
CEAS
CERO
OPGA
22
co
co
8&7
TEAS
18C2
19¢C4
19FS
1S EF
cC &F
co 6&7
OFED
OEC2
Co 8&7
19BEF
ca 8&7
1b t6
OF FE
2¢ &C
cG 87
co €&7F
icCcB
BIC
CFES
17490
1B7DB
TIEALFC
S7IL72
19CO OB14
TERY
TO03
1603
VERIFY DAtTa
ADDR
OE1D
OEIE
CE 20
0256
OES?
CE5S9
OEGA
OF6B
Of6D
0£73
OF9&
CESS
OES?
OFK6
OERT
Or©s9
OECD
GECF
OERFE7O
STISIE
LER HAINTERANCE DIAGNOSTIC PROGEAN
STMT SOURCE STATEMENT
245 «
286 ¢
247
288 RTN2
249
250
251
252
253
258
255
256 RTN2
257 :
258
259
260
261
262
263
268
265
266
267
2€8
269
270
271
272
273
27&
275
276
277
278
279
280
261
282
283
PRY
285
286
287
2F 8B
289
290
291
292
293
298
295
296
297
298
299
300
301
302
303
30"
305
306
307.
308
309
310
371
742
RIW2A1
ETK2B
ETH2BY
RTR2C
Z2RAYIO
571813
#
a PART
NO. °$129630~
PAGE 3a
ROUTINE WO. 02, CHECK VERIFY FUNCTION
*USING HEADS 0 & 2
pe XL1°02¢— ROUTINE KUSBER
DC XL1°O0# ROUTINE FLAGS ;
DC ALZ (FT N3) ADDRESS OF NEXT ROUTINE PREFIX
LA HDTBL-1,XR2 SET POINTER
St TBLH, XRZ FOR HEAD 0, REMOVABLE DISK
cLI SETSH,0 HAVE PARAMETERS REEN ENTERED?
EE SETESK BRANCH IF KO
B TSTSPN :
LA SECTBL,XR2 SET ERROR TABLE POIKTER
AVI 23{ ,XR2)} 0 ZERO SECTOR ,
FVC 8 =.22 (23, XR2) 522 (,4R2) ERROR FLAGS
MVC = =WRIDFC41(1) , TRACKE SET SEFK ADDRESS TO CE TRACK
AVI WRTDFC¢2 ,0 SET FOR HEAD 0, SECTOR 0
BVI EXPSEC,0 SET EXPECTED HEAD 6 SECTOR wO.
MVI =s- SNSID, 09 INSERT ID IN PRINT at
B STRTIC TO SEEK CE TRACK
cc XL1¢08 FUNCTION CODE (CONTRCL)
pe XL1*O8 CONTROL CODE (SEEK)
of AL2 (WRTDPC) CONTROL FIELD ADDRESS
B RTN2A1 GOOD RETURN
FE ey .
e PRTSNS TO DECODE ERROR
B PRIKT TO PRINT
rc XL I" 068 FLAGS
DC TLI°53* LENGTH
rc AL2 (ERRORS} “ESSAGE ADDRESS
B HALT TO DCP HALT
cc XL2* a00s? HALT ID
A TSTSER TO CHECK POR A GOOD SEEK
RVI WORKS 255, X° 278 SET DETA FIELD
PYC WORK¢256 (255) , WORK 4255
evi SNSID, X*12° PUT HAZCSAGE ID IK PRINT Pons
MYT WRTDFC?3? ,C SET TO 7RITE CNE SECTOR ra
BYC WRTDFC*2 (1), EXPSEC SET SEC1TOR NO IN CONTROL FIELD
B STRTIO TO I/O SUBROUTINE
rc XL1°02¢ FUNCTION CODE (WRITE)
rc xL17°008 CONTROL CODE (DATE)
ne AL2(¥RTDFC} CONTROL FIELD ADDRESS
E RTN2ZBY GOOD RETURN
B 9eG
B WETERZ ERROR RETURN
RVI SNSID, 1*22° PUT ID IN PRINT
svi URTDFC+3 0 SET TO VERIFY ONI SECTOR
BYC WRIDFC+2(1), EXYPSEC SET SECTOR NO IN CONTRCL FIELD
B STKTIC TO VERIFY DAT2
cc XL1° O18 FUNCTION CODE (RFAD)
rc XL1°O3¢ CONTROL CODE (VERIFY)
pc AL2 (WRTDFC) CONTROL FIFLD ADDRESS
B RTN2BZ GOOD RETURN
B ek
B SHIFT TO SHIFT BITS FOR DECIMAL NUMBER
CDC AL2 (HET CFC) ADDRESS OF SOURCE
B CVD TO CONVERT TO DECIEAL NUMBER
rc RL2 (CYLEC) ADDRESS Cr SOURCE
pc AL2Z{ ERROZR) ADDRESS OF DESTINATIOL
vt ERRG2A-Z,C* * SET A BLENK IN FRIKI IMAGE
B SETEER TO SET ERROR FLAG FOR THIS SECT.
B PRTSNS TO PRINT SENSE INFO.
C1AUG70 010CT70 PROG ID OR06--2
571531 571540 PAGE 3a
| | | e;e¢
: IBM MAINTENANCE DIAGNOSTIC PROGRAS | PART NO. 5129530 | . IBS SAINTEBARNCE DIAGNOSTIC PROGRAM PART RO. 5129630
: i ee PAGE _ 8 o;19 ; 7 PaGE om
- A063 VERIPY DATA a0é3 VERIPY DATA
i. e ‘ a.
_ERR LOC OBJECT CODE ~ ADDR STNT SOURCE STATEMERT ° ' ERR LOC OBJECT CODE ADDR STHT SOURCE STATERERT
fr OEDC CO 87 021A 313 B PRINT TO PRINT THIRD LINE c|9o . 381
, . OFEO 06 OEEO 314 rc XL1* 06° PLAGS - _OF8D F3CB8C5S4ODIDICSES OFCO 362 De CL52*THE PREVIOUS ERRORS WERE PRESENT AFTER DOING A VERIF
*OEE1 5A OEE? 315 pc IL1*90* LENGTH OF9S C9I6ESE280CSDIDY 382
OEE2 OFE6. OFE3 316 pc AL2(ERRO 2A) MESSAGE BDDRESS c | CG OFSD DEDIEZSOE6CSDICS 382
OEE4 CO 87 0222 317 B HALT TO DCP HALT OFAS SODTDICSE2CSDSE3 382
OFES A022 OFE9 318 cc XL2*a022° HALT ID [pines OFAD 80C1CSE3C5D948 0C4 382
UEEA F2 87 68 | 319 3 RTN2G o;¢C OFBS [6 C9DSC7HOCIGOES 382
os, 320 | OFBD CSDSC9C6~ 382
4 OEEB cO 87 187C 321 RTN2B2 B _ PSTDAT TO TEST DATA ADDRESS OFC1 ESYXOCECIE3CINOC3 OFE6 383 ERRO2A DC CL38"Y DATA COMMAND USING BEAD X, SECTOR xx
*i OEF1 IDSA OEF2 322 pe AL2 (WORK) co|c OFCO DED D4ECIDSCAs OES 383
: 323i‘ t OFD1 F2C9D5C780C8C5C1 383
t OEF3 3D FF 19¢2 . 324 RTN2C1 CLI WRIDFC+3,X*FF* TEST SECTOR COUNTER FOR STEPPING. OFDS C4 4O0E7EB4 OE2C5C3 383
: OEF7 F2 81 10 © 325 JE RT N2C2 PROCEED IF OK. o1s OFE1 ESDEDONOE7TE? 383 ach, 48 oy es. aiGasews,. 2 my oes oP,
- QOEFA CO 87 O21A . 326 8B PRINT TO PRINT SECTOR COUNTER NOT STEPPED OFE7? E2CSC3E3DED940C3 1011 384 EZRROZE DC CLU3"SECTOR COUNTER IN CONTROL FIELD NOT STEPPED
*' OEFE €6. OEFE 327 DC ——sXz&L‘1".C6* FLAGS . OFEF C6 ESDSE3CSD940C9 388 :
‘. @EFP 28 OEFF 328 pc IL1*63* LENGTH o | ¢ OFF7 DS80C3DEDSE3D9DE _ 388
OFOD 14F- QF01 329 Dc AL2 { ERRO2B) NESS AGE ADDRESS OFFF D340CECICSD3C440 384 aoe
@F02 A023 OFO3 330 pc XL2*a023¢ MESSAGE IDENTIFICATION 1007 DSD6E340E2E3C5D7 38a 1 OSS te
OFO4% CO 87 0222 331 B HALT TO DCP HALT o'G IOOF D7CSCa 384 .
- OFOB 2023 OPF09 332 DC xL2°a0 23! HALT ID | 1072 E6DSCIEICSYOCECY 1048 385 ERRO2ZC DC CL51'WRITE FIELD WAS ALTERED AFTER GIVING A VERFY CAND.
*eos Ph : | 101A C5SE3C44OEECIE24O 385 ; |
- OFOR OD 00 19C1 10D3_ 33G RTW2C2 CLC WRTIDFC+2(1),EXPSEC CHECK HEAD & SFCTOR NO. AFTER Cig 1022 CIDZJEICSDICSCURO 385
335 © WRITE IS COMPLETED, (EXPECT NO CHG.) | IO2ZA CIC6EIC*DISOCTCS 385
OF10 F2 81 10 336 JE RT N2D PROCEED IF OK . 1032 ESCSDSC7G0CT4OES 385
OF13 CO 87 O21A 337 B PRINT TO PRINT ERROR SG 103A CST9C6EB4OC3D4EDS 385
OF 17 C6 OP17 338 ce XL1*C6! PLAGS : 1082 C8HB4O 385 :
OP18 4S OF18 339 pc IL1'69° LENGTH | 10485 C8CSCICHLOSOBOE2 1078 386 BC CL52*HEAD & SECTOR BYTE OF CONTROL FIELD CHAXGED AFTER A
*0F19 1089 OP1A 340 pc AL2(ERRO2D) MESSAGE ADDRESS Ce WOUD CSCZEIDEDIVOCZES 386
OFTE A024 OFIC 341 DC XL2"*a024* MESSAGE IDENTIFICATION 1055 EICSYODECENOC3 DE 386
OFID CO 87 0222 342 R HALT TO DCP HALT Ds 105D DSE3D9DED 340C6C9 386
OF21 AO24 OP22 343 re XL2*aO24G? HALT ID C = 1065 CSL3CRHOC3CB8C1D5 386
344 106D C7C5C440CIC6E3CS 386
GF23 C2 02 1D8A 345 RTN2D LA WORK, XR2 SET XR2 TO POINT TO WORK AREA { 1075 D940C140 386 . ;
OF2? BD £7 00 3UG RTN2F CLI O({ ,XR2) ,X*E7¢ CHECK WORK AREA FOR NO CHANGE G | Cc 1079 DE6EDSC5XOE2ZCSC3E3 1089 387 ERRO2ZD DC CLI7*ONE SECTOR VERIFY
*OFZA F2 01 148 347 JNE RTN2E . JUMP TO PRINT IF WRT. FLD. IS CHG. 1081 L6LIVOESCSDICICE 387
OF2D £2 02 01 348 LA 1(,XR2) ,XR2 NOT DONE, INCREMENT XR2 108S E8 387 ae
OP30 34 02 19E2 349 ST SNSXR2,XR2 NO CHG, SET TO CHECK NEXT BYTE cae © 108A ESCSC540D7D9CSES 10BA 388 DC CLU9'THE PREVIOUS ERRORS OCCURRED WHILE TOING A WRITE
*OF 34 OD 01 19E2 1928 350 CLC SNSXR2(2),WORK2 CHECK XR2 FOR REACHED UPPER LIMIT. 1092 CIDE6EVE2ZLOCSD9DS 388
_OF3A F2 81 #148 351 JE RTN2G TO ROUTINE END. 109A D6D9E2Z40DEC 3C3E4 388
-OF3D CO 87 OF27 352 R RTN2F CHECK NEXT BYTE i i 10A2 DSDSC5Ck84 CE6BCBCI9 388 2,,
353 1OAA D3CS4OC4DECODSC7 _ 388 _
OFY’1 CO 87 O21A 354 RTNZE B PRIKT TO PRINT DATA FIELD WAS CHANGED en 1OB2 S0C1IS0ESDICIE3CS 388
OF45 C6 OFaS 355 pc XL1°C6? FLAGS | Cc CG TOBA 40 388
OF UG 33 OFL6 356 cc IL1*51° LENGTH 10PB C4CIE3C1I40C3DED4 10D2 389 ERRO2ZE DC CL24'*DATA COMND. USING HEAD Xx
*OFU? 1044 OF48 357 DC AL2(ERRO2C) MESSAGE ADDRESS 10C3 CSC44BYOESE2ZCIDS 389
OF4S A025 CF4A 358 pc XL2"a025° MESSAGE IDENTIFICATION Ce. 10CB C740CBCSCIC4S4OE7 389
OFYP CO 87 0222 359 B HALT TO DCP HALT 10D3 00 10D3 | 390 EXPSEC DC XL1°0
*OFUF A025 OF50 360 DC XL2*a025? HALT ID
eee 361 ao 6S
: OF51 3D SC 19C1 362 RTN2G CLI WRTDFC#2,x*5SC! TEST FOR LAST SECTOR OF TRACK 0
‘ - OFS®S F2 01 OB 363 SNE = RTN2J JUMP IF NOT DONE
OF58 CO 87 179E 368 B CKHED TO CHECK FOR ERRORS | c © ce
OFSC CO 87 0B31 365 RTN2H RB RTN2A ‘ |
OF60 OF 00 10D3 1926 366 RTN2J ALC EXPSEC(1),ONESEC INCREASE EXPECTED HEAD & SECTOR NO. oe
OF66 CO 87 OE78 367 B RTN2E REPEAT ON NEXT SECTOR OQ °C
368
OF6A 3C 12 IBAS 369 WRIER2 MVI SNSID,X"12° PUT ID IN SENSE
OF6E CO 87 1B7D 37¢ B PRTSNS TO PRINT STATUS ERROR C.
OF72 35 01 180F 371 L TBLH,XR1
OF76 IC OO 10D2 04 372 MVC ERRO2E(1),4(,XR1) MOVE HEAD NO. TO ERROR MSG. C
Be ae 373 C
OF7B CO 87 0214" 374 B PRINT TO PRINT WRITE ERROR
OF7F 06 OF7F 375 pe XL1!06° FLAGS
_ OFeO 49 OFB80 376. rc IL1°73¢ LENGTH oO ©
— -OF81 10D2—— _ . OFB2 377 DC. AL2(ERRO2E) MESSAGE ADDRESS
--, 0F83 CO .87 02225000 © 378... E HALT TO DCP ERROR HALT
“OF87 A012 °° | OF88 379 pC. XE2*a012! HALT ID GC .@
. OF83 CO 67 OFSC © 380 8 RIN2H
3 ; Cr
DATE 13MAR70 O6APR70 22MAY70 0 1AUG70 010CT70 PROG ID 0a06-3 DATE 13MAR70 OGAPRTO 228 aY70 0 1AUG70 010CT7C PROG ID 0A06-3
EC NO. 571512 571516 571513 571531 571540 PAGE 4 EC NO. 571512° 571516 571513 571531 571546 PAGE WA
G 3S
Seeevneeveeneneeoeeeeeeooeaeseeenoeeaeeaeeaneeeeee ee
© | ° 3
IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 5129630 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART RO. 5129630
: PAGE 5 G 6 PAGE 5A &
a063 VERIFY DATA © A063 VERIFY DATA :
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LGC OBJECT CODE ADDR STMT SOURCE STATEMENT
392 ¢ ROUTINE NO. 03, CHECK VERIFY FUNCTION . Go ¢s 1193 CO 87 O21A 460 B PRINT TO PRINT THIRD LIWE
393 * USING HEADS 1 & 3 1197 06 1197 461 pc XL1* 06" FLAGS
394 1198 SA 1198 462 DC IL1*°90* LENGTH
10D4 03 10D4 395 RTN3 DC XL1'03! ROUTINE NUMBER Sc 6 1199 OPE6 1194 463 pc AL2(ERRO2A) MESSAGE ADDRESS
10D5 00 40DS 396 pc XL1'00! ROUTINE FLAGS 11°B CO 87 0222 4u64 B HALT TO DCP RALT
10D6 1284 40D7 397 DC AL2 (RTN&) ADDRESS OF NEXT ROSTINE PREFIX 149F A027 11A0 465 pc XL2*a027°8 HALT ID
398 Cc 6 117A1 F2 87 64 466 J RTN3G
10D8 C2 02 182B 399 LA HDTBL+1,XR2 SET POINTER &67
10DC 34 02 180F 400 ST TBLH, XR2 FOR HEAD 1, REMOVABLE DISK 11A8 CO 87 187C 468 RTN3B2 B TSTDAT TO TEST DATA ADDRESS
10£0 3D 00 0B13 401 CLI SETS, 0 HAVE PARAMETERS BEEN ENTERED? } CG 11A2 IDSA 71A9 4&69 pc AL2(WORK)
10E4 CO 81 OAOD 402 BE SETDSK SRANCH IF NO 870
10E8 CO 87 OB6A 403 RTN3A BF TSTSPN 11AA 3D FF 19C€2 471 RTN3C1 CLI WRTDFC+3,X°FF? TEST SECTOR COUNTER FOR STEPPING
IOEC C2 02 1810 Gou LA SECTBL,XR2 SET ERROR TABLE POINTER ¢ Q 11AE F2 81 10 472 JE RTW3C2 PROCEED IF OK
10FO BC 00 17 405 BVI 23 (,XR2),0 ZERO SECTOR 11B1 CO 87 O21A 473 B PRIEST TG PRINT SECTOR COUKTER NOT STEPPED
1OF3 AC 16 16 17 806 BYC 22 (23,XR 2) ,23(,XR2) ERRCR FLAGS | 11B5 C6 11B5 474% pc YL1°C6? FLAGS
10F7 OC 00 19CO OB14 407 MVC WRTDFC+1(1),TRACK# SET WRITE ADDRESS TO CE TRACK Cle 11B6 2B 11B6 475 pc IL 1" 43° LENGTH
1OFD 3c 80 1SC1 408 MVI WRT DFC+2,X"*805 SET FOR HEAD 1, SECTOR 0 17187 1011 41B8 476 pc AL2 (ERRO2 B) MESSAGE ADDRESS
1101 3c 60 10D3 809 MVI EXPSEC,Xx'80* SET EXPECTED HEAD & SECTOR NO. 11B9 A023 11BA 477 pc XL2*A0238 BESSAGE IDENTIFICATION
1105 3c 09 1BA4 410 RVI SNSID,09 INSERT ID IN PRINT Cie 11BE CO 87 0222 478 B HALT TO DCP HALT
411 11BF A023 11¢CO0 479 pe XL2"a023* HALT ID
1109 CO 87 19F8 412 B STRTIO TO SEEK CE TRACK 4B0
110D 00 110D 413 pc XL1*0? FUNCTION CODE (CONTROL) Cci¢ 11C1 OD 00 19C1 10D3 &81 RTN3C2 CLC WRTDPC+2(1),EXPSEC CHECK HEAD & SECTCR RO. AFTER
110E 00 110E U14 pc XL1*O* CONTROL CODE (SEEK) 482 * . WRITE IS COMPLETED, (EXPECT KO CHG.)
110F 19BF 1710 415 pc AL2 (WRTDFC) CONTROL FIELD ADDRESS 11C7 F2 81 10 £83 JE RTN3D PROCEED IF OK
1111 CO 87 1128 416 B RTH3A1 GOOD RETURN Cie 11CA CO 87 021A 434 B PRINT TO PRINT ERROR :
1115 CO 87 1119 417 ¥ *+4 11CE C6 11CE 485 DC XL1*c6® FLAGS
17119 CO 87 1B7D 418 B PRTSNS TO DECODE ERROR | 11CF 44 11CP U86 pc IL 1°68" LENG TH
111D CO 87 O21A 419 B PRINT TO PRINT Cy 11D0 1089 11D1 0-487 DC AL2 (ERRO2D) MESSAGE ADDRESS
1121 06 1121 420 pc XL1°06° FLAGS 11D2 A024 11D3 488 DC XL2*a024" MESSAGE IDENTIFICATION
4122 35 1122 421 pc IL1*53* LENGTH 11D4 CO 87 0222 489 B HALT TO DCP HAL?
4123 OCFO 1124 422 pc AL2 (ERROR9Y) MESSAGE ADDRESS Cc G 11D8 AO24 11D9 490 pc XL2* a02K* HALT ID
1125 CO 87 0222 423 B HALT TO DCP HALT 891
1129 aACO9 112A 424 DC XL2*A009* HALT ID 11DA C2 02 1D8A 492 RTN3D LA WORK , XR2 SET XR2 TO POINT TO WORK AREA
425 2; Oo 11DE BD E7 00 493 RTN3F CLI O(,XR2),X*E7* CHECK WORK AREA FOR NO CHANGE
112B CO 87 1851 426 RTN3A1 B TSTSEK TO CHECK FOR A GOOD SEEK 11E1 F2 01 14 494 INE RTN3E JUMP TO PRINT IF WRT. PLD. IS CHG.
427 11E4 EZ 02 01 495 LA 1(,XR2),XR2 ROT DONE INCREMENT XR2 ;
112F 3C E7 1£89 428 RTN3B MMVI WORK+255,X'E7® SET DATA FIELD Cc 8¢6 11E7 3% 02 19E2 496 ST SNSXR2,XR2 NO CHG, SET TO CHECK NEXT BYTE >
1133 OC FE 1E88 1E89 429 BYC = -WORK#254 (255) , WORK+255 11EB OD 01 19E2 1928 497 CLC SNSXR2 (2) ,WORK2 CHECK XR2 FOR REACHED UPPER LISIT
430 11P1 F2 81 14 498 JE RT N3G TO ROUTINE ZND :
1139 3C 16 1BA4 431 NVI SNSID, X* 16° PUT ID IN PRINT C @ 11F4 CO 87 11DE 499 B RTN3P CHECK NEXT BYTE 7
113D 3c 00 19C2 432 MVI WRTDFC+3,0 SET TO WRITE ONE SECTOR 500
1141 OC 00 19C1 10D3 433 MVC WRTIDFC+2 (1) , EXPSEC SET SECTCR NO IN CONTROL FIELD 11F8 CO 87 021A 501 RIN3E B PRINT TO PRINT DATA FIELD WAS CHANGED
1147 CO 8&7 19F8 434 B STRTIO TO WRITE DATA Ci € 11FC C6 11FC 502 rc XYLi*c6? FLAGS
114B 02 118B 435 pc XL17*025 FUNCTION CODE (WRITE) 11FD 33 11FD 503 pc IL1*51° LENGTH
114c 00 114C (436 Dc XL1*°00* CONTROL CODE (DATA) | TIFE 1044 11FF 504 DC AL 2 (ERRO2C) MESSAGE ADDRESS
114D 19BF VIE 437 DC AL 2 (WRTDFC) CONTROL FIELD ADDRESS C+ ¢ 1200 A025 1201 505 DC XL2*a025" MESSAGE IDENTIFICATION
114F CO &7 115B 438 B RTN3B1 GOOD RETURN 1202 cO 87 0222 506 B HALT TO DCP HALT
1153 CO 87 1157 439 B *+4 1206 A025 1207 507 DC XL2"a025° HALT ID
1157 CO 87 1221 440 B WRTER3 ERROR RETURN & | é 508 =~
4at | 1208 3D pc 19C1 509 RTN3G CLI WRTDPC+2,X'"DC* TEST FOR LAST SECTOR CP TRACK 1
115B 3c 27 BAS 442 RTN3BT BVI SNSID, X*27! PUT ID IN PRINT | 120cC F2 01 08 510 JNE RTN3I JOMSP IF NOT DONE .
115F 3c 00 19c2 443 MVI WRTDFC+3,0 SET TO VERIFY ONE SECTOR CC | Cc: 120F CO 87 179E 511 B CK HED TO CHECK FOR ERRORS -
1163 OC 00 19C1 10D3 Quy MYC WRTDFC:2(1),EXPSEC SET SECTOR NO IN CONTROL FIELD | 1213 CO 87 10E8 512 RTN3H B RIN3A
1169 CO 87 19F8 nu S B STRTIO TO VERIFY | 1217 OZ 00 10D3 1926 513 RTN3J ALC EXPSEC(1),ONESEC INCREASE EXPZCTED HEAD & SECTOR XO. ;
116D 01 116D 446 DC XL7'01' PUNCTION CODE (READ) G ¢ 1212 CO 87 112F S14 B ETNSB REPEAT ON NEXT SECTOR ie
116E 03 J16E 4Uu7 , pc XL1'03! CONTROL CCDE (VERIFY) 1221 3C 16 1BA4 515 WRIER3 MVI SNSID, X'16! PUT ID IN SNS
116F 19BF 1170 44B rc L2(WRTDFC) CONTROL FIELD 4225 CO 87 1B7D 516 B PRTSHS TO PRINT STATUS ERRORS
1171 CO 87 11A4 44g B RTN3B2 GCOD RETURN C'S 1229 35 01 180F 517 L TBLE,XR1 :
1175 CO 87 1179 450 B +4 122D 1¢ 00 10D2 04 518 MVC ERRO2E(1),4%(,XB1) MOVE HEAD NO. TO ERROR MSG.
451 1232 CO 87 021A 519 B PRINT TO PRINT WRITE ERROR _
1179 CO 87 1CCB 452 RTN3C 2B SHIPT TO SHIFT BITS POR DECIMAL NUBBER Cc Ee 1236 06 1236 520 pc XL1' 062 PLAGS oS
1170 19BF TIVE 453 DC AL2 (WRT DFC) ADDRESS OF SOURCE 4237 49 1237 521 pc IL1°73° LENG TH
T17F CC 87 DIC 454 B CVD TC CONVERT NUMBER TO DECIMAL 1238 10D2 1239 522 pc AL2(ERRO2E} MESSAGE ADDRESS 7
1183 1D10 1184 &55 pc AL2 (CYLNO) LDDRESS OF SOURCE? C @G 123A CO 87 0222 523 B HALT TO DCP FRROR HALT %
1185S OFE6 1186 4456 pc AL2 (ERRO2A) APDRESS OF DESTINATION 123E A016 123F 524 Dc XL2*°A016* HALT ID
1187 3¢ 40 OFEY 457 nvI ZRRO2ZA-2,C* * SET A BLANK IN PRINT IMAGE 1240 CO 87 1213 525 B RTK3H ze
118B CO 87 1780 858 B SETERR TO SET ERROR FLAG FOR THIS SECT. c 6 526 a
118P CO 87 1B7D 459 B PRTSNS TO PRINT SENSE INFO.
Z eG & ce
DATE 13MART7O OOAPRT7O 22MAY70 O1A0G76 016CT70 PROG ID GA0S-3 DATE 13MART70 C6APRT70 22 MAY7TO O7AUG70 O10CT70O PROG TID OR06-3
EC NO. 571512 571516 571513 571531 571540 PAGE 5 EC NO. 571512 571516 571513 571531 571540 PAGE SB ts
CoG ’
2 @ 2
c as on
2)
& ¢ lat
S ) ad
IB* MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 5129630 IBM MAINTENANCE DIAGNOSTIC PROGRAS PART ¥O. 5129630 :
PAGE 6 Giese PAGE 6A ”
A063 VERIFY ODATA ¢ A063 VERIFY DATA
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT
528 * ROUTINE NO. 0&4, CHECK VERIFY DATA * © 1e 12F7 IDeA 12F8 596 pc AL2 (BORK) EXPECTED ADDRESS
529 * USING MULTIPLE SECTORS * 597
530 * HEADS 0 & 2 12P9 3D FF 19¢2 598 RTNUCT CLI WRTDFC+3,X*FP® TEST SECTOR COUNTER FOR STEPPING
531 c ie 12FD F2 81 10 599 JE RTNSC2 PROCEED IF OK
1204 04 1244 532 RTNS DC XL1" Out ROUTINE NUMBER 1300 CO 87 021A 600 B PRINT TO PRINT SECTOR COUNTER NOT STEPPED
1245 00 1245 533 pc XL1°00* ROUTINE PLAGS 13048 C6 1304 601 pc XL1* C6? FLAGS
1246 1402 1267 534 pc AL2 (RTNS) ADDRESS CF NEXT ROUTINE PREFIX ole 1305 2B 1305 602 DC IL1*93° LENG TH
535 1306 1011 1307 603 pc AL2 (ERRO2B) MESSAGE ADDRESS
1248 C2 02 1829 536 LA HDTBL-1,XR2 LOAD HEAD NO. POINTER 1308 A023 1309 608 DC XL2*a023° MESSAGE IDENTIFICATION
124C 34 02 180F 537 ST TBLH,XR2 STORE Gc |¢ 130A CO 87 0222 605 B HALT TO DCP HALT
4250 3D 00 0813 538 CLI SETS, 0 HAVE PARAMETERS BEEN ENTERED? 130E A023 130F 606 pe XL2* a023* HALT ID
1254 CO 81 OAOD 539 BE SETDSK BRANCH IF NO 607
1258 CO 87 OBGA 540 RTNSA RB TSTSPN Q G 1310 3D O48 19¢1 608 RINYC2 CLI WRIDFC+2,08 CHECK HEAD & SECTCR WO. AFTER
125¢ OC CO 19C0 OB14 541 MVC WRTDFC4+1 (1), TRACK# SET WRITE ADDRESS TO CE TRACK 609 * WRITE IS COMPLETED, (SHOULD STEP)
1262 3c 00 19C1 542 MVI WRITDFC+2,0 SET FOR HEAD 0, SECTOR 0 1314 F2 81 10 610 JE RTNYD JONP IFSTEPPED CORRECTLY
1266 3C 09 1BA4 543 MVI SNSID,09 INSERT ID IN PRINT GC 1S 1317 CO 87 021A 611 B PRINT
584 131B C6 131B 612 rc XL1°c6? FLAGS
126A CO 8&7 19F8 545 B STRTIO TO SEEK CE TRACK 131¢ 51 131cC 613 DC IL1°817!* LENGTB
126E 00 126E 546 DC XL1°0! FUNCTION CODE (CONTROL) Cc CQ 131D 1401 131E 614 pc AL2 (ERRO4B) MESSAGE ADDRESS
126F 00 126P 547 DC XL1*O* CONTROL CODE (SEEK) 131F A028 1320 615 DC XL2"a028! MESSAGE IDENTIPICATION
1270 19BF 1271 548 DC AL 2 (WRTDFC) CONTROL FIELD ADDRESS 1321 CO 87 0222 616 B HALT TO DCP HALT
1272 CO 87 128C 549 B RTNGA1 GCOD RETURN Gle 1325 A028 1326 617 pc XL2*a028°* RALT ID
1276 CO 87 127A 550 B *+4 618
127A CO &7 1B7D 551 R PRTSNS TO DECODE ERROR 1227 C2 92 IDSA 619 RTNYD LA WORK, XB2 SET XR2 TO POINT TC WORKAREA
127E CO 87 021A 552 B PRINT TO PRINY CA CG 132E BD 10 00 620 RTNUP CLI O(,XR2),xX*10? CHECK WORKAREA FOR NO CHANGE.
1282 06 1282 553 DC XL1" 06° FLAGS 132E F2 01 14 621 JNE RTNYE JUMP TO PRT. IF WRT. PLD. IS CHG.
1283 35 1283 554 DC IL1'53? LENGTH 1331 E2 02 01 622 LA 1(,XR2) ,XR2 SET TO CHECK NEXT BYTE
1284 OCFO 1285 555 DC AL2(ERROR9) MESSAGE ADDRESS Cr 1334 34 02 1982 623 ST SNSXR2,XR2 STORE FOR COMPARE
1286 CO 87 0222 556 B HALT TO DCP HALT 1338 OD 01 1922 192A 624 CLC SNSXR2(2),HORK3 CHECK X82 FOR OPPER LISIT
128A A009 128B 557 pc XL2* A009" HALT ID 133E F2 81 14 625 JE RT NGG TO ROUTIKE END IF DORE
558 Coe 1341 CO 87 132B 626 B RT NGF CHECK NEXT BYTE
128C CO 87 18B1 559 RTN4A1 B TSTSEK TO TEST FOR A GOOD SEEK 627
560 1345 CO 87 021A 628 RTNGE B PRINT TO PRINT DATA FIELD WAS CHARGED
1290 30 10 1F89 561 RTN4B NVI WORK+511,X'"10° SET ci. ¢ 1349 C6 1389 629 DC XL1'C6* FLAGS
1294 OC FE 1788 1F89 562 BVC WORK+4+510 (255) ,WORK+511 2 SECTOR 134A 33 134A 630 pc IL1¢51° LENGTH
129A OC FF 1E89 1E8A 563 MVC WORK+255 (256) , WORK+256 WORKAREA | 134B 1044 134¢ 631 pc AL2 (ERRO2C) MESSAGE ADDRESS ;
564 Ce ae 134D A025 134E 632 rc XL2" a025" MESSAGE IDENTIFICATION “a
1ZA0 3C 12 1BA4 565 MYI SNSID, X* 12! PUT ID IN PRINT 134F CO 87 0222 633 B HALT TO DCP HALT
12A4 3C 01 19C2 566 MVI =- WRTDFC+3,01 SET TO WRITE 2 SECTORS | 1353 a025 1354 634 pc XL2* a025* HALT ID 2
12A8 CO 87 19F8 567 B STRTIO TO WRITE DATA, (2 SECTORS) re 635 ~
12AC 02 12AC 568 DC XL1*02' FUNCTION CODE (WRITE) 1355 cO 87 1258 636 RTNGG B RTNSA ROUTINE EXIT
12AD CO 12AD 569 DC XL1*00° CONTROL CODE (DATA) 1359 E3C8CS54OD7DICSES 138C 637 pc CL52'*THE PREVIOUS EPRORS WERE PRESERT AFTER DOING A VERIF®
12AE 19BF 12AP 570 re AL2 (WRTDFC) CONTROL FIELD ADDRESS Co | = 1361 COL6EXE2N0C5D9ODI 637
1230 CO 87 12BC 571 B RTNGB1 GOOD RETURN 1369 D6D9E2ZUOESC5DICS 637
12B4 CO 87 12B8 572 B *+ | 1371 4OD7D9CSE2CEDSE3 637 ‘
12B8 CO 87 OF6A 573 B WRTER2 ERROR RETURN Cae 1379 40C1C6E3C5D94 0C4 637 ae
574 1381 L6C9DSC7T4NCINOES 637
12BC 3C 22 1BA4 575 RTNUBT MVI SNSID,X*22! PUT ID IN PRINT 1389 cSD9C9C6 637
12c0 3c 01 19C2 576 MVI WRIDFC+3 ,01 SET TO VERIFY TWO SECTORS Co ue 138D E840C3D6D4D4C1D5 13B0 633 ERROSA DC CL36"Y COMMAND USING HD. X, SECTORS 0 & 1°
12C4 3c 00 19C1 577 NVI WRIDPC+2,0 SET TO START AT SECTOR 0 1395 C&40E4E2CIDSC7T4HO 638
12c8 CO 87 19F8 578 B STRTIO TO VERIFY DATA | 139D C8CU4BNOE7EBY0E2 628
12cc 01 12¢C 579 pe XL7°01! FUNCTION CODE (READ) Ce 13A5 C5SC3EIDEDIE2ZKNOFO 638
12cD 03 12CD 580 Dc XL1°03' CONTROL CODE (VERIFY) | 13AD S05040F1 638
TZCE 19BF 12CF 581 DC AL2(WRTDFC) CONTROL FIELD ADDRESS 13B1 C8CS5SCIC4Y4OSO40E2 13E4 639 cc CL52"*HEAD & SECTOR BYTE OF CONTROL FIELD WOT STEPPED CORR®* .
12DC0 CO 87 12F3 582 B RTN4B2 GOOD RETURN Can 13B9 CSC3E3L6D940C2E8 639
12D4% CO 87 12D8 ; 583 B *+h 13C1 E3C540D6C640C3D6 639
584 13C9 DSE3D9D6D340C6C9 639 =
12D8 CO 87 1B7D 585 RTNSC B PRTSNS TO PRINT SENSE INFO Ge ag 13D1 C5D3C440D5D6E340 639
12DC 35 01 180F 5 86 L TBLH,XR1 LOAD HEAD NO. POINTER 13D9 E2E3C5SD7D7C5C4HO 639
12EO 1C 00 13A1 04 587 MVC ERRO4YA-15(1),4{ ,XR1) PUT HEAD NO. IN FRROR BSG. 13E1 C3D6D9D9 639
12E5 CO 87 O21A 588 B PRINT TO PRINT 3RD LINE C -sG 13E5 CSC3E3D3E840C1C6 1401 640 ERROSB DC CL29"ECTLY AFTER A 2 SECTOR VERIFY
*42E9 06 12E9 589 pc XL1'06! FLAGS IZED E3C5DI4OCI4OF24N0 640
12EA 58 12ER 590 Dc IL1' 888 LENGTH 13F5 F2C5C3E3D6D940ES 640 Zs
12EB 1380 12EC 591 DC AL2(ERROWA) MESSAGE ADDRESS i “G 13FD C5D9C9IC6EB 640 .
12ED CO 87 0222 592 B HALT TO DCP HALT
12F1 A022 12F2 593 pc XL2*a022* HALT ID ~
594 © oe ed
12F3 CO 87 187C 595 RTNSB2 B. TSTDAT TO TEST DATA ADDRESS
C os ID OA06-3
DATE 13MAR7O OGAPR70 -22maY70 0 1A UG 70 010CT70 PROG ID 0A06-3 DATE 13MAR70 OGAPR70 22MAY70 0 1A0G70 O10CT7O FROS
EC NO. 571512 571516 * 571513 571531 571540 PAGE 6 ° EC NO. 571512 571516 571513 571531 571580 PAGE 6A n
Ceeeceeeoeeoeeeeeeeeceseevseeeeneneeenaneeeee
IBS MAINTENANCE DIAGNOSTIC PROGRAMS
a063
VERIFY
DATA
ERR LOC OBJECT CODE
1402
180 3
1804
1406
THOA
I4OE
1412
1416
VOTA
1420
28
w]e
W2C
182D
T42E
1430
1434
1438
143C
14480
T4at
14a2
1404
1448
VORA
T4UUE
1852
1458
T4SF
1462
1466
1467
1868
146A
TH6E
1472
1476
VS7A
147E
1482
1483
1484
1486
sQBA
14BE
1492
1496
1497
1498
T49A
149E
T4A0
T4A4
T4A8
74ac
DATE
EC HO.
05
00
1536
C2 02
34 02
3D 00
co 81
co 87
‘Oc 60
3c 5C
3c 09
co 87
01
182A
18 0F
0B13
OAOD
OBGA
19¢0
19C1
1BAS
19F8
WEA
1438
1B7D
O217A
0222
18B1
1F89
1F88
1E88
19C2
19F8
1876
1872
OF6A
IBA
19¢C1
19F8
14,0
148E
1B7D
O21A
0222
TBA
19C2
19F8
T3MAR70
571512
-OB1T4.
1F89
1E89
ADDR
1402
1403
1805
42C
142D
142F
1440
1441
1443
144g
1466
1467
1&69
1482
1483
1485
1496
1497
1499
149F
T4aACc
OG6APR70
571516
STST
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
- 657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
6 86
687
688
68°
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
SOURCE
tee #
RT N5
RTNSA
RT NSA
RT N5B
RT N5B1
RTNSB2
228 AY70
571513
PART WO.
5129630
PAGE 7
STATEMENT
ROUTINE NO. 05, CHECK VERIFY FUNCTION: USING
*HEAD SWITCHING,
*BEGIN WITH HEAL 0, SECTOR 23,
*END WITH HEAD 1, SECTOR 0
*DC xL1°05'* ROUTINE NUMBER
BC XL1*00
*bc AL2 (RTN6)
ROUTINE FLAGS
ADDRESS OF NEXT ROUTINE PREFIX
LA HDTBL, XR2
ST TBLH,XR2
CLI SETSW,0 HAVE PARAMETERS BEEN ENTERED?
BE SETDSK BRANCH IF NO
B TSTSPN
MVC WRTDPC+1( 1), TRACK# SET CYLINDER ADDRESS TO CE TRACK
MVI WRIDFC+2,X"SC? SET FOR TEAD 0, SECTOR 23
MVI SNSID,09 INSERT ID IN PRINT
FE STRTIO TO SEEK CE TRACK
DC XL1*0! FUNCTION CODE (CONTROL)
pc XL1*0# CONTROL CONE (SEER)
DC AL2 (WRTDPC) CONTROL FIELD ADDRESS
B RTNSA1 GOOD RETURN
B +4
B PRTSNS TO DECODE ERROR
B PRINT TO PRINT
DC XL17*06' FLAGS
pc IL1*53°* LENGTH
pe -AL2 (ERRORS) MESSAGE ADDRESS
B RALT TO DCP HALT
pec XL2'a009* HALT ID
8 TSTS EK TO CHECK FOR A GOOD SEEK
MVI WORK4+511,X'E7! SET
MVC =9WORK+510 (256) , WORK4511 DATA
MVC WORK4+254(255},WORK4255 FIELD
NVI = -WRTDFC+3,1 SET TO WRITE TWO SECTORS
B STRTIO TO 1/0 SUBROUTINE
DC XL1*02° FUNCTION CODE (WRITE)
DC XL1*00! CONTROL CODE (DATA)
pe AL2(WRTDFC) CONTROL FIELD ADDRESS
B RTNSP1 GOOD RETURN
B #+ 4
B WRTER2 ERROR RETURN
nVI SNSID,X'09* PUT ID IN PRINT
MVI WRIDFC+2,Xx'"SC* SET TO START AT TRACK 0 SECTOR 23
B STRTIO TO SEEK
DC XL1°0" FUNCTION CODE (CONTROL)
pC XL1°08 CONTROL CODE (SEEK)
DC AL2 (WRTDFC) CONTROL FIFLE ADDRESS
B RTN5S 282 GOOD RETURN
B +4
B PRTSHS TO DECODE ERROR
B PRINT TO PRINT
pc XL1"06° FLAGS
pc IL1*52¢* LENGTH
DC AL2(ERROR9) MESSAGE ADDRESS
B HALT TO DCP HALT
pe XL2*Aa009° HALT ID
HVI SNSID,X*2A° PUT ID IN PRINT
NVI «-«; WRTDFC+3,1 SET TO VERIFY 2 SECTORS
B STRTIO TO VERIFY 2 SECTORS
pe XL1*01° FUNCTION CODE (READ)
0130670 010CT70 PROG ID 0A06-3
571531 571540 PAGE 7
@
©
6
G
o
o
©
&
oO AO OF ODO @
Oo
O
2 0 00600 0 0 90 90 9 6
}
i
i
ane eee =
©
aa00n 00 © 020000060 0
| @ 0 6 @ 8 8 @ 0 Q OQ 9
G
©
©)
IBS MAINTENANCE DIAGNOSTIC PROGRAR
SOURCE STATESENT
A063 VERIFY DATA
ERR LOC OBJECT CODE ADDR STNT
14ADd 03 14AD 710
THAE 195FP VEAP 711
18BO0 CO 87 14CA 712
14B4 CO 87 1438 713
718
14B8 CO 87 1B7D 715 RTNSC
14BC CO 87 021A 716
14C0 06 14cO 09717
14C1 57 14C1 718
14C2 ODCO 14c3. 719
14c4a CO 87 0222 720
14C8 AO2A 14c9 0 =0721
722
Tuca CO 87 187C 723 RTNSB3
14CE 1D8A 14CrY 724
725
V4r0 3D FP 19C2 726 RTNSC1
14D4& F2 81 10 727
14D7 CO 87 O21A 728
14DB C6 WDB 729
VapC 28 14pc =—730
18DD 1011 T8DE 731
14DF A023 V4EO 732
18E1 CO 87 0222 733
1KES5S A023 WWEG 734
735
T4E7 3D 80 19C1 736 RTNSC2
14EB F2 81 10 737
18HEE CO 87 O2TA 738
739
*TUF2 C6 WWF2 740
1T4FP3 SC WF3 «(741
V4FR OEIC T4F5 7482
14F6 A029 14F7 743
14F8 CO 87 0222 74
14FC A029 14FD 745
746
TWUFE C2 02 1D8A 747 RTNSD
1502 BD E7 00 748 RTNSF
1505 F2 01 148 749
1508 E2 02 01 750
1S0B 34 02 19E2 751
150F OD 01 19E2 192A 752
1515 F2 81 14 753
1518 CO 87 1502 754
755
151c CO 87 O21A 756 RTNSE
1520 C6 1520 757
1521 33 1521 758
1522 10448 1523 759
1524 A025 1525 760
1526 CO 87 0222 761
152a A025 152B 762
763
152C OF 01 180F 19C8 764 RTNSG
1532 CO 87 1816 765
DATE 13MAR70 O6APR70 22MAY70
EC NO. 571512 571516 571513
pe XL1! 03!
pc AL2 (WRTDFC)
B RTNSB3
B #49
B PRTSNS
B PRINT
pc XL 1°06?
pc IL1*87
*pc AL2 { ERROSA)
B HALT
bc XL2' AO2A
*B TSTDAT
pc AL2 (WORK)
CLi WRIDFC+3,X'°FP
*JE RTNS5SC2
B PRINT
pc XL1*C6
*pe IL1*a3°
pc AL2 (EERRO2B)
bc XL2*a023'°
B HALT
pe XL2*a023°
cli WRIDFC+2 ,x*80
*JE BT NSD
B PRINT
pc XL1*C6
*DC IL1*92!
pc AL2 (ERROSB)
pe XL2*a029!
B HALT
pe XL2*a029°
LA WORK, XE2
CLI 0(,XR2) ,Xx* £E7°
JNE RTWSE
LA 1(,XR2) - X82
st SNSXR2,XR2
cLc SNSXR2 (2) ,WORK3
JE PT NSG
B RBI NSFP
8B PRINT
DC XL14* c6
*pe IL1*51°
pc AL2 (ERRO2C)
pc XL2*a025!
B HALT
BC XL2*a025°
ALC TBLS (2) ,ONE
B RINSA
01AUG70 010CT70
§71531 571580
PART WO. 5129630
PAGE TA
CONTROL CODE (VERIFY)
CONTROL FIELD ADDRESS
GCOD RETURN
TO PRINT SENSE INFO.
TO PRINT 3RD LINE
FLAGS
LENGTH
BESSAGE ADDRESS
TO DCP HALT
HALT ID
TO TEST DATA ADDRESS
ZXPECTED ADDRESS
TEST SECTOR COUNTER FOR STEPPING
PROCEED IF OK
TO PRINT SECTOR COUNTER NOT STEPPED
FLAGS
LENGTH
MESSAGE ADDRESS
BESSAGE IDENTIFICATION
TO DCP HALT
HALT ID
TEST EXDING HEAD & SECTOR ADDRESS
PROCEED IP OK
TO PRINT HEAD & SECTOR ADDRESS
NOT STEFPED CORRECTLY
FLAGS
LENGTH
MESSAGE ADDRESS
MESSAGE IDENTIFICATION
TO DCP HALT
HALT ID
SET XR2 TO POINT TO WORK AREA
CHECK WRITE FIELD FCR RO CHANGE
JUMP TO FRINT IF WRT. FLD. IS CHG.
NOT DONE, IECREMENT XR2
SET TO CHECK NEXT BYTF
CHECK XR2 FOR UPPER LINIT
IF DONE, GO TO ROUTINE END
NOT DORE, CHECK NEXT BYTE
TO PRINT DATA FIELD WAS CEABGED
PLAGS
LENGTH
HESSAGE ADDRESS
MESSAGE IDENTIFICATION
TO DCP HALT
HALT ID
PROG In
PAGE
0a06-3
7a
e@e02020802800800808088088
°o
©
)
3
uA
3 ae
©
IBM MAINTENANCE DIAGNOSTIC PROGRAB
A063
VERIFY
D
ERR LGC OBJECT CODE
1536 C6
1537 00
7538 FFFF
153A C2 02
IS3E 34 02
1542 3D 00
1546 CO 81
154A CO 87
15UE OC CO
1554 3c DC
1558 3c 09
155¢ CO &7
13MAR7
571512
182A
180F
0B13
OAOD
OB6A
19c0
19C1
1BAY
19F8
157E
156C
1B7D
O21A
0222
1881
1F89
1F88
1E89
19C2
1SF8
TSAA
15A6
OF6A
IBA
19C2
19C1
19F8
1SCA
15C6
15DA
O21A
0222
0
OB14
1F89
TESA
ATA
ADDR
1536
1537
1539
1560
1561
1563
1574
1575
1577
157D
159A
1598
159D
15BA
15BB
15BD
15CE
15CF
15D1
15D3
15D9
O6RPR70O
571516
STMT SOURCE STATEMENT
767 * ROUTINE NO. 06,
768
*769
*770
771 = =* ROUTINE PREFACE
772
773 RING pe XL1°06!
774 De XL1'00!
775 pc XL2'FFFF!?
7176
777 LA HDTBL, XR2
778 ST TBLH,XR2
779 CLI SETSW, 0
780 BE SETDSK
781
782 RTN6GA R TSTSPN
783 MYC WRIDFC+1 (1) , TRACK#
784 MVI WRIDFC+2,X'"DC
*785 NVI SNSID,09
786
787 B STRTIO
788 Dc XL1'O?
789 Dc XL1'0?
790 pc AL2 (WRTDFC)
791 RB RT NGAI
792 B *44
793 B PRISNS
794 B PRINT
795 Dc XL1'06!
796 pce IL 1: 53?
797 pc AL2 (ERRORQ)
7938 B HALT
799 DC XL2°A009!
800
801 RTN6A1 B TSTSEK
802
803 RTK6B MMVI WORK*#511,X*E7®
*804 MVC WORK+510 (255) , WORK4+511
805 MVC WORK+255 (256) , WORK +256
806
807 MVI WRTDFC+3,00
808 B STRTIO
809 cc XL17*02!
810 pc XL1*00!?
811 Dc AL2 (WRTDFC)
812 B RTN6B1
813 B *+
B14 B WRTER2
815
816 RTNG6BI BVI SNSID,X*2c!
817 NVI WRIDFC+3,1
818 MVI WRIDFC+2,X*DC?
819 B S?TRTIO
820 rc XL1'O1!
821 dc XL1*03°
822 pc AL2 (WRTDFC)
823 B RT N6B2
824 B *+4
825 B RTN6C
826 RTN6B2 B PRINT
827 Ddc XL1°C6!
828 DC IL1'77!
829 pc AL2 (ERRO6A)
830 Dc XL2'A02C!
831
832 B HALT
833 DC XL2*a02c!#
834
228AY70 01AUG70 010CT70
§71513 571531 571580
CHECK
SENSE
OSING
PART RKO.
5129630
PAGE 8
FUNCTION OF END CF CYLINDER
*BIT, (BYTE 1, BIT 2)
*THE VERIFY COMMAND
*ROUTINE NUMBER
ROUTINE FLAGS
LAST ROUTINE FLAG
HAVE PARAMETERS BFEN ENTERED?
BRANCH IF NO.
SET SEEK ADDRESS TO CE TRACK
SET FOR BEAD 1, SECTCR 23
INSERT If IN PRINT
TO SEEK CE TRACK
FUNCTION CODE (CONTROL)
CONTROL CODE (SEEK)
CONTROL FIELD ADDRESS
GOOD RETURN
TO DECODE ERROR
TO PRINT
FLAGS
LENGTH
MESSAGE ADDRESS
TO DCP HALT
HALT ID
TO TEST FOR A GOOD SEEK
SET
2 SECTOR
WRITE FIELD
SET TO WRITE 1 SECTOR
TO WRITE DATA
FUNCTION CODE (WRITE)
CONTROL CODE (DATA)
CONTROL FIELD ADDRESS
GCOD RETURN
ERROR RETURN
PUT ID IN PRIKT
SET TO VERIFY 2 SECTORS
SET FOR HEAD 1, SECTOR 23
TO VERIFY DATA, (EXPECT END OF CYL.)
FUNCTION CODE (READ)
CONTROL CODE (VERIFY)
CONTROL FIELD ADDRESS
GOOD RETORN, (NOT EXPECTED)
ERROR RETURN, (EXPECTED)
TO PRINT NO ERROR FROM TIO
FLAGS
LENG TH
MESSAGE ADDRESS
MESSAGE IDENTIFICATION
TO DCP HALT
HALT ID
PROG ID OA06-3
PAGE 8
Oo oOo 0 060 9 © &@ 6 0 @
e a 0 6.980CUcOWlCUCOCCA OCMC GSD COB
QO
oO Oo OF 9 OO 0
oO
+)
cy
Ee 3
>
O
©
C
°
eC
eo.
SOURCE STATEMENT
IBM MAINTENANCE DIAGNOSTIC PROGRAMS
A063 VERIFY DATA
EPR LOC OBJECT CODE ADDR STMT
15DA CO 87 19C9 835 RTN6C
ISDE 02 15DE 836
837
15DF 38 20 19£0 838
839
*15E3 F2 10 10 840
844
15E6 CO 87 021A 842
1SEA C6 15EA 843
ISEB 49 1SEB 844
15EC 16DA 15ED 845
15EF AOQ2E 15EF 846
847
15FO CO 87 0222 848
15F4 AO2E 15FS5 849
850
15F6 CO 87 187C 851 RTN6D
‘SFA 1D8A 1SFB 852
853
15FC 3D 00 19¢2 854
1600 F2 81 10 855
c 1603 CO 87 021A 656
857
*1607 C6 1607 858
C 1608 53 1608 859
1609 172D 160A 3860
160B A023 160C 861
c 862
160D CO 87 0222 863
1611 A023 1612 864
CG 865
1613 3D DC 19¢% 866 RTNGE
867
*Cc 1617 F2 81 10 868
161A CO 87 O21A 869
161E C6 161E 870
eS 161F 52 161F 871
1620 177F 1621 872
1622 AO2F 1623 873
a 874
1624 CO 87 0222 875
1628 A02F 1629 876
c 162A OE 01 180F 198 877 RIN6F
1630 CO 87 19F8 878
1634 00 1634 879
eS 1635 00 1635 880
1636 19BF . 1637 881
*1638 CO 87 163C 882
= 162C CO 87 1640 883
1640 CO 87 154, 884
885
S 1644 C14OE3C5E2E340C9 1677 886
164C 61D640D6D540C5D9 886
1654 DIDEDISOCECIC4AO 886
c: 165C D5D6E380C2D9C1D5 886
1664 C3CBUCCIC6E3C5D9 886
166C 40C1E3E3C5D4D7E3 886
c 1674 C9D5C740 886
1678 E3D640ESC5D9CIC6 1691 887 ERRO6x
1680 E840D7C1E2E340C5 887
a 1686 DSCU4ODECE4OC3E8 887
1690 D34B 887
1692 C5D5SC#40D6C640C3 16C5 888
ce 169A E8L34B40 E2CSD5E2 888
16A2 C540C2C9E3480D5D6 888
16AA E340E2C5E340C1C6 888
Co 16B2 E3C5D940C1E3E3C5 888
16BA D4L7E3C9DSC740E3 888
Q |
DATE 13NAR70 C6APR70 22MAY70
EC NO. 571512 571516 571513
G
9
*eoeoeoeoneegeoeeoaeasgseoeseeee @&
CL52°*A TEST 1/0 ON ERROR DID NCT
‘PART RO. £129630
PAGE SA
TO SENSE DEVICE STATUS
BYTFS 0 & 1.
TEST BYTE 1 BIT 2 FOR OR,
(THIS IS ‘END OF CYLINDER*)
JUNP IF CN
TO PRINT SENSE BIT NOT OF
FLAGS
LENGTH
SESSAGE ADDRESS
MESSAGE IDENTIFICATION
TO DCP HALT
HALT IDENTIFICATION
TO TEST DATA ADDRESS
EXPECTED ADDRESS
TEST SECTOR COUNTER FOR STEPPING
JUMP IP CORRECT
TO PRINT SECTOR COUNTER
STEPPED CORRECTLY
FLAGS
LENGTH
MESSAGE ADDRESS
MESSAGE IDENTIFICATION
NOT
TO DCP HALT
HALT In
CHECK HEAD & SECTCR NO. AFTER
WRITE IS COMPLETED, (SHOULD NOT STP)
JUMP IF NO CHANGE ,
TO PRINT ERROR
FLAGS
LENGTH
NESS AGE
BESS AGE
ADDRESS
IDENTIFICATION
TO DCP HALT
HALT ID
TO SEEK TO CLEAR END OF CYL.
PUXCTION CODE (CONTROL)
CONTROL CODE { SEFK)
CONTROL FIELD ADDRESS
GOOD EETURN
BRANCH AFTER ATTEMFTING °
CL26'TO VERIFY PAST END OF CYL.
*B SENSE
pe AL1 (STATO)
TBN STATUS, X*20°
JT RTNO6OD
B PRINT
pc XL1°C6!
pc IL1'73°
bc AL2 (ERRO6B)
pc XL2"AQ2E
*Ez BALT
pc XL2*AO2E
*B TSTDAT
pc AL2 (WORK)
CLI WRIDFC+3,00
JE RTNG6E
B PRINT
pc XL1*cé6
*pe IL1*83°
pec AL2(ERB06C)
pc XL2* AO 23°
B HALT
pe XL2*A023°
CLI WRIDFC+2 ,X*DC
*JE RTN6FP
5 PRINT
Dc XL7°*C6?
pc IL7'82
*pe AL2 (ERRO6D)
DC XL2* AO2F
*B HALT
pc XL2* AO2F®
*ALC TBLH (2) ,ONE
B STRTIO
pc XL17*O?
pc XL1* 08
be AL2 (WRTDFC)
B *e4
B *+Q
B RTNG6OA
pe
Doc
pe CL52* ED OF CYL.
01AUG70 010CT70
571531 571580
SENSE BIT NOT SET
AFTER ATTESPTING TO VE®
*PROG ID 0206-3
PAGE BA
9
@eeeeoeeaeeceevsoaoeaeaeeaeoaeaeaovoe@eoeoneosdneaoedeoeeoeeoeseeoee ee ©
oi ¢
-IBM MAINTENANCE DIAGNOSTIC PROGRAS PART NWO. §129630 IBM MAINTENANCE DIAGNOSTIC PROGRAS PART RO. §129630
PAGE 9 0; 6 PAGE 9A
A063 VERIFY ODATA Slaso VERIFY oODATA
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT
16C2 D640E5C5 888 Oo ¢€ 1802 A087 1803 936 pc XL2*a087* RESSAGE ID
16C6 DICICGEBSYOD7ICIE2 16DA 889 ERROGB CC CL21*RIPY PAST END OF CYL.* 1804 CO 87 0222 937 B HALT
16CE ESXOCSESC4UY0DECE 889 1808 A087 1809 938 pc XL2* a087* RALT ID
16D6 4SOCIJE8D34B 689 Co 6 180a CO 87 0216 939 B LI WK
16DEP E2CSC3E3D6D9420C3 170E 890 pc CL52'*SECTOR COUNTER IN CONTROL FIELD NOT STEPPED CORRECTL* 940
16E3 D6EXDSE3ICSD 98 0C9 890 180E 0000 180F 941 TBLH DC XL2*0
*16EB DSXOCIDEDSEIDIDE 390 CoC 6 1810 942 SECTBL EQU
*16F 3 D34OCECICSD3IC4HKO 890 1810 GOCO0000000000600 1827 943 pc XL24* 0! SECTOR EFROR RECORDING TABLE
16FB CPSD6E3NOE2ZE3C5D7 890 1818 €000000000000000 943
1703 D7C5C440C 3D6D9D9 890 Cc 6 1826 COCOOCCO000L0000 943
I7QOER CSC3E3D3 890 1828 1827 1829 944 TBLEND DC AL2 (*-1)
170PF EB840CIC6E3C5D940 172D 891 ERRO6C DC CL31*Y AFTER A VERIFY AT END OF CYL.* 182A 00 182A 945 RDTBL DC XL17"C* POR HEAD 0, REMOVABLE DISK
1717 C140 ESCSD9ICICGHEB 891 ce << 1822 00 182B 946 Dc xL1°O! FOR HEAD 2, FIXED DISK
171F S8OC1E340CSD5C4U40 891 182C 00 182C 947 DC XL1* 0? FOR HEAD 1, REBOVABLE DISK
1727 C6OC640C3EBDI4UB 891 182D 00 182D 948 pc XL1"O! POR HEAD 3, FIXED DISK
172E CBCSCICH4OSOUOE2 1761 892 pc CL52* HEAD & SECTOR BYTE OF CONTROL FIELD CHANGED AFTER A * ¢ $+ §$ 182E FO 1E2E 949 Dc CL1"0O
*1736 CSCIEIDEDSLOC2ZEB 892 182F F2 182F 950 DC CL1* 2
*173E E3C540D6C640C3D6 892 | 1830 F1 1€30 951 DC CLI'1!
1786 CSEIDIDED 340C6C9 892 Co ee 1831 F3 1831 952 DBC CL1* 3!
I74E CSDSC44OC3CBC1IDS 892 1832 E2D6D3C9ICK4OCSDY 1£4B 953 ALLHED DC CL26"SOLID ERROR WITH ALL HEADS‘
1756 C7CSC4UNOC IC6E3C5 892 1832 DSDEDISOESBCIE3CB 953
175E D940C140 892 CG 1842 40C1D3D340C8C5C1 953
1762 F240E2C5C3E3D6D9 177F 893 ERRO6D DC CL30'2 SECTOR VERIFY AT EXD OF CYL.* 184A CHE2 953
176A 4OESCSDICICEEBUO 893 184C E2V6D3C9ICSHOC5DI 166D 954 ONEHED DC CL34*SOLID ERROR WITH HEAD X XXXXX DISK
*4772 C1E340C5D5C44 0D6 893 qe ¢ 1854 DSDADISOE6CIE3CS 954 ,
177A C640C3E8D34B 893 185C 4OC8C5C1C440ET74O 954
894 * SET AN ERROR FLAG FOR EACH SECTOR ERROR 1864 EVETEVE7E 740CUC9 954
895 ee 186C E2D2 954
1780 38 08 179D 896 SETERR ST SETERY+3 ,ARR SAVE EXIT ADDRESS 186E C6C9ETCSCYH 1872 955 FIXDSK DC CL5' FIXED
*1784 Oc 00 1790 1D10 897 MVC SETERA+2(1),CYLNO SET CURRENT CYL. NO IN MOVE 1873 TICSDSESUB 1877 956 RSVDSK DC CL5'REMV.
*178A C2 02 1810 898 LA SECTBL, XR2 LOAD XR2 AS POINTER € ¢ 187& EFFFFFFP 187B 957 FOURFP DC XL4'FFFFFFFF* :
1782 BC FF 00 899 SETERA MVI *-*(,XR2),X'FF* SET A FLAG FOR THIS SECTOR 958 * SUBROUTINE TO DETESSINE IF DATA ADDRESS
*1791 35 01 180F 3900 L TBLH,XR1 LOAD HEAL NO. POINTER IN XR1 959 * IS NOT STEPPED AFTER A VERIFY OPERATION
*17S5 1C 00 OFDB 04 901 MVC ERRO2A-11,4%(1,XR1) INSERT HEAD NO. IN MESSAGE ¢ 6 960
1794 CO &7 0000 902 SETERX BE *-* EXIT 960
903 187C 34 08 18B0 961 TSTDAT ST DATEXT +3, ARB SAVE RETURN ADDRESS
904 * CHECK FOR ERRORS ON ALL SECTORS Gc 1880 35 02 18B0 962 L DATEXT+3 ,XR2 LCAD XR2 WITH PARAMETER POINTER
905 1884 2C 01 1922 01 963 MVC wWORK1(2),1(,XR2) MOVE EXPECTED ADDRESS FOR COPPARE
179EF 34 O8 17EF 906 CKHED ST HDEXT+3, ARR SAVE EXIT ADDRESS 1889 OF 01 18B0 1924 964 ALC DATEXT+3(2) ,TWO INCREASE EXIT ADDRESS
17A2 35 01 180F 907 L TBLH,XR1 LOAD XR1 AS ERROR FLAG POINTER = c¢ 188F CO 87 19¢9 965 B SENSE TO STORE DATA ADDRESS
17A6 C2 02 1810 908 LA SECTBL,XR2 LOAD XR2 AS SECTOR FLAG POINTER 1893 Au 1893 966 pc AL1(DAT")
I7AA BD 0O O00 909 CKEEDA CLI 0(,XR2),0 CHECK EACH SECTOR FLAG 967
17AD F2 81 3C 910 JE ADEXT JUMP WHEN FIRST ONE IS FOUND OFF Cc 1894 OD 01 19E0 1922 968 CLC STATUS (2) ,@ORK1 CHECK DATA ADDRESS
17B0 E2 02 01 911 LA 1(,XR2) ,XR2 STEP POINTER ; 189A F2 81 10 969 JE DATEXT JUMP IF ADDRESS
17B3 3&4 02 19E2 912 ST SNSKR2,XR2 STORE ; 970 * IS AT ORIGINAL VALUE
17B7 OD 01 19£2 1829 913 CLC SNS“R2(2),TBLEND CHECK FOR LAST ENTR Cs ce 189D CO 87 O21A 971 B PRINT TO PRINT DATA ADDRESS NOT CORRECT
17BD CO 01 17AA 914 BNE CKHEDA BRANCH IF NOT DONE 18A1 C6 138A1 972 Dc XL1' C6" FLAGS |
1701 7C FF 00 915 MVI 0O(,XR1),X'FF* SET FLAG TO INDICATE DEFECTIVE HEAD 18A2 2B 18A2 973 rc IL1*43* | LERGTH ©
17C4 OC O48 1868 1877 916 MVC ONEHED-5(5) ,RMVDSK SET MESSAGE FOR REMOVABLE c..-G 18A3 1955 13A% 978 pc AL2 (DATPR1) ADDRESS OF MESSAGE ,.
17CA 3D 00 1837 917 CLI DISKTP,0 TEST FOR RUN ON REMOVABLE | 18A5 AO3E 18A6 975 DATID1 DC XL2* AOJE® MESSAGE IDENTIFICATION
17CE F2 81 06 918 JE *+9 JUMP IF YES 18A7 CO 87 0222 976 B HALT TO DCP HALT
17D1 OC 0&8 1868 1872 919 MVC ONEHED-5 (5) ,FIXDSK SET MESSAGE FOR FIXED cic 18AB AO3E 13AC 977 pc XL2*A03E* HALT ID
17D7 1C 00 1862 048 920 MVC ONEHED-11(1),4%(,X81) SET HEAD NUMBER IN MESSAGE 18ArL CO 87 0000 978 NATEXT B +—% ExIT
17DC CO &7 O21A 921 B PRIN TO PRINT HEAD ERROR 979
I7TEO C6 17EO 922 DC XL1'cé* FLAGS ec 1.¢ 980
17E1 22 17E1 923 pc IL1'34" LENGTH 981 * COME HERE TO TEST FOR A GOOD SEEK
*I7E2 186D 47E3 924 pc AL 2(ONEHED) MESSAGE ADDRESS 982
17E& AO86 17E5 925 pe XL2*A086° MESSAGE ID Cig 18B1 34 08 18E5 983 TSTSEK ST SEKEXT +3, ARB SAVE RETURN ADDRESS
17E6 CO 87 0222 926 B HALT | 18B5 CO 87 19C9 984 SKTSTA B SENSE TO SENSE PEVICE STATUS
I7EA A086 17EB 927 pe XL2' A086! HALT ID | 18B9 02 138B9 985 Dc AL1(STATO1) BYTES 0 & 1.
17EC CO 87 0000 928 HDEXT B +-* EXIT C!a 986
929 18BA 36 10 19E0 987 TBN STATUS,X*10* TEST THE SEEK BUSY SENSE BIT
17FO OD 03 182D 1878 930 CKEDER CLC HDTBL+3(4) ,POURFF CHECK FOR ALL HEADS FAILING 18BE CO 10 1885 988 BT SKTSTA IF ON DO ANOTHER SENSE
17F6 CO 01 0216 931 BNE LINK BRANCH IF NOT CG ¢ 18C2 38 01 19DF 989 TBH STATUS-1,X° 01° TEST FOR SEEK CHECK
17FA CO 87 O21A 932 B PRINT TO PRINT ALL HEADS FAILING 18C6 F2 10 20 990 IT SEEKER IF ON, GC TU SEEK ERROR PRINT
ATFE C6 17FE 933 DC XL1'c6! FLAGS 9914
VIFF 1A 17FF 934 pc IL1*°26° LENGTH Cc CC 18C9 CO 87 19F8 992 B STRTIO TO READ ID
1800 1848 1801 935 pc AL2(ALLHED) MESSAGE ADDRESS 18CD 01 18cD 993 Doc XL1*01°
I
0! %
DATE 13HAR70 06 APR70 22MAY70 01A0G70 010CT70 PROG ID 0a06-3 DATE 13MAR70 O6APR70 22MAY70 01A0G70 010CT70 PROG ID OA06-3
EC NO. 577512 571516 571513 §71531 571540 PAGE 9° | EC NO. 571512 571516 571513 571531 571580 PAGE SA
oO | 6
e.9
ot
9
t)
IBM MAINTENANCE DIAGNOSTIC PROGRAM
A0 63 VERIFY DA
ERR LOC OBJECT CODE
i8CE 01
18CP 18E6
18D1 CO 87
18DS cO 87 18D9
18D9 CD 00 18E7
18DF F2 01 07
18D5
OB14
18E2 CO 87
1€E6 €00000
0000
18E9
18EL
‘ 8EP
18F1
18F5 C1
18FE 2A
18F7
18F9
DIC
O27A
18FB CO 87
18FF 01
1900 17
4901
O21A
1903
1907 06
1908 28
1909
O21A
1903 3c 00
190F 3c 00
1913 3c 00
OB1B
0B13
1B32
1917
191E
0222
191D 0000
1921
1923
1925
1927
1929
1925
1333
193B
1943
194B
1953
1956
195E
1966
196E
1976
197E
1980
1988
1990
1997
199F
19A7
CUCTE3C1I4OCICUCH
DIC5SE2ZE24U OE6C1E2
4OE2ZE3CSD7DIC5cu
SOE3D640C9D5SC3D6
D9DSCSC3E340ESC1
D3E4CS
CSDIDIDE DI4OD6C3
CIEYDSDSC5SCUY ODES
C8C9ID3ICSYOE2CS5CS
D2C9D5C74 OE3C8C5
40C3C5 40 E3D9C1C3
D26B
CIDIDICIESCSCHU4O
CIEZYOC3EBD3I4BYUO
DSL64BUOEVE7VET
D9ESDSYUOE2CSC5D2
YOEF3CSE2ZE340E2C5
CIE3ICIDED5S4OCTFO
ISAF FIUOCEDEDINODUDE
19B7? DICSXOCIDSCE6DE4B
19BF 00
19c0 00
DATE
EC NO.
13KHAR70
571512
OGAPR?
571516
TA
ADDR
18CE
18DO
18E8
18EE
18F0
18F5
18F6
18F8
18FA
18FF
1900
1902
1907
1908
190A
191C
1922
1924
1926
1928
192A
1955
197F
1996
19BE
19BF
19C0
0
STAT
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1014
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1933
1034
1035
1036
1037
1038
1039
1040
1040
1040
1040
1080
1040
1041
1041
1044
1041
1041
10414
1042
1082
1OK2
1043
1043
1043
1043
1043
1044
1045
SCORCE
SEKEXT
IDFLD
*
*
SEEKER
SEEKID
WORK1
TRO
ONESEC
WORK2
WOFK3
DATPR1
SEKER1
ARIVED
SEKER2
WRIDFC
22M AY70
571513
PART NO. 5129630
PAGE 10
STATEMENT
pc XL1'O1'
oe AL2 (IDFLD-2)
B e+
BD *e4
CLC IDFLD-1 (1) ,TRACK#
JNE SEEKER
B + * EXIT
pc XL3'0!
COME HERE IF AN ERROR OCCURED
*WHILE SEEKING THE CE TRACK
*B CVD
ve AL2 (IDFLD-1)
IC AL2(ARIVED) d
B PRINT — TO PRINT ERROR ON SEEK
pe XLi'ci? FLAGS
DC IL1* 42" LENGTH
DC AL2 (SEKER1) ADDRESS CF MESSAGE
DC XL2'*AO3C! MESSAGE IDENTIFICATION
B PRINT TO PRINT SECOND LINE
pc XL1° O18
DC IL1*#23'
re AL2(ARIVED)
B PRINT TO PRINT SECOND LINE
le XL1°06? FLAGS
Cc IL1'§ aot LENGTH
oe AL2 (SEKER2) ADDRESS CF MESSAGF
MVI PASS,0O
MVI SETSHW,0
MVI FRSTPS,0 SET TO CAUSE A RECALIFRATE
B HALT TO DCP HALT
pc XL2*A03C! HALT ID
B 0
pe AL2 (*-*)
pc XL2'*02!
rc XL2' 04!
bc AL2 (WORK+255)
Dc AL2 (WORK +511)
Dc CL43"*DATA ADDRESS WAS STEPPED TO INCORRECT VALUE?
oe CLY2*ERR”R OCCURRED WHILE SEEKING THE CE TRACK,
*DC CL23"ARRIVED AT CYL. NO. XXx?
pe CL40'RUN SEEK TEST SECTION AO3 FOR MORE INFO.?
ve XL1°0O0? FLAG
bc XL1° OO! CYLINDER
O1A0G70 010CT70 PROG ID OA06-3
§71531 5715480 PAGE 10
Oo 8 0 0 0 ¢
Oo Oo 9
ao ao a ©
oOo 9 9 0 8 0 9 9 Oo OO &
C
@., 9 0 QO oO
@°°
w ~
@ io
IBM MAINTENANCE DIAGNOSTIC PROGRAN PART RO. 5129630
| 9 PAGE JOA a
A063 VERIFY DATA
'@ :
| ERR LOC OBJECT CODE ADDR STHT SOURCE STATENERT
in?) 19¢1 00 1907 1046 DC XL1°00* TRACK & SECTOR a
| 19C2 00 19C2 1047 Dc XL1* 00! NO. OF SECTORS OR KO. OF TRACKS
1048
| @ 19¢C3 00 19C3 1049 RDDFC pC XL1*GO? FLAG
19C& 00 19C4 1050 DC XL1°008 CYLINDER
19C5 00 19C5 1051 pc XL1*008 TRACK & SECTOR
CG 19C6 00 19C6 1052 DC XL1"008 NO. OF SECTORS OR NO. OF TRACKS
| 19C7 0001 19C8 1053 ONE pe XL2*O18
1056
| Ce 1055 SEREREE EE SHEE SE EEE ERED EERE SHEE SAKE HESESERSESESES SESE OHOSESESSSCO LS SESERE
| 1056 * SENSE I/0 ROUTINE
| 19C9 34 08 1922 1057 SENSE ST SNSXR2,ARR SAVE ADDRESS RECALL REGISTER
iC 19CD 35 01 19E2 1058 t SNSXR2,XR1 LOAD XR1 WITH VALUE FRON ARR.
19D1 18 03 19D7 00 1059 HNR SNS#1,0(,XR1) MOVE IN FUNCTICN CCDE
19D6 30 00 1920 1060 SNS SNS STATUS,0 PERFORMS SENSE
i CO 19DA DO 87 01 1061 B 1(,XB1) EXIT
| 1062
| 19DD 0000 19DE 1063 SETXE2 DC XL2'0
*| G 19DF 0000 19E0 1064 STATUS DC XL2°Ot
| 19E1 0000 19E2 1065 SNSXR2 DC XL2*0!
1066
Cc 1067 * ERROR RECORDING TABLE :
19E3 1068 ETABLE ECU #
*19E3 00 19E3 1069 QCODE pc XL1*O! *"C*. CODE
CG 19E4 00 19E4 1070 CCCDE DC XL1*08 CONTPOL CODE
19E5 0000 19E6 1071 SNSO1 DE XL2°0* STATUS BYTES 0 6 1
| 19E7 0000 19E8 1072 SNS23 DC XL2'0# STATUS BYTES 2 & 3
Cc 19E9 00000000 19EC 1073 DCFI pc XLU'O" DISK CONTROL PIELD, ({ IKITIAL)
19ED 00000000 19FO 1074 DCFF DC XI.49 0+ DISK CONTROL FIELD, (FINAL)
| 19F1 0000 19F2 1075 DFCRI pC XL2"08 CONTROL REGISTER ADDRESS
ic 19F3 OOCO 19F4 1076 DFDRI DC XL2'0! DATA REGISTER ADDRESS, (INITIAL)
| ~, 19F5 0000 19F6 1077 DFDRF DC XL2*0O! DATA REGISTER ADDRESS, (FINAL)
(f° 19F7 00 19F7 1078 RCOUTNO DC XL1'o* CURRENT ROUTINE KO.
so
G =!
|
_&
2
Q
GS
o
G
@
9
: @ -
e , PROG ID 0406-3 :
DATE 13MAR70 O6APR70 22MAY70 01A0G70 010CT70 3
EC NO. 571512 571516 571513 571531 571580 PAGE A ns
oS
@#eeoeoeoeeeeeeeegeeedeoee06eeee@e @ 8
PART NO. 5129630
IBS MAINTENANCE DIAGNOSTIC PROGRAMS
PAGE > 41
a063 VERIFY DATA
ERH LOC OBJECT CODE ADDR STMT SOURCE STATEMENT
1080 * START I/0 SUBROUTINE
1081
19F8 34 08 19DE 1082 STFTIO ST SETXR2, ARR SAVE ADDRESS RECALL REGISTER.
19FC 35 02 19DE 1083 L SETXR2 ,XR2 LOAD XR2 WITH VALUE PROM ARR.
1A00 3C 00 1535 1084 mVI SAVSW,00 ZERO SWITCH
1A04 28 03 1462 00 1085 MNN SIO0+1,0(,XR2) SET FUNCTION CODZ
1009 2C 00 1463 01 1086 MVC SI0+2(1),1(,XR2) SET CONTROL CODE IN SIO
1AQE 2C 01 1839 03 1087 MVC DFCR(2),3(,XR2) SET DATA ADDRESS FOR DFCR
1013 38 08 1B37 1088 TBN DISKTP,X'08! TEST FOR RUN ON LOWER DISK
1417 F2 10 OB 1089 JT SETFIX JUMP IF YES
1A1A 3B 08 1862 1090 SBF Si0+1,x'08! SET FOR REMOVABLE DISK
1A1E 3B 08 AEE 1091 SBF RSIO+1,X'08! SET FOR REMOVABLE DISK
1A22 F2 87 08 1092 3 CKSEEK JUMP TO CHECK FOR SEEK
1A25 3A 08 1062 1093 SETFIX SBN SI0+1,X'08* SET FOR FIXED DISK
1A29 3A 08 1AEE 1094 SBN RSIO+1,X"08* SET FOR FIXED DISK
142D BD 00.00 1095 CKSEEK CLI 0(,XR2),00 TEST FOR SEEK
17430 CO 81 1AB4 1096 BE SETADR IF YES, GO SET ADDRESS
1A34 31 AG 1B39 1097 LDFCR LIO DFCR,X*'A6? LOAD CONTROL REGISTER
1A38 31 AS 1B3B 1098 LDFLR LIO DFDR,X*A4* LOAD DATA REGISTER
1A3C OC 00 19F3 1262 1099 MVC QCODE(1) ,SI0+1
1A42 OC 00 19E4 1263 1100 MVC CCODE(1),SI0+¢2
1048 OC 01 19F2 1339 1701 MVC DFCRI(2),DFCR
WAGE OC 01 19F4 1B3B 1102 MVC DFDRI(2),DFDR
1Aa5% 35 01 1839 1103 L DFCR, XR1
1a58 1C 03 19EC 03 1104 MVC DCFI(4),3(,XR1)
1A5D C2 01 19C8 1105 LA 6600, XR1 LOAD DELAY VALUE IN XR1
1461 F3 AO 00 1106 SIO SIO x*00',X*AQ! START I/C OPERATION
1A64 C1 A2 1B40 1107 WAIT TIO BUSY,X*A2! TEST FOR BUSY
1A68 CO &7 19C9 1108 B SENSE
1A6C 04 1A6C 1109 DC XL1*O4
*1A6D OC 01 19F6 19E0 4110 MVC DFDRF(2),STATUS
1A73 35 01 1839 1111 L DFCR,XR1
1477 1C 63 19FO0 03 1112 MYC DCFF(4),3(,XR1)
1a7C CO 87 19C9 1113 B SENSE
17A80 02 7A80 1214 DC XL1*02"
1A81 0C 01 19E6 1950 17115 MYC SNSO1(2),STATUS
1887 CO 87 19C9 1116 B SENSE
1A8B 03 1A8B 1117 DC XL1#03°
1A8C OC 01 19E8 1950 1118 MVC SNS223(2) ,STATUS
1A92 0C 00 19F7 0A03 1119 MVC ROUTNO (1) ,RPPX .
1A98 3D FF 1535 1120 CLI SAVSW,X'FF* IS SWITCH ON?
1A9C F2 017 0C 1121 SNE TSTERR IF NO, SKIP RESTORE
TA9P 8C 00 03 1834 1122 MVC =. 3. (1, XR2) , DFC3SV RESTORE N BYTE
AAS BB 01 02 1123 SBF 2(,XR2) ,01 TURN OFF THE FOR/ RIV BIT
1AK7 35 02 19DE 1124 L SETX R2, XR2 RESTORE PARAMETER POINTER
TAAE F1 AO OC 1125 TSTERR TIO 12(,XR2),X"AO* BRANCH IF ERROR
WAAE E1 A 08 1126 TSTSCN TIO 8(,XR2),X"A4! BRANCH IF SCAN FOUND
1AB1 EO 87 04 1127 B 8 (,XR2) EXIT
1128
1129 * SUBROUTINE TO SET THE NUMBER OF TRACKS AND THE
1130 * DIRECTION (FORWARD OR REVERSE), TO SEEK
1131
1AB4 34 08 18330 1132 SETIADR ST AD EXT+3,ARR SAVE EXIT ADDRESS
1AB8 BD 01 01 1133 CLI 1{ ,XR2),01 IS THIS A RECALIBRATE?
APB F2 01 04 1134 SNE ##7 IF NO, BYPASS SWITCH RESET
1ABE 3C 00 1B32 1135 NVI FRSTPS,0 RESET RECALIBRATE SWITCH
1AC2 2C 01 1B3D 03 1136 MVC XR2WK(2),3(,XR2) SAVE ADDR. OF CTL. FLD. ADDR.
1aAC7 35 02 1B83D 1137 L XR2WK, XR2 LOAD XR2 WITH CONTROL PLD. ADDR.
ACB 2C 00 1834 03 1138 MYC DFC3SV(1) ,3(,X2B2) SAVE N BYTE IN CONTROL FIELD
TADO 3C FF 1535 1139 MVI SAVSW,X'FF? SET SAVE SWITCH
1AD4 3D 00 1832 1140 CLI FRSTPS,00 IS THIS FIRST PASS
1AD8 F2 01 15 1141 SNE SETADA SKIP RECALIBRATE IF NO
ADB 3C 01 1832 1142 MVI FRSTPS,01 SET FIRST PASS SWITCH
1ADF BB 01 02 1143 SBP 2(,XR2),01 SET FWD/REV BIT TO REV.
1AE2 BC FF 03 1144 MVI «- 33 (, XR2) ,255 SET MAXIMUM TRACK CROSSING
AES 3C 00 1333 1745 MVI LASTAD,0O SET OLD ADDR TO 0
1AE9 31 A6 1839 1146 KLDFCR LIO DFCR,X*A6! LCAD DATA CONTROL REGISTER
1AED F3 AO 00 ‘1197 RSIO SIO 00,X*A0! SEEK REVERSE
oh
DATE 13BAR70 O6APR7O 22MAY70 01AUG70 010C 770 PROG ID 0406-3
EC NO, 571512 571516 571513 571531 5715480 PAGE 11
on ao © 6&6 © O89 CGC oO
QO
oO oOo 8 oO 0 OO ry
Oo
Qo oO 9 Oo
oOo 89 0 2 9 9
Qo
O Oo 9
8
0
o @
om
0
a
.)
Q A
©)
O
G
IBM MAINTENANCE DIAGNOSTIC PROGRAN
A063 VERIFY DATA
EHR LOC OBJECT CODE ADDR STMT SOURCE
1148
JAFO 8D 00 01 1833 1149 SETADA
IAPS F2 81 25 1150
TAFS F2 84 11 1151
AFB BB 01 C2 1152
VAFE OC 00 1831 1333 4153
1B04 2F 00 1B31 01 1154
1B09 F2 87 17 1155
1156
1TEOC BA 01 02 1157 FWDSEK
iBOF 2C 00 1B31 01 1158
1B14 OF 00 1831 1833 1159
IBIA F2 87 06 1160
1161
1B1D BC 00 03 1162 NOSEER
1B20 F2 87 OA 1163
411648
1B23 8c 00 03 1831 1165 SETADB
1B28 2C 00 1B33 01 1166
1B2D CO 87 0000 1167 ADREXT
1831 00 1B31 1168 SCRCH
1B32 00 1B32 1169 FRSTPS
1B33 00 1B33 1170 LASTAD
1B34 00 1B34 1171 DFC3SV
1B35 00 1B35 1172 SAVSW
1B36 C000 1837 1173 DISKTP
1538 0000 1B39 1178 DPCR
IB3A 1D8A 1B3B 1175 DFOIR
1B3C 0000 1B3D 1176 XR2WK
IB3E FFFF 1B3F 1177 NEG1
1B40 36 01 1IB3F 1178 BUSY
TBG4& CO B84 1A64 1179
1B4Y8 CO 87 IDIC 1180
1B4C OA03 TB&D 1181
BSE BIC IB4F 1182
1B50 3c NO 1B7A 1183
TB54& CO 87 O21TA 1184
1B58 C6 1B58 1185
1B59 15 1B59 1186
IB5A 1B7C 185B 1187
1B5C AO8E TB5SD 1188
1B5E cO 87 0222 1189 THALT
1B62 AOQ8E 1B63 1190
1B64 CO 87 0000 1791
1B68 E3SCS9DACSDGEXE3L0 FB7VC 1192 TIMODT
1270 C9OL5S4OL9DEESE3C9 1192
1B78 D5C540E7E7 1192
0A03 1193 RPFX
DATE 13MART7O OGAPR7TO 22HAY70
EC NO. 571512 571516 5715173
STATER
0 1A0G70
5771531
ENT
1(1,XR2) ,LASTAD
NOSEEK
FWDSEK
2(,XR2), 01
SCRCH (1) ,LASTAD
SCRCH (1) ,1(,XR2)
SETADB
2(,XR2),01
SCRCH (1) ,1(,XR2)
SCRCH(1),LASTAD
SETADB
3(,XR2),0
ADREXT
3(1,XR2) ,SCRCH
LASTAD (1) »1(,XR2)
Bn &
XL1°00
*XL1*00°
XL1*00°
XL1*00
*XL1*00?
XL2*0#
AL2 (*#~*)
AL2 (WORK)
XL2*0
*XL2*FFFF?
NEG1,XR1
WAIT
cYD
AL2(BPFX)
AL2 (TIMOUT)
TIMOUT-2,C*
*XL1°C6?
ILi*21¢
21L2(TINONT)
XL2*a08E
*HALT
XL2*AO8E®
9
CL21*TIMEOUT IN
x*a03°
010CT70
571588
PAPT KO.
PAGE
5129630
VIA
CCMPARE FRESENT ALDR. WITH REW ONE
EQUAL, SEEK IS MOT NECESSARY
NEW ADDR. HIGHER, DO FORRARD
NEW ADDR. LOWER, SET BIT FOR
PLACE LAST ADDR IN WORKARFA
SUBTRACT NEW ADDR. FROM LAST
PROCEED
SEEK
REV.
ADDR.
SET BIT ON FOR FORWART SEEK
PLACE WEW ADDR. IN WORKAREA
SUBTRACT LAST ADDR. FROM NEW
PROCEED
ADDR.
SET KO. CF TKS. CROSSED TO ZERO.
TO EXIT
PLACE IN NO. OF TRACKS CROSSED
SAVE NEW ADDRESS
EXIT
DECREMENT DELAY COUNTER
RETURN TO TXO IF NWCT TINE OUT
TIME OUT OCCURED, COKVERT BOUT. NO.
CURRENT FOUTINE NO.
ADDRESS CF DESTINATION
TO PRINT TIMEOUT OCCURED
FLAGS
LENGTH
MESSAGE ADDRESS
MESSAGE ID
TO DCP ERROR HALT
HALT ID
ROUTINE Xx
*PROG ID
PAGE
Oa0é-3
TVA
oO
©
QO 7)
i
Oo
x.
o1e c
PART NO. 5729630
IBS MAINTENANCE DIAGNOSTIC PROGRAS PART NO. 5129630 IBS MAINTENANCE DIAGNOSTIC PROGRAMS ace ei x
PAGE 12 ei1¢ : i >
aA0é3 VERIFY OMATA aS A063 VERIFY DATA
ERR LOC CBJECT CODE ADDR STMT SOURCE STATESENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT
* : < 1255
i186 : Se en eg nt ee eee are es en oe 103) ean twiconaonceee 1068 ioe pc CLIS* EQUIPMENT CHECK ®
1B7D 34 08 1C03 1197 PRTSNS ST PRTEXT+3,ARR SAVE ADDRESS oo REGISTER a . eer er ae LE
TO PERFORM SEN CS ‘
oo ies ; Pe GET DEVICE STATUS BYTES 0 & 1 ¥ 1069 C4CIE3C140C3C8C5 1C7A 1257 DC CL1I8*DATA CHECK ,
1B85 02 1B85 1199 DC AL1(STATO1) : aoe caps ecaonolcacas bpd
1200
E ; : 1C79 4040 1257
ion o a ee TBA 02 te pianos Pe ran er ey enters oie 1C7B D5DEXOD9IC5SC3DE6D9 ICBC 1258 pc CL18*NO RECORD FOUND s
1B8B 1950 1B8C 1203 DC AL2 (STATUS) cle 2 cra ee
4 AL2 (HEXSTA-4& : z
nee ai says - 1C8L ESL24O0C3DEDSC4CI 1C9E 1259 DC CL18*TK CONDITION CHECK
*1B8P 3C 01 IRBF 1206 NVI STPSNS+1,01 SET FOR COMPLETION OF FIRST BYTE 1c95 E3C9ID6D5S40C3CBCS 1259
1893 C2 01 1032 1207 LA STATWD,XR1 SET XR1 TO POINT TO FIRST MESSAGE Ge 1C9D C3D2 1259 Bae :
1B97 C2 02 1¢0C3 1208 LA STMASK, XR2 SET X82 TO POINT TO TEST MASK ae Por teeta 1CBO agen pc CL18"SEEK CH
1209
1B9B CO 87 O21A 1210 B PRINT TO PRINT SNS WITH READING €eie 1CAF 4040 1260 : -
1B9F C1 1B9P 1211 pc XL1'c1¢ PLAGS 1CB1 EYDSE2CIC6C54040 1CC2 1261 DC CL18* UNSAFE
1BAO 01 1BAO 1212 DC IL1*01° LENGTH I1CB9 4040404040404 040 1261
IPA? 1032 1BA2 1213 DC AL2(STATWD) ADDRESS OF LAST PRINT CHARACTER ¢ i¢ 1CC1 4040 12€1
1BA3 AOCO 1BA4 1214 SNSID DC XL2*a000' MESSAGE IDENTIFICATION : 1CC3 1262 STMASK EQU * :
1BAS 2C 00 1BBO 00 1215 MOVEBT MVC TSTBT+1(1),0(,XR2) SET MASK BIT salen BITS INSTRUCT. ae beers preuaone aces 2 pe yee ateona.
TBAA 1C 11 1D89 00 1216 MVC =©6©STATPR(18) ,0(, XR1) SET MESSAGE IN : :
1217 es ieee * SUBROUTINE TO SHIFT BITS IN CONTROL FIELD
- - o
iebs i 30 oe ois ome 7 erpsne me aipics Gee Te Ore © cS 1CCB 34 08 1DOF 1267 SHIFT ST SHFEXT+¢3,ARB STORE ADDRESS RECALL REGISTER
1PB6 CO 87 027A 1220 B PRINT TO PRINT SNS WITHOUT HEADING 1CCF 35 01 1D0F 1268 L SHPEXT+3,XR1 LOAD EXIT ADDRFSS IN ERI
1BBA 01 1BBA 1221 Dc XL1°O1! PLAGS 1CD3 35 02 1DOF 1269 L SHFEXT+3,XR2 LOAD EXIT eee Im XR2
o BY .
IBEB 12 1BEBB 1222 Dc IL1* 18! LENGTH € Cc 1CD7 36 C2 19248 1270 A TWO,XR2 INCREASE
TEBC 1D89 IBBD 1223 DC AL2 (STATPR) ADDRESS OF LAST PRINT CHARACTER he 2 a2 oF uaa at ee ate ee pale EXIT ADDRESS
1224 c ’
. ie 1273 LA SHPTBL,XR2 LOAD ADDRESS OF SHIFT TABLE IW XR2
1BC2 F2 81 OA Se ge cece J0MP IP FINISHED WITH TRIS BYTE qe eer as oqo 1278 L1G xBt) oxR1 LOAD CONTROL FIELD ADDRESS IN XR1
1227 | 1CEA 2C 00 1CFS5 00 1275 MVCTBN MVC TEN+1 (1),0(,XR2) INSERT CORRECT BRSE FOr Eee
1BC5 E2 02 01 1228 LA 1(,XR2) ,XR2 STEP XR2 TO POINT TO NEXT MASK BIT C | ea 1CEF 2C 00 1CFB 05 1276 MVC SBR* VC 1) ¢ oh ¢KE2) eee ee ee FOR SE
1BC8 D2 01 12 1229 SENSB LA 18(,XR1) ,XR1 STEP XR1 TO POINT TO NEXT MESSAGE ices ae . 3 ou TBN a eR phase ta aes
-IBCB CO 87 1BAS5 2 B MOVEBT GO TEST NEXT SENSE BIT C Le a ee ch oe Z ete Een GAE ie ONGA RURAL aes
1BCF 3D 80 1BBF 1232 SENSA CLI STPSNS+1,X"80! TEST FOR COMPLETION OF 2ND BYTE | ee ap _° a rae a ee ee teen ae ee nae
VBLO3 F2 81 22 1233 JE PRTHEX TO EXIT IF DONE | D
1BD6 3C 80 1BBF 1234 MVI STPSNS+1,X" 80! SET FOR CHECK OF 2ND BYTE Core 1D05 E2 02 01 1282 LA 1, XB2) ,XB2 peace aes cae
IBD. 34 01 1BEP 1235 st SENSC+3,XR1 SAVE XR1 | 1D08 CO 87 1CEA 1283 B MYCTBL oe
IBDE CO 87 19¢9 1236 B SENSE TO SENSE | 1pOcC cO 87 0000 1284 SHFEXT B *-
*IBE2 03 1BE2 1237 DC XL1*03* BYTES 2 & 3 © 7G 1285 ;
1BE3 CO 87 0215 1238 B UNPACK TO UNPACK STATUS REYTES | 1D10 oc 1D10 oe CYLNO DC XL1#0
IBE? 02 VBE7 1239 pe XL1*02* |
1BE8 19=0 1BE9 1240 pc ALZ (STATUS) Cc | a 1D11 04 1D11 1288 SHFIBL DC XL1! 04!
IBEA 1€20 1BEB 1241 Dc AL2 (HEXSTA) 1D12 08 1D12 1289 pc XL4° OB"
1BEC C2 01 0000 1242 SENSC LA *-*,XR1 RELOAD XR1 ee 1D13 10 1D13 1290 pc XL 1°20:
1BFO C2 02 1c¢C3 1243 LA STMASK ,XR2 SET BIT POINTER Ce 1D14 20 1D14 1291 pc XL 1° 20°
1BF4 CO &7 1BC8 1244 B SENSB TO PROCESS 2ND BYTE 1D15 40 1N15 1292 pc XL1"40%
1BF8 CO 87 O21A 1245 PRTHEX B PRINT TO PRINT STATUS IN HEX 1D16 01 1D16 1293 Dc xL 101°
IBFC 02 VBFC 1246 DC XL1*02! gO ¢ 1D17 02 1D17 1294 pc XL 1°02'
IBFD 1D IBFD 1247 pc IL1'298 1D186 04 1)18 1295 rc XL 1! O8¢
IRE 1C€20 IBFF 1248 DC AL2(HEXSTA) wr 1D19 08 1D19 1296 DC XL1" 08"
1c00 CO 87 0000 1249 PRTEXT B *-% SUBROUTINE EXIT ke 5 iD1A 10 ID1A 1297 pe XL 1°10
COW EZE3C1EZE4E240C2 1€18 1250 DC CL21'*STATUS BYTES IN HEX, °
1COC ESF3C5SE240C9D540 1250 al
1C14 CBCSET6BU0 1250 ae |
1€19 CO000000000000C0 1¢€20 1251 HEXSTA DC XL8'08
1252
1CZ1 DSL64OD6D7KH0O40NO 1€32 1253 STATHWD DC CL18"*NO OP ' CG
1629 4O4D4D4OUOsOLONL 1253
1€31 4040 1253 |
1€33 COLSEICSDSESC5DS 1C44 1254 DC CLI8"INTERVENTION REQD. * reg
1C3B E3ICIDEDSYODICS5SDB 1254 |
1c43 CUuB 1254
1C45 DUCIEZE2C3D5C740 1056 1255 DC CL18B'MISSING ADDR. MARK?* Q | CG
TCUL CICBCUDINBSODICI 1255 |
. O19 FBOG ID 0a06-3
DATE 13MAR70 OGAPR70 22MAY70 01A0G70 010CT70 . PROG ID 0A06-3 : DATE 13MAR70O O6APR70 22MAY70 0 1A0G70 010CT70 cies 5
Ec NO. 571512 571516 571513 571531 ~ 571540 PAGE 12 EC NO. 571512 571516 571513 571531 571540
Go 9g |
Gc O°
eee eoeedeeoeedeeeee@eee~ ee eee eeccleclUcelClelelCceaeclCcacaeclUcitekelekeleke le 8
e :
GS
IB@ MAINTENANCE DIAGNOSTIC PROGRAR PART NO. 5129630 IBM MAINTENANCE DIAGNOSTIC PROGRAS PART NO. $129630
PAGE 13 @ PAGE 13a Ss
accé3 VERIFY DATA aAG63 VERIFY DATA
S$ @
*€RR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT CROSS~REFERENCE
1299 * SUBROUTINE TO CONVERT A NUMBER TO DECIMAL © © SYMBOL T LEN VALUE DEFN REFERENCES 2
1300
4ID1B 00 1D18 1301 HXBYT DC XL1°O# ADREXT A OOS 11B2D 1167 9132* 1163
Ipic 36 08 19C8 1302 CVD A ONE, ARR ADD ONE TO GET FIRST PARAMETER & € ALLHED A 026 188B 0953 0935
1D20 34 08 1D3D 1303 ST PROS+5,ARR INSERT THE FROM ADDRESS ARIVED A 023 1996 1042 1010 1020
1p24 36 08 1924 1304 A TWO, ARR ADD TWO TO GET THE SECOND PARAMETER ARR Cc 001 0008 1330 0025 0109 0896 0906 0961 0983 1057 1082 1132 1197 1267 13028
1D28 34 08 1D4u3 1305 ST TYBOT+5,ARR INSERT THE TO ADDR € € 1303 1308* 1305 1306 1307% 1308
1p2c 38 08 1D49 1306 ST OTORZ+5,ARR A06 A 001 0000 0003
1D30 36 08 19c8 1307 A ONE, ARR ADD ONE FOR EXIT ADDRESS BEGIN A OC&4& OC2E 0179 1347
1D34 34 08 1D6C 1308 ST TI XE+3,ARR STORE EXIT ADDRESS & | © BITO C 0CG1 0080 1335
1D38 OC 01 1D4F 0000 1309 FRC MVC FROBYT+5 (2), *-* BIT! ¢ 001 OC40 1336
1D3E OC 01 1N62 0000 1310 TYBOT MVC TOBYT+3(2) ,*-* . BUSY A004 B40) 1178 1107
1peu OC 01 1D53 0000 1311 OTCRZ MVC ZROTO+3 (2) ,*-* @& | @ ccopE aA 001 19E4 1070 1100
*IDSA OC 00 1D1B 0000 1312 FRCBYT MVC HXBYT(1),*-* PUT BYTE IN WORK AREA CKHDER A 006 17F0 0930 0165
1D50 048 20 0000 1D77 1313 ZROTO ZAZ *-*(3),0NITS (1) ZERO THE TO AREA CKHED A 004 179E 0906 0364 0511
1D56 OF OC 1D18B 19C8 1314 DECGAN SLC HXBYT(1),ONE DECREMENT THE HEX BYTE € | @ CKHEDA A003 17AA 0909 0918
1D5C F2 82 OA 1315 JL TI XE JUMP IF BELOW 1 CKSEEK A 003 1A2D 1095 1092
IDSF C6 20 0000 1D6D 1316 TOBYT AZ *-* (3) ,DECONE (1) INCREMENT THE DECIMAL COUNT CTRL; C001 OO0A6 1333
DHS CO @7 1D56 1317 B DECGAN — € cvpD A 004 1D1C 1302 0307 O8¥5&8 1008 1180
1D69 CO 87 O000 1378 TIXE B *—* ExIT | CYLNO AOO1 D110 1286 0308 O&855 O0&897 1272* 12798
1D6D F1 1D5D 1319 DECONE DC CLi* 1° ; DATA C 001 OOAN 1334 0966
1D6E FIF2ZF3F4FSF6F7F8 1D77 1320 UNITS DC CL10'1234567890! C € UCAavTEXT aA 008 18AD 0978 0961* 0962 0964* 0968S
1D76 FOFO 1320 DATID1 A O02 1886 0975
1D78 1D89 1321 STATPR DS CL18 DATPR1 A043 1955 1040 0974
1D8A 1322 WOFK EQU- * Cc € DdCFF A 008 19FO 10748 1112
*1D8A 1E89 1323 DS CL256 DCFI A004 19EC 1073 1104
*TESA 1F89 1324 DS CL 256 DECGAN A 006 1D56 1314 1317
1325 C € bDECONE A001 1D6D = 1319 1316
0003 1326 H1 EQU. x'tO3! HALT DISPLAY 1 DFCR A 002 1839 1174 1087* 1097 1101 1103 1711 «411486
0076 1327 H2 EFQU x'76! HALT DISPLAY 2 DFCRI A O02 19F2 1075 1101% 7
0001 1328 XR1 FOU 01 C € vrc3sv a G01 1834 1171 1122 1138%
0002 1329 XRZ ECD 02 DFDR A002 18B3B 1175 1093 1102
0008 1330 ARR FOU 3=—ss«O8 DFDRF A 002 19F6 1077 11108
0002 1331 STATO1 EQD x*'02!' C € DFDRI A002 19F4 1076 1102
*0003 1332 STAT23 EQU. x'03! DISKTP A 002 1337 1173 01483* 0153* 0917 1088
OOA6 1333 CTRL EQU’ X*A6! ERBORO A 006 OCFO 0236 0195 0275 0822 0555 0671 0702 0797
COAG 1334 DATA FOU X*AM# Cc © ERRO2A A 038 OFF6 0383 0309 0310* 0376 0856 0&57* 0463 0901
*0080 1335 BITO EQD- x*80# ERRO2B A 043 1011 0384 0329 04876 0603 0731
0040 1336 BIT1 EQU) x'4or ERRO2ZC A051 1088 0385 0357 0504 0631 0759
0208 1337 SWITCH EQU xX*'208! € © ERRO2D A 017 1089 0387 0340 0487
020A 1338 SECTSW EQU X'20A? ERRO2ZE A 024 10D2 0389 0372* 0377 0518* 0522
0212 1339 TEST EQU Xx*'212! ERROYA A 036 1380 0638 0587* 0591
0216 1340 LIXK EQU xX*216! ” © ERROYE A 029° 1401 0640 0614
021A 1341 PRINT EQU X*21A! ERROSA A 035 ODCO 0241 0719
O21E 1342 UNPACK EQU X*21E! ERROSE A O40 OE£1C 0243 0742
0222 1343 HALT EQU x*222! C © ERRO6GA A 026 1691 0887 0829
022A 1344 LOAD FOU xX*22A* ERBO6GE A021 16DA 0889 0845
003C 1345 HF EQD) x*3c! HALT DISFLAY F ERRO6C A 031 172D 0891 0860
OO3F 1346 HA FQU xX*3F HALT DISPLAY A C € ERRO6D A 030 177F 0893 0872
OC2E 1347 END BEGIN ERR1A A 050 O0D22 0237 0213
ERR1B A019 OD69 0239 0228
c © ETABLE A 001 19£3 1068 0013
EXPSEC A001 10D3 0390 0262* 028€ 0297 0334 0366* 0409* 0433 O444 0881 05134
FIXDSK A 005 1872 0955 0919
C & FIXED A OO&’ OBEO 0187 0140
FOURFF A OC4 187B 0957 0930
FROBYT A 006 1ID4YA 1312 1209
*© © FROM aA 006 1D38 1309 1303%
FRSTPS A001 1832 1169 0090* 1029* 1135* 1140 11424
PWDSEK A 003 BOC 1157 1151
Cc © #BA C001 OO03F 1346
HALT C001 0222 1343 0126 0196 0215 0230 0276 0317 0331 0342 0359 0378 0423 O864
0478 08489 0506 0523 0556 0592 0605 0616 0633 0672 0703 0720 ;
Cc 6G 0733 O744 0761 0798 0832 0888 0863 0875 0926 0937 0976 1030 :
1139
HDEXT aA 008 17EC 0928 0906* 0910
. Cc HDTBL A 001 182A 09485 0088* 008S 0089* 0252 0399 0536 0651 0777 0930
HEXSTA A 008 1C20 1251 12048 12481 1248
G =
DATE 13MAR70 O6APR70 22MAY70 01A0G70 010CT70 PROG ID NA06-3 DATE 13MAR70 O6APR70 22MAY70 01A0G70 010CT70 . PROG ID ORO06-3
Bc xO. 571512 571516 571513 571531 571540 PAGE 13 EC NO. 571512 571516 571513 571531 571540 « PAGE 3k
a @ OQ ©
oO Oo @
8 &
IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 5129636 IBM MAINTENANCE DIAGNOSTIC PROGRAS PART NO. 5129630
PAGE 18 © 90 PAGE TOA
A063 VERIPY DATA aa VERIFY DATA
CRCSS- REFERENCE CROSS- REFERENCE ag
SYMBOL T LEN VALUE DEFNW REFERENCES C . © SYMBOL T LEN VALUE DEFN REFERENCES
|
HF C 001 003C 1385 ! RTN3C1 A004 117ARA 0471
HXBYT A 0C1 1D1B 1301 1312 13148 ©. © RTN3C2 A006 11C7 0481 0472
H1 C 001 0003 1326 ; RTN3D A OO& 11DA 0492 0483
H2 C 001 0076 1327 RTN3E A OOS’ 11F8 0501 0494
IDFLD A003 18E8 1002 0995 0998 1009 C C RTN3F A003 11DE 0493 0499
INVFLG A 019 OB2E 0105 0123 RTN3G A O0&% 1208 0509 0466 0498
LASTAD A001 1833 1170 7145* 1149 1153 1159 1166* RTN3H A 00% 1213 0512 0525
LDPCR A OO’ 1834 1097 0054* 0058* 0066 0067 0068 0069 0070 0071 0072 0073 C CG RTN33 A006 1217 0513 0510
LDFDR A O08 1A38 1098 0066* RTNS AOO1 1244 0532 0397
LINK C001 0216 1340 0166 0931 0939 RTNYA A OCO0O& 1258 0540 0636
LOAD C001 022A 1344 0051 © € RTN4YA1 A008 128C 0559 0549
MOVEBT A 005 1BAS 1215 1230 RTNUE A O04 1290 0561
MVCTBN A 00S CEA 1275 1283 RTNGBY A O08 12BC 0575 0571
NEG1 A002 1B3F 1177 1178 C06 ORTNGE2 A008 12F3 0595 0582
NOSEEK A 003 1B1D 1162 1150 RTNSC A 008 12D8. 0585
NOUNIT A026 OBOF 0093 00488 RTRYC1 A004 12F9 0598
ONE A 002 19C8 1053 0747 0149 0152 0768 0877 1302 1307 13148 c @ RTN4C2 A 00% 1310 0608 0599
ONEHED A 034 186D 0954 0916* 0919* 0920* 0924 RTNSD A OO’ 1327 0619 0610
ONESEC A 002 1926 1036 0366 0513 RTNGE A O08 1345 0628 0621
OTORZ A 006 D444 1311 1306* c © RTRYUF A003 132B 0620 0626
PASS A001 OBIB 0108 07110 0112* 0159* 1027* RTNUG A 008 1355 0636 0625
PRINT C001 O21A 1341 0045 0080 0084 0120 0192 0210 0225 0272 0313 0326 0337 035% RTNS A001 1402 0647 0534
0374 0419 0460 0473 0484 0501 0519 0552 0568 0600 0611 0628 c @ RTNSA A004 1416 0655 0765 .
0668 0699 0716 0728 0738 0756 079% 0826 0842 0856 0869 0921 RTNSA1 A004 168A 0675 0665 -
0932 0971 1011 1017 #41022 118% #+%1210 1220 1245 RTNSB A OOU 144E 0677
PRTEXT A 00%’ 1C00 1249 1197% . = RTNSBT A O08 1876 0690 0686
PRTHEX A O08 IBF8 1245 © 1233 RTNSB2 A O04 T4A0 0706 0696
PRTSNS A 008 %B7D 1197 0191 6271 0312 0370 04818 0459 0516 0551 0585 0667 0698 0715 RTNSE3 A 008 14CA 0723 0712
0793 C @ RTNSC A 008 14B8 0715
PRTSPN A004 OADS 0080 0078 RTN5SC1 A 008 14D0 0726
QOCUDE A 001 19863 1069 1099% RTNSC2 A 00% 14E7 0736 0727
RPDFC A001 19¢3 1049 0184* 0188 0200* 0201* 0206 © € RTNSD AOO0& 4FE 0747 0737
REMVDS A 001 O0B12 0096 0033* 0062* 0136 RTNSE A OO0& 151C 0756 0749
RLIFCR A 00% AES 1146 0072* RTNSF A003 1502 0748 0754
RMVDSK A 005 1877 0956 0916 C © RBTN5G A 006 1520 0764 0753
ROUTNO A001 19F7 1078 11194 RT NG A C01 1536 0773 0649
RPFX COC? 0OA03 1192 1119 1181 RTN6A A O0O& 154A 0782 0884
RSTO A O03 AED 1147 0073* 1091* 1094% C ¢ RTN6A1 A008 157E 0801 0791
RTN1 A C001 OC2A 0175 0012 RTN6B A OOH 1582 0803
RTNIA A OOS O0C36 0181 0233 RTN6E1 A 00K 15AA 0816 0812
RTNIA1 A O08 OC6A 0199 0189 Cc C RIN6B2 A006 %15CA 0826 0823
RTNIA2 A OO0& OQCB8C 0210 0207 RTN6C AOO&’ A5DA 0835 0825
RTNIB A OO8 oc9Cc 0218 0209 RTN6D A OO’ 15P6 0851 o8u0
RTNIC A OOS OCBB 0233 0223 C @ RTN6E ANOS 1613 0866 0855
RTN2 A OC1 OEID 0248 0177 RTN6F A 006 162A 0877 0868
RTN2ZA A OOK O0£31 0256 0365 RUNFIX A001 0OB18 0102 0114 0138* 07147 0154
RTNZ2A1 A 004 OF74 0279 0269 € © RUNRMV A OC1 0817 9101 0132* 0139 0144
*RTN2F A 004 OE78 0281 0367 SAVSW A001 1B35 1172 1084* 1120 1139%
RTN2B1 A OCU OEFAU 0295 0291 SBN A OOU ICFAR 1279 1276"
RTN2F2 A O04 OEED 0321 0302 C © scrcH aA 001 13831 1168 1153* 1154* 1158 1159® 1165
RTN2C A O08 OFC2 0305 SECMSG A 035 08369 0107 0083
RTN2CT A 004 OEF3 0324 SECTBL A001 1810 6942 0257 04808 0898 0908
RTN2C2 A OC6 OFOA 0334 0325 C¢ © SeEcrsw c 001 020A 1338 0118 0130 0134
RTN2D A 004 OF23 0345 0336 SEEKER A 008 1829 1008 0990 0999
RTN2E A O08 OF&1 0354 0347 SEEKID A002 18FA 1015
RTN2F A 003 OF27 0346 0352 C © SEKER1 A 0&2 197F 1081 7018
RTN2G A O08 OFS1 0362 0319 0351 , SEKER2 A O40 19BE 1083 1025
RTN2H A OOS OFSC 0365 0380 SEKEXT A O08 1B8F2 1003 0983
RTN23 A 006 OF60 0366 0363 © © SENSA AO0O8% 1BCF 1232 1226
RTN3 =A 001 10D4 0395 0250 , SENSB A 003 1BC8 1229 12464
RTN3A A OO’ 10E8 0403 0512 SERNSC A 008 1BEC 1242 1235
*RTN3A1T A 008 1128 0426 0516 C © SENSE A 004 19C9 1057 0074 0218 0835 0965 0988 1108 1173 1116 1198 1236
RTN3B A OO8 112F O428 0514 : SETA A O06 OA68 0054 0037
RTN3P1 A OO’ T15B 0442 0438 SETADA A 005 IFO 1149 1141
RTN3B2 A O04 11A8 0468 0449 © © SETADB A005 1823 1165 1155 1160
RTN3C A 008 1179 0452 SETADR A004 ABS 1132 1096
DATE 13N8R7 C' 8 OA06-3
MAR70 OG APR70 22M AY70 0 1AUG70 010CT70 FROG ID 0A06-3 DATE 13MAR70 O6APR70 22MAY70 01A0G70 010CT70 PROG ID A06-
EC NO. 571512 571516 571513 571531 571540 PAGE 14 EC NO. 571512 571516 571513 571531 571580 PAGE 14a
Oo eo
®eeoeeoeeeoceoeeaeaeaeaeeaeaeaeeseeaescseo@eee@eeo1eedeoee ee ee 8 @ @
©®e~en0e70eegee0seeeeedeeeeneeeeeee eee eee 8 6 @
. : i ;
z GNOSTIC PROGRAAS PART RO. 5129630 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART HO. 5129630
IBA MAINTENANCE DIA ! ee 4 o 18 cace cea 5
a063 VERIFY DATA A063 VERIFY DATA é
o' 6 °
CROSS- REFERENCE CROSS- REFEREWCE
SYMBOL T LEN VALUE DEFN REFERENCES G C SYMBOL T LEN VALUE DEFN REFERENCES
SETB A006 0A75 0058 0041 UTAB C001 0232 0095 0030 é
SETBTH A 003 0A89 0064 0056 0061 © & Warr a008 1A68 1107 0068* 117¢
SETDSK A 008 OAOD 0025 0180 0255 0402 0539 4658 0780 . WORK A001 ‘DSA 1322 0281* 0282 0282* 0322 0345 0828 9429 9048298 0869 0892 0561* 0562
SETERA A 003 178E 0899 0897« 0562* 0563 0563* 0596 0619 0677* 0678 0678* 0679 0679° 0728 0787
SETERR A 004 1780 0896 0311 04858 a e@ 0803* 0804 O8C4* 0805 0805* 0852 1037 1038 1375
SETERX A 00% 179A 0902 0896% WORK1 A 002 1922 1034 0963* 0968
SETEXT A OCK OAF2 0091 0025* WORK2 A002 1928 1037 0350 0497
SETFIX A 008 1A25 1093 1089 ©O G worK3 aA 002 192A 1038 0624 0752
SETRAV A 004 OBC4 0139 0116 #0135 0137 WRTDFC A001 19BF 1044 0260* 0261* 0268 0285* 0286* 0290 0296* 06297 0301 0306 0328 06338
SETSPN A 006 OB7C 0114 0111 0362 0407% 0408* 0415 0432* 0433¢ 08937 O4X3* OUNRe OGBB 0453 0871
SETSW A001 OB13 £0097 0026% 0049* 0161* 0179 0254 0801 0538 0653 0779 1028 Q re) 0481 0509 O541* 0542* 0548 0566* 0570 0576 0577* 0581 OS9R 0608
SETXR2 A 002 19DE 1063 1082* 1083 1128 0657* O65E* 0668 0681* 0685 0691* 0695 0707* 0711 0726 0736 0783¢
SHFEXT A 004 1DO0C 1284 1267* 1268 1269 1271* 1281 0784* 0790 0807* 0811 0817* 0818* 0822 085% 0866 G#81
SHFTBL A 001 1D11 1288 1273 © | @ WRTER2 A008 OF6A 0369 0293 0573 0688 0814
SHIFT A GO4 CCB 1267 0305 0852 ; WRTER3 A 0O& 1221 0515 0840
SIO A 003 1A61 1106 0067* 1085* 1086* 1090* 1093* 1099 1100 XR1 ‘C001 0001 1328 0030* 0031 0032* 0036 0040 O00f2 0083 ©0043* 0060 O06& 0064 0065
SKTSTA A 004% 1885 0984 0988 oO .8s 0371* 0372 0517* 0518 0586* 0587 0900* 0901 0907* 0915 0920 10589
SNS A 008 19D6 1060 OO71* 1059* 1059 1067) =©1103* 1108 1105* 1111% 1112 1178% 1207% 1216 1229 12299
SNSID A002 BAS 1214 0183* 0263* 0284* 0295* 0369* 0410* 0431* 0442* 0515 0543* 0565* 0575* : 1235 1242* 1268 1278 1278 1277
0659* 0690* 0706* 0785* 0816* CG CG xr2 c 0C1 0002 1329 0252* 0253 0257* 0258 0259 0259 0385* 0346 0348 0388 03489 03999
SNSXR2 A 002 1952 1065 0349* 0350 O0896* 0497 0623* 0624 0751* 0752 0912* 0913 1057*® 1058 0400 O804%* O405 0406 0406 0892* 0493 0895 0495* 0496 0536* 0537
SNSO1 A002 19E6 1071 1115% 0619* 0620 0622 0622 0623 0651* 0652 O747* 0748 0750 0750 0751 _
SNS23> A 002 19ER 1072 1118% C 9 0777* 0778 0898* 0899 0906* 0909 0911 0911* 0912 0962* 0963 1033¢ :
SPNDLA A001 OBIS 0099 0058 1085 1086 1087 1095 1122 1123 1128 1125 1126 1127 1133 1136
SPNDLB A 001 0B16 0100 0058 1137* 1138 1183 1184 1189 1152 1158 1157 1158 1362 1165 1166
SPRMSG A024 OBU6 0106 0055* 005S* 0087 Cc @g 1208* 1215 1228 1228 1283% 1269 1270% 1271 1273* 1275 1276 1282 4
STATPR A 018 1D89 1321 1216* 1223 12826
STATUS A 002 1950 1064 0077 0182* 0221 0838 C968 0987 0989 1060* 1110 1115 1118 1203 XR2WK A002 1B3D 1176 1136* 1137 :
1218 1240 © G ZROCTR A008 O0C06 0158 0115 01488 -
STATWD A 018 10632 1253 1207. 1213 ZROTO A006 1D50 1313 1311
*STATO1 C 001 0002 1331 0219 083€ 0985 1199 ;
STAT23 C 001 0003 1332 CG CG TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 we
STEP A 001 0C29 0167 0142* 0150 01€3
*STHASK A 001 1¢0C3 1262 1208 1243
STPSNS A008 BBE 1225 1206* 1219 1232 1234« GC 6 2
STRTIO A 00% 19F8 1082 0185 ©0203 0265 0287 0298 0412 0834 0885 0545 0567 0578 0661
0682 0692 0708 0787 0808 0819 0878 0992
SWITCH C 001 0208 1337 0034 0038 a | 3
TBLEND A 002 1829 0944 0913
TBLH A002 180F 0941 O141* O169¢ 0152* 0253* 0371 O0400* 0517 0537% 0586 0652* 0768* 0778
*0877* 0900 0907 Ce o
TBN A003 1CF& 1277 1275* 1280
TEST C001 0212 1339 0128
THALT A O0O& 1B5SE 1789 = C Oo oO
TINOUT A021 1B7C 1192 1182 1183* 1187
TIXE A 004 1D69 1318 1308* 1315 .
TOBYT A006 1D5F 1316 1310* © G a
TRACK# A 001 OB14 0098 0076* 0079* 0184 0260 04807 0581 0657 0783 0998
TSTEBT AOOU’ IBAF 1218 1215* 1225
TSTDAT A 008 187C 0961 0321 0468 0595 0723 0851 Cc Oo a
TSTERR A003 JAAB 1125 0069* 1121
TSTEXT A004 OCO2 0156 0109* 0145
TSTFIX A OCH OBB2 0134 0131 Cc Oo =
TSTRMV A 008 OBAT 0130 0219
TSTSCN A 003 AAE 1126 0070%
TSTSEK A008 1881 0983 0199 027 0426 0559 0675 0801 Cc 6 2
TSTSPH A 004 OB6A 0109 0181 025€ 0403 0540 0655 0782
TSTSH A 00& OB8S 0118 0113 0129
THO A002 19248 1035 0964 127C 1308 Cc a =
TWOZR A OC2 OBIA 0103 0050 0114 0201
TYBOT A006 1D3E 1310 1305
*UDTPTR A 002 0B11 0094 0028 0031* 0032 0050* 0065* © Oo a
OFIND1 A004 GA24u 0032 0023
UFIND2 A O04 OA20 0031 0048
UNITS A010 1D77 1320 1313 Oo Oo e
ONPACK C001 021E 1342 1201 1238
Cc Oo 3
DATE 13BAR70 O6APR70 22MAY¥70 01A0G70 010CT70 PROG ID 0A06-3 DATE 13HAR70 O6APR70 22MAY70 0 1AUG70 010CT70 “ PROG ID 0a06-3
EC NO. 571512 571516 571513 571531 571540 PAGE 15 EC NO. $71512 571516 571513 571531 571586 . PAGE TSA
So @ o
S © G
ca ae
IBM MAINTENANCE DIAGNOSTIC PROGRAM _
ne ie
a063
VERIFY DATA
OBJECT CARD LISTING
4 ranbve 16. ben i eenodel Be, CL 33 ;RHROUGH 48 CL 49 THROUGH 64
PART NO.
5129630
PAGE -. 146
CL 65 THROUGH 80
CL 81 THROUGH 96
- ns e o -?%* oe @e e
‘6%3,(GD- DLO B1H 8 -H.@/ FxE @YD ?+ D P §A0630001
pe Y -OH*BF-QEB0d@ % LC D.DEXEOH*BH-A B E(ESN}{ D.J?7H GE - 89-A20630002
53s tigks T3EABIDH AYQETMy..B,AZSFISH AZVFTM H ADSFTMH AD?FTA H AU 0E0A0630003
aa ) nas pay 2
Sade Olav o5 On g2 So dhe GaeR oe :
a/Y SOHSRQEH aSonne “Re THEACI IL one Ke. E*B G /YFF _F{ 0.60 BFBO &C*20630004
: i30He J4LE
5 ees Jaga pt 8 enmeeee ee aeense °
acuS#xPBUC HO;PEE<.E1)N 8OP S8OPD B-% 2)PV0){ I1DC $8>Q RTDA0630005
YC. :DRs-KESER2;PEG+— BI*sISHCV1) XIW/ 1<GTONCF9 (PC6OX O5H NHDA0630006
Mehde Oe be NE SSe OS ba MKANhie Be a8 OR tgs GB oe Eveds Gotta TRASe«
"EI 22700 ( “BRCBI, 2-062/308A- HHOZ QOH*BFXQLB2:-=%B G SH )JDA0630007
sone te C#oa Gala AGA Beat
58 4 a eee ee ee ee ce
5 BE aM OROIE “E"H AEG8AF @R2COACBU 2 A% 9RQA0630008
‘HlopcHsHaa-oaF ®@ R2COHF3*2 %Q0H* CUFB-<@ %$3-D HH} +*3%A0630009
u : i et ays ete Lada
Pe: i583 foay eo ee ° —_ *? wane
+- “En “yo <HLACB-| -J>00H* |-BE- A 8)|& .DaB AB-7 /0_D} R730 IF:6< AXDBIL /1xX 8 7404063001C
& nee a Q183e S534 ORFF GASB veel BRE 4OkOR GEIL tid alg ate
2<B8£BG-§H-B*BGF.D @"1XDC DRI-SEOH* R= DCF*] /02<0H* <S< )KEA0630011
GF*UB+ GRI"HED<B G /,F( SZYBG /OH SYBG /O068@TEE(+ R1;M *HDA0630012
is 156
2 le
meeesn ON O=T
pubs SR in
“283, & (POE<P R64 5)R 6*PCK&C
4 ‘ 2 Gage P9962 rudae ad
: “Sis HeAGAPEOME | Fe > D0 aed co bes 9+. I5MCGE<E 8%PCB'S$RE<XDE($
8 : "} = e JRE © oe he ANgga SEES
BKGFBOPRESLO2) 2. : ECE OF PRIFSYE ($5
f Qeln Oa ta Gad : Ssse fea ad - -
SPAIDG . SOMXTPITIS#~HI*G DEER BSPCO'SRE<. Y8AN SER O'SNB'X
I8B/ 2<PAIDCSIKX
AE OUOS ees ode OLN
uw E:OOE/*< AX BIE a AXA] G430IF:L
» ERENS@<BG SH-BAB. > GF.DOITSICIB;SA: I} AH$ZCO F*H< AX
T+-#O0H*4Y<BGC6Y @H/>0) RO-O F*D G4aBGF—A IW"OH® +8*BGCR. 13.78"
Pes ee - ee
DATE 13MAR70 O6APR70 22MAY70 01AUG7G —-010C770
BEN» SIASAZ cy STIS saoGFIS13 571531571540
fee Se AAR da ES
“‘Loepa 205 vecLAsaE
a . oe . wt
we
om
jeaepe Odie
eo 8%P
F&< $F 82TES (7215 P
PET: BRPCR*ERBUC
O&kCF2Z*PLIDCNS> (
TO@TIS**B ACMO-H
/1X8 R?@BGCXL
AD(i /1X%8 - R?@B
/VW4GI 19TT C=L
“BROS ID
‘PAGE
dtm im pile
an $H0A0630013
i OE lng
. afl
a ea
I5>6 LT&A0630015
U8%0 EQQA0630016
”g>< 46040630017
QHLS 25640630018
"708 12<k0630019
GCDE #3HA0630020
"/1* 28QK0630021
OA06-3
oR TS
SO O09
al
a oe
ey
“8 OO TO
"6
”
eeeoeeeoeveeevse0eaeaea0e0ed0e0 ©
eae
i ©} may
e © 0 9 @ 6 0 6 06 6 6 8
Qo Oo GD ®
oO a @
“oO "Oo “oO
“O
oO 9a
Q
Q
“O
IBM MAINTENANCE DIAGNOSTIC PROGRAM
A063
CL 1 THROOGH 16
T+-a3-<BGF77 /0H
T+-"<D<BG /, FIJB
T+-=G SH-ILS*#F*6
T+-"BD¥BGC53T 2<N
T4+-"91<GT0 MCC5_L
T+/ 85_( 1%XE4aI
T+/A39*PR1D/ O'L
T+/B>1)V¥ ONCOS*N
T+/CZ2) PGEXE 9X
T+/DUB6,B /-E?
74 /B-0neBH TOR
T+/FE AXBC ROJC
T+/GNOH*BHD X@Y)
T+ /H& SH-I<HBGOD
T+/1.E9# /1CYC-
te RF HOC3N BAT |
T+/.A/OHSY X /1S
re PaNe MO
SOY ERL oe jes
T+/<7 aYDE0 H*BP%O
ty (2CEDRE UDI ED
*"T4746 *PST}PTE CG:
_T+/| YSDC12<PAIDA
DATE 13MAR70
LBC WOl°° 571512 ©
VERIFY
DATA
CL 17 THROUGH 32
EAVY|9%BG SH-H?H
IYBL /OHSYBLB /6
2 ET /1;;0H*+<E8
“5 *XE9*XO9+I_ 1)X
MO) PDE+LS2) PGE<T
"5) $T6+.71) +PI#L
N1D_ 2<PAIDASE+.
8%PC8* $RE+ PEG*X
I8@N 1<GTOMNCCS_L
P,AQOEOO F* J ECD ©
“oxtaxeru<ny:er0
Loner" pers" 71”
DOR*Q~ASH1~BR077°
'goc2 gs pu /x
ya ase3-ce-ase3.
*R= ‘DCFS" 71. 30H
*F8@PRE<LO2) PGE<E ~
*BE/>U]
- ECO.
oF ae SEES
“RE<BGFT4S J-|G
DF*G2~"3
OBJECT CARD LISTING
CL 33 THROUGH 48 Ci 49 THROUGH 64
GR<BGFGO)ST7"P*,
H2;* a@-DM8-HA( H
Dp (<RISBGCX-aD/>
R5S_XSE+SE6#N 5'X
E0*] 96
BWE*XTUSCP2*PLIDC
EO=|O6MC B:+] ES ($
Fr+} HIMCP6*PV2) $
N1D_ 94.15*) 2<P
" U$Z<B
-¥8Da- ACL]
RO-O F*D
DOR*I; *BGGCRR7OB
AD<BG /,FH1'JYBI
- SCEDR8/UY@Y DMO H
*71_* (EDOCIO D(H
F*DOBIDUORS
noyugSTOKF:ca’ 3X :
ee
cs ae
f! YRP /OHSYBP /1I
“Q*PR2* $YE<}05 (L
E& (SPE<105;1 BS_(
66 +. E0=| OGMCB: + |
, OG6APR70 — 22MAY70 01 0G 70
“S99516 - °° °S74513 571531
_ 8%PC8'S
- DOH*BF-RID(.
c /OHE1 Vo ©
2-3C /OHEISSEDE.
R8-“AF;HRH| HAE<B
UOH*S5LNAF ae aC
ESSPNSSCAI>{ ESNC
RE +7 XBXPCA! SREK |
WO;I 0)}71)XEIDC
FE<JO5;1R5_( 1%X
JBUCE6) XO6;I SSI
AIDCX < DULB /-
GF-- aAW"0H*JH@B
E4@BGF~-B AW"OH
*6630) D "WID 19<B
.
-/ ORSYBC ( AXAD(i
J7KBG /, F< 1ADYBP
Re FS" /18<ont
ponene a Fs” /17
yin panne.
# E ron*BHd 10-8”
Q8aTE& (781 ;3PIS>L
A5*J 94.15%) 2<J
ISXEGAI 5) $TE+.
010CT70
571580
2-JC. yOHEIUEESE
At
PART WO.
PAGE
CL 6S THROUGH 80
TOH*BAD TCE ROJC
GC2- /OHEIT<EIH
KACBG /YPKICKOH®
DSEXNIUCAG +PE6*X
09 (PT1)¥ 2)8 O'S
A1l>} E6 BCG 2; PIS*)
E4aJ O@TAS*-E1DC
C9 (XR1*d IRTIGAN
-( HOC34 Bi] -6Y
GDIX /1_'OH*BF-Q
JO@BGDN- /1H/|B
*GE8Chttps://archive.org/stream/bitsavers_ibmsystem3_47662652/1_*O8*BF-R. ”
SYAS /1HLA S&B.
K;%BGF77 /OHEATA
@0-H* K><BGC6Y@H/>
G SH-H%&BGFGO) ST7
}S,4& |HAE+HB LE
SE<PR6) $R8UCH1) X
- 6+) ,&+. EO=} 0631
T1)-P19J O'SR6*P
oo poue- F
/OHSYBM' TAXAGD. :
$1296 30.
764A
CL 81 THROUGH 96
La7D &810A0630022
VOH® KI0A0630023
BHE &98A0630028
F:D 2340630025
HR'D LSYA0630026
“on 12-20630027
A1>< 3K*A00630028
“440 62920630929
(OH ® 09340630030
5c} 70HA0630031
$ZCO AY-A06 30032
Ferg senges0033
"<206 30038
ee
> BFBC 91DA0630036
<a< $4 20630037
D1” D’5-420630038
“psy 29820630039
BF; H *9YA0630080
BE(* "1840630081
@D 1H&A0630082
c8'< RY#A0630083
- PROG ID OADG- 3
+ PAGE * 326 TEGA .
qa
ad
W
@
@aeoeoee0eee0eaeeeeeeeee
#eeeeoeeoeeeoaee@e@e~sce|aoedgedeeo@ eee eeo~eeoeede eee ee 8 ee
IBM MAINTENANCE DIAGNOSTIC PROGRAK . ; PART NO. 5129630 IBM MAINTENANCE DIAGNOSTIC PROGRAS PART HO. 5129630
PAGE 7 CG 6 Fae Oe PAGE 17:
A063 VERIFY DATA °C A063 VERIFY DATA
3 | @
OBJECT CARD LISTING OBJECT CARD LISTING
CL 1 THROUGH 16 CL 17 THROUGH 32 CI 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 Cc G@ CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH &88 CL &9 THROUGH 68 CL 65 THROUGH 80 CL 81 THROUGH 96
° o e e ee e 2 e : ee e ° e ° 8 » 3 s =e ae Op 2 @eeneeneo ee e
T+/ET:CCAI>}EGNC AGLI BXPCB'SRE+P E6*XF: M ELSB /- D( HOC34 BI] -6Y¥ (OH*.E-O0 F* .EC1 *F*D #.0A0630008 T+/U50E*BF-DPFRS$ §/OHEAS-R?T0 BIX @ LI $<%&BG SH -{ 1<BG B 6 ;SJ=IICGTOSCAICL R1ISH £/940630066
° oe . ° 2 7 ec ¢ . / e °
T+/J;) USZ<BGF~- AW"OH*MKSZBGECT /1_"OH*BF-QSC{ IC /OHSY X /1S1{ +* ~SE3"GB--SE3=GY- ;SLO ) /0A0630085 T+/VOSUCWO;I 8>]| ES*-EIDCTSUCI5*}| 06)XEO=( 9*GL9<P £6) X068C00G106)X EWDCW2<XLINCS1@¢P K2)R “"K4A06 30067
o o ° e ee e ee e | Co e 2 ° »
T+/KR JXBOR*R= H FS" /1J60H*N*%B GCOYOBO>UJEORO*b GF-- aW"OH*HYCB GEH@ /1_'OH*BF-Q 4Cj Of A0630046 : T+/W,14CT2<N OON S'XAO'I,0O)XR2;P EWDCABUCC: ((.6(P OKUCXI=7RO(M BRP EMUCTI;.TS¢.20=§$ I5_M FIHA0630068
-* ° ° rd oe 2 ee Oe tt e G | 8 s eo eere eeeennece r ee oo @eenenvnve20 eon eee
T+ /LMOH*BHD I{ BY S$ZCOAF*. /1X8 &< R?2BGE<X, /1K80H* $-*BG /YFNO7 OH*® BHD DOH*Q-AGH{ -@ RO?H 2BNA0630047 T+/XWE<GO@UCF5S_V 5 (SR1NCI5*$OKO D4BAX S(EDRB/-CP)*® < R8 (BG 6 92920630069
2 _ -* -_* 7 -~- 2 = 2 2 ~-~ = be = ¢ | CG @weecrsvnecece eeanececenveacce ° ° e o e e a ° :
T+/M1-JIC /OHEISR DE TOH*BHD TIy RO-HAD<BG /,FP 8 *YBX /OHSYBXB /6 H?;* @-DMB-HA{ H R8-& MLOA0630048 | T+/¥/ SBAX 3(&HR7TO P3Ni 1Z S BO FWXA. DS*#E< BBALT@,s .+0-EQTS HP>B ~3- 20630070
-® Sed Dad ° 2 ‘ms - se - oe ¢ : e ; = ee e fs _—_ o o e ° o ° »- e.
T+/NH JXSPK,2-JL /1MBOH*BFRO3DDK -1*BG SH-IESAP @ R2<BGEAQF { ""0-H OQHTEBF @* “LOHD AHC* -~:2HA0630049 ; T+/Z*OY*Ht--EQTY HF>:* C -JD&CEQ S$4LFUF3%< AXTPWH < AXUFW<< JX2F30 < JXSP3%5 JRIG < R® < EL8A0630071
!
“aia! oe ° = @ee e e en® e e o G si eo s oe oe e e 2 » e
*T+/OE/0_DC RO & MI (OROLOIFSL 1X 8 R?@BGEP# /1N ROH*$-*BG /YF(53 OOH*BHD ITOH*QO%L3 xGBU LJ A0630050 T+/DPO-DR2}4- <F SFUC /1XIA OAF~Q RSCMAF3U® 1X0 @B GF*UDBC DRO/X-OH® R2E<< IXYF; < AX 7B-< *3*A0630072
2 aes ee * — ‘aes. °» ‘se . * = @ C ee e o e e e oe » e ° °
T+/P CEBASA=ICI]Q 3 3SJ:H]| RORBGF~- E AW"OH*NDEBGEES /O* DE BOSZCOAF*H @7AXAOH*R= DCFS" /i8 -~.-A0630051 T+/,K{ 7@$ (-HACHO 1K4>ODB(SHRI>F -C+FUB+BGACEHF3B * &G2 E69 AZ2- D SIEKS /R*. SC < V7 1% 8E 20630073
2 _ i oe iS 2 ‘ams = = * ¢ e e - ° ee oe eae x aa e o ° °
T+/P#Z2EBGE*S /1P EOH*BFSR(EZP-.<B G SH-.<BGF*UB+B RS|HED<BG /,FKI$ EYB# /CHSYB# /1/ @GQY 36640630052 T+/S((L8 FP32.2 IM @ IS2>0DR710CI $<3FUF3X3Y B( D S<"HAI-HDDSZA -0 F3D3<2@ P3DAGY* P>D $L8a0630078
* — 2 > @ — ° oe > oS CG = e a ee “aia ase = e see eaeenoeoeeceveaneevanaes ase . -_: ee ~
*T+/06)& RO?7HAD<B G /,FM1*_YB] /OH SYBC*7AXA@YDEOH* BF&RKE7=-.28G SH -.O8AF ®R2<BGF-- AUD 8L6A0630053 T+/_H SO F3DACO $<J%3aY*¥? CdY* HI CF3D% A%3 *B G S- "96 IR"OHE ERK PE 20630075
. ° . ° - ° . : - - . ¢ G * “4 -_ a a aus e . e . . =
T+/R17@BGET3 /1R OH*NKSE BOPSBUC 10)R 5_N 1)XRS_V 1<XDE(POS4CB6*G NO@’ O0*$T1)V O34 TIPE *R A0630058 T+/>C/18*B-<$-C1 F7, /OHE1/M$-HB +OH*BEDB4OH* +] I5S<PO9+( 2)8 6)S USaXNINCXS3EHG |} J10 ©.000630076
a es ° ° °e a e e e a oS = s o eng i. e eas aoe cd - « . a ® oe
T+ /ERS=115*) B'R BI*PR2*SYE (-AB> ( 1) PDE (SFE<{ Y44? E5*J SER O=TLKAC S1)PSIMCB2;( 5)$ TE+H YSHAO630055 T+/>=26. /OH; /X¥ -GA0D I>"O-D*<ZH RE] /OHEOED*<D - $% *DI6I Ce F)"20 T SORE JH )SLS LZ#A0630077
- . ‘ oe e e -. &} CO oe by a e ee e °
T+/SX15( OFS$TIPV OF { TIPLPS@XNINC TSUCVI)XI1>/ 5@G S8UCES*I S&R O=T LK=.EO=]O6BCCS>L N8G@M EA-A20630056 T+/?29 A>O@YDHS-H AS-DKOH*$ZL6 F#" 2-KH@-A>"( D$#2B GF*UCOH*BG-HRSAO -O0-D <HBG<! /1? HOH* $C8A9630078
ae Sf re) e ee oe eeswvesesne ee = oe oe s = » 2
T+/*S6MCISMCCS_P T6) $SLEC$I1)1DE(P O8UCS8A@PPSA@PDE<| 06)XEOQ=[L:DCA1>}| EGMCAE+PE6*XF:DC A8& $YYA0630057 T+/04 /YBGJ0-On* +.T0;|U8UCB:+} ES8UCI5SSCH1;) ,& 5)R 5_) EDA EDA EDA EDA 2)®8 L2820630079
eo se es e e Cc o eo - 2 =
T+/))1)PDE($SFE<X}] YUNPHI*GDEEA BRP Cl*SRE<K.Y8OK SER O'SNS*XOSNCF2*P LIDCC2<GNi@PDE<G FS8AaM =: #0A0639058 T+/128@PRO*PNBAX OSMCR1)TDK'LIS>. I5*) OFLDOM_ 5<G R&KPOSKXPS<PNBSC C2<PCUUA EXLABAE Oa- *6000630080
° o e oe e = e e oC Q oe ~s ~ io < eo ee
T+/;QO6MCAEJI SEP CB'$RE*+PEG*XF2DC ABUCES*I SER O=T LK3EHES4< ASEGIC B /~-E2?4a (&DOC10 C'S *#Ya0630059 T+/2D1*{ KEDA EDA EDCNSUCRI* | 06*3 1.$U5*J EDCT4UC CS5S_PD2;1I5_K OaT E0*.S1*PKS<}HI®] KED =RQA0630081
eee ee = oe oe sate ee = oe ©} G oe e e oe e e e oe e e ry s . e eo
T¢/~>LACBG 4BA~ ?(&DQC@HBFAB* C 2-13S -D& /XSCED °3/-Z20 DPDX3" O DFF-Q) 34 F3-2-&Q <AA- NH8A0630060 T¢/3VEDA EDA 9(P SO*SEEDA EDA EDA EDA -D -D -D -D 4&BAS}(ED)C3NBGE&@ 6 /UU( #)C30 GJIC B /¥ 5S8-A0630082
¢ me oe ° oes Zs pie eee e os e pos aia ee a € gg e oe oe ee oa e e e a o o eeee ee oo. = é
T#+/+EA/2G QQ-L /OHETSHQSEBFOH* EHD PFFO H* 4CFBY Q3:@ A /$ /OREI/Y QK:BGOR*BHDBGOH* BE- *T&A0630061 T+/4-DPMA KO GI] - *=0N8 .2U 6 +: ASSIM *'5HAA=H B *BGG+, /0 & DBA EHDBA (-- R2CE &60A0630083
ewaneaaneenee ewe etenvneeaaevenenee e@aoaonae @eneve -. ©} Oo e eae eo aoee 2 eee ry een ese e od
T+//1I A-X 1C =20-}S5_|{ I1IDCHKE6) X OGMCW23)HE<GLUKC HI*D ELYA0630062 T+/5$BAU"{ --RICE HGM<4BASI(--R2C& HGOO< 35} <35 5S < ISL < as $ DH GP*} AG EP4- K3YAC6300868
i
> i? ° G © eee ee eo@eoweee een ese eoeaeoaeneaewe e2eaee e@eenensweeenwnreeeaeaesve @eeoee
Tt/SD14.S5_[I1DC E6)XOGMCW251HE<T EO*J 94CX9=—X9NC D2;.K1RXXI*LR1)L VK""@""|UBASO(EH QZBO * %A0630063 TFIS7@YHHAS a5 _OH*)NX&BG Cla-. 3°4P6'"T9a £,HA0630085
2 * » On eas bead tid -:2 © . Cc eee e080 «@ oe coe ooo « eee eceaeevevesase ede
T+/S" JUS S8AF. RI<BGF*WUCEDRSAD SZ@YDEOH*BFSO,FNO -|%BG SH-|%BG SBATVOB*®*R2GHBDAX -OA #THA0630064 ECB9*E7*=3DC"PH$ ="7NSF} i c PFS asc RA SO Q 21361022701 02670&0640630086
o . o Py ° eaeoesven @ ° nana ° Q . C
T+/T:F.NB IX7-O/ -OH*R= DAF+S /1T NOH*06E4 F+*.E}H AABBG C /14 *F+*RVEBG /,AH/V “YCO 420A0630065
ee a na a nan oe ne a a LAST PAGE mr Oe
© 0 6-3
DATE 13BAB70 O6APR70 22m AY70 01A0G70 010CT70 PROG ID 0a06-3 DATE 138AR70 O6APR70 22MAY70 01AUG70 07%0CT7U PROG ID Oa0 5
£C NO. 571512 571516 571513 571531 571540 PAGE 17 EC NO. 571512 571516 571513 571531 571580) => PAGE 178A
o 96
e°.0
eeeseeceovoevoeeoeeoseeaweononeoewenenvseenoeaseeoeas eee eee @ @
4
IBN MAINTENANCE DIAGNOSTIC PROGRAS
a072
ERR LOC
0009
Oa00
0a00
OA02
0A03
0aoa
OA06
0A08
OAOA
OACD
OaA11
OA15
0a19
OA IC
OA20
OA24
OA28
OA2C
0A 30
0A33
0A36
0139
OA3D
OA4SO
OAN3
OaA46
OA49
OARC
OA50
OAS’
OAS5S
0AS6
0a58
Oa5SC
0A62
OA66
0a68
OAGE
OAT2
OA75
OA7B
OATF
OA82
OA85
0a89
OA8C
0a90
OA96
OASC
OAA2
DATE
EC NO.
REA
OBJECT CODE
A072
00
01
0000
0C 33
1917
a01000
34
3c
08
FP
3D 00
F2 01
c2 01
34 61
35 01
3c 00
38 02
F2 10
7D AO
F2 81
38 01
F2 10
7D BO
F2 81
7B 10
D2 01
co 90
co 87
06
1A
OBOF
3c 00
oc C1
co 87
0040
08
re
3c
F2
00
Fi
87
0s 00
3C F2
78 01
F2 90
3C FF
D2 01
34 01
08 00
08 00
08 00
08 00
T3HAR7
5771512
D
OAF5
0B13
OB11
0232
0B11
0B11
OB12
0208
06
GO
2F
‘0208
06
00
2F
01
03
OA20
O21A
OB13
CB11
022A
1969
OB46
14
1969
OBN6
02
04
OB12
03
OB114
196D
1996
1999
VET
0
DATA
(DIAGNOSTIC)
ADDR STAT SOURCE STATEMENT
0A01
GA02
0a03
0a05
OA07
OAO9
OAO9C
OAS4
OA55
OAS7
OBiA
OA67
0515
0B 16
1969
1969
18869
1969
O6APR70
5717516
PART NO.
5129632
PAGE 1
SESESKSKSSKSEKSEKSKHEKSESEEKEKE SESE RECESSES SESE REKEREEE ERE KESEAEKEREKESREKESRED
*
*
PROGRAM ID
SECTION FLAsS
CURRENT ROUTINE NUMBER
RESERVED
ADDRESS OF FIRST ROUTINE PREFEX
ADDRESS OF ERROR RECORDING TABLE
*
EHEEKETKSKESCEKESE SEE EAKERESRESE EKEKSESESEKEKEEEESEKEEAKEEKEKEKE EE EEEEESE EKEREKEEREE
2 DECK 4
3 A07 START 0
4 ORG xX*OA00?
5
6 * SECTION PREFACE
7
*8 DC XL2*a072!
9 De XL7"00°
10 pc XL1¢01°
11 pc XL2*008
12 pc AL2(R8TN1)
13 pc AL2 (ETABLE)
14 pe XL3"A01000
*15
*16
17
18 * OPERATING INSTRUCTIONS
19
*20 * 1. SET SWITCH 15 TO BYPASS
21 * 2. SET SWITCH 16 TO BYPASS
22 * 3. SET SWITCH 1E TO BYPASS
23 * 4. SET SWITCH 1F TO BYPASS
24
25 SETDSK ST SETEIT+3,ARR
26 BVI SETSW,X'FF
*27
28 CLI UODTPTR,O
29 SNE UFIND1
30 LA UTAB,XR1
31 UFIND2 st UDTPTR, XR1
32 UFIND1 L UDTPTR, XR1
33 MVI REMVDS,0
34 TBN SWITCH+3,X'02!
35 JT #49
36 CLI 0(,XR1),X*A0!
*37 JE SETA
38 TBN SWITCH4+3,X'01°
39 oT #49
40 CLI 0(,XR1),X*BO!
41 JE SETB
42 TBN 1(,XR1) ,X"10
*43 LA 3 (,XR1) ,XB1
44 BP UFIND2
45 B PRINT
46 pc XL1*°06!
a7 pc TL1*26"
4B DC AL2 (NOUNIT)
49 NVI SETSW,O
50 HVC UDTPTR(2) ,TWOZR
51 B LoaD
52 Dc XL2*40!
$3
54 SETA ZZ LDPCR+1,SPNDLA
55 BVI SPNMSG,C'1®
56 3 SETBTH
57
58 SETB S8ZZ LDFCR+1,SPNDLB
59 NVI SPHNSG,C*2¢
60 TBN 2(,XBR1),X*"01°
61 JF SETBTH
62 MVI REMVDS,X*FP!
63
68 SETBTH LA 3(,XR1) ,XR1
65 ST UDTPTR, XR1
66 BZZ =LDFDR+1,LDPCR¢1
67 MZZ = SI0+1,LDFCR+1
‘68 MZZ oo s- WAIT+1, LDFCR+14
69 SZZ TSTERR+1,LDPCR+1
22MAY70 07A0G70
571573 571531 -
RUNNING OF
*
*
RUNNING ON
RUNNING ON
ROANING ON
THE RESOVABLE DISK
THE FIXED DISK
*DISK DRIVE 1
DISK DRIVE 2
**
SAVE EXIT
SET SETUP
ADDRESS
SWITCH
HAS POINTER BEEN INITILIZED?
JUMP IF YES
LOAD IF NO
ZERO SWITCH FOR RESOVABLE DISK
TEST SSW 1E
JUMP IF ON, NEVER RUN DISK DRIVE 1
TEST FOR A UNIT ADDRESS OF ‘A!
JUMP IF THERE IS ONE
TEST SSW IF
JUMP IF ON, NEVER RON DISK DRIVE 2
TEST FOR A UNIT ADDREAA OF 'B
*JONP IF THERE IS ONE
TEST FOR LAST ENTRY
STEP POINTER TO NEXT ENTRY
CONTINGE IF NOT THE LAST ENTRY
TO PRINT ALL UNITS SELECTED
PLAGS
LENGTH
BESSAGE ADDRESS
TO PRINT NO ENTRIES LEFT
FLAGS
SET TO RUN ON SPINDLE ‘a
*SET MESSAGE FOR SPINDLE *1?#
PROCEED
SET FOR SPINDLE B.
SET MESAAGE FOR SPINDLE '2°
*TEST OPTION BIT FOR PEAY. DISK ONLY
JUMP IF OFF
SET BIT FOR REMOVABLE DISK ONLY
STEP POINTER TOC NEXT ENTRY
SET FOR CURRENT SPINDLE
SET FOR CURRENT SPINDLE
SET FOR CORRENT SPINDLE
SET FOR CURRENT SPINDLE
PROG ID OaAG7T-2
PAGE 7
€)
09 60 @®@ 8 80 0 86 @ 060 086 6 0 6 09 0 80 060 090 9 08 6 6 0 0 6 GS @
eis tata tea i aa einen en Ses Sie elas
So ©® 6 © ® 8@©@ @® 00000060 0060006000000 00 6 08:
t
f
IBN MAINTENAWCE DIAGNOSTIC PROGRAS
A072
ERR LOC
OAAB
OAAE
OABS
OABA
OACO
OACSs
oacs
oac9g
OACD
OaDO
OAD4
OADS
OADS
OADA
oaDc
OAEO
OAE1
OAE2
OAE’
OAES
OAEE
OAF2
OAF6
OAFE
OBO6
OBOE
0B10
0B12
0B13
OBT4
OB15
0B16
0B17
0B 18
0B19
OB1B
OBIC
OB2&
OB2C
OB2F
0837
OB3F
OBN7
OBUF
OB57
OBSF
0B67
OB6F
DATE
EC #0.
(DIAGNOSTIC)
ADDR STMT SOURCE STATEMENT
READ DATA
OBJECT CODE
05 00 19E& 1969
08 00 190B 1569
08 00 1A1P 1969
08 00 1A23 1969
CO 87 18FD
02 Oaca
3C CB 0B148
38 08 1914
F2 90 08
3° 67 CB1a
CO 87 027A
01 OADS
2c OAD
0B72 OADB
CO 87 021A
06 OAEO
18 OAE1
OBR6 OAE
3C 60 1763
OC 02 1762 1762
3C 00 1467
CO 87 0000
C1D3D340E4DSC9E3 OBOF
B240C8C1ESC540C2
C5SC5D580E3C5E2E3
c5ca
0000 0B11
0232
00 0B12
00 0813
00 OB14
Ao 0B15
BO OB16
00 0B17
00 0B 1a
0000 OBIA
00 0B 1B
C9D5E5C1ID3C9CH4O OB2ZE
E2E2E640E2C5E3E3
C9D5C7
D5D6E640E3CSE2E3 OBA
CODSC74OCUCIE2D2
&0C4D9C9E5SC54027
C2C5C7C9DS40D9C5 0B72
C1C440C4C1E3C140
C4COCICTDSDEEZE3
C9C340CEESDSC3E3
C9D6D540E3CS5E2E3
40C1FOF7
13MAaR70 O6APB70
571512 571516
70
71
72
73
748
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
392
93
94
94
3a
94
95
96
97
98
99
100
101
102
103
104
105
106
106
106
107
107
107
108
108
108
108
708
108
PRTSPNW
SETEXT
NOURIT
UDTPTR
UTAB
REMVDS
SETSW
TRACK#
SPNDLA
SPNDLB
RUNRAV
RUNFIZ
TWOZR
PASS
INVFLG
SPNESG
SECHSG
22H AY70
571513
PART
PAGE
xc.
$129632
TA
MZZ TSTSCN+1,LDFCR1 SET FOR CURRENT SPINDLE
B2ZZ SNS+1,LDPCR+1 SET FOR CURRENT SPINDLE
N2Z RLDFCR+1,LDPCE+1 SET POR CURRENT SPINDLE
HZZ RSIO+1,LDPCR¢1 SET POR CORRENT SPINDLE
B SENSE
pc XL1°02" ASK FOR DEVICE STATUS BYTES 0 6 1,
AVI TRACK#, 203 SET FOR FULL CAPACITY DISK
TBR STATUS, x* 08° TEST CYL 100 BIT
JF PRTSPR IF OFF COXTINOE
BVI TRACK#, 103 SET FOR 1/2 CAPACITY DISK
B PRINT TO PRINT SECTION HEADING
pc XL17°01° FLAGS
Dc IL7* aa! LENGTH
pc AL2 (SECNSG) MESSAGE ADDRFSS
B PRINT TO PRINT SPINDLE
Dc XL171°06* FLAGS
pc IL1T°2u¢ LENGTR
pc AL2(SPNASG) MESSAGE ADDRESS
MVI HDTBL+3,0 ZERO HEAD
aYC HDTBL+2 (3) ,HDTBL+3 ERROR FLAGS
BVI FRSTPS,0 SET SWITCH FL@ RECALI BRATE
B +-* EXIT
pc CL26°ALL UNITS HAVE BEEN TESTED®
bc XL2°0
*EQU x*232°
pc XL17"O
*pe xXL1°O
*pc XL1°0G
*pc XL17*°a0°
pe XL1°BO
*pe xrLiene
pe XL1°O
*pe XL2'0
*pe XL1°O°
*pc CLIS* INVALID SSW SETTING
*pc CL24*NOW TESTING DISK DRIVE x
*pc CLA4* BEGIN READ DATA DIAGNOSTIC FUNCTION TEST AO?7
*CiAUG7O PROG ID QA07-2
571531 PAGE 1B
@O ©
Om ©
Q
©
IBA MAINTENANCE DIAGNOSTIC PROGRAS
A072
ERR LOC
0B73
0OB77
OB7B
OBT7E
OBB2
OBaS
OBBB
OBSE
0B91
OB9S
0598
OB9C
OBSD
OB9E
OBAO
OBAZ
OBAG
OBAB
OBAC
OBBO
OBBY
OBB?
OBBB
OBBF
OBC2
OBCE6
OBC?
OBCD
OBD4
OBD4a
OBDA
OBDE
OBF2
OBE6
OBES
OBED
OBFO
OBF6
OBFA
OBPD
0c03
0c07
OCOB
Oc or
0C13
0C 17
OCTA
OC1E
0C22
0C 26
OCc2a
OC2E
0C32
DATE
EC KO.
READ
OBJECT CODE
34
3D
F2
3c
F2
Cb
F2
F2
38
F2
co
c6
13
08
00
01
FF
87
01
81
87
06
90
87
OB2E
AOPA
OCOE
OB1B
07
OBTB
oc
OB18
81
3c
O20A
18
O2TA
T3HAR7O
$71512
DATA (DIAGNOSTIC)
ADDR STST SOURCE STATEMENT
110 TSTSPN ST TSTEXT+3, ARR
111 CLI PASS,O
112 JNE SETSPH
113 MVI PASS,X'FFt
114 J TSTSW
OBIA 115 SETSPN CLC RUNFIX(2) -TWOZR
116 JE ZROCTR
117 J SETRAV
118
119 TSTSH TBN SECTSW,X'06!
120 JP TSTRMV
121 B PRINT
OB9C 122 DC XL1°C6!
OB9D 123 pc IL1*19°
OB9F 124 DC AL2 (IKVFLG)
OBA1 125 DC XIL2°AOFA
*126
127 B HALT
OBA? 128 DC XL2*AOFA?
129 B TEST
130 B TSTSB
131 TSTRMV TBN SECTSW,X*'0G!
132 JT TSTFIX
133 BVI RUNRHV,X'PF!
134
135 TSTFIX TBN SECTS#,X'02!
136 IT SETRMV
137 CLI REMVDS,X'FF
138 JE SETRMV
139 MVI RONFIX,X*FF
*140 SETRMV CLI RUXRMNV,G
141 JE FIXED
18FC 182 ALC TBLH(2) ,ONE
143 MVI STEP,1
144 NVI DISKTP,O
185 BVI RUNRMY,O
146 3 TSTEXT
187
148 FIXED CLI RUNFIX,0
149 JE ZROCTR
18FC 150 ALC TBiH(2),ONE
151 CLI STEP,1
152 JE #49
18F2 153 ALC TBLH(2) ,ONE
154 BVI DISKTP,X*08"
155 MVI RUNFIX,0
156
157 TSTEXT B +--+
158
159 ZROCTR CLI x*0203',05
160 MVI PASS,O
161 INE #414
162 MVI SETSW,0
163 B 0
164 MVI STEP,O
165 CLI X*0A03',03
166 BE CKEDER
167 B LINK
0C32 168 STEP DC XL1°08
OL APR70 22mAY70 01A0G70
571516 571513 $71531
PART HO. 5128632
PAGE 2
STORE EXIT ADDRESS
IS THiS THE FIRST TIME THROUGH ?
JUMP IF NO
SET SWITCH
PROCEED TO TEST SWITCHES
HAVE ALL DISKS BEER RUE?
JUMP IF YES
JUMP IF NO
TEST FOR BOTH SSW'S 15 & 16 OF
JONP IP BOTH NOT ON
TO PRINT INVALID SSW SETTING
FLAGS
LENGTH
MESSAGE ADDRESS
MESSAGE ID
TO DCP ERROR HALT
HALT ID
TO READ CONSOLE SWITCHES
TEST FOR SWITCH 15 ON
JUMP IF ON
IF NOT ON, SET TO RUN REMOVABLE DISK
TEST FOR SWITCH 16 ON
JUMP IF ON
TEST REMOVABLE DISK ONLY FLAG
IF ON, NEVER RUN FIXED DISK
IF NOT ON, SET TO RUN FIXED DISK
DO WE WANT TO RUN ON REROVABLE?
JUSP IF NO ;
INCREMENT TABLE POCINTER
SET SWITCH TO INDICATE SAME
SET TO RUN ON REMOVABLE
CLEAR RUN REMOVABLE SWITCH
TO EXIT
DO WE WANT TO RUN ON FIXED?
JUMP IF RO
INCRENENT TABLE POINTER
TEST FOR PREVIOUS INCREMENT
JUMP IP YES
INCREMENT TABLE POINTER
SET DISK TYPE TO FIXED
CLEAR RON FIXED SWITCH
EXIT
CHECK FOR LAST ROUTINE
ZERO SWITCH
JUMP IF NOT LAST ROUTINE
RESET SWITCH
CHECK FOR COMPLETION OF ROUTINE 3.
BRANCH TO CHECK ERRORS
TO NEXT ROUTINE
PROG ID O0A07-2
PAGE 2
Oo ©
o 8 oO
a“
wr
®o 60 © 60 39 0 6 0 06 6 0 060 0 0 0 0 0 0 0 90 06
dnweanniceoanesnee
oO O © 808 6 8&8 9 6
G oO
Oo oO 9 6 0 9 O08 0
oO 89 86 O
Oo 8 O Oo
Q
IBM MAINTENANCE DIAGNOSTIC PROGRASA
BO72
ERE LOC
0c33
0C34
0c35
0¢37
OC3B
OC3F
0c43
OC4&7
OC4B
0c51
o0c55
0c56
0c57
0cS9
ocsD
0c61
0c65
0c69
Ocoa
OCc6B
Oc6D
0c71
0C73
0c77
OC7B
OCTF
0c83
0c87
ocss
oc 89
OCc8B
Oc8F
0c93
0c97
OC9B
ocsc
ocoD
ocor
0CA1
ocas
OcaA7
OcaAS
ocac
OCBO
OCBS
OCBS
ocs9
OCBA
OcBC
OCBE
occ2
occ4&
occs
DATE
EC wo.
READ DATA
OBJECT CCDE
170
*171
172
*173
179
175
01 0c33 176 RTN1 DC
30 0c38 177 DC
ODE3 Cc36 «178 DC
179
3D 00 0B13 180 BEGIN CLI
CO 81 OAOD 181 BE
CO 87 OB73 182 RTNIA B
3c 0C 1913 183 BVI
3c 09 1ADB 184 BVI
Oc 00 18F8 0B14 185 KYC
CO 87 192C 186 B
00 0cS5 187 pc
00 0cS6 188 Dc
16F7 0c58 189 DC
CO 87 0C73 190 B
Co 87 0C6i 191 B
CO 87 1ABa 192 B
CO 87 O21A 193 B
06 0c69 194 DC
35 Oc6a 195 DC
OcrC OCc6C 196 Dc
CO 87 0222 197 B
A009 oc72 198 pe
199
CO 87 17E7 200 RTNIA1 B
3C FF 18F8 201 BVI
3c 00 18F9 202 nVI
3C 00 18FA 203 BVI
204
CO 87 192C 205 B
01 0c87 206 BC
02 0c8s8 207 DC
18F7 Oc8A 208 DC
CO 87 0C97 209 B
CO 87 0C93 210 B
CO 87 OCA7 271 B
CO 87 021~ 212 RTN1A2 B
C6 OC9B 213 De
46 ococ 214 Dc
On42 OC9E 215 DC
A030 OCAO 216 BC
CO 87 0222 217 B
4030 OcA6 218 pc
219
CO 87 18FD 220 RTNIB B
02 OCAB 221 Dc
222
38 04 1913 223 TSN
224
*CO 10 occs 225 BT
226
CO 87 021A 227 B
C6 OcB8 228 DC
50 OcB9 229 DC
0D92 OCBB 230 DC
A031 OCBD 231 pc
co 87 6222 232 B
4031 9CC3 233 DC
234 ;
CO 87 0C3F 235 RTBIC BO
236
E3CB8C540D7DSCSES OCF6 237 DC
13HAR70 O6APR70 22MAY70 01AUG70
571512 571516 571513
571531
(DIAGROSTIC)
ADDR STMT SOURCE STATEMENT
PART
PAGE
KO.
ROUTINE NO. O1, CHECK FUNCTION OF NO RECORD FOUND
ROUTINE PREFACE
xXxL1'01°
XL1'00°
ALZ (RTN2)
SETSW,0
SETDSK
TSTSPN
STATUS-1,9
SNSID,09
RDDFC+1 (1) ,TRACKE
STRTIO
XL1¢008
XL7*00!
AL2 (RDDFC)
RTNIA1
44
PRTSNS
XL1*06"
IL1*53
*hL2 (ERRORQ)
HALT
XL2*A009
*TSTSEK
RDODFC+1,X'FF
*RDDFC+2,0
BDDFC+3,0
STRTIV
XL1°01"
XL1°02¢
AL2 (RDDFC)
RTNIA2
s4Q
RTN1B
XL1°C6!
IL1"79°
AL2 (ERN1A)
XL2*A030°
HALT
XL2*a030°
SENSE
AL1(STATO1)
STATUS-1,X"°08
*KTRIC
PRIW™
XL1°c6
*ILieo
*AL2 (ERE1B)
XL2*a031°
HALT
XL2*a031°
*RINWA
SENSE BIT, (BYTE 0, BIT 5)
USING THE READ DATA DIAGKOSTIC CORMAND
ROUTINE NO.
ROUTINE FLAGS
ADDRESS CF NEXT BOUTIRE
HAVE PARABETERS BEEN ENTERED?
BRANCH IF XO
ZERO SENSE AREA
INSERT ID IW PRIRT
SET TO SEEK THE CE TRACK
TO I/O SUBROUTINE
FUNCTION CODE (CONTROL)
CONTROL CODE (SEER)
CONTROL FIELD ADDRESS
GOOD RETURR
TO DECODE ERROR
TO PRINT
FLAGS
LENGTH
BESSAGE ADDRESS
TO DCP HALT
HALT ID
TO TEST FOR GOOD SEEK
SET CYLINDER NO. TO FORCE A URP.
SET TRACK &
SECTOR VALUES
TO I/0 SUBROUTINE
FUNCTION CODE (READ)
CONTROL CODE (DATA DIAGNOSTIC) .
CONTROL FIELD ADDEESS
GOOD RETORN, (NOT EXPECTED)
NORMAL RETURN FROE EXPECTED FRROR
TO PRIKT ROUTINE ERROR
FLAGS
LENGTH
ADDRESS OF LAST PRINT CHARACTER
MESSAGE ID
TO DCP RALT
HALT ID
TO SENSE I/O SUBROUTINE
DEVICE STATUS BYTES 0 & 1
TEST BYTE 0, BIT S FOR OF
THIS IS "NO RECORD FOUND!
BRANCH IF O8
TO PRINT
FLAGS
LENGTA
ADDRESS OF LAST PRINT CHARACTER
MESSAGE ID
TO DCP HALT
HALT ID
ERROR
ROUTINE EXIT
CL&7'THE PREVIOUS ERRORS OCCURRED WHILE SEEKING THE
*PROG ID
PAGE
5129632
2k
o
*OA07T~2
2a
ot
aoe!
©.
oe2e~2_2@@eeeeede@e@eeoeeeoed sd
IBM MAINTEWAKCE DIAGNOSTIC PROGRAR
A072
ERB LOC
ocpd
ocDs8
OCcEO
oczs
OCFO
Ocr7
OcFD
opo5s
ODOD
OD15
OD1D
OD25
On2D
0D31
0D39
Ona)
OD4&3
ODUB
0D53
ODSB
0D63
OD6B
0n73
GD77
OD7F
oDs7
oper
0D93
OD9OB
ODA3
OPAB
ODB3
ODBB
ODBD
opcs
opcD
ODDS
ODpDD
ODEZ
DATE
Ec NO.
BEAD p
OBJECT CODE
CIDEESEZUOCSD9DI
D6EDIEZUODECIC3ES
DIDICSCHY OESTBCS
D3CSHDE2ZC5C5D2C9
D5C740E3C8CS40
C3CS¥0C3EBD3
DICSCICUUOCHC TES
C140C4C9C1C7D5 D6
E2E3C9C340E4E2C9
D5C740C140D5DED5
4 OCSETCIEZE3C IDS
E340E2C5C3E3D6D9
uOC9CUSB
CHCICGHODSDEE3 40
C7C9E5C54 OC5D9DI
D6D9
D5 D648 0D9C5C34B40
C6 DS EY DSC&4ODSDS
E340E2C5E340C2E8
4OCT4OD9C5CICRYO
CUCTE3SCINOCUCICI
C7DS5D6E2E3C9C 380
C3DEDRLO
D¥CIDSC44 OEGE2C9
D5C740T 1UDE2ZC5C3
E3D6D94OC9ICRUODE
C64 0C6CE
DSCSC ICK4OCECICS
D3C34OCUDECSEZKO
D5D6E340C3D6D5E3
CICIDS¥OCSETDICS
C3E3C5C4R OCHCTES
C140
CICBE3C5D94OCTCS
E5CSD5C74 0C140D9
CSCICY4OCKCIE3C1
8OCSC9CICTUBYOC3
DOD4UDSCUYB
00
138 AR70
$71512
ATA
(
ADDR
Oc FC
0D30
OD42
OD76
OD92
ODBC
ODEI
ODE2
062PR70
5771516
DIAGHO
STST SOURCE
237
237
237
237
237
238
239
239
239
239
239
239
239
240
240
240
241
2491
241
261
244
241
241
242
242
242
242
243
2483
243
243
243
243
248
248
244
244
244
245
ERRORS
ERRIA
ERR1B
ERRO2F
EXPSEC
22NaY7C
5715713
PART NO. 5129632
PAGE 3
STIc)
STATERENT
DC CLO6'CE CYL
*pe CL52*READ DATA DIAGNOSTIC USING A NON EXISTANT SECTOR ID,
*bc CL18*DID NOT GIVE ERROR’
pe CL52°NO REC. FOUND NOT SET BY A READ DATA DIAGNOSTIC COB®
pe CL28*MAND USING A SECTOR ID OF FF
*DC CL42*READ FIELD DOES NOT CONTAIN EXPECTED DATA
*pe CL37*AFTER GIVING A READ DATA DIAG. COMND.
*bc XxL1°O
*O1a0G70 PROG ID GAO7-2
$71531 PAGE 3
0)
0000600000000 0 0 0 0 0 8 =6
t
i
Parente
© 0008000600 008080%808908 0 0 0 G6 8 0 o
QO oO
9 O08 6 @®
A072
ERR LOC
ODE3
ODES
ODES
ODE7
ODEB
ODEP
ODF3
ODF7
ODFB
ODFF
0£03
OEO9
OEOD
0E11
0E15
0E19
OEIA
OEIB
OE1D
0E21
0E25
0E29
GE2D
OE2E
OE2F
0£31
0£35
0E37
OE3B
OE3F
OESS
OER9
OEUF
OE53
0ES7
OES5D
0E61
O£F65
0£69
OE6A
OE6B
OE6D
0£71
OE75
OE79
OE7D
0E81
O£87
OE8B
OFSP
0E93
OE98
0Z95
O£97
DATE
EC WO.
READ
OBJECT CODE
02
09
10DE
02
02
00
81
87
02
00
00
00
00
09
175F
175c
0313
OaoD
0B73
175D
175D
18F4
18PS
ODE2
1ADB
87 192C
0E37
0£25
TABS
O21A
OCcFC
co 87
a009
0222
CO 87 17E7
3c
oc
E7
FE
1DC2
1DCc1
3c
oc
00
FE
1EC2
1EC1
3c
3c
oc
12
00
00
IADB
18F6
18F5
c2
34
01
01
1cc3
1A70
co
02
00
18F3
co 87
co 87
co 87
87 192C
CE79
0E75
OF6a
3c
3c
oc
32
00
00
1ADB
18F6
18P5
c2
34
01
01
1Dc3
1470
co 87
01
02
18F3
co 87
192C
OECA
{ 3HAR7O
5715142
DATA
OB14
1DC2
1EC2
ODE2
ODE2
IBM MAINTENANCE DIAGNOSTIC PROGRAS
(DIAGNOSTIC)
ADDR
ODE3
ODES
ODES
0E19
OEIA
OEIC
OE2D
OE2E
0E3)
OE 36
OE69
CE6A
OE6C
0E93
OE9S
OE96
O6APR70
571516
STMT SOURCE STATEMENT
247
*248
*249
250 RTN2
251
252
253
258
255
256
257
258 RIN2A
259
260
261
262
263
268
265
266
267
268
269
270
271
272
273
2748
275
276
277
278
279
280
281
282
283
288
285
286
287
288
289
290
291
292
293
298
295
296
297
298
299
300
301
302
303
308
305
306
307
308
309
310
311
312
313
318
RITN2A1
BTN2B
RTR2B1
22HAT70
571513
ROOTINE WO. 02,
USING BEADS 0 & 2
CHECK
PART WO. 5129632
PAGE 3A
READ DATA DIAGNOSTIC FUNCTION
*pe XL1°02* ROUTINE NUMBER
oc XL1*00* ROUTINE FLAGS
pce AL2 (RTN3) ADDRESS OF ‘KET ROUTINE PREFIZ
LA HDTBL-1, XR2 SET POINTER
St TBLH, XEB2 FOR HEAD 0, REMOVABLE DISK
CLI SETSH,0 BRAVE PARAMETERS BEEN ENTERED?
BE SETDSK BRAWCH IP WO
5 TSTSPN
LA SECTBL,XER2 SET ERROR TABLE POINTER
AVI SECTBL,0 ZERO SECTOR ;
avc WATDPC+1(1) ~-TRACKE SET SEEK ADDRESS TO CE TRACK
“VI WRTDFC+2,0 SET FOR HEAD 0, SECTOR O
BVI EXPSEC,0 SET EXPECTED READ & SECTOR KO.
BVI SNSID,09 IKRSERT ID IH PRIST
B STRTIO TO SEEK CE TRACK
pc XL1°O* FUNCTION CODE (CONTROL)
be XL1*O* CONTROL CODE (SEK)
pc AL2 (WRTDFC) CONTROL FIELD ADDRESS
B ETN2Ai GOOD RETUBH
B zey
B PRTSNS TO DECOD=S ERROR
B PERIST TO PRINT
pe XL1*06* FLAGS
be IL1* 53° LENGTH
bc AL2 (ERROES) RESSAGE ADDEESS
5 HALT TO DCP HALT
be XL2*a009° HALT ID
B TSTSEK TO CHECK FOR A GOOD SEEK
AVI WORK+255, Ft E7* SET WRITE FIELD
AVC WORK+258 (255) ,WORK+255
AVI READ+255,0 SET READ FIELD
vc READ+258 (255) ,READ*255 TO ZEROS
RVI SNSID,X*12* PuT MESSAGE ID IN PRINT
BVI WERTDFC+3,0 SET TO WRITE OKE SECTOR
ayvc WRIDFC+2 (1) - EXPSEC SET SECTOR KO IN CONTROL FIELD
LA WORK, XB1 SET WRITE DATA ADDRESS
st DFDR, XB1 IK DATA CONTROL FIELD
B STRTIO TO I/O SUBROUTINE
pc xL1°02! PURCTION CODE (8RITE)
oC XL1°O06* CONTROL CODE (DATA)
Dc AL2 (WETDFC) CONTROL FIELD ADDRESS
B RIN2Bi GOOD RETURN
B +8
3 WETER2 ERROR RETURSG
BYI SESID,xX*32* PUT ID IN PRINT
AVI BRTIDFC+3,0 SET TO READ ONE SECTOR
RVC WRIDFC+2 (3) g EXPSEC SET SECTOR KO IN CONTROL FIELD
LA BEAD, X81 SET READ DATA ADDRESS
st DFDR, Xk? IN DATA CONTROL FIELD
B STRTIO TC READ DATA
pc XL1°O1* FONCTION CODE (READ)
pc XL1*O62* COHTEOL CODE { DATA DIAGEOSTIC)
pc AL2 (FRTDFC) CONTROL PIELD ADDRESS
B RTR2ZB2 GOOD RETCRE
O1ATG7TO PROG £5 OADT<-2
571531 PAGE 3B
gy
fits
+
pe
= ae
I
cs | U3 -
IRS MAINTERANCE DIAGNOSTIC PROGRAS PART NO. 5129632 IBS MAINTENANCE DIAGROSTIC PROGRAMS PART RC. 5129632
PAGE 4 PAGE SR
o16 . ¢
A072 KEAD DATA (DIAGBHOSTIC) A072 READ DATA (DIARBGAOSTIC)
ERR LOC OBGECT CODE ADDR STMT SOURCE STATENERT Q & ERR LOC OBJECT CODE ADDP STHT SOURCE STATESERT i
OE9B CO 87 OE9OF 315 B £48 OF4C CO 8&7 021~ 383 RTK2J 8B PRIET TO PRINT DATA COMPARE EEROR
316 Go | 0 OF50 C6 OFSO 384 pc XL1'c6" FLAGS S
CE9F CO 87 1c04 317 RTN2C 8B SHIFT TO SHIFT BITS FOR DECIMAL NUNBER OF51 4F OF57 385 pc IL1*79° LEEGTH
OEA3 1873 OBAS 318 pC AL2 (WRT DFC) ADDRESS OF SOURCE OF52 ODE1 OF53 386 DC AL2(EBRO2P) HESSAGE aDDRESS
OEAS CC 87 1C55 319 B cyD TO CONVERT TO DECIRAL NUABER >| G OF5% 2036 CF55 387 DC XL2'2036° RESSAGE iD
ORAS 1059 GEAA 320 DC AL2 (CYLNO) ADDRESS OF SOURCE | OFS6 CO 87 6222 388 B HALT TO DCP ZRROR RALT
DEAB OF 20 OEAC 321 DC AL2 (ERRG2A) ADDRESS OF DESTINATION OFSA 2036 OF5B 389 Dc X¥L2°3036* HALT ID
OLEAD 3¢ UO OFDE 322 NVI ERROZA-2,C? * SET A BLANK IN PRINT IMAGE Oo a OFSC CO 87 16EB 390 STH2K 8B CRHED TO CHECK FOR ERROES
GCEBI CGO 87 16CD 323 B SETEBR TO SET ERROR FLAG FOR THIS SECT. OF6G CO 87 ODF7T 39% B RTR22.
OESS CO 87 TABG 328 B PBTSHS TO PRINT SENSE IRFO. OF68 3C i2 7ADB 332 ERTER? BYE SNSYZD,xX? 428 PUT ID IN SFEHSE FRIET
CEES CO 87 0274 325 B PRINT TO PRINT THIBD LINE c. 9 OF68 35 841 475cC 393 L TBLE, XR
CEEBD 06 OEBD 326 pc XL1FOGe FLAGS OF6C 1C OC 16DpD o4 39% RYO ERROVE(1} »&(, RE 4) ROVE HEAD EO. TO ERROR NSG.
OEBE SA CEBE 327 pe ILitgos LERGTH 0P71 CG 87 1ABS 395 B PRISNS TO PRINT STATUS ERROES
CEBF OFKO OzCO 328 c AL2 (ERROZA} BRESSAGE ADDRESS Oo a OF 75 CO S87 O24R 396 B PRINT TO PRINT BRITE ERROR
GEC1 CO 87 0222 329 E HALT TO DCP HALT OF79 S86 SF7S 397 BC ZL1*06? FLAGS
GECS A022 OEC6 330 pc XL2°2032¢ HALT ID OP7A 38 CFTA 398 DC TLiesge LENGTS
CEC] #2 8B? 92 333 a RUTHER Oo o OF? TODD OF7C 395 pe AL2 (ERBO2E} HESSA&GE ADDRESS
332 OF7D CG 87 0222 300 5 HALT TO DCE ERROR HALT
OECA CO 87 1782 333 RTWZBZ B TSTDET TO TEST DATA ADDRESS OF81 2O12 OF82 401 pc XL2¢4072° RALT ID
OECR ibc3 OECF 338 DC RL2 (READ) Go @ OF83 CO 87 OFSC 8G2 B BTEZK TG ROUTIRE ZZIT
335 203
D£DO 35 FP 18F6 336 RTN2CT CLI WRIDFC+3,X'FF! TEST SECTOR COUNTER POR STEPPING. OF87 ESCECSSOD7IDSICSES OFBR #64 DC CL52'THE PREVIOUS BEROES HERE PRESERT 2 Y°TER DOIEG & READ
*OEDS Fi 81 10 337 JE - RT N2C2 PROCEED IF OK. oc Go OFSP CODSESE2ZNOC5DIDE 408
O6D7 CO BF OZR 338 B PRINT TO PRINT SECTOR COURTER NOT STEPFED OFO7 DSDSEZUCEECHSDSCS 808
GEDB CE COEDS 339 be ZL7°C6? FLAGS a OFSF 4OD7TDSCSE2ZCSD5SE3 808
QEDC 25 OEDC 340 pc TL1%438 LERGTH Ne OFA? 4OCICEE2C5DSECCA 408
QEDD Ti0B OEDE 341 Dc AL2 (EBROZB) HESSAGE ADDRESS OFAP D6C9OBSC7HOCISODS 808
QOEDF ACh3 OEEG 342 BC XL2*ac33# MESSAGE IDENTIFICATION f OFB7 C5CI1Ca4sG B08
PEEY Co 37 0222 343 B HALT TO DCP HALT G © OF BB CSCIESCTRO0CKCSC1 OFEG 805 EREBOZA DC CL3Q'DATA DIAG. COAND. USING HD. Z SECT. xx°
GEES aG33 OBES 344 DC XL2* 2033? HALT ID OFC3 C7TEBROCIDEDADSCH &65
345 a OPCB 4B40ESE2C9D5C740 805
GEE? Of GO 48FS ODE2 346 RIN2C2 CLC WRIDFC+2{ 1),EXPSEC CHECK HEAD & SECTOR HO. APTER Gf OPD3 CSC&SBLOETZ0E2C5 #65
347 + WRITE IS COMPLETED, { EXPECT NC CHG.) OPDB C3 EZ4BUCETE? 895
GERD F2 &1 40 349 JE RTNOD PROCEED IF OK OFE1 E2CSC3E3DEDSUCC3 100B 406 FRROZB Be CL&31SECTOR COUNTER IN CONTROL FIELD HOYT STEPPED?
OEFO CO 87 O21A 34S B PRINT TO PRINT ERROR Oo CG OFEQ DGESDSE3CSD94OCS &06
GEFY CE OEFY 350 pe XL1°C6! FLAGS OFF? DSSOC3DED5E3DSD6 £06
CEFS & OEF5 351 BC IL1* sys LENGTR OFFS D340CE6C9IC5D3C44O &06
OEF6 1042 OEF7? 352 Dc AL2 (ERRG2D) MESSAGE ADDRESS CO 1001 DSD6E3R0E2E3C5SD7 406
OETB AC34 CEF9 353 Dc XL2"a0345 MESSAGE IDENTIFICATION 1009 D7CSC4 406
OEFA CC 87 0222 354 B HALT TO DCP HALT 100C E6D9CSIE3SCS540CECS 103E 407 pc CL51"WRITE FIELD WAS ALTERED APTER GIVIRG A READ DATA DI°
GEFE AU38 OEFF 355 DC XL2*A038! HALT ID o 6 1014 CSD3ICU4OE6CTE2Z40 807
356 101C CIDJE3C5D9ICSC44O 407
OF0O C2 02 1cCc3 357 RTN2D LA WORK, XR2 SET XR2 TO POINT TO WORK AREA 1024 CIC6E3C5SD940CTCI 407
*OFON BL E7 00 358 RTN2F CLI 0(,XR2),X*E7* CHECK WORK AREA FOR NO CHANGE Oo © 102C ESCIDSC740C140D9 407
OFO7 F? 01 18 359 JNE RIN2ZE JUMP TO PRINT IF WRT. FLD. IS CHG. 1034 CS5CICHHOCHCTE3CA 407
OFOR Ez 02 01 360 LA 1(,XR2) ,XR2 NOT DONE, INCREMENT XR2 103C 40C4C9 407
OrPOD 3& 02 1916 361 ST SNSXR2,XR2 NO CHG, SET TO CHECK NEXT BYTE C © 103F CICTDSD6EZE3C9C3 10HE 808 ERROZC DC CLI6*° AGNOSTIC COHBABHD
*OF11 01 01 1916 185E 362 CLC SNSXR2(2) ,WORK2 CHECK XR2 FOR REACHED UPPER LIMIT. 1087 SOCIDEDSDYCIDSCS 808
CF17 Fi 81 14 363 JE RTN2G TO RCUTINE END. 104F CBCSCICUNOSONGE2 1082 409 DC CL52*HEAD & SECTOR BYTE OF CONTROL PIELD CHANGED AFTER A °
OFTA CG 87 OFO4 364 B RTN2F CHECK NEXT BYTE Go oO 1057 CSC3E3D6D940C2E8 809
365 105F E3C540D6C640C3D6 809
OFIE CC.) 87 O21Az 366 RTN2E B PRINT TO PRINT DATA FIELD WAS CHANGED 1067 DS5E3D9D6D340C6C9 409
OP22 Ci OF22 367 Dc XL1°C6! FLAGS Oo US 106F CS5D3C440C3C8C1D5 409
OF23 4; OF23 368 DC IL1*67! LENGTH 1077 C7CSC4HNOC IC6E3C5 &09
OF24 1 4E OF25 369 Dc AL2 (ERRO2C) MESSAGE ADDRESS 107F DS4O0C140 409
OF26 2135 OF27 370 Dc XL2*a035° MESSAGE IDENTIFICATION G SC 1083 D6D5C54¥0E2CSC3E3 10A2 410 ERRO2D DC CL32°ONE SECTOR READ DATA DIAGHOSTIC?®
OF28 Ci 87 0222 371 B HALT TO DCP HALT 108B D6DS40D9C5C1C440 810
OF2C A935 OF2D 372 pc XL2*a035° HALT ID 1093 C4CTE3ICI4OCHCICI &10
373 g oO 109B C7DSD6E2E3C9C340 210
OF2E C2 02 1DC3 37% RTN2G LA READ, XER2 LOAD ADDRESS OF READ ARFA IN XR2 10A3 CSDSDIDED940DSC3 10D2 411 pc CLU8*ERROR OCCURRED WHILE DOING A WRITE DATA COND. 0°
OF32 Bs E7 00 375 RTN2H CLI 0(,XR2) ,X*E7? CHECK EACH BYTE OF READ FIELD 1OAB C3 ESDIDICSC44OES $11
OF35 Fi 01 18 376 INE RTN2J JUMP TO PRINT IF NOT CORRECT o ° 10B3 C8CID3ICSXOCaDECY ait
OF38 E2 02 01 377 LA 1(,XR2) ,XR2 STEP READ AREA POINTER +1 10BB DSC74OCTYOE6DICIS 817
OF3B 38 02 1915 378 ST SNSXR2,%R2 STORE POINTER VALUE 10C3 E3CSHOCKC1E3C140 411
OF3F 0) 01 1916 1C03 379 CLC SNSXR2(2),READ1 COMPARE POINTER VALUE & UPPER LIBIT Cc S 10CB C3 D6DEDSC4EBUOES aii
OF&5 F2 81 14 380 JE RTN2K JUMP IF FINISHED 10D3 E2C9DSC740C8C5C1 10DD 412 ERRO2ZE DC CL11'SIHG HEAD Xx?
OF&8 CO 87 OF32 381 B RTK2B NOT FINISHED, CHECK NEXT BYTE 1ODB C4&0E7 412
382 e 98
DATE 13MAR70 O6 APR70 22H AY70 O1A0G70 PROG ID 0A07~-2 @ © oparez 13BAR70 O6APR70 22maY70 0 1A0G70 PROG ID OA07-2
EC WO. §71512 571516 571513 571531 PAGE 4 EC BO. 571512 571516 571513 §71531 PAGE BA
3 !
e 6
%)
IBS MAINTENANCE DIAGNOSTIC PROGRAS PART BO. 5129632
PAGE 5
GS
A072 READ DATA (DIAGROSTIC)
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT G
914 * ROUTINE NO. 03, CHECK READ DATA DIAGNOSTIC
*a15 * USING HEADS 1 & 3 @
416
10DE 03 10DE 417 RTN3 DC XL1*03* ROUTINE NUMBER
10DF 09 10DF 418 Dc XL1°008 ROUTINE FLAGS oO
10£0 12DC 10E1 419 pc AL2 (RTN4) ADDRESS OF NEXT ROUTINE PREFIX
420
10B2 C2 02 1761 421 LA HDTBL+1,XR2 SET POINTER oO
1OEG 34 02 175C 422 st TBLH, XR2 FOR HEAD 1, REMOVABLE DISK
10EA 3D 00 0B13 423 CLI SETSW,0 HAVE PARAMETERS BEEN ENTERED?
10EE CO 81 OAOD 424 BE SETDSK BIANCH IF NO i)
10F2 CO 87 0873 425 RTK3A R TSTSPR
10F6 C2 02 175D 426 LA SECTBL, XR2 SET ERROR TABLE POINTER
JOFA 3¢ 00 175D 427 MMVI SECTBL,O ZERO SECTOR GS
1OFE OC 00 18F4 0B14u 428 MVC) WRTDFC+1(1) , TRACK# SET WRITE ADDRESS TO CE TRACK
1104 3c 80 18F5 429 MVI WRIDFC+2,x*80? SET FOR HEAD 1, SECTOR 0
1108 3C 80 ODE2 430 MVI EXPSEC,X*80t SET EXPECTED HEAD & SECTOR NO. ©
110C 3c 09 1ADB 431 MVI SNSID,09 INSERT ID IN PRINT
432
41110 CO 87 192Cc 433 B STRTIO TO SEEK CE TRACK a
1114 00 1118 «#434 rc XL1*0! FUNCTION CODE (CONTROL)
1115 00 1115 435 pc XL1°08 CONTROL CODE (SEEK)
1116 18F3 1117 436 Dc AL2 (WRTDFC) CONTROL FIELD ADDRESS G
1118 CO 87 1132 437 B RTN3A1 GOOD RETURN
111C CO 87 1120 438 B *44
1120 CO 87 1ABu 439 B PRTSNS TO DECODE ERROR Q
1124 CO 87 021A 4&0 B PRINT TO PRINT
1128 06 1128 441 pc XL17*068 PLAGS
1129 35 1729 442 pe -—soWs IL 7*# $3" LENGTH o
112A CCFc 112B 8&3 pC AL2 (ERROR) MESSAGE ADDRESS
112C CO 87 0222 aug B HALT TO DCP HALT
1136 A009 1137 945 pe XL2*a0098 HALT ID 9
RUG
1132 CO 87 1757 447 BTN3A1 B TSTSEK TO CHECK FOR A GOOD SEEK a
4ua8
1136 3c E7 1DC2 449 RTN3B BVI WORK+255,X°E7! SET WRITE PIELD
113A OC PE 1DC1 1DC2 850 HVC) WOBK+258 (255) ,WORK+255 0
451
1140 3c 00 1£EC2 452 HVT READ+255,0 SET READ FIELD TO
4188 OC FE 1EC1 1EC2 453 MVC READ+254(255) ,READ#255 ZEROS 6
454
114A 3C 16 IADB 455 MVI SWNSID,¥*16* PUT ID IN PRINT
119E 3c 00 18F6 456 NVI - WRTDFC+#3,0 SET TO WRITE ONE SECTOR
1152 OC 00 18F5 ODE2 457 MVC =6WRTDPC+2(1), EXESEC SET SECTOR NO IN CONTROL FIELD S$
458
1158 C2 01 1cC3 459 LA WORK, XR1 SET WRITE DATA ADDRESS
115C 34 01 1A70 860 st DFDR, XB1 IN DATA CONTROL FIELD. ©
461
1160 CO 87 192¢ 862 B STRTIO TO WRITE DATA
1164 02 1164 463 pc XL1'02! PUNCTION CODE (WRITE) °
1165 00 1165 464 DC XL1°008 CONTROL CODE (DATA)
1166 18F3 1167 4865 pc AL2 (WKTDFC) CONTROL FIELD ADDRESS
1168 CO 87 1178 866 B RTN3B1 GOOD RETURN ©
116C CO 87 1170 867 B 44
1170 CO 87 125F 468 B WRTER3 ERROR RETOUR
469 Oo
1174 3c 37 IADB 470 RTN3B1 BVI SNSID,X*37° PUT ID IN PRINT
1178 3C 00 18F6 971 NVI -WRTDFC+#3,0 SET TO READ ONE SECTOR
117c OC 00 18F5 ODE2 872 MVC WRTDPC+2(1),EXPSEC SET SECTOR NO IN CONTROL FIELD °
873
1182 C2 01 tDC3 &74 LA READ, XR1 SET READ DATA ADDRESS
1186 34% 01 1a70 nt st DFDR, ZRi IN DATA CONTROL FIELD 3
B76
118A CO 87 792c &77 B STRTIO TC READ DATA
{ ise 01 17182 avs pc XLUO FUNCTION CODE (READ} a)
118F 02 V1i8F a79 pc KL1°02: CONTROL CODE (DATA DIAGNOSTIC}
1790 18P3 1191 499 pc AL2 (WETDFC} CCHTROL FIELD
1182 CO 87 11¢5 aBi B RTH3B2 GOOD RETURH o
DATE T3HARTOC OGRERTO 22MAY79 OTAUGTO PROG ID DAGT-2 G3
EC BO. 571512 571516 577513 571531 PRGE 5
anrth eli = setenv acne pnt
mn
Qo 9 8 OO o Oo O98 OO 9 | o Oo Oo 9 8@ 606 0 8 0 0 0808 0 9 8 0
SSS C7T?TZ i ° "=~ eee
@
O
IBE MAINTENANCE DIAGNOSTIC PROGRAE
a072
ERR LOC
1196
119A
119E
7140
11A4
ViA6
41A8
11ac
1130
T1BS
1138
11B9
T1BA
11BC
11C0
11C2
11c5
11¢9
11cB
11CF
11D2
11D6
11D7
11D8
TIDA
T1Dc
11E0
T1E2
11E8
11Z5
V1EF
11F0
VIF 1
VWF
11P5
11F9
11FB
11FF
1202
1205
1208
120C
1212
1215
1219
121D
I21E
121F
1221
1223
1227
1229
1223
1236
1233
1236
V23k
3240
1243
DaTE
EC NG.
REA
D
DATA
OBJECT CODE
co 87
co 87
18F3
co 87
1c49
OFEO
3c 40
co 87
co 87
co 87
06
SA
OFEO
co 87
A037
F2 87
co 87
1DC3
3D FF
F2 81
co 87
cé6
2B
1008
A033
co 87
A933
OD 00
F2 81
co 87
c&
54
10A2
A038
cO 87
A034
C2 02
BD E?
F2 01
E2 02
34 02
OD 01
F2 81
co 87
co 87
c6
&3
TOKE
a035
CO 87
A035
C2 G2
BD E?
F2 0%
E2 02
38 6&2
OB 0%
Fe $4
ca 87
1198
1c08
1¢55
OFDE
16CD
TABS
O21A
0222
92
17B2
18P6
O27A
0222
18F5
10
O21A
0222
1cc3
00
14
01
1916
1916
18
11FPFP
O21A
0222
1DCc3
695
7a
07
1916
1$76
OP32
T3RRRTG
$71512
ODE2
185E
1003
(DIAGHOSTIC)
ADD&
1197
T7a5
VIAT7
1188
1159
11BB
31¢C1
TICA
11D6
11D7
11D9
11DB
V1E1
11EF
11F0
11F2
itFa
T1PA
121D
121E
1220
1222
3228
OFAPETC
571516
ST&T SOURCE STATERSA7T
882
883
&Ba
y85
486
487
888
389
890
891
892
us3
a9a
895
996
&97
R98
499
500
501
502
503
508
505
S06
507
508
509
510
511
512
513 RTR3C2
518
515
516
517
518
519
520
521
522
§23
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
520
5a
542
543
568
545
546
5a7
568
589
RTN3C
RTN3B2
RTN3C1
RTN3D
RTN3F
RTN°O?
RTNS3G
22H AY7FO
571513
B
be
B
pe
oc
AVI
O1R0G7O
$77534
eR
SHIFT
AL2 (WRT DFC)
CcvD
AL2(CYLRO)
AL2 (ERRO24)
ERRO2A-2,C*
*SETERR
PRTSNS
XL1*06°
IL1*90!
AL2 (ERRO2A)
HALT
XL2*a037°
RTN3K
TSTDAT
AL2 (READ)
WRTIDPC+3,X'PFF!
*RTN3C2
XL1‘°c6‘
IL1*8 3°
AL2 (ERRO2B)
XL2*a033!
HALT
XL2*A033'
WRIDPC+2(1) , EXPSEC
RIN3D
XL1°C6
*IL1*ea°
AL2 (ERRO2L)
XL2*a034°
*HALT
IL2*a038°
WORK, XR2
0{ ,XR2) ,-X*E7
*RTN3E
1(,XR2) ,XR2
SHSXB2, XR2
SNSXR2 (2) ,WORK2
ETN3G
RTN3F
XxL1'cé6
*ILi*67
*Al.2 (ERBRO2C)
XL2? 2035?
HALT
XL2* 4035"
READ, XB2
0{ ,XR2) ,X*E?°
RTR3J
1¢,XR2) ,XR2
SNSXEB2,XR2
SHSEZR2 (2) ,REBD4
RTN3K
BTE2R
PART
PAGE
no. 5129632
Sa
TO SHIFT BITS FOR DECIMAL BUMBER
ADDRESS OF SOURCE
TO CONVERT NOSBER TO DECIAAL
ADDRESS OF SOURCE®
ADDRESS OF DESTINATION
SET A BLANK IM PRINT ISAGE
TO SET ERROR FLAG FOR THIS SECT.
TO PRINT SEESE INFO.
TO PRINT THIRD LIBE
PLAGS
LENGTH
BESSAGE ADDRESS
TO DCP HALT
HALT ID
TO TEST DATA ADDRESS
TEST SECTOR COUKTER FOR STEPEING
PROCEED IF OK me
TO PRIBT SECTOR COUNTER BOT STEPPED
FLAGS
LENGTHS
BESSAGE ADDRESS
MESSAGE IDERTIFICATIOR“
TO DCP HAUT
HALT ID
CHECK HEAD & SECTOR RO.
WRITE IS COMPLETED,
PRGCEED IPF OK
TO PRIST ERROR
PLAGS
LENGTH
MESSAGE ADDRESS
MESSAGE IDERTIFICATIOR
TO DCP HALT
HALT ID
AFTER
{ EXPECT KO CHG.)
SET XR2 TO POINT TO WORK AREA
CHECK WORK AREA FOR NO CHAAGE
JUMP TO PRINT IP WRT. FLD. IS CHG.
NOT DONE INCRESENT XR2
NO CRG, SET TO CHECK NEXT BYTE
CHECK XR2 FOR REACHED UPPER LIMIT
TO ROUTINE END
CHECK BEIT BYTE
TO PRINT CATA FIELD WAS CHANGED
FLAGS
LENGTH
BESSAGE ADDRESS
MESSAGE IDENTIPFICATIOB
TO DCP HALT
HALT ID
LOAD RZAD FIELD ADDRESS IN XR2
CRECK EACH BYTE OF 2EBD PIELD
JUSP TO PRINT IP WOT CORRECT
STEP READ AREA POIRTER +1
STORZ POIKRTER YALOE.
CCHPARE POINTER VALUE & OPPER
JURP IP FINISHED
HOT PENZSHED, CHECK
LISET
HEXT BYTE
PROG IB
PaGe
OLO7-2
SB
IBA MAINTENANCE DIAGNOSTIC PROGRAB
a072
ERR LOC
4aa7
1248
124C
4 124D
124F
1251
1255
“4257
125B
425F
1263
1267
126C
1270
1278
1275
1276
1278
127C
V27E
7282
128A
1292
1298
1282
I2AA
1252
1236
I2BE
12C6
i2CE
12D6
DATE
Frown
571599
R EAD
OBJECT CODE
CO 87 O2TA
cé
uP
ODE
A036
co 87
A036
0222
cO 87
co 87
J6EB
10F2
3c 16
35 01
ic OO
co 87
JADB
175C
TODD O08
TABY
O21A
0222
1257
ESC8CSXODTDICSES
CILEEGEZYOCSDSDS
DSDGEZ4OE6CSD9ICS
SOD7DEC5SE2ZCSD5SE3
H¥OCICBEICSDS4 OC
DO6CIDSCTLOC1INODS
c5C1ckHo
CHCTE3CISGCHCICA
C7TUBYOCSDEDUDSCA
SBUOEXE2COIDSC7TRO
C8C&4 BSOFIROE2ZCS
C3E340ETE7T&O
TINART7O
DATA
{ DIAGNOSTIC )
ADDR
1248
124C
124E
1250
12 56
1274
1275
1277
127D
1285
12DB
O6XPR76
571816
ParkT NGe
5729632
PAGE 6
GO PRINT DATA COHMPARZ ERROR
FLAGS
LENGTH
MESSAGE ADDRESS
MESAAGE ID
TO DCP ERROR HALT
HALT ID
TO CHECK FOR ERRORS
TO PUT ID IN SENSE PRINT
MOVE HEAD NO. TO ERROR ASG.
TO PRINT STATUS ERRORS
TO PRINT WRITE ERROR
FLAGS
LENGTHS
BESSAGE ADDRESS
TO DCP ERROR HALT
RALT ID
TO ROUTINE EXIT
CLOZ*THE PREVICUS ZTRRORS WERE PRESENT AFTZR DOING A READ
*STHT SOURCE STATEHF NT
550 RTK3J B PRINT
5514 pc XL1*C6t
552 DC ELIN79#
553 pc &L2(ERRO2PF)
558 pc XL2"A036°
555 B HALT
556 be X¥L2° 40362
557
556 RTN3K B CKHED
559 B RTN3A
560
561 WRTER3 HVI SNSID,X' 16°
562 LE TBLH,XR1
563 AVC ERRO2E(1),4(, XR1)
564 B PRTSHS
565
566 B PRINT
567 DC XL1"°068
568 pc IL1'58!
569 DC AL2 (ERRO2E)
570 B HALT
571 pc XL2"'A016°
572 B RTN3K
573
574 DC
574
S574
574
574
574
574
575 ERRO3A Cc CL3S°DATA DIAG.
575
575
575
575
22HAY70 01A0G70
_ 579593.
be Anat:
COMND.
USING HD. 1 SECT 22°
PROG ID
OAO07-2
PAGE 6
en
wy
o ©
Qo 0 OO 9 © 6
Qo 98 Oo 9
©
0 6 6 @ 6 8 8 8 8 8
sams
penne
Oo Oo O90 9 OO 8 8 8 ©
O
© © © 6 © 8 @ 82 6 OO 89 89 8 6 8
IBS MAINTENANCE OTAGNOSTIC PROGRAR
RO72
Prep
ae
Loc
12DC
12DD
12DE
-IZEO
12E4
12E8
12EC
1270
12F4
T2FA
12PE
1302
1306
1307
1308
130A
120E
1312
1376
IZA
~131B
137C
I31E
4322
1324
1328
132C
1332
1338
133C
13480
1344
4348
134C
1348D
IZ4E
1350
1358
1358
135¢
1360
1364
1368
136C
1372
1378
137C
1380
1384
1385
1386
1388
DATE
Ec KO.
Bz
OBJECT CODE
08
00
157
a
ae
8
02
02
00
81
87
00
00
09
87
OCFC
co
ado
co
3c
oc
oc
3c
3c
C2
34
co
02
00
T8¥F
ce
co
co
3c
3c
3c
3c
oc
oc
c2
34
co
01
02
18F
co
87
9
87
3
87
87
87
35
01
00
00
FE
FF
91
OF
87
3
8T
D
73?
175¢
6B13
O20D
0B73
18F4
18F5
1ADB
192C
1324
1312
TABA
O24,
135¢c
1358
Or64
TADB
18F6
18F5
TEC2
1EC1
1DC2
1pCc3
1470
192C
T3AB
13MAR70
571512
AT
OB1S
TEC2
1DC3
1EC2
1DCc3
125C
12DD
IDF
3306
1307
7309
I31A
721B
131D
7323
134C
134D
13 4F
1388
1385
1387
O6APR7O
571516
577
578
SCURCE
*
579
*580
584
582
583
58a
585
586
587
588
589
590
$91
592
593
594
5¢5
596
597
598
539
600
601
602
603
604
605
606
607
608
609
610
671
612
613
618
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
RTRSY
RTN4A
RTVUAY
RTRAB
RTK"F4
22maY70
$71513
PART WO. 5429632
PAGE GA
$$. 2 = :c}
STATEMENT
ROUTINE WO. O04, CHECK READ DATA DIAGNOSTIC ®
USING MSULTIPLE SECTORS
*HEADS 0 & 2
pc XLi*O4? ROUTINE NUNBER
pc XL1*008 ROUTINE FLAGS
pe AL? (RTN5) ADORESS OP NEXT ROUTINE PREFIX
LA BDTBL~1,XR2 LOAD HEAD NO. PCINTER
st TBLH,XR2 STOFE
CLI SETSH,0 HAVE PARAMETERS BEEW EWTERED?
BE SETDSK BRAXCH IF KO
B TSTSPR
AVC WRIDFC+1(1) ,TRACK# SET WRITE ADDRESS TO CE TRACK
MYI HRTDFC+2,0 SET FOR HEAD 0, SECTOR 0
VI SNSID,09 INSERT ID IN PRINT
B STRTIO TO SEEK CE TRACK
bec XLi1'0! FUNCTION CODE (CONTROL)
pe XL1°O? CONTROL CODE (SEEK)
be AL2 (WETDFC) CONTROL FIELD AwDRESS
B BIRGA1 GOCD RETURN
B ey
B PETSNS TO DECODE ERROR
B FRINT TO PEINT
pc XL17'06! FLAGS
bc ILi'53* LENGTH
pc AL2 (ERRORY) MESSAGE ADDRESS
B HALT TO DCP HALT
DC XL2*a009° HALT ID
5B TSTSEK TO TEST FOR & GOOD SEEK
AVI WORK?+571,X° 10? SET
BYC WORK#510 (255) ,WOBE#511 2 SECTOR
B¥C BORK+ 255 (256) , WORK +256 WORKARFA
mvI SRSID,X* 12° pour ID IN PRI#T
HVI WRTIDFC+3, 07 SET TO WRITE Zz SECTORS
ZB TORK, XR1 SET WRITE ADDRESS
st DFDR, XE1 IN DATA CONTROL FIELD
3 STRTIO TO WRITE DATA, (2 SECTORS)
pe XL171°02* FUNCTION CODE (WRITE)
pe X1L1*00° CONTROL CODE. (DATA)
pc AL2 (WRTDFC) CONTROL FIELD ADDRESS .
B RTNB1 GOOD RETOER
B +4
B WRTER2 ERROR RETURN
NVI SNSID,X*35° PUT ID IK PRINT
AVI WRTDFC+3,01 SET TO READ 2 SECTORS
MVI WETDFC+2,0 SET TO START AT SECTOR O
NVI WORK+511,0 SET READ IN AREA
MVC WORK+510 (255) , WORK4+511 TO ALL
RVC WORK? 255 (256) , WORK#256 ZEROS
LA KEAD, XB1 SET READ DATA ADDRESS
Sst DFDR, XR1 IN DATA CONTROL FIELD
B STRTIO TO READ DATA
Dc XL1°O1* FONCTION CODE (EAD)
pe XL1°02° CONTROL CODE (DATA DIAGKOSTIC)
pe AL2 (GETDFC) CONTROL FIELD ADDRESS
B RTN&BZ GOOD RETURN
O1A0G70 PROG ID OA07-2
571531 PAGE 6A
oy
IBM MAINTENANCE DIAGHOSTIC PROGBSAN
4072
ERR LOC
136C
1390
13948
1398
139D
13h1
13A2
13a3
13A5
W3A9
I3AB
I3AF
13B1
1385
13B8
135C
T3BD
13BE
13€0
13C2
13C6
13C38
13CC
13CF
13D3
13D4
13D5
13D7
13D9
13DD
13DF
1353
1356
13E9
13EC
13¥F0
13F6
13¥F9
13FD
1401
1402
1403
1405
1407
140B
140D
1843
1417
14 1F
1427
V42F
1437
143F
VaaT7
T4NB
1453
TN5B
1863
1463
1473
DATE
EC WO.
READ DATA
OBJECT CODE ADDR
co 87 1390
87
01
00
87
co
35
ic
co
06
SE
14074
co 87
A035
1ABa
175C
1467
O21A
08
13A1
13A2
13AG
0222
T3AA
co 87
1DC3
T7B2
1350
3D
F2
co
c6
2B
S00B
A033
cO 87
A033
Fr
81
87
18F6
O2TA
13BC
13BD
13 BF
13C1
0222
13c7
3D O& 18F5
10
O21A
13D3
13D4
13D6
13D8
0222
13DE
Dc3
14
01
1916
1916 1003
13E3
O21A
1401
1402
18098
1406
0222
140C
OF 01 175C 18FC
CO 87 12F0
EICSCSXODTDICSES
COIDGELE2Z4OCSDIDI
DEDIEZSOESCSD9ICS
&SODTDICSE2C5D5E3
4OCICHN3ICSD9ISOCH
DECIDSCTHOCISOD9
CSC 1C&4a0
CHUCTE3SCTNOCUCICI
C78B4OC3IDEDNDSCR
QBSOESE2ZC9DSCTUO
C 8C4YUBUOETEBYOE2
CSCIEIUBAOFONNSO
tS a
144A
1474
TIRABRTO
971512
OGAPRTO
571516
STAT
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670 RTNYC2
671
*672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
700
700
700
700
700
700
701
701
704
701
701
701
RTN4C
RTNYB2
RTN4C
RTN&D
RINGF
RTNGE
RTN&G
ERROWA
22HAY70
571513
B
8
ALC
bc
bc
OTAUG79O
571531
(DIAGROSTIC)
SOURCE STATEMENT
e4+h
PRTSNS
TBLH,XR1
ERROGA-13 (1) ,4(,XB1)
XL1°06!
IL1"94°
AL2 (ERRO4A)
HALT
XL2*A035°
TSTDAT
AL2 (READ)
WRIDPC+3,X'FF
*RTN4&C2
xXL1'c6
*IL1*4&3!
AL2(ERRO2B)
XL2'ag33°
HALT
XL2'a033!
WRTDFC+2,04
RINGD
XL1'C6!
IL1'96°
AL2 (ERRO4 B)
XL2'A038°
HALT
XL2'A038°
READ, XR2
0(,XR2),X*10°
RTNGE
1(,XB2) ,XR2
SNSXR2,XR2
SNSYR2(2) ,READ1
RTNUG
RTNGF
XL1°C6!
IL1'79!
AL2 (ERRO2F)
XL2'A0368
HALT
XL2°A036°
TBLH (2) ,ONE
RINGA
CL52' THE PREVIOUS ERRORS WERE PRESENT
CLU2*DATA DIAG.
COMND.
PART NO.
5129632
PAGE 7
TO PRINT SENSE INFO
LOAD HEAD NO. POINTER
PUT HEAD NO. IN ERROR SSG.
TO PRINT 3RD LINE
PLAGS
LENGTH
MESSAGE ADDRESS
TO DCP HALT
HALT ID
TO TEST DATA ADDRESS
EXPECTED ADDRESS
TEST SECTOR COUNTER FOR STEPPING
PROCEED IF OK
TO PRINT SECTOR COUNTER NOT STEPPED
FLAGS
LENGTH
MESSAGE ADDRESS
MESSAGE IDENTIFICATION
TO DCP HALT
HALT ID
CHECK HEAD & SECTOR NO. AFTER
WRITE IS COMPLETED, (SHOULD STEP)
JUMP IF STEPPED COBRECTLY
FLAGS
LENGTH
MESSAGE ADDRESS
MESSAGE IDENTIFICATION
TO DCP HALT
HALT ID
SET XR2 TO POINT TO WORKAREA
CHECK EACH BYTE OF READ FIELD
JUMP TO PRT. IF RD. DATA IS NG.
SET TO CHECK NEXT BYTE
STORE FOR COMPARE
CHECK XR2 FOR UPPER LIBIT
TO ROUTINE END IF DORE
CHECK NEXT BYTE
TO PRINT READ FIELD IS INCORRECT
FLAGS
LENGTH
MESSAGE ADDRESS
MESSAGE IDENTIFICATION
TO DCP HALT
HALT ID
STEP HEAD NO.
ROUTINE EXIT
POINTER
AFTER DOING A READ
*USING HD. X, SECT. 0 & 1°
PROG ID OADT-2
PAGE 7
o
“,
ei
Oo. 00dlU68mUUlCUCOOWUCUCOUlCUCOUCUCOD
)
2 0 6 © 8 8 6 8 e@ 8 8 8 868 86 8 oO 8 8
i
3
|
t
'
Oo 9 0 0 G6 Oo 8
© 09 © 606606U€«CMMWmC<“C WCCO OOO 8 OD
©
QO
C3
©
IBM SAINTENANCE DIAGROSTIC PROGRASB
a072
ERR LOC
1875
147D
1485
18BD
1495
149D
14a5
19,9
14B1
14B9
18C1
14C9
14D1
14p5
14DD
THES
19ED
14F5
1GPD
1505
1509
1511
1519
1521
1529
1531
1539
1581
1549.
1551
1559
1561
1569
1571
DaTze
EC WO.
BEAD DATA
OBJECT CODE
CB&CSC ICSUO5SONOE2
C5CIZ3IDED9LOC2E8B
E3C5S4 OD6CE6R0C3D6
DSE3D9DED3480CEC9
C5SD3C44ODSD6E3480
E2E3CSD7D7C5SC44O
C3D6D9D9
C5SCIEIDSEBYOC ICS
EICSD9IVOCINOF2R0
E2CSC3E3D6D9N0D9
CSCIC 4K4OC4UCIE3C1
SOCSCSCICTDSDEE2
E3C9C340
E3C8CSSODTDSCS5SES
CIDEEYEZKROCSDIDI
DEDIE2Z4OE6CS5DICS
GODTDICSE2CSD5E3
YOCICE6E3CSD940C4
D6ECIDSCT4&OC 140D9
c5c1c4ugo:
CUCTE3CINOCKCICI
C7&BUODECE4OF2FR
ROE2ZCSC&E3DEDIE2
CSECSCICNLOSOSOE2
CSC3E3DEDS4LOC2EB
EICS4ODECE40C3E3
D3I&BYOCED3ICSRBYO
DSD6E34O0E2ZE3C5D7
D7C5C4&&OC3IDEDIDI
C5C3E3D3E 84 0C1C6
E3CSD9ROCI4OF2F4
4OE2ZC5C3E3D6D940
DYCSCICKAOCKCI1E3
C14H0C4&C9C1C74HO
138aR70
571572
O6APR7
571516
a
PART KO.
5729632
PAGE :
7A
(dDTaGROSTI.IC)
ADDB
18A8
14D4
15 08
1520
1550
1577
0
STHT SOURCE
702
702
702
702
702
702
702
703
703
703
703
703
703
704
704
704
70a
708
708
7048
705
705
705
706
706
706
706
706
706
707
707
707
707
707
ERROSB
ERROSA
22K AY70
5715743
ERROSB
STATES
DC
pc
oc
bc
pc
pc
O7FAUG70
571531
ENT
CL52*HEAD & SECTOR BYTE OF CONTROL FIELD NOT STEPPED CORR’
CLAN" ECTLY AFTER A 2 SECTOR READ DATA DIAGNOSTIC®
CL52'*THE PREVIOUS ERRORS WERE PRESENT AFTER DOING A READ °
CL28'DATA DIAG. OF 2& SEDTORS®
CL48'HEAD & SECTOR BYTE OF CTL. FLD. BOT STEPPED CORR®
CL39'ECTLY AFTER A 24 SECTOR READ DATA DIAG
*PROG
PAGE
TD OAOT<2
7h
IBM MAINTENANCE DIAGNOSTIC PROGRAH
A072
ERR LOC
1578
1579
IS7A
157c
1580
1584
1588
158C
1590
1596
159A
159E
15a2
1543
TSA4u
T5A6
TSAA
ISAE
15B2
1536
ISBT
1558
TSBA
15BE
15c0
15c4
15c8
ISCE :
15p2
15D6
1SDA
‘ISDE
1SDF
15E0
15E2
I5E6
1SEa
ISEE
ISFS
I5F8
1SF38
15FP
1603
1609
160D
1611
1612
1613
1615
1619
16 1D
(1621
DATE
EC NO.
READ
OBJECT CODE
co
00
87
18F3
co
co
co
3c
87
87
87
3A
1760
175¢C
0B13
OAOD
0B73
18F4
18F5
TADB
192C
15€0
ISAE
TABS
O21
0222
TVET
IDC2
1DC 1
18F6
1cC3
1A70
192C
15E£
1SEA
OF 64
18F5
1BF5
15CE
1pe2
1DC4
18F6
192C
1621
167D
125F
TADB
T3INARTO
571512
DATA
0B14
1DC2
185¢
1DC2
(DIAGNOSTIC )
ADDR
1578
1579
1578
1SA2
15A3
15a5
1586
15B7
1589
15 BF
15DE
1SDF
15E1
OGAPR7O
571516
PART NO. 5129632
PAGE 8
STST SOURCE STATEMENT
709 * ROUTZNE NO. OS, CHECK READ DATA DIAGNOSTIC FUNCTION
*710 * WHEN READING TO END OF CYLINDER
*711 *
*712 *
*713
714 RTNS DC XL1°05# ROUTINE NUMBER
715 DC XL7°00# ROUTINE FLAGS
716 DC XL2°PFFF? LAST ROUTINE FLAG
717
718 LA HDTBL,XBR2
719 ST TBLH, XR2
720 SLI SETSH,0 HAVE PARAMETERS BEEN ENTERED?
721 BE SETDSK BRANCH IF NO
722 RLNSA B TSTSPN
723
724 BYC WRIDFC+1(1),TRACK# SET CYLINDER ADDRESS TO CE TRACK
725 MVI WRTDFC+2,¥'80! SET POR HEAD 1, SECTOR O
726 NVI SNSID,09 INSERT ID IN PRINT
727 a: STRTIO TO SEEK CE TRACK
728 ‘ pe XxL1*o? FUNCTION CODE (CONTROL)
729 DC XL1"'O8 CONTROL CODE (SEEK)
730 DC AL2(WRTDFC) CONTROL PIELD ADDRESS
731 B RTNSA1 GOOD RETURN
732 B *+h
733 B PRTSNS TO DECODE ERROR
734 B PRINT TO PRINT
735 pc XL1*06! FLAGS
736 DC IL1*53' LENGTH
737 pc AL2 (ERRORS) MESSAGE ADDRESS
738 B HALT TO DCP HALT
739 pc XYL2*a0098 HALT ID
740
741 RTNSAT B TSTSEK TO CHECK FOR A GOOD SEEK
742
743 RTNSB MMVI WORK+255,0 SET
744 HVC WORK+254(255) ,WORK+255 FIELD
745
746 RTN5SB1 NYI WRTDFC+3,0 SET TO WRITE ORE SECTOR
747
748 LA WORK, XR1 SET WRITE DATA ADDRESS
13 ST DFDR, XR1 IN DATA CONTROL PIELD
751 B STRTIO TO 1/0 SUBROUTINE
752 DC XL1*02! FUNCTION CODE (WRITE)
753 pe XL1'00! CONTROL CODE (DATA)
754 DC AL2 (WRTDFC) CONTROL FIELD ADDRESS
755 B RTNSB2 GOOD RETURN
756 B +
757 B WRTERZ ERROR RETURN
758
759 RTNSB2 ALC WRTDFC+2(1),ONESEC STEP SECTOR NUMBER BY 1
760 CLI WRTDPC+2,x'DC! TEST FOR LAST SECTOR ADDRESS
761 JE RTNSB3 JUMP WHEN LAST ADDRESS REACHED
es B RIN5SB1 TO WRITE NEXT SECTOR
768 RTNSB3 NVI WORK+255,='°FF? SET
765 BYC WORK4+254 (255) ,WORK+255 SECOND DATA FIELD
aes NVI HETDFC+3,0 SET TO WRITE ONE SECTOR
768 B STRTIO TO WRITE DATA
769 DC XL1°O2! PUNCTION CODE (WRITE)
770 b Ye XL1°00° CONTROL CODE (DATA)
771 Dc AL2 (WRTDFC) CONTROL FIELD ADDRESS
772 B RTN5BS GOOD RETURN
773 B 3G
a B WRTER3 RETURN FOR WRITE ERROR
776 RTNSBY BVI SNSID,X*3A° PUT ID IN PRINT
22MAY70 0 7A0G70 PROG ID OR07-2
571513 571531 PAGE : 8
©
oO 0 90 Oo ©
ee)
S)
0 8 @ © @ © 6 6 6 89 8 808 89 8 8G G&G GO 90 9
0606 oO 8G Oo oO oO oO oO oO eo oO eoO ooo oOo 8 oO 8 oO ole
Q
IBM MAINTENANCE DIAGHOSTIC PROGRAS
A072
ERR LOC
1625
1629
16 2D
1631
1635
1639
163F
1643
1684
1645
1647
16488
164F
1653
1657
1658
1659
7655
165?
1661
1665
1667
1668
166E
1672
1673
1674
1676
1678
167C
167E
1682
1685
1689
168A
168B
168D
168F
1693
1695
1699
169C
16SP
16A2
1ER6
16ac
16AF
16B3
16B7
t6B8
16BS
I6BB
I6BD
46C1
16C3
16C9
DATE
EC HO.
REA D
CBIJECT CODE
3c
3c
c2
3a
3c
oc
co
01
02
17
80
01
01
55
FE
87
18F3
co
co
co
co
06
ac
87
87
87
87
1520
co
87
AO3A
co
87
1DC3
3D
F2
co
C6
2B
FF
81
87
1008
A033
co
87
A033
3D
F2
co
Ccé
57
pe
84
87
1577
B039
co
87
A039
c2
BD
F2
E2
34
0D
F2
co
co
cé
uy
02
01
02
02
01
81
87
87
ODE
A036
co
37
A036
OF
co
01
87
18F6
18F5
1DC3
1470
1EC2
TEC 1
192C
1661
164F
TABS
O21A
0222
17B2
18F6
30
O21A
0222
18F5
O21A
0222
1DC3
00
14
01
1916
1916
1699
O21A
0222
175¢
158C
138AR70
$71512
DATA
1EC2
1003
18FC
{ DIAGNOSTIC)
1643
1634
16 46
1657
1658
1658
1660
1666
1672
1673
1675
1677
16 7D
1689
168A
168C
16 8£
1698
16 B7
1658
16BA
16 BC
16C2
O6APR70
571516
ADDR STHT
777
778
779
780
781
782
783
788
785
786
787
788
789
790
791
792
793
798
795
796
797
798
799
800
801
802
803
B04
805
806
807
808
809
8170
811
812
813
818
815
816
817
818
819
820
821
822
823
828
825
826
827
828
8295
830
831
832
833
8348
835
836
837
838
839
840
841
842
8&3
SOURCE STATEMENT
RINSBS
RTR5Ci
BTN5C2
RTNSD
RTNSF
ETNSE
RTI5G
228AY70
$71513
aVI WRIDPC+3,23
MVI WRIDFC+2,X*80
*LA READ, XR1
st DFDR, x81
BVI READ¢255,x°55S
*vc RZAD+ 258 (255) ,READ*255
B STRTIO
pe XLi1°O7
*pc XL171'02°
Doe AL2(WETDFPC)
B RINSBS
B #4
B PRITSES
B PRIET
pe XL1'O6!
pe IL1*76?
pe AL2(ERROSA)
B HALT
oe XL2* aAO3A?
B TSTDAT
pc AL2(READ}
CLi WRTDPC+3,XK*FF
*JE RT NSC2
B PRIRT
be ZLi'cé6
*pe IL171*a@3!
Doc AL2 (ERRO2B)
pc XIL2*a033°
B HALT
pc XL2*A033°
CLI WERTDFC+2,X*DC
*JE EBTNSD
B PRINT
pce YL1°c6
*pc IL1°87
*de AL2(ERROSB)
dc XL2*a0398
B HALT
Doc XL2° A039"
LA EEAD, xR2
CLI O(,XR2) ,X*Fr
JHE HTNSE
LA 1(,XB2) ,XR2
st SNSXR2, IR2
Cie SNSXR2(2) ,READY
JE RTNSG
B RINSF
8 PRINT
pc XL7°C6!
pe ILi*79?
*boc AL2 (ERRO2F)
pc XL2*a036°
B HALT
pe XIL2*a036°
*ALC TBLH (2) ,CNE
B RTRSA
01280670
$71531
PART WO. §129632
PAGE BA
SET TO READ 28 SECTORS
SET TO START AT HEAD 1, SECTOR O
SET READ DATA ADDRESS
Iu DATA CORTROL FIELD
SET HEAD ABEA
TO READ 2&8 SECTORS
PUNCTION CODE (READ)
CONTROL CODE (DATA DIAGWOSTIC)
CONTROL FIELD ADDRESS
GOOD RETURE
TO PRINT SENSE INFO.
<O PRINT 3RD LINE
PLAGS
LENGTH
MESSAGE ADDRESS
TO DCP HALT
HALT ID
TO TEST DATA ADDRESS
EXPECTED ADDRESS
TEST SECTOR COUNTER FCR STEPPING
PROCEED IF OK
TO PRINT SECTOR COUSTER HUT STEPPED
FLAGS
LENGTH
MESSAGE ADDRESS
MESSAGE IDENTIFICATIONS
TO DCP HALT
HALT ID
TEST EXDING HEAD & SECTOR ADDRESS
PROCEED IP OK
TO PRINT HEAD & SECTOR
NOT STEPPED CORRECTLY
FLAGS
LENGTH
HESSAGE ADDRESS
MESSAGE IDENTIFICATION
TO DCP HALT
HALT ID
ADDEESS
SET XR2 TO POINT TO READ AREA
CHECK READ FIELD FOR CORRECT DATA
JUBP TO PRINT TF READ FLD. IS NG.
HOT DORE, INCREMENT XR2
SET TO CHECK FEXT BYTE
CHECK XE2 FOR UPPER LIMIT
IF DONE, GO TO ROOTINE ERD
NOT DONE, CHECK WEXT BYTE
TO PRINT DATA FIELD WAS CHANGED
FLAGS
LENRGTE
MESSAGE ADDRESS
MESSAGE IDENTIFICATION“
TO DCP HALT
HALT ID
PROG ID OA07-2
PAGE BA
COHOCCHOCHOOSCSOOCOOKTVOEHROSCOHOCHOSCECECEEES eS
IBA AAINTENANCE DIAGNOSTIC PROGRAA
AG72
EsR Loc
t6CD
16D1
16D7
T6DB
16 DE
16E2
16ET7
16 EB
16EF
46 F3 ©
16F7
16PA
46 FD
1700
W708
V7 OA
T7O0E
1711
717
17 1B
T71E
1724
1729
172D
T72E
V22F
1731
4733
1737
41739
73D
1743
4787
77458
74Cc
74D
W74F
1751
1755
1757
1758
1755
VISE
4760
1761
1762
1763
17648
1765
1766
1767
1768
1770
1778
1780
1782
78a
1792
TT9A
W7A2
BATE
Ec WO.
BEAD DATA
OBJECT CODE
34 08
00
C2 02
BC FF
35 01
1c 00
co 87
16EA
16DD
775D
60
V75C
OFDS
0000
1c49
Ou
173C
175¢
75D
BD 00 00
3c
E2 02 01
1916
1916
16F7
175F
1792
TA6C
06
17SE 17A8
1798 O&
O21A
I7AD
0222
0000
1763
0216
O21A
1781
1A
1781
A087
co 87
A087
cO 87
0222
0216
0000
00
175D
00
00
00
00
PO
F2
Fi
F3
E2D6D3C9C4u0CSDY
DSDEDISOESBCIE3ICS
&0C1D3D340C8C5C1
CHE2
E2D6D3C9CUROCSDS
DSDEDIYOE6GCSE3CB
KOC BCSCICUYOETYO
EVE7TETETETUOCACS
E2D2
WIHARTO
571512
OSARPRT
571516
( DIAGHO
ADDR STAT SOURCE
172D
17 2E
1730
1732
1738
17 4B
174C
17 4E
1750
1756
175¢
175)
175D
175F
1760
1761
1762
1763
1764
1765
1766
1767
1781
17 a3
8
eas
846
Bul
848
B4&9
850
851
852
853
8548
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
896
899
900
901
902
903
904
908
908
goa
905
905
905
$05
305
s
SETERR
SETERA
SETERX
*
CKHED
CKHAEDA
HDEXT
CKHDER
TBLH
SECTBL
TBLEND
EDTBL
ALLHED
ORERED
2284770
5715473
sT1Ic)
STATEMENT
ST
AVC
avi
BYC
bc
O1A0G70
571531
SET AN ERROR FLAG FOR EACH SECTOR ERROR
SETERX+3, ARR
SETERA+2(1) ,CYLNO
SECTBL,XB2
*-*(,XR2) ,X'FF#
TBLH,XR1
ERRO2A~11,4(1,XR1)
*-¢
PART NO. 5129632
PAGE 9
SAVE EXIT ADDRESS
SET CURRENT CYL. NO IN MOVE
LOAD XR2 AS POINTER
SET A FLAG FOR THIS SECTOR
LOAD HEAD NO. POINTER IN XB1
INSERT HEAD NO. IN MESSAGE
EXIT
CHECK FOR ZBRRORS ON ALL SECTORS
HDEXT+3, ARR
TBLH,XR1
SECTBL,XR2
0(,XR2),0 —
HDEXT
1(,XR2),XR2
SNSXR2,XR2 -
SNSXR2(2) , TBLEND
CKHEDA
0(,XR1) ,X°FF
*ONEHED-5 (5) , RMVDSK
DISKTP,0O
#49
ONEHED-5(5) , FIXDSK
ONEBED-11 (1) ,4(,XB1)
XL1'C6t
IL1*3a¢
AL2 (ONEHED)
XL2* A086!
HALT
XL2*a086°
-
*HDTBL+3 (4) , FOURFF
LINK
XL1°C6"
IL1*26
*AL2 (ALLHED)
XL2*A0878
HALT
XL2*a0878
LINK
XL2"08
s
XL1'0¢
AL2 (*-1)
XL1"0¢
XL1"08
XL1"0"
XL1*08
CLio8
CLi*2
*CLitit
CL1*3
*CL26*SOLID ERROR WITH
SAV2 EXIT ADDRESS
LOAD XR1 AS ERROR FLAG POINTER
LOAD XR2 AS SECTOR FLAG POINTER
CHECK EACH SECTOR FLAG
JUMP WHEN FIRST ONE IS FOUND OFF
STEP POINTER
STORE
CHECK FOR LAST ENTR
BRANCH IF NOT DONE
SET FLAG TO INDICATE DEFECTIVE HEAD
SET MESSAGE FOR REMOVABLE
TEST FOR RUN ON REMOVABLE
JUNP IF YES
SET MESSAGE FOR FIXED
SET HEAD NUMBER IN MESSAGE
TO PRINT HEAD ERROR
FLAGS
LENGTH
MESSAGE ADDRESS
MESSAGE ID
HALT ID
EXIT
CHECK FOR ALL HEADS FAILING
BRANCH IF NOT
TO PRINT ALL HEADS FAILING
FLAGS
LENGTH
BESSAGE ADDRESS
MESSAGE ID
HALT ID
SECTOR ERROR RECORDING TABLE
FOR
FOR
FOR
FOR
FEAD 0,
HEAD 2,
HEAD 1,
HEAD 3,
REMOVABLE DISK
FIXED DISK
REMOVABLE DISK
FIXED DISK
ALL HEADS®
CL34*SOLID ERROR WITH HEAD X XXZXE DISK?®
PROG ID
OROT-2
PASE 9
o ® 0 0 0 0 606 06060 0 0 0 0 0060 0 00 0 060 0 0 60 0 0 06
Bean emdrenne ates ann
(4
oOo oO
Oo &@ 9 O09 8 oO ° Oo 9 0 0 0 0 0 0 0 0 0 09 9 86 G@ 8@ 0
{ 2
Q
@
IBM MAINTENAKCE DIAGNOSTIC PROGRAS
A072
ERR LOC
W7Au
17a9
J7AE
17B2
1786
17BA
17BF
17cS
17¢c9
V7CA
17D0
17D3
17D7
17D8
17D9
17DB
17DD
17E1
17E3
VTE7
17EB
17EF
17F0
17F48
17F8
VIFC
17°F
1803
1804
1895
1807
180B
180F
1815
1818
181C
18 1F
1823
1825
1827
182B
182C
182D
18 2F
1831
1835
1836
1837
DATE
Ec 80.
READ D
OBJECT CONE
C6C9E7TCSC4
DICSDYESUB
PYFFFFFF
34 08
35 02
2c 01
OE 01
co 87
Aa
17E6
17E6
1858
17E6
18FD
Op 01 1914
F2 81 10
co 87
c6
2B
1889
AO1F
co 87
AOI1P
co 87
O21A
0222
0000
34 08
CO 87
02
181B
18FD
38 10
co 10
38 01
F2 10
1918
17EB
1913
20
co 87
07
01
181C
CO 87
co 87
OD 00
F2 01
192C
1808
180F
181D
07
co 87
000000
0000
coO 87 1C55
181D
T8CA
co 87 O21A
ci
2A
1853
AO3C
CO 87 O21;
014
17
18CA
TSBARTG
5771512
ATA
ADDR
17A8
17AD
1751
01
185A
17¢9
1858
17D7
17D8
17DA
17DC
17E2
17EF
1803
1808
1806
OB14
18 1E
1828
1826
1828
182C
182E
1830
1835
1836
16 38
OGAPR?O
371516
STST
906
907
908
909
910
971
912
913
9148
915
916
917
918
919
920
921
922
923
928
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
959
951
$52
953
954
955
956
957
958
959
960
961
962
963
968
965
966
967
$68
969
970
971
372
973
(DIAGHNO
SOURCE
FIXDSK
RNVDSK
POURFF
*
*
TSTDAT
DATID1
DATEXT
=
TSTSEK
SKTSTA
SEKEXT
IDFLD
Cd
2
SEEKER
SEEKID
22BBY70
371513
ra
PART HO. $129632
PAGE 9A
STICc)
STATEMENT
pe CLS*FIXED?
*Dc CLS* RESV.
*DC XLQ' PPFFPFFF
*SUBROUTINE TO DETERSINE IF DATA ADDRESS
*ST
ave
ALC
De
cLc
JE
ST
pc
TBN
TBN
JT
pc
oc
DC
te
S1iadG7E
574531
HAS NOT BEEN STEPPED
DATEXT+3, ARR
DATEXT#3,XR2
WORK1(2) .1(,XB2)
DATEXT+3 (2) ,TWO
SENSE
AL1 (DATA)
STATUS (2) ,WORK1
DATEXT
XL1°C6?
IL1*43¢
AL2 (DATPR1)
XL2*AO1F®
HALT
XL2*AO1F
**-%
COKE HERE TO TEST FOR
SEKEXT+3,ABR
SENSE
AL1(STATO1)
STATUS, xX* 10°
SAVE RETORH ADDRESS
LOAD XR2 WITH PARAMETER POINTER
MOVE EXPECTED ADDRESS FOR COMPARE
INCREASE EXIT ADDRESS
TO STORE DATA ADDRESS
CHECK DATA ADDRESS
JUBP IF ADDRESS
IS AT ORIGINAL VALUE
TO PRINT DATA AVLDRESS NOT CORRECT
FLAGS
LENGTH
ADDRESS OF SESSAGE
BESSAGE IDENTIPICATION
TO DCP HALT
HALT ID
EXIT
A GOOD SEEK _
SAVE RETURR ADDRESS
TO SENSE DEVICE STATOS
BYTES 0 6 1.
TEST THE SEEK BUSY SEKSE BIT
SKTSTA IF ON DO AKOTHER SESSE
STATUS-1,X°01! TEST POR SEEK CHECK
SEEKER IF OB, GO TO SEEK ERBOR PRINT
STRTIO TO READ ID
XL1°078
XL1°01°
AL2 (IDFLD-2)
+4
ey
IDFLD-1(1) ,TRACK®
SEEKER
*+-+ ExIT
XL3"0
*COBE HERE IF AN ERROR OCCURED
*WHILE SEEKING THE CE TRACK
*CVD
AL2(IDPLD-1)
AL2(ARIVED)
PRINT T2 PRINT ERROR OW SEEK
IL1°c1? PLAGS
IL1*42¢ LENGTH
AL2 (SEKER1) ADDRESS OP BESSAGE
XL2"a03C® MESSAGE IDENTIFICATION
PRINT TO PRI¥T SECOND LIBE
XLi*O1®
IL1*23°
BL2 (RRIVED)
PROG ID Oa0T-2
PAGE oA
K2
ex
3
em
IBA MAINTENANCE DIAGNOSTIC PROGRAM
A072
ERR LOC
1839
183D
1832
163F
7844
1845
1849
188d
1851
1853
1857
1859
185B
185D
185F
1867
186F
1877
187F
1887
188A
1892
189A
18A2
ISAA
18B2
18B4
18BC
18C4
18CB
18D3
18DB
1853
18EB
DATE
EC wo.
READ
OBJECT CODE
cO 87 O21A
06
28
18F2
3c 00
3c 00
3c 09
co 87
A03C
co 87
OB1B
0B13
1A67
0222
0000
oc00
0002
0004
ipc2
CHCTESCTNOCICHCY
DICSE2ZE240F6C1E2
GQE2ZE3CSD7D7ICS5C4
KOE3D6ER0C9D5C3ID6
DSDSCSC3E340ESC1
D3E&C5
CODIDSDEDSLODEC3
C3ESDODSC5SCRHO EG
CBCSD3CS4O0E2C5C5
D2CS8D5C74 OE3C8C5
HOC3ICS4OE3D9CIC3
D26B
CIBSIDICSESCTSCH4O
CIEZJ4OC3E8D34B40
DSDE4BLOETETE7
DSESDSHOE2ZCSCSD2
YOEICSEZE340E2C5
CIEICIDEDS4OC1FO
FISOCEDEDILODADS
DSC54 OC9IDS5SCED54B
TJSAR70
$71512 571516
DAT A&A
(DIAGNOSTIC)
ADDR
183D
183E
1840
1852
1858
185A
185¢C
185E
1889
1833
18CA
18F2
O6APR70
XL17°068
IL1°408
AL2(SEKER2)
PASS,O
SETS¥,0
FRSTPS,0
HALT
XL2*A03C!
0
AL2 (*~*)
XL2°02¢
XL2°'04'
AL2 (WORK+255)
CL43° DATA ADDRESS WAS STEPPED TO INCORRECT VALUDE
*PART NO.
PAGE
TO PRINT SECOND LINE
FLAGS
LENGTH
ADDRESS OF MESSAGE
SET TO CAUSE A RECALI BRATE
TO DCP ERROR HALT
HALT ID
CL42'* ERROR OCCURRED WHILE SEEKING THE CE TRACK,
*CL23*° ARRIVED AT CYL.
Wo.
XEr
*CL4O'RUN SEEK TEST SECTION AO3 FOR MORE INFO.
*STMT SOURCE STATESENT
974%
975 B
976 Dc
977 pc
978 be
979
980 AVI
981 NVI
982 AVI
983 B
984 pc
985 B
98E
987 WORK? DC
$88 TKO bc
989 ONESEC DC
990 WORK2 DC
991
392 DATPR1 DC
992
$92
392
992
992
993 SEKER1 DC
993
993
993
993
993
994 ARIVED DC
994
994
995 SEKER2 DC
995
995
995
995
22BAY70 01A0G70
571513 571531
PROG ID
PAGE
5129632
10
OA07-2
10
mo,
tl
O
©
o 80 ¢ 8 C€© 8G 868 989 6G G&G 8 868 6 806 0 60 49 90 ©
coment Cramer
CG
Oo oO
Oo 9 Oo OG O
o 8 8 8© @ ¢€ @ 8 6G 8 8 8 8D 9
*)
9
IBM HAINTENANCE DIAGNOSTIC PROGRAS
A072
ERR LOC
18F3
18F4
18F5
18F6
18F7
18F8
18F9
18PA
18FB
18FD
1901
1905
190A
190£
1911
1913
1915
1917
1918
1919
1918
191D
1921
1925
1927
1929
192B
DATE
EC BO.
READ
OBJECT
00
00
00
00
00
00
00
60
0001
34
35
18
30
DO
08
01
03
00
87
0000
0000
0000
00
00
0000
00co
00000000
00000000
0000
0000
0000
00
CODE
1916
1916
1908
1914
01
138AR70
571512
DATA
00
O6APR7
571516
(
ADDR
TEP3
18FG
18F5
18 F6
18F7
1878
18F9
18FPA
18 FC
19142
1914
19 16
1917
19 17
1918
194A
191C
1920
19 24
19 26
7928
19 2k
1928
0
DIAGHEOSTIC)
PART WO. 5129632
PAGE TOA
FLAG
CYLINDER
TRACK & SECTOR
RO. OP SECTORS OR RO. OF TRACKS
PFLAG
CYLINDER
TRACK & SECTOR
WO. OF SECTORS OR RO. OF TRACKS
RHKSEESEKKKEKESSEKSESHEKSSTSKS SKSRSSESESSSESESHAKESSHSCSTHSSSSCSSSSSSISCHUSSCIDSESCSHEHTSOS
STHT SOURCE STATEMENT
997 WRIDFC Dc XL1*° 00°
3998 pc XL1*O0?
$39 DC XL1700!
1000 DC X1.1700°
1001
1002 RDDFC pC XL1*00!
1003 pc XL7#00'
1008 DC XL1*°00#
1005 pc XL7°O08
1006 ONE pe XL2'01°
1007
1608
1009 * SENSE I/0 ROUTINE
1010 SENSE ST SNSXR2, ARR
1011 L SNSXR2,XR1
1012 MNN SNS¢1,0(,XR1)
1013 SHS SNS STATUS,O
1074 B 1(,XB1)
1015
1916 SETXR2 DC XL2°0?
1017 STATUS DC XL2°0
*1018 SNSXR2 DC XL2"0
*1019
1020 * ERROR RECORDING TABLE
1021 ETABLE EQU) #
1022 QCODE vc XL1°O!
1023 CCODE DC XL1°O#
1024 SKSO1 pC XL2°08
1025 SNS23 DC XL2°08
1026 DCFI onc XL4*08
1027 DCFF npc XL4"O'
1028 DFCRI DC XL2°0?
1029 DFDRI pC XL2¢*0#
1030 DFDRF pc XL2°0?
1031 ROUTKO DC XL1°O!
22NaY70 O1A0G70
571513 571531
SAVE ADDRESS RECALL REGISTER
LOAD X81 WITH VALUE FROM ARB.
MOVE IN FONCTION CODE
PERFORM SENSE
EXIT
"QO" CODE
CONTROL CODE
STATUS BYTES 0 & 1
STATUS BYTES 2 & 3
DISK CONTROL FIELD, (IKITIAL)
DISK CORTROL PIELD, (PIWAL)
CONTROL REGISTER ADDRESS
DATA REGISTER ADDRESS, (INITILL)
DATA REGISTER ADDRESS, (PINAL)
CURRENT ROUTINE BO.
PROG ID
OA07-2
PAGZ
10a
a
“
2
IBA HAINTENANCE DIAGNOSTIC PROGRAS
a072
EER LOC
192C
3930
1934
1938
193D
1942
1947
194B
194E
1952
1956
1959
135D
1961
1964
1968
196C
1970
1976
197C
1982
1988
198C
1991
1995
1998
199C
1940
i9A1
T9A7
19AB
19B0
19B4
1985
19BB
ISBF
19C0
19C6
cc
19D0
19D4
19D9
19DC
19E0
1SE3
ISE6
19E9
19ED
T9FO0
19F3
19F7
V9FC
ya00
1A05
1A09
IAOD
1A10
VAG
VA?
TATA
WATE
JA22
DATE
EC
NO.
READ
OBJECT CODE
34
BD
F2
3c
2c
35
2c
3c
3D
F2
3c
BB
BC
3c
31
F3
IIRARTO
577512
08
01
01
00
01
02
00
FF
00
01
01
01
FF
00
A6
AO
DATA
1912
1912
JAGA
19 96
1997
1A6E
VA6C
00
01
03
1996
1A23
1996
1A23
19E9
1AGE
1A70
1917
1918
1926
1928
TAGE
1920
19C8
1996
1997
JAGE
1A70
03
1A77
18FD
19A0
192A
1A6E
1924
18FD
1918
03
19 Ba
ISTA
18FD
1914
19 BF
iitc
192B
TAGOA
19E0
03 1A69
1914
0A03
1912
oc
08
04%
7A65
01
o4
1A67
¥A72
1A72
1A69
1A6A
1867
15
1467
02
03
1A68
TAGE
00
03
03
O6APR7O0
571516
1033 *#
10348
1035 STRTIO ST
1036 L
1037 RVI
1038 ANN
10 39 BYC
1040 HYC
1041 TBN
1042 JT
1083 <BP
10484 SBF
1045 J
1046 SETFIX SBN
1047 SBN
1048 CKSEEK CLI
1049 BE
1050 LDFCR LIO
1051 LDFDR LIO
1052 MYC
1053 MVC
1054 SVC
1055 MYC
1056 L
1057 NYC
1058 LA
1059 SIO sro
1060 WAIT TIO
1061 B
1062 DC
1063 MVC
1064 L
1065 RVC
1066 B
1067 DC
1068 AVC
1069 B
1070 DC
1071 BVC
1072 BYC
1073 CLI
1074 BNE
1075 AVC
1076 SBF
1077 L
1078 TSTERR TIO
1079 TSTSCKX TIO
1080 B
1081
1082
*1083
*1088
1085 SETADR ST
1086 CLI
1087 JNE
1088 AVI
1089 Avec
1090 L
1691 AVC
1092 NVI
1093 CLI
1098 JNE
1095 BYI
1096 SBF
1097 BVI
1038 AVI
1099 RLDFCR LIO
1100 RSIO sro
22HRY706 QO 1AT0G70
571513 5775314
{ DIAGRHOSTIC)
ADDR STAT SOURCE STATEMENT
START I/O SUBROUTINE
SETXR2, ARR
SETYR2,XR2
SAVSW,00
SI0+1,0(,XR2)
SI0+2(1),1(,XR2)
DPCR (2) » 3 (~XR2)
DISKTP,X'08!
SETFIX
SI10+1,X08!
RBSIO+1,X°08"
CKSEEK
SI0+1,X*08!
RSIO+1,X*08°
0(,XR2) ,00
SETADR
DFCR, X'A6!
DFDR,X*AG?
QCODE (1) ,SI0+1
CCODE (1) ,SI0+¢2
DFCRI (2) , DFCR
DFDRI (2) , DFDR
DFCR,XR1
DCFI(4) ,3(,XB1)
6600,4£R1
X'00",xX*A0!
BUSY, X*a2?
*SENSE
XL1¢04t
DFDRF (2) , STATUS
DFCR, XR1
DCFF (4) ,3(,XR1)
SENSE
XL1*02"
S¥SO1(2) ,STATUS
SENSE
XL1'03°
SNS23(2) ,STATUS
ROUTNO (1) , RPPX
SAVSW.X"PFFt
TSTERR
3(1,X82) ,DFC3SV
2(,XR2) ,01
SETXR2, XR2
12(,XBR2) ,X*A0!
8(,XR2) »X" Aa!
4 (,XR2)
2
PART RO.
PAGE
5129632
11
SAVE ADDRESS RECALL REGISTER.
LOAD XR2 WITH VALUE FRON ARR.
ZERO SWITCH
SET FUNCTION CODE
SET CONTROL CODE IN SIG
SET DATA ADDRESS FOR DFCR
TEST FOR RGN ON LOWER DISK
JUNP IF YES
SET FOR REMOVABLE DISK
SET FOR REMOVABLE DISK
JUMP TO CHECK FOR SEEK
SET FOR FIXED DISK
SET FOR FIXED DISK
TEST FOR SEEK
IF YES, GO SET ADDRESS
LOAD CONTROL REGISTER
LOAD DATA REGISTER
LOAD DELAY VALUE IN XB1
START I/O OPERATION
TEST FOR BUSY
IS SWITCH ON?
IF NOyg SKIP RESTORE
RESTORE N BYTE
TURN OFF THE FOR/ REV BIT
RESTORE PARAMETER POINTER
BRANCH IF ERROR
BRANCH IF SCAN FOUND
EXIT
SUBROUTINE TO SET THE NUMBER OF TRACKS AND THE
DIRECTION (FORWARD OR REVERSE), TO SEEK
ADREXT+3, ARR
1(,XR2) ,01
*+7
FRSTPS,0
XR2WK (2), 3(,XR2)
XR2WK ,XB2
DFC3SV{ 1) .3(,XR2)
SAVSH,X'*FF!
*FRSTPS,00
SETADA
PRSTPS,01
2(,XR2) ,01
3(-XR2} ,255
LASTAD,00
DPCR, X? A6?
60,x* aor
SAVE EXIT ADDRESS
IS THIS A RECALIBRATE?
IPF NO, BYPASS SWITCH RESET
RESET RECALIBRATE SWITCH
SAVE ADDR. OF CTL. FLD. ADDR.
LOAD XR2 WITH CONTROL FLD. ADDR.
SAVE WH BYTE IN CONTROL PIFLD
SET SAVE SWITCH
IS THIS FIRST PASS
SKIP RECALIBRATE IF NO
SET PIRST PASS SWITCH
SET FWD/REV BIT TO REV.
SET SAXIMUNS TRACK CROSSING
SET CLD ADDR TO 0
LOAD DATA CONTROL REGISTER
SEEK REVERSE
PROG ID
PAGE
OADT-2
V1
0 909 0° G6 0 9 G O09 © O29 9 0808 0 0 G&G
©
6 8® 8 09 8G 0 8 G8 08 98 8 O
cae etree hin
4
V3
oO
2
O Oo 08 02 0 9 8 9 @ 80 0 &® OO 8 9G
RRS HR em
9 © © 0 0 6 60 09 @ @
IBM HAINTENARCE DIAGNOSTIC PROGRAN
A072
ERR LOC
WA25
TA2A
TA2D
7430
1a33
1439
IA3E
TAG
TAQ
TAaQ
1ASP
1A52
1a55
1A58
1A5D
1A62
1A66
1467
1268
1169
1A6A
1A6B
1A6D
1A6P
1A71
1A73
1A75
1477
1A7B
1A7F
1483
1485
1087
1A8B
IASF
1490
1291
1493
1A95
1299
1A9B
1A9F
1AA7
IAAP
DATE
EC KO.
REA
D DATA
OBJECT CODE
8D
P2
F2
BB
oc
2F
F2
00
81
84
01
00
00
87
04
00
00
87
BA
2c
OF
F2
Bc
F2
00
87
00
60
87
8C
2c
co
00
00
00
00
00
0000
0000
1¢¢c3
0000
0294
FFPF
36 01
co 84
co 87
0a03
1AB3
3c 40
co 87
c6
15
TAB3
AOS8E
co 87
AO8E
co 87
E3C9D4
01 1A68
25
11
02
1A66 1368
1A66 01
17
02
1A66 01
1A66 1468
06
03
OA
03 1066
1868 01
9000
1A76
1998
1¢€55
1AB1
O21A
0222
0009
CSD6ESE340
C9D54 ODIDE ES E3C9
D5C54 OETE?
T3RaRe
5771512
0 OSPR
5715176
PART BO. 5129632
PAGE TIA
(DIAGHROSTIC)
ADDR STHT SOURCE STATENERT
1101
1102 SETADA CLC 1(1,XR2),LASTAD COMPARE PRESEKT ADDR. WITH NEW ORE
1103 JE NOSEEK EQUAL, SEEK IS NOT NECESSARY
9104 JH PUDSEK RWEW ADDR. HIGHER, DO FORWARD SEEK
1105 SBF 2(,XBR2),01 KEW ADDR. LOWER, SET BIT FOR REV.
1106 BYC SCRCH(1),LASTAD PLACE LAST ADDR IN WORKAREA
1107 SLC SCBCH(1),1(,X2B2) SUBTRACT WES ADDR. PRON LAST ADDR.
1108 3 SETADB PROCEED
1109
1110 PWDSEK SBN 2(,XR2),01 SET BIT ON FOR PORWARD SEEK
1111 NVC = SCRCH (1) , 1(, X82) PLACE KEW ADDR. IN WORKAREA
1212 SLC SCRCH(1),LASTAD SUBTRACT LAST ADDR. FROM BREW ADDR.
1113 3 SETADB PROCEED
1114 ,
1115 NOSEEK MVI 3(,XR2),° SET 8O. OF TKS. CROSSED TO ZERO.
1116 J ADREXT TO EXIT
4117
1118 SETADB HVC 3(1,XR2),SCRCB PLACE IN WC. OF TRACKS CROSSED
1119 BVYC LASTAD(1),1(,X22) SAVE WEW ADDRESS
1120 ADREXT B +-* EXIT
1A56 1121 SCRCH pC XL1°00°
1A67 1122 PRSTPS DC XL7°00
*1A68 1123 LASTAD pC XL7*°00?
1A69 1124 DFC3SV DC XL1"00
*1A6A 1125 SAVSW DC XL17*°008
1A6C 1126 DISKTP DC XL2"0#
1AGE 1127 DFCR pC AL2 (*-#)
1A70 1128 DFDR npc AL2 (WORK)
1A72 1129 XR2WK DC XL2*O?
1A74& 1130 SIXSIZX DC IL2*0660
*1A76 1131 NEG1 pc XL2*PPFP?
1132 BUSY A NEG1,XR1 DECREMENT DELAY COUNTER
1133 BH WAIT RETORN TO TIO IPF KOT TIME OUT
1138 B CVD TIME OUT OCCURED, CONVERT ROUT. HO.
1A88 1135 DC AL2 (RPPX) CURRENT ROUTINE KO.
1A86 1136 DC AL2 (TIHOUT) ADDRESS OF DESTISATION
1137 AVI TIHNOUT~2,C*
*1138 B PRINT TO PRINT TIMEOUT OCCURED
1A8F 1139 pe XL1*°C6* FLAGS
1490 1140 pc IL1*°21° LENGTH
4A92 1181 DC AL2 (TIHODT) MESSAGE ADDRESS
1A94 1102 pc XL2*AO8E* BESSAGE ID
1143 THALT B HALT TO DCP ERROR HALT
JA9A 1184 pc XL2*AOSE® HALT ID
1145 B 0
4AB3 1146 TIMOUT DC CL21*TIMEOUT IN ROUTINE ¥xX!
*1146
1146
0A03 1147 RPFX EQUD- Xx*a~a03
*0 22H AY7O O1AUG7O PROG ID ORO7-2
571513 571531 PAGE ain
oY
e4
IBN SAIRTENANCE DIAGROSTIC PROGRAS PART HO. 5129632 IBM MAINTEHANCE DIAGNOSTIC PROGRAN PART NO. 5129632
PAGE 12 PAGE 12a .
Cis .
a072 READ DATA (DIAGNOSTIC) A072 READ DATA (DIAGNOSTIC)
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT © | CG ERR Loc OBJECT CODE ADDR STET SOURCE STATERENT ae
1199 © SOBROUTINE TO PRINT THE CONTENTS OF DEVICE STATUS . 1B8E CSDBESYCSD7DUCSDS 1B9F 1209 pc CLIS*EQUIPHENT CHECK ° ‘
1150 Cee 1B96 E340C3C8C5C3D240 1209 :
1AB4 34 08 1B3A 1151 PRISNS ST PRTEXT+3,ARR SAVE ADDRESS RECALL REGISTER 1B9E 4040 1209
1AB8 CO 87 18FD 1152 B SENSE TO PERFORM SENSE 1BAO C&CIE3C1480C3CB8C5 1BB1 1210 pc CLI8*DATA CHECK ° 2
ABC 02 TABC 1153 DC AL1(STATO1) GET DEVICE STATUS BYTES 0 & 1. o'136 1BA8 C3D24040404804080 1210 <
1ABD CO 87 021E 1154 B UNPACK TO UNPACK STATUS BYTES TBBO 4040 1210
TACT 02 1aC1 1155 pc XL1"02¢ 1BB2 DSD64G0D9CSC3D6D9 1BC3 1211 DC CLi8*NO RECORD FOURD °
1AC2 1914 1AC3_ 1156 DC AL2(STATDS) O10 1BBA C4Y4OCEDEESDSCR4O 1211
1AC4 1853 ACS 1157 DC AL2 (HEXSTA-4) 1BC2 4040 4211
1158 1BC4 E3D240C3D6DSC4C9 1BD5 1212 pc CL18"*TK CONDITION CHECK® i
1AC6 3C 01 1AF6 1159 NVI STPSNS41,01 SET FOR COMPLETION CF FIRST BYTE 0oO:' C6 1BCC E3C9D6D540C3C8CS 1212 a
ACA C2 01 1869 1160 LA STATWD,XB1 SET XR1 TO POINT TO FIRST MESSAGE 1BD4 C3D2 1212
ACE C2 O02 BPA 1161 LA STMASK, XR2 SET XR2 TO POINT TO TEST MASK 1BD6 E2CSC5D240C3C8C5 1BE?7 1213 pc CL18°SEEK CHECK 7 é
1162 Cle IBDE C3D240404 04 0UNLO 1213 :
1AD2 CO 87 O21A 1163 B PRINT TO PRINT SHS WITH HEADING | IBE6 8080 1213
1AD6 C1 JAD6 1168 DC XL1°C1° FLAGS | 1BES EYD5SE2C1C6C54040 1BF9 1218 pc CL18" UNSAFE : od
JAD7 01 TAD? 1165 DC IL1*01° LENGTH G | G TBFO 4080404040490480480 1218 oe
1AD8 1B69 WAP” 5166 pc AL2 (STAT WD) ADDRESS OF LAST PRINT CHARACTER IBF8 4080 1218
JADA A000 1AL3 1167 SKSID DC XL2*a0008 MESSAGE IDENTIFICATION 1BFA 1215 STMASK EQU *®
1ADC 2C 00 1AE7 00 1168 MOVEBT SVC TSTBT+1(1),0(,XR2) SET MASK BIT IN TEST BITS INSTRUCT. © | CG 1BPA 80802010 1BEPD 1216 pc XL4*80402010'
JAE1 1C€ 1% 1¢C2 00 4169 NYC STATPR(18) ,0(,XB1) SET MESSAGE IN FIELD 1BFE 06080201 3C01 1217 pc XL* 08040201"
1170 | 1C02 1EC2 1€03 1218 READ1 DC AL2 (READ+255) a
1AE6 38 00 1913 1171 TSTBT TBN STATUS-1,*-* TEST CURRENT BIT FOR ON o,9o 1219 “
TAEA F2 90 08 1172 JF STPSNS BYPASS PRINT IF OFF | 1219
1AED CO 87 O21A 1173 B PRINT TO PRINT SNS WITHOUT HEADING 1220 * SUBROUTINE TO SHIFT BITS IN CONTROL FIELD ee
JAF1 01 APY 1174 nc XE.17'018 FLAGS o'o 1221 “
AF2 12 WAF2 1175 pe IL7*18! LENGTH | 1€94 34 08 1c48 1222 SHIFT ST SHPFEXT+3,AREB STORE ADDRESS RECALL REGISTER
IAF3 1¢C2 JAPR 1776 DC AL2 (STATPR) ADDRESS OF LAST PRINT CHARACTER 1c08 35 01 1C88 1223 L SHFEXT+3,XB1 LOAD EXIT ADDRESS IN XB1 .
1177 Civ 1cOC 35 02 1C48 1228 z SHFEXT+3,XR2 LOAD EXIT ADDRESS IF 2a2 ‘e
TAPS 3D 00 1AE7 1178 STPSNS CLI TSTBI+1,*-* TEST FOR FIFISHED 1€10 36 02 1852— 1225 a TRO, XR2 INCREASE BY 2
1AF9 F2 81 OA 1179 JE SENSA JUMP IP FINISHED WITH THIS BYTE 1014 3% 02 1C48 1226 st SHFEIT+3,XR2 STORE FOR TRUE EXIT ADDRESS .
1180 oO 6 1€18 3c 00 1¢49 1227 NVI CYLNO,0 ZERO WORK AREA S
AFC E2 02 01 1181 LA 1(,XR2) ,XR2 STEP XR2 TO POINT TO NEXT MASK BIT IC1C C2 02 CUA 1228 LA SHFTBL, XB2 LOAD ADDRESS OF SHIFT TABLE IN XR2
1AFP D2 01 12 1182 SENSB LA 18(,XB1) ,XR1 STEP XR1 TO POINT TO NEXT MESSAGE 1c20 75 01 01 1229 L 1(,XR1),XB1 LOAD CONTROL FIELD ADDRESS IN XR? -
1B02 CO 87 ADC 1183 B MOVEBT GO TEST NEXT SENSE BIT Q °C 1023 2c 00 1C22 06 1230 MYCTBR NYC TBN+1(1) ,0(, XB2) INSERT CORRECT MASK FOR TEST BITS an
1788 1€28 2c 00 1¢34 05 4231 BYC SBN#1(1) ¢5(¢XR2) INSERT CORRECT BITS POR SET BITS
1B06 3D 80 1AF6 1185 SENSA CLI STPSNS+1,xX'80! TEST FOR COMPLETION OF 2D BYTE 1C2D 78 00 02 4232 TBR TBR 2(,XH1) ,*-* TEST ONE BIT FOR O” 7
1BOA F2 81 22 1186 JE PRTHEX TO EXIT IF DONE CGC 0 1030 F2 90 O84 1233 JF #27 JUMP IF OFF
*1BOD 3C 80 1AF6 1187 NVI STPSNS+1,x"80! SET FOR CHECK OF 2ND BYTE 1033 3A 00 1C49 1238 SBN SBR CYLNO, *-* SET ONE BIT ON IN DECIMAL PIELD
1B11 34 01 1826 1188 st SENSC+3,XR1 SAVE XR1 1C37 3D &0 1C2E 1235 CLI TBN+1,X°490? TEST FOR LAST BIT
1B15 CO 87 18FD 1189 B SENSE TO SENSE C OG 1C3B F2 81 07 1236 JE SHFEXT JUSP TO EXIT IF ALL DOKE 7
1B19 03 1B19 1190 pc XL1"03! BYTES 2 & 3 1C3E £2 02 01 1237 LA 1(,XR2) -XR2 ROT DORE, STEP XR2
1BIA CO 87 O21E 1191 B UNPACK TO UNPACK STATUS BYTES 1C41 CO 87 1C23 1238 B MVCTBN ~< TO TEST NEXT BIT
IBIE 02 IBIE 1192 pc XL1'02* Oo 6 1C85 CO 87 0000 1239 SHFEXT B 2 EXIT
1BIF 1914 1B20 1193 Dc AL2 (STATUS) 1240
1B21 1B57 1B22 1194 DC AL2 (HEXSTA) 1¢49 00 1¢49 1241 CYLNO DC XL1°O8 :
1B23 C2 01 0000 1195 SEWSC LA *-* ,XR1 RELOAD XR1 C Oo 1242 “
1B27 C2 02 1BPA 4196 La STHASK, XR2 SET BIT POINTER IC8A 08 1C4A 1243 SHPFTBL DC XL1°08"
1B2B CO 87 1APF 1197 B SENSB TO PROCESS 2ND BYTE 1C4B 08 1C4B 12484 DC XL1* 08
1B2P CO 87 027A 1198 PRTHEX B PRINT. TO PRINT STATUS IN HEX ec Oo 1C4C 10 1C4C 1245 Dc XL1°10°
1B33 02 1B33 1199 pc XL1°02° 1C4D 20 1C4D 1246 pc XL1*20
*1B34 1D 1B3& 1200 Dc IL17*29" ICKE 40 ICRE 1247 DC XL1#a0# :
1B35 1B57 1B36 1201 Dc AL2 (HEXSTA) Co C6 1CuF 01 1CuF 1248 DC XL1#01° ;
1B37 CO 87 0000 1202 PRTEXT B +-* SUBROUTINE EXIT 1€50 02 1050 1249 pc XL1¢02°
1B3B E2E3C1E3E4E240C2 1B4YF 1203 Dc CL21'STATUS BYTES IN HEX, ° 1¢51 04 1€51 1250 pc XL1T#Ou!
1B43 EBE3ICSE2U0C9D540 1203 oO 6 1¢52 08 1€52 1251 Dc XL1*°08°
1B4B CBCSE76B40 1203 | 1€53 10 1053 1252 pc XL1°10°
1B50 0000000000000000 1857 1204 HEXSTA DC XL8'O* 1253 * SUBROUTINE TO CONVERT A WOBBER TO DECIBAL ;
1205 1254 “
1B58 DSD640D6D74O80N0 1869 1206 STATWD DC CL18*NO OP ' : i 1C5& 00 1¢54 1255 HIBYT DC XL1*0
*1B60 404040804 0404040 1206 1c55 36 08 18FC 1256 cYD a OWE, ARR ADD OWE TO GET FIRST PARAMETER :
1B68 4040 1206 210 1¢59 34 08 1°76 4257 ST FRON+S, ABR INSEST THE FROM ADDRESS €
1B6A CODSE3C5D9E5C5D5 1B7B 1207 DC CLIS" INTERVENTION REQD.?* | ICSD 36 08 185A 4258 A TWO, ARR ADD TWO TO GET THE SECOND PARAMETER
1B72 E3C9D6D548 9D9C5DB 1207 1C61 34% 08 IC7C 42593 ST TYBOT+5, ARR INSERT THE TO ADDE ‘i
TB7A C&4B 1207 Co G 1C65 34 08 1C82 1260 ST OTORZ+5, ARR ‘e
1B7C D&CSE2ZE2C9DSC740 1BBD 1208 pc CL18'HISSING ADDR. MARK? 1C69 36 O08 18FC 1261 A ONE, ABR ADD ONE FOR £XIT ADDRESS
1B8% C1C&C4D94 BUOD4C1 1208 1C6D 34 O08 1CA5 1262 st TIXE+3, ARR STORE EXIT ADDRESS
1B8C DID2 1208 o 6 1€71 0C 01 1¢88 0000 1263 FROK VC FROBYT#¢5(2),*%-© &
DATE 12MAR70 O6RPR70 22mAY70 01A0G70 PROG ID 0A07-2 O ©@ pare 13MAB70 O6APR70 22m2x70 01a0G70 PROG ID 0a07-2 t
EC eC. 571512 571516 571513 $71531 PAGE 12 BC WO. 571512 571516 571513 571531 PAGE 12a
1 o
So 0 ‘
&
mht i ei hls 8
IB® MAINTENANCE DIAGNOSTIC PROGRAS
A072
ERR LOC
ic77
ic7D
1c83
1c89
1C8F
ic95
1c98
iC9E
1CA2
1CA6
ICAT
ICAP.
1cB1
1cc3
1DC3
DATE
EC WO.
READ
OBJECT CODE
oc
oc
oc
O48
OF
F2
06
co
co
Fi
01
01
00
20
00
82
20
87
87
1C9OB
1c8C
1¢548
0000
1¢58
OA
0000
ic8F
0000
DATA
0600
0006
0000
1CB0
18FC
1CAG
FPIUF2F3FUPSP6F7F8
F9OFO
TIMARTO
571512
(
ADDR
1CA6
1C BO
1cC2
1¢C3
IDC2
1DCc3
1EC2
' 0003
OGAPR7
571516
0076
0001
0002
0008
C002
0003
00 a6
OOAS
0080
0040
0208
020A
0212
0216
021A
O21E
0222
022A
003¢
003F
0c 37
0
DIAGRO
STMT SOURCE
1268 TYBOT
1265 OTORZ
1266 FROBYT
1267 ZROTO
1268 DECGAN
1269
1270 TOBYT
1271
1272 TIXE
1273 DECONE
1274 UNTTS
1274
1275 STATPR
1276 WORK
1277
1278 READ
1279
1280
*1281 H1
1282 H2
1283 XR1
1284 XR2
1285 ARR
1286 STATO
1287 STAT23
1288 CTRL
1289 DATA
1290 BITO
1291 BIT1
1292 SWITCH
1293 SECTSW
1294 TEST
1295 LINK
1296 PRINT
1297 UNPACK
1298 HALT
1299 LOAD
1300 HF
1301 HA
1302
22H AY70 OTAUG7TO
571513
SsTICc)
STATEMENT
AVC TOBYT+¢3(2) ,*-
*MVC ZROTO+#3(2) ,*-
*MVC HXBYT(1),*-
*ZAZ = *- * (3) , UNITS (1)
SLC HXBYT (1) ,ONE
JL TIXE
AZ *-* (3) , DECONE (1)
B DECGAN:
B *—-%
DC CLi"18
Dc CL10* 1234567890!
DS CL18
EQN)
*DS CL256
EQU)
DS CL256
PROGRAM EQUATES
FOO 3=- X03
EQU =-X*768
ZQU) O01
EQU 02
EQU) =O s«éO8
EQU. = x*02
*EOD x*03°
EOD x*AG6?
EQU X*aAKt
EOD) x'80°
FOU) -x*4or
EQU _xX*208"
EQU x*20,~A°
EQU. -x*2128
EQU) x*216°
EQD xX*21a
*EQD X*21E
*EQDU. 8 x*222'
EQU) x*22A'
EQU) _x"3C?
EQU) x'3F°
END SEGIN
571531
PART WO.
PAGE
PUT BYTE IN WORK AREA
ZERO THE TO AREA
DECREMENT THE HEX BYTE
JUMP IF BELOW 1
INCREMENT THE DECIMAL COUKT
EXIT
HALT DISPLAY 1
HALT DISPLAY 2
HALT DISPLAY F
HALT DISPLAY A
PROG ID
PAGE
5129632
13
O0A07-2
13
oO 0 @ @ 0 9 606 0@ 90 8 9 9 08 090 9 OO O 09 0 CG 8&8 8G Go 6G DO OO
eettrtnweeem niece
oOo CG 8 9 O | 0 0 0 0 0 09 0 6G 9 90 0 @ 8 © 080 © 8@ 9 G6 8 8 OO
en re
IBS MAINTENANCE DIAGNOSTIC PROGRAS
A072 READ DATA (DIAGHEHO s Tie)
CROSS-REFERERCE
SYSBOL T LEN VALUE DEFR REFERENCES
ADREXT A 008 1462 1120 1085* 1116
ALLHED A 026 1781 0908 0886
ARIVED A023 18CA 09948 0963 0973
ARB Cc 001 0008 1285 0025 0110 0847 0857 0918 0936 1010 1035 1085
1257) «1258* 1259 1260 1261* 1262
AQ? A 007 0000 0003
BEGIN A 008% 0C37 0180 1302
BITO Cc 001 9080 1290
BIT! C 001 0080 1291
BUSY R008 4A77 1132 1060
CcCODE a 001 1918 1023 1053
CKHDER A 006 173D 0881 0166
CKHED A 008 16EB 0857 0390 0558
CKHEDA A 003 16F7 0860 0865
CKSEEK A 003 19617 1048 10485
CTRL C 001 OOA6 1288
CvD A008 1€55 1256 0319 0886 0961 1134
CYLNO A007 1C89 1241 0320 0487 O888 1227% 12342
DATA C 007 OOAS 1289 03919
DATEXT A OO& 1723 0931 0914* 0915 0917% 0922
DATID1 A 002 ‘%7DC 0928
DATPR1 A O43 1889 0992 0927
DCFF A 008 1928 1027 10654
Dcri A 008 1920 1026 1057
DECGAH A 006 1IC8F 1268 1271
DECONE A 001 1CA6 1273 1270
DFCR A 002 1A6E 1127 1040* 1050 1058 1056 1068 1099
DFCRI A 002 1926 1028 1059
DFC3SV A 00% 1A69 1124 1075 1091%
DFDR A002 1A70 1128 0293* 0308* 04607 0475* 0618* 6637* 0749*% 0781* 1051
DFDRF A 002 192A 1030 1063%
DFDRI A 002 1928 1029 1085%
DISKTP A 002 1A6C 1126 0148* 0154* 0668 1081
ERRORS A 006 OCFC 0238 0196 0276 O843 G604 0737
ERRC2A A 038 OFEO 0805 0321 0322* 0328 O888 0889 0895 0852%
ERRC2B A 083 1008 0806 0381 0508 0665 0809
ERRO2C A016 104E 0808 0369 0536
ERRO2D A 032 1042 0810 0352 0519
ERROZE A 0171 10DD 0812 0398* 0399 0563* 0569
ERRO2F A 037 ODE1 0244 0386 0553 0693 0837
ERRO3A A 038 12DB 0575
ERROYA A O42 1478 0701 06489* 0653
ERROSB A O88 apa 07C3 0076
ERROSA A 0248 1520 0705 0797
ERROSB A 039 1577 0707 ¢820
ERBRIA A018 OD&2 0240 0215
ERRIB A 028 0D92 0282 0230
ETABLE A 001 1917 1021 0013
EXPSEC A 001 ODE2 0245 0263* 0299 0305 0346 0430* 04857 O472 0513
FIXDSK A 00S 17A8 0906 0870
FIXED A 008 OBES 0188 0141
POURFF A 068% 1751 0908 0881
PROBYT A 006 1C83 1266 1263
FRO A 006 1€71 1263 1257
PRSTPS A 001 1A67 1122 0091* 0982* 1088* 1093 1095+
PWDSEK A 003 1A&1 1110 1108
BA C 001 O03F 1301
HALT C 001 0222 1298 0127) 0197 0217 0232 O277 0329 0343 0354 0371
0896 0510 0521 0538 0555 0570 0605 0654 0667
0738 0811 0822 0839 O87? 0888 0929 0983 1143
EDEXT A 004% 1739 0879 0857 0861
HDTBL A 001 1760 0896 0089* 0090 0090* 0258 0821 0585 0718 0881
HEXSTA A 008 1B57 1204 1157) 1199 1201
EP c 9901 903c¢ 1300 4
HIBYT A 001 1C548 1255 1266% 1268+ ‘
#4 Cc 001 0003 1281
DATE T3BHARTO O6APR70 22BAY70 O1AUG70
EC BG. 571512 571516 571543 $71531
1151
1055
0328
0678
PART HO. $129632
PAGE W3A
1222 1256¢
9900 O484
0635 0738
PROG ID OA0T-2
PAGE 13k
gS
i
j
IBM MAINTEHANCE DIAGHUSTIC PROGRAS PABT NO. 5129632 IBM BAIHTEHANCE DIAGNOSTIC PROGRAB PART WO. =—5 129632
PAGE 18 | PAGE TSA .
cise a
a072 READ DATA (DIAGNOSTIC) | A072 RERD DATA (DIAGRFOSTIC)
CROSS— REFERENCE © | G CROSS-~ REF EREECE i!
SYMBOL T LEN VALUE DEFN REFERENCES 3 | O SYMBOL T LEN VALUE ODEPFH REFERENCES
82 Cc 001 ©0076 1282 RTN3C7 A 004 11CB 0503
IDFLD A 003 187E 0955 0948 0951 0962 ; RTH3C2 A 006 1322 0513 0504 :
INVFLG A 019 OBZE 0106 0124 Co G RTN3D 2B 008 21FB 0524 0515
LASTAD & 001 1868 1123 1098* 1102 1106 1172 11198 RTN3E A 008 1219 0533 0526
LDFCR A 008 1968 1050 0054* 0058* 0066 0067 0068 0069 0070 0071 0072 90073 RTR3F A003 11PF 0525 0531 =
LDFDR a 008 196C 1051 0066* CG ' CG rrxn3c a 008 1229 0541 0530 oe
LIFK ¢001 0216 1295 0167 0882 0890 RTN33 A 008 1287 0550 0543
LOAD € 091 022A 1299 0051 RTN3K A OOW 1257 0558 0499 0587 0572
AOVEBT 2 00S ADC 1168 1183 © © eres a 001 12Dc 0581 0419
SYCTBN A005 1€23 1230 1238 RTNSA A 008 12F0 0589 0699
KEG? A 002 1A76 = 1131 1132 RTNSA1 A 00% 1328 0608 0598
HOSEEK 2&2 003 1852 1115 1103 CG G RtTnsB a 004 1328 0610
HOUNIT A 026 OBOP 0094 0048 RTNGBT A 008 135C 0628 0624
ONE a 002 18FC 1006 0142 0150 0153 0698 08482 1256 1261 1268 RTN4B2 A008 13AB 0657 0644
GHEHED A 034 17A3 0905 0867* 0870* 0871* 0875 C CM keTN4c aA 008 1390 0687
ORESEC aA 002 185C 0989 0759 RTNYCT A 0O4 13581 0660
OTORZ A006 4C7D 1265 1260* . RTN&C2 aA 008 13C8 0670 0661
PASS A001 OB1B 0105 01141 0113* 0160* 0980+ QO © RTKGD aA 008 13DF 0681 0672
PRINT C001 O21A 1296 0045 0081 0085 0121 0193 0212 0227 0273 0325 0338 0389 0366 RTNSE A 008 13FD 0690 0683
0383 0396 0440 0492 0505 0516 0533 0550 0566 0601 0650 0662 RTNAF A 003 13E3 0682 0688
0673 0690 0734 0794 0806 0816 0834 0872 0883 0924 0964 0970 eg .¢ RTRNYG A 006 180D 0698 0687
0975 1138 1163 #1173 «1198 | RTNS a 001 1578 0718 0583
PRTEXT A 00% 1837 1202 1151% | RTRSA A 008 158C 0722 0843
PRTHEX A004 %B2F 1198 1186 G C = =RTKSA1 A 004 15C0 0781 0731
PATSHS A O08 ABU 1151 0192 0272 0328 0395 0439 0891 0564 0600 0647 0733 0793 | RTNSB A OOK 15Cu 0783
PRTSPH A 004 OADS 0081 0078 RTNSB1 A 008 1S5CE 07486 0762
QCODE A£ 901 1917 1022 1052* G CG RIR5B2 A006 %15EE 0759 0755
Z2DDFC a2 001 18F7 1002 0185* 0189 0201* 0202* 0203* 0208 | RTN5B3 A 00% 1SFF 0768 C761
EERKD A007 1DC3 1278 0285* 0286 0286* 0307 0334 03748 O4852* 0853 0453* 0474 0501 0541 ETR5SBS A 008 1621 0776 0772
0636 0658 0681 0780 0783* 0784 0784* 0802 0825 1218 CG .C RTNSBS A O04 1661 0801 0790
READ? A 002 1c03 1218 0379 0546 0686 0830 RTN5C1 A 008 1667 O804
RENYDS A 001 OB12 0097 0033* 0062* 0137 ETNSC2 A 008 167E 0814 0805
BEDFCR A008 1A1E 1099 0072* Co CG RTN5D A OOS 1695 0825 0815
RBYDSK A005 17AD 0907 0867 RTESE aA 008 1683 0838 0827
BOOTRO A001 1928 1031 1072% RTNSPF aA 003 1699 0826 0832
BPFX C001 OA03 1147 1072 1135 Qo oe RTN5G A OG6 16C3 0842 0831
RSYO 2003 1822 1100 0073* 1084* 1047* RUNFIX A 001 OB18 0103 0775 0139* 0188 0155%
#TR1 2 001 0C33 0176 0012 RURRMV A 001 OB17 0102 0133* 0140 0145
*BTNIA &€ 004 OC3F 0182 0235 Cc Co SAVSW A 001 136A 7125 1037* 1073 1092
*BTX1A1 2 008 0C73 0200 0190 * SBN A 004 1€33 1234 1231
*RTRIA2 A008 O0C97 0212 0209 | SCRCH A 001 1A66 1121 1106* 1107* 11117*% 1112* 1118
RTNIB A 008 OCA7 0220 0211 ce ¢ SECMSG A 04& O0B72 0108 008%
ETRIC & 008 occ&’ 0235 0225 SECTBL A 0071 175D 0893 6259 0260* 0826 0427% 0849 0859
RTK2 & 001 ODE3 0250 0178 SECTSW C 001 020A 1293 0119 0131 0135
RTN2A A004 ODF? 0258 0391 O61. G SEEKER A 00% 2A1F 0961 0943 0952
RTN2A1 2 0048 O0£37 0280 0270 SEEKID A 002 1830 0968
RTN2B A 094 OF3B 0282 SEKER1 A G&2 1883 0993 0967
RTN2B1 A O04 OF79 0303 0299 G oo SEKER2 A 080 18F2 0995 0978
ETR2B2 A 004% OECA 0333 0318 SEKEXT A 004 1818 0958 0936
*ETHZ2C & 004 OFSF 0317 SENSA A 008 1B06 1185 1179
RTNZC1 A 004% OEDO 0336 G ,G sEeNSB A 003 IAFF 1182 1197
RTN2C2 A 006 OFE7 0386 0337 SENSC A 008 1523 1195 11888
RTNZD A 004 OFOO 0357 0348 SENSE A 00% 18FD 1010 0074 0220 0918 0937 1061 1066 1069 1152 1189
RTH2E A008 OFIE 0366 0359 Gi @ sera 2 006 0A68 0054 0037
RTH2F a 003 OFOKN 0358 0368 SETADA A 005 1A25 1102 1098
HTN2G 48 00% OF2E 0374 0363 SETADB A 005 1A58 1118 1108 1113
RIN2ZH 2&2 003 OF32 0375 0381 0548 oe SETADR A 008 1929 1085 1049
BTR2J 4&4 008 OFUC 0383 0376 | SETB A 006 OA7S 0058 0041
RBTR2K A 004 OFSC 0390 0331 0380 0402 i SETBTH A003 OA89 0064 0056 0061
RTN3 868 001 10DE 0417 0252 Oo - 6 SETDSK A 008 GAOD 0025 0181 0257 0828 0588 0721
STNJA A 00% 10F2 0425 0559 SETERBA A 003 16DB 0850 08a38%
BTN3A1 A 008 1132 04387 0437 SETERER A 008 6CD 0847 0323 0490
RTN3B £004 1136 0449 @ © sererx A 004 1627 0853 0847%
RTN3B1 A QOS 1176 0870 0466 SETEXT A 008 OAF2 0092 00258
RTKRIB2 A 008 11C5 0500 0481 SETFIX A 008 1959 1046 1082 :
RTW3C A 004 119A 0488 e@ ¢ SETERV & 00% OBCD 0140 0117 0136 0138
DATE 13HAR70 O6APE70 22mHAY70 O1AUG70 PROG ID OA07-2 e@ ¢ DATE 13MART7O O6APR70 22NAY70 6 1A0G70 PROG ID 0a07-2
EC 8O. 571512 571516 571513 571531 . PAGE 44 EC BO. 571512 571516 571513 §71531 PAGE TGR
6 @
IBM HAINTENANCE DIAGNOSTIC PROGRAS
a072
SYMBOL
SETSPN
SETSW
SETXR2
SHFEXT
SHFTBL
SHIFT
S10
SIXSIX
SKTSTA
SNS _
SNSID
SNSXR2
SNSO1
SNS23
SPNDLA
SPNDLB
SPNAMSG
STATPR
STATUS
STATWD
STATO1
STAT23
STEP
STMASK
STPSNS
STRTIO
SWITCH
TBLEND
TBLA
TBN
TEST
TRALT
TIMOUT
TIXE
TOBYT
TRACK#
TSTBT
TSTDAT
TSTERR
TSTEXT
TSTFIX
TSTRAV
TSTSCN
TSTSEK
TSTSPN
TSTSW
TWO
TWOZR
TYBOT
UDTPTR
OFIND!
UFIND2
ONITS
ONPACK
OTAB
WAIT
WORK
WORK1
WORK2
DATE
eee oe ee ee ee ee ee ee oe ee ee ee
pe be bs 0) OC) De
we
pe me 0) 0 pe De ote pe pe De De De ge oe ope be oD ope De Be De oe oe op op ()
READ
LEN VALUE
006 OB85
001 0B13
002 1912
008 1C45
001 1C4A
0048 1C04
003 1995
002 1TA74
004 I7EB
004 190A
002 tTADB
002 1916
002 191A
002 191C
001 OBIS
001 OB16
624 OBE
018 tCC2
002 1914
018 1869
001 0002
001 0003
001 0¢c32
004 1IBFA
0048 ‘4tAFS5
004 192Cc
001 0208
6002 175F
002 175¢
003 %iC2D
001 0212
008 1a95
O21 1AB3
008 1CA2
006 1C98
001 OB14
004 t1AE6
008 1782
003 19E0
004 OCcOB
008 OBBB
008 OBBO
003 1983
0048 17E7
004 0873
00a 0891
002 185A
002 OBA
006 1C77
002 08611
00% OA24
008 OA20
010 1CBO
001 O212
004 0232
008 1998
001 1¢c3
002 1858
002 1855
TIMNARTO
571512
DATA
DEFH
0115
0098
10 16
1239
1243
1222
1059
1130
0937
1013
1167
7018
1024
1025
07100
0101
0107
1275
1017
1206
1286
1287
0168
W215
4178
1035
1292
0895
0892
1232
1294
1143
1146
1272
1270
0099
1171
0914
1078
0157
0135
0131
1079
0936
0110
0119
0988
0704
1264
0095
0032
0031
1274
1297
0096
1060
1276
0987
0390
O6RPR7O
571516
(DI
AGR
REFERENCES
0412
0026*%
10358
1222%
1228
0317
0067
*0941
0071*#
0184
*0726
*0361
*0863
1068
1071
*0054
0058
0055
*1169
*0977
1193
1160
0221
01434
1161
11594
0186
0751
0034
0864
0142
*0851
12308
0129
1136
1262
12644
0076#
1168
*0333
0069
*0110
0132
0120
0070
0200
0182
0114
0917
0050
1259
0028
0029
0084
1267
1154
0030
0068
0282
*0611
0748
0916
*0362
004 9%
1036
1223
ousa
1038
*101z
*0264
0776
0362
0864
0059%
1176
0183
*1166
0938
0151
1196
1172
0205
0768
0038
0150
*0858
-1235
1137%
1269
0079
*1178
0500
1074
0146
0280
0258
0130
1225
0115
0031
*1191
1133
0283
0612
07648
0921
0529
228 AY70
571513
ost
Ic)
CROSS~- REF ERENCE
0162* 0180
1077
1224 1226
*1039* 1043
0288* 6303%
0378* 0379
1019* 1011
0088
0223 0921
1753
0164
1185 1187%
0266 0295
0786 0945
0153* 0255%
1741
0185 0261
0657 0801
O87 0608
0825 0589
1258
0032 0050
*0283* 0292
0612* 0617
0765S 0765
O01AUG70
571531
0256
1236
1046
*0392
*0528
*0940
0310
0393
0428
0741
0722
0065+
0357
0632+
0390
PART NO. 5129632
PAGE 15
0423 0587 0720 0981
1052 1053
0431% 0455* 0476* 0561* 0592* 0614* 0628*%
0529 O545* 0546 0685* 0686 0829* 0830
0982 1013* 1063 1068 1071 1156 1171
0433 0462 0477 0598 0620 0680 0727
0422* 0562 0586* 0648 0698* 0719* 0882#
0590 0728 0951
O889* 0450 0450* 0459 052% 0610* 0611
0633 0633* 0634 0634* 0743 0744 O744s
1128
PROG ID OACT-2
PAGE 15
@
bo 0 © 09 60 8 8 6&6 G6 68 8 6 80 808 8 @ 606 6 9 8 090 8G 8@ 9 8 8 OO @G
carats. Frnarntininnre nse mastinet Bom
:
QO
>» 8 OO @ ° ° 0 080 080 @ 89 806 8 80 0 08 8 Oo
ie ES nee Re EERIE ee +
on RN Ne
° Oo Oo 86 08® 808 08 6 @
©
IBM MAINTENANCE DIAGROSTIC PROGRAA
a072
SY#BOL
WRT DFC
WRTER2
WETER3
XR1
XR2
XR2WK
ZROCTR
ZEOTO
tT
A
Q >» »
A
REA
LEN V
001
00a
004
001
001
002
Oc4u
006
D DATA
ALUE DEFN
18F3 0997
OF64 0392
125F 0561
0001 1283
0002 1284
YA72 «1129
OCcOF 0159
1€89 1267
(DTI
AGN
REFERENCES
0261
*0426
0590
*0730
0301
0468
0030+
0292
*0617
*0858
*1160
*02544
0378
O0544%
0826
0916
1086
1118
1231
1089
0116
1265
*0262%
0429*%
0591
*074 6
*0626
0774
0031
0293
0618
0866
1169
0255
042 1%
0545
0828
10367
1089
1119
1237
1090
0149
OoSTIC)
CROSS- REFERENCE
0269
0436
0597
0754
0757
00 32
0307
*0636
*0871
1182
0259
*0822
0585
*0828%
1038
1090
1161
*1237
*TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY =
DETE
EC HO.
i3HAR7
$71512
6
O6APR70O
571516
22EAY70
571513
0289
0456*%
0615
*0759%
0036
0308
0637
1011%
1182
0357
*04264
0586
0829
1039
1091
1168
0180670
571531
0290
04572
0623
0760
0040
0393
0648
1012
1188
0358
0524
0681
*O8uge
1040
1096
1181
0298
O4ES
0629*%
0756
*0042
0394
0649
1018
1195
0360
0525
0682
0850
1048
1097
118 1
*030K¢e
OT1¢
0630
0771
0043
C4uS59s
O748e
10568
1223%
0360
0527
06848
0859
1075
1102
1196¢
0305¢
Ou729
0643
O77 7
*0083
C460
0749
4057
1229
0361
0527
*O68u
*0860
1076
1105
12244
0313
owed
0660
07 78¢
0060
Ou74Ke
0780
1058¢
12298
037464
0528
0685
0862
1077
1107
12256
0318
0465S
0670
0789
0064
0475
0781
1064
1232
0375
oOSuts
0716¢
0862
*1078
11106
1226
PART NO. 5129632
PAGE 15K
0336 0396
0503 0513
C7248 0725¢
0808 0818
00648¢ 0065
0562* 0563
0851* 0852
1065 11328
0377 0377¢
0582 0548
0719 0825
*6863 0915¢
1079 1080
1WV4400«9915
1228® 1230.
PROG ID 0n07-2
PAGE 1S,
ay
at
-
© «&
ey
oy
ae
Amy
7
IBA HAINTENANCE DIAGNOSTIC PROGRAM
RO72 BEAD
THE CHARACTER
cL 1 THROUGH 16
T+-¥:YGH G& CC<
T#-Z25 -2?2D R'AZ C
T#-DO AV2B1080-_
T+-,,B1VZB EG1Y
T+-SBEG<@ AZXOH
*TH-_/6+.E8=]15*-
T+->*1>LNO=[I5_N
T+-?PDOS>Y], /CB
T+-OKF{ O@ &02]
T+-1(] «~F"HABCO
T+-2H= S%HOH*R.
T+-3CF]~ /02P0H
*T+-3=OH*< |=] H IMC
T+-490%3 1<GTONC
T+-5U2; PE&<PRE) S$
Tt-6?5DCH0) PDE+L
T+-7D9*~E0=4| £1DC
T+-8Y( HPPCS Bt]
T+-9-/1DG0H*BF~Q
T+-:$( DE*<BGPRO
T+-#0/0:70H*AAT
DATE
EC 5O.
138aRn70
571512
DATA
CL 17 THROUGH 32
RE: & CEHB?MB"0%
2-K'8D GK &| UY
FP; DB@Z DI{ [email protected]_H
ZB ERIVZOH*Q"ER
*” eeLaucus*xT Buc
N5>B 8aPS8BXN14C
” BaPSBUCAAl *4B 0
SY}, /OHKOH*.UL~
ESCO B1-2/2H* &
“Bip 0 | <<r4
“PIs /01308*<Q*B
<UaBGCH~ /OHE1U0
P6*PY2) $SUBUCE6) X
D2*GG5) $SB@XCE+L
RS) R 6*PCKUCFS>L
$2) PGE<E S%Pca'$
DO; | AE<GF 82 PRE<-
” ~EY (OH®. *8@HBESS
5C}3 /OHSY X /1>
B ATSON*+;*BGCXP
SOH**RITIC= @6
*O6APR70
5971516
22HAY70
571513 |
({ DIAGWOSTIC )
OBJECT CARD LISTING
CL 33 THROUGH 48
LIE .DAHABCHA TH
-OH*BF-QEB0a@~ &
A 36AB1DH AV_FOU
@20%N+ -RE|HEAC?
HO;PES<.E1)N 8aP
D2;.K&<LR2;PEG+~
#18 sFYHAa33"B1?
D -,2D 6@"0%P+ H
Q@YD~C-DP PATA} ED
CB-| -J*"OH*BE-
GF,L /OHEATN<"<B
(8D OOH*BHD 00H
*06;I 5%IC9(xR1*I
$2) PGE<E 5) $NE<P
WIDCNS>( 8%PTE<.
RECXDE (SFE<SF6*P
I9*XNTUCAE (XEO*S
@ Ay)C QO SHE
X{ +*) 0-3=GeD) OTO
" /O*O|CRE630 FIO
;O0H*03*BGP,L /OH
OTAUG7O
5715374
CL 49 THROUGH 64
& E%I(ED-DLO B1H
LC D.DEXEOH*BH-A
H AWOFOUH AWRFOU
XB1L /OHE KO.*%B
S8aPD B-%
B1*~I5HCRI*GDE<L
2/00( &%0B1, 2-06
BB? HE B37"B1.2-8&
<<? HAA- 8AESO0Q"CO
A 7T}& .DaBAB-7
G SH-B*BGE=*a"41T
Q"SHBAAUDLOA <1<B
“ORTIUAN BXPEGKX
X2;.T0) PTE&+.EO=]
YE<E 6*PAIDCDOs |
A1DCF2*PL1DCDS%P
” 1<GTOSCD2*GGK4C
Q'LO C;H@BI, $OH
*" GRH<"/8AGSHAD/,
< AT5C3.B J7C{ D
EAVY|8<BG SH-<?H
INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT.
CL 65 THROUGH 80
@ -R.@/ FxE a@yYD
B RE&&N]{ D.J?7H
H AX/FOUH AXOFOU
G /¥YFF F} P00
oe 2) pvO) JI IDC
ABQE 1<XA7'POS>]
2/308A-HH@z QOR
*a"O%0Q1 -E"HAEEB
APWOS? %QOH® C4
"/0_3| RD30IF_%
8] Q=LO FI, si
G /,FM 6KYCG /OH
NIGCT2<N OaH O=7T
O6NCLIF?7D2*J 5)$
AEKLIO®.N5>.7T2* {
SE (PO8UCC5_PTO*X
cS_LNIDK - &7%H
Ee Fu} /O870H
*$j Q'-0 PIN(8hH
E*<BGFKOA /T30H
*GUABGE SH) O37" F{ S
PEOG ID
PART KO.
PAGE * 16
5128632
CL 81 THROUGH 96
2+ D PIUA0720001
GE - 00840720002
H AU 29440720003
BEGH R: A0720004
$8>Q J-8A0720005
I04 OT-A0720006
BP%Q SDMA0720007
AESO RZ0A0720008
EB-< P8QA0720009
€ A- 8C%A0720010
% SH 5H@A0720011
SYCD : %A0720012
L6*H )34A0720013
TE<*® "JQR0720014
“09 :0%A0720015
NECN 488A0720016
BES@ ~TUA0720017
*#I% °F 840720018
AG<< 08640720019
+2% 62<80720020
2-3 65-20720021
OLOT-2
PAGE 16
9 90 0 080 90 60 0 0 080 8 ©
©
oe ee cere a eR RN NG le te Mem
202 00000 0 0 0
@*2°070000000000090 0.000000 909 00908 9 8
oO 8 © 6 9
@ oO
@.
ema
Aete Siemhinenn
IBS SAINTENANCE DIAGHOSTIC PROGRAS
A072 READ
CL 1 THROUGH 16
T+-aJ0H*BP%OQ,D >
T+-'< JUOFE#2-JL
T4+-=G/0HE108 (BE.
T+-"B2CN 5° XES*X
TH" 844 O'SHSHI
T+/ 84aJ S) $TE+.
T+/A30; JAE<LIO®~
T+/B>2<GN 1@PDE<G
T+/CZ1*3 O%TIVAN
T+/DU}E ~D@BAB-7
T+/E~/OHEATH<"<B
T+/FEOH*&. H FI]
T+/GH/10DF{ } /11
T+/HE1S%EB: 308
*eye peakadhens:
Siseren ee Fea
T+/.A6*PV2) $UBUC
T+/.25_LN1D_ 9+.
T4/<T'LOIF_? /10
T+/ (2JAHE630aF I$
T+/*_"17BG*{ B J7
T+/§YS/7C[~3Q'?7H
DATE 13HAR70
ED WO. 571512
DATA
CL 17 THROUGH 32
~<aBG Si-<ou FIs
” /0@DOK*BPS RCDD:
60H*BHD 60H*0:aB
0941 1) xXB5_XSE+$
-&+LS2) PGECTDKUC
T1) ~P1*LW6* XTIBC
H5>.T2* (0° $H5<G
F8@PRE<E 5_PEE+.
"4 (SI5*) ONCW6eX
" /0_30-HPPLO E54
G SH-B*BGE=*2917
” /TEQOH*I*¢ EDV
NGDUI8C1 C's /18
BHD 3C& 0*67S@YD
” /OREWU<ELD SOH
*SYC$ /1$,0H*EaT0
26) XO6;I 9¥PRIEC
I5*) 2<J.E,E 8%P
% QB@8@BGD2L si<
B J3C{ DE*<BGFKO
C{ DE*<BGFKOA /T
{ BDBIAGWOSTIC)
OBJECT CARN LISTING
CL 33 THROUGH 48
(87HAD<BG /,FRAB
-(*BG SH- (*HBGe+
GC+*aD/,$ (EDPPAO
E6*N 5*XE8X%PNBUC
X64. E0= (2 G+~XBKP
F2*PLIDCWO;I 0) }
N1<TEO*J MDCS1*}
EO=| O6BCR 1*GDE<L
TIMCDO; |AE<}05 (P
< ATSB1E9-ATS}H.
BC|8)037BI 30-3
a(1e$] Q'-0 FI
(OH*E_<BG /YFO-"
&0H*BFXESDHH- (<B
BHD 50-H) 0#7X { 8
OF_%5 J3)*G 6761
P6*PS1) PTE<GP8aP
CB8uCx94 D ANBO-H
KOH*E_<BS /¥F(&3
B AT3OH*LP<BGDST
3OH*LD@BGDSC /1D
AD<BG /,FHi .YC} /OHSYT<* AATSAYD
O6APR7O 22EAY70 O1BUG70
$71516 571513 571531
CL 49 THROUGH 68
SYCL /OHSYCLB /3
*90C2 JLS -D& /U
” D(uDOH*E_<BG /Y
A1> | EOMCDSSXNIUC
CB'$RE< { 09 (PT1) V
T1) XEIDCA1> | E68C
T5_V¥ 0>TT1KCO10C
xaav IIR
DKGCUSKZXNISCH1*G
(STOIF_2? /10%
=G%D;0TOOP_%a AT
(8%HAG*<4 JZ00H
*-OH*BHD 7aY;KOH
*G SA- (<HBG<+"90C
AE¢HB LEBFIQ( JU
” /1DAOR*BP- 02D { 7
RECLO2) PGE<E 6*P
PP3GBESO* SLOED
BUH*BHD I0H*P930
" /0"D] CHE630AP10
&(EDPPAO EP*DOH®
&0H*BPRE-E (K-+<B
PART BO. §129632
PAGE 164
CL 65 THROUGH 80 CL 81 THROUGH 96
C?;* a-DMB-HA( A
OCEDRE/OC@YDNOH®
F+iC) OH*BHD KOH®
AE(KEO*S 1<GTORC
"2yy O°SHB'XO3UC
G2;PI5*) ONCRI*S
C5_PT6) $LE<SI1) |
IORCEE) LOGKCOOA}
DE+*C A.*0-HPQLE
QaeBGDL. /1D-0H®
6C _0*°E7S0-D*03E
R. DBPI| /1GEOH®
PR/7C}~8Q? PHADCB
2 JLS -D&’ /UOCED
OG |2-JL /0a20H®
” /OHSYAS /1IP8at
AIDCDO; [AE<LIO%}
HC*BGB7<< ATUBIE
EGLE<"/6AGSHC* 47
@ ATS} ;0-3=G%D
BP-R:EGL /OHSYCP
G SH-+<HBG*+'D C
RE-& 8RUA0720022
1<& _R:HAOT20023
| P+< MODAO7 200240
D2*D 6600720025
F2*% EH 40720026
DECE 1Y3A0720027
DEC< §TDA0720028
06) 0 28840720029
BESO PROAO720030
E_< 140720031
AFX _€L0A0720032
JWS BH<A0720033
G /Y QTQA0720038
RE/- 89640720035
BF£Q "HNAO720036
EE (* 23#40720037
.6<< 23020720038
@ a- 52040720039
BG*< $$00720046
50-0 KA R0720081
/1* =6620720042
2 J& K.pAa0720083
PROG ID 0407-2
PAGE 162
i)
wd
2.
i
eos
o
eo © @ &
se
+
$
j
?
‘
A2vietlnaaccin seein able om
§
t
'
t
3
CG a
‘IBA BAINTENANCE DIAGNOSTIC PROGRAB PART HO. 5129632 IBM SAINTENANCE DIAGNOSTIC PROGRANS PART NO. 5129632
PAGE 17 PAGE V7A 7
2072 READ DATA (DERGRBEOSTIC) A072 READ DATA (DIAGHOSTIC)
{
OBJECT CARD LISTING o 1. 68 OBJECT CARD LISTI¥G oO
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 8C CL 81 THROUGH 96 6 6 CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 88 CL 49 THROUGH 6&8 CL 65 THROUGH 89 CL 81 THROUGH 96 :
1+/ST8-HA( HRE-S APJQ* “HAECBGD=} /OHEIU@{ (8E 60H* BHD 6C-DPPAT@OH* Ka+|HIMCP6*PV2)S UBU /HAO720C484 G GQ T+/05 D&BAUO(ED RE/-CFES < RE(B GS& CSHFJHS /U K{ 6&CEAC720066 ae)
T¢/J;1)XR5S_XSE4$ E6*N S'XESKPNSSC AID>PEGMCDSEZXNI4NC AG(XEO*#J 1<GTONC D2*GGKSCCS_LN1D_ 94H 1BHA0720085 © .G tesvorwyy 1wo BO FR*A, DES-<8BAZ %8/ .+0-RVTSHFS| 2/0-:BAWO+--EHEA <BAF3U1Z/Z><E& E* 0 N8YS0720067
T¢/KR2) PGE<TDKSC XESCSI*|TKGCOEEA @*TEO*J MDCS1*] TS_V O>TTINCOIUC C5_PT6)$LE<$1I1)} DE(M 2AHAO720046 Oo QO T4/W, AUPPROK AU QFR*< JUUFWB< JU YFX 5 JZ>G <RH | B JXH8: OEHE)@B GF|4DC DRH/US(ED ES/0 ¥.8A0720068
T+/LNS>( B>PE5*~ ECCS _XRWITH=/ OF$TI)V ONCZE+. EO=|O6MCR1I*GDEXL ABBE 1<XA1*POS8>} 108 7R6A07200487 Co | © teyxw wu aBGF]& BC DRF/UNOH*Q"E< < JU*FIE< AU,B-< '"1Z50 DR8SHO 1Z Z>ODB(EHRD>F-C+F UB* 2$800720069
oe e e = oe ' oo, ad ° tesa eo e 2 oe? ow eee
T+/B|S@TEE (~R13P IS>LSE<PRE6) $RBUC WI)XEE(~R13.E5;( O*$7T1)V 1($I5*) OMCRI*GDE<LA8@E 1<0 &R4A07200K8 Co | © T+/Y//OE4BAZV7ED A@-DD{ ER2Z0APXH C(EHE*SO FHUC}|@ ETSY FU~2 Jm@ JZ X>ODB?71aC] EECP WFWS OE<A0720070
T+/HHO*) 6 (SFE]. 484+.£14+$06;.H1*G DEEA SAPCS'SRE<. YS8ON SRR O=[LKYC F4S2I.6(POSHCS8aP PSM KC&A072004K9 OQ OQ «t+/z*a: TS APWT 2-KP2/AF# GH< AZ WFW-? AZW ~HGE#Y A SO FWOACO ER/Z Yarer? CaYeHT CFWQ 30-A0720071 .
T+/OEIDCCS_XR1*} T4=/ OF$T1)V ONC 2*DCSI*4IT5S_V 6*P AIDCDO;{ AE<LIO*) AEC""@HBE6 4 /) *1& M24A0720050 QO GG) espe. EEG 0 G<< BS""a6 JZ60HE RW<BGGESH 1D3]D ER*BG /,PEJD3YH@# /O8 Kz a0720072 a
T+/P Bf -EY(OH*® .*00 FI&.EC2 FIM @BI,SIH*R. Fi} /1P OH*N,SBGF,L /OHEATA<"<BG SH -B* *Y&A0720051 OQ C _ tT+/,KHDB+0H* +] IS<PO9+( 2)N 6)$ USaXNIMCXOZEHP3, /1T* ZBG /SBFJS S$B30AF?$B J_Z0-8 $=% S$ 600720073 a
T+/P#/1=X] ) 0-3 =G*D)OTO F}$B 33 C( DE*<BGFKOB AT 30H*N#KBGE;, /0" UC- Q'J/#])0Q'3H AAC 33840720052 O O _ T+/%(/OKEOSDSEE - £90 *DJ3B C- FJ42U T /OHE JH *0T8 F>72-5,S -G K J. /1,*1Q E°2?9 AHTO :@UA0720078 3
T+/Q6/1P+}18)0-3 =G*D)OTO PES /10 % — Q@SBGESG /10 ) OH*KP30:F_Z@E1IT 64H Q* *HAGS<4 JZ OEM 36%A0720053 QO © 4/_H-A,6( DSI%SB GF} 4COR*BG-HREA_ PO-D <HBF", /1, “OH®BF-H) P5~ /0 8>]A8=LSE<.Y8aP SECU "QUA0720075 cS
T+/RIGRH<"/8AGR. /10K GHO@@BGENG /IR{ OH*E_<BG /Y “LAM-OH*BHD :OH* P%/7CI720Q'?HAD<B G /Y 60YA0720054 O © t+4+/>C5NCH1;),& 5)R 5_) GDA SDA EDA EDA 2) PT1)X¥1) PT2)$ NGE(XEG<I.S<XS8RX NIRS 7 S$YA0720076 9
T+/ELISSEB: 30H*® BHD 3{ )0Q0°~HAD<B G /,FNIBTYCX /OH SYCXB /7C?~@ @-D M8-HA( HRE-GAPJQ * "H LBYA0720055 GO O T+/>=0#LD6M_ 5<G RSEPOS<XPSHCPNBSC C2CPCKUA EXLABBE O@TEO'I EDA EDA E(POE(XEO'SRIDC F5>& mH <A0720077 O
T+/S$X-JL /1EROH* BF%RIC;F-(KBG SH -(-B8RESOQ"<BGEQO 4BASDC O7J1I0-H PPS$3" CHAESO® " WAC 1.820720056 GO G t+7795e3 epcrauc C5_PD2;}I15_N 0@T EO'.S1*PKE<}H1*] KEDA GDA EDCUS;. AIXSN GDA EDA EDA ED }4.~<A0720078 o
een e o +e e se oe ° e : o o - o . oe oe o . - * 2S = oe oS
T+/*S/0 ( -PICH AES53B /))?& @YD @8-HA{ HRE-SAFJQ PP@ AE?)@"0 <AA; 3E:4" AZ&Z@YDFC & PX/* 6&DA0720057 ° Oo T+/O04-D -D -D -D ;sOTEHGD-5 JIH(G&H *KCQOBFEYS /1H} *K*HBGDZ5 &D% AO > BO GCEE; BaZ D+t- 9A¢A30720079 a
T+/)) DAO E9-DOH* BF&RQSE:+-/KBG SH -/EBG ( 1) TE&G EHOOH*BFXOQEESF -/@BG SH-/aBG /0 2J%A0720058 re) ! © +/12GDU'SA0>@YD GS8-HAOH**HAPG A -GHD A -&HD 6BATA( -*)TQHFEY 4SBA1a( -*-TQHFJO 4%BAO RH-A0720089 o
T+/3QE5& @}. 18=.O8@XDECPRO)S RE+$S$ISG/ 0)|LE<KT EO*LS8_$L2*3 1)X RS_V O%XT2DCH1*G DE+* 3480720059 o | © ves2pzs0acH- 0 AGI® OASHO 0 GE& 6- *% @ GEEQ"| BBB-Q- *Z%BGGH" /0 @-G 28"6 &B*A0720081 }
T+/ALE*7I9=WXECL IB_.F2;7E1(XES#H MMMM NBEHE=05 /~ W. DOO D+ JIAWFE, /1T'Z 4YAFJEQO{ H AD< ™ HA0720060 @ QO — 17a920°3$7=1;x0 28000729052 G
Tt/-+/OHEISSQSE -O0H*BHD -OH* C& HFA? /2T* T-EFJL DA-,+ DRD"HEH<B GFKOA J-*0H*QB@B GF a 8SYA0720061 GO © _ ECC)*E7*=.pC"PHS ="7H5F} | = C PR asc BRA SO @Q 11810818700 8197062 0720083 CC
T+//ICE QGESMA-D GOH* <BGGES QGJTHOH*BFSZDDF.+ -|<BG /YAEITHOH* BF-QYF|H@ %$| -D30 KS-£07 20062 8 9 oC
T+/SD AZXOB*BHD a0H* H AA? BI<GTOMCAIXLR1;. S&+$AB8UCS8APPS@P DE+{ OE<INO'SR6*P C84 =--A0720063 o 9 OG
T+/S"9*GLI<PE6) X O68C0O09] U6) XEIDC 82<XEL1NCS1*PK2)P GE+)HIBSCCIMCT6*G CUR?7A6)XIO*PDE<G TE<< $B*A0720064 60 8 QO.
T+/Tz: ((.6(POKSC X9=-R9(H BRPEQUC T1;.7E+.E0=4I5_¥ 0-C3E6<SO6NCHS_X ES<XNi_B. 32*20720065 @ © GC
. wan ee nnn oo + ee ee oe LAST PAGE nn rn rn rr rn rrr mn an
DATE 1352870 O6APR7O 22NRY70 01a0G70 PROG ID 0207-2 Go @& pate 138AB70 O6APRT7O 22HAY70 01A0G70 PROG ID OA07-2 O
EC KO. 571512 571516 571513 571531 PAGE 17 . EC WO. 571512 571516 571513 571531 PAGE 78
t
6.0 G
QO
TBS MAINTENANCE DIAGNOSTIC PROGRAS
a0 83
ERR LOC
0000
oa00
OA00
0102
0A03
CA0K
0A06
OACSB
OAOA
OAOD
OA11
OA15
OA19
OA IC
GA20
OA2&
OA28
OR OC
OA30
OR3K
OA37
OA 3A
OA3D
OAu1
OAuY
OAN7
OAGA
OAGD
0aso
OA5SS
OAS8
OA59
OASA
OASC
OA60
OA66
OAGA
OA6C
OA71
OATS
OA78
OA7D
OA81
OA84
OA87
OA8SB
OASE
OA92
OAS?
OASC
DATE
EC NO.
REA
D DATA
OBJECT CODE
A083
00
01
0000
0C22
TAGE
A01000
T3MAR7
571512
OBOD
OBOB
O22A
OB14a
00 OBOF
OB40
13
00 0B10
OBS0
02
04
oBOC
03
0B OB
TACO 00
1AC8 00
1aCB 00
ADDR STMT
OA01
OA02
0A03
OA0S
0A07
OAO0S
OAOC
OA58
OAS9
OASB
OA6B
0 O6APR70
571516
PART WO.
PAGE 1
5129634
*
=
*
a ee
3
SOURCE STATEMENT
2 DECK 4
3 AVE START 0
4 ORG X*OA00!
GS EERE EEE KEKE SEES EEESEEESEESE STEELE EOE SEES SE EEEESEERHEEERES FHEKEEEESEEEE
6 * SECTION PREFACE
7
*8 DC XL2' A083! PROGRAM ID
9 pc XL7*00°8 SFCTION FLAGS
10 pc XL1° 01! CURRENT ROUTINE NOMBER
11 DC XL2'00!8 RESERVED
42 DC AL2(RTN1} ADDRESS OF FiRST ROUTINE PREFEX
13 DC AL2 (ETABLE) ADDRESS OF ERROR RECORDING TABLE
14 pc X¥L3*A01000!
15
*16 Se eEK Ot SSE CSEKKK KES HK SS KEKRKKKKHKHSECAKEKK*ACEK STKE KARE SEEKS HD SE KKSEKEEKRHEKSEKSCHKRSS KH
47
18 * OPERATING INSTRUCTIONS
19
*20 * 4. SET SWITCH 15 TO BYPASS RUNNING ON THE REMOVABLE DISK
21 * 2. SET SBITCH 16 TO BYPASS RUNNING ON THE FIXED DISK
22 * 3. SET SWITCH 71E TO NEVER RUN ON DISK DRIVE 1
23 * 4. SET SWITCH 1F TO NEVER RUN ON DISK DRIVE 2
24
25 SETDSK ST SETE XT+3 ,AFR SAVE EXIT ADDRESS
26 MVI SETSW,X'FF! SET SETUP SWITCH
27
28 CLI UDTPTR,O HAS POINTER BEEN INITILIZED?
29 JNE UF IND1 JUME IF YES
30 LA UTAB,XR1 LOAD IF NO
31 UFIND2 ST UDTPTR,XR1
32 UFINDI L UDTPTR,XR1
33 LA LDFCRt1,XR2
34 NVI REMVDS,0O RESET SWITCH FOR REMOVABLE ONLY
35 TBN SWITCH+3,X*02! TEST SSW 1E
36 JT *49 JUMP IF ON, NEVER RUN DISK DRIVE 1
37 CLI 0(,XR1),X7A0! TEST FOR A UNIT ADDRESS OF ‘a?
38 JE SETA JUMP IF THERE IS ONE
39 TBN SWITCH+3,X'"O1! TEST SSW IF
80 JT *+9 JUMP IF CN, NEVER RUN DISK DRIVE 2
41 CLI 0(,XR1),X' BO! TEST FOR A UNIT ADDREAA OF 'B!
42 JE SETB JUMP IF THERE IS ONE
43 TBN 1(,XR1) ,X*'10! TEST FOR LAST ENTRY
a4 LA 3(,XR1) ,X81 STEP FOINTER TO NEXT ENTRY
a5 BF UF IND2 CONTINUE IF NOT THE LAST ENTRY
46 E PRINT TO PRINT ALL UNITS SELECTED
a7 DC XL1'06! FLAGS
as DC IL1*26! LENGTH
4g pc AL2 (NOUNIT) MESSAGE ADDRESS
50 MVI SETSW,0
51 MVC UDTPTR(2),TWOZR
52 B LOAD TO PRINT NO ENTRIES LEFT
53 pc XL2*4o08# FLAGS
58
55 SETA NZZ 0(,XR2),SPNDLA SET FOR SPINDLE A
56 MVI SPNMSG,C'1°* SET MESSAGE FOR SPINDLE '1
*S57 J SETBTH PROCEED
58
59 SETB MZZ 0(,XR2),SPNDLB SET FOR SPINDLE B.
60 NVI SPNMNSG,C'2?* SET MESAAGE FOR SPINDLE '2?
61 TBN 2(,XR1),X" 01" TEST OPTION BIT FOR REVOVABLE ORLY
62 JF SETBTH JUMP IF NOT ON
o MVI REMNVDS,X'FF* SET BIT TO RUN REMOVABLE ONLY
4
65 SETBTH LA 3(,XR1) ,XR1 STZP POINTER TO NEXT ENTRY
66 ST UDTPTR, XR1
67 MZZ LDFDR+1,.0(,XR2) SET FOR CURRENT SPINDLE
68 MZZ SI0+1,0(,XRZ) SET FOR CURRENT SPINDLE
69 NZZ WAIT4+1,0(, XR2) SET FOR CURRENT SPINDLE
22MAY70 01A0G70 010CT70 PROG ID OA08-
571513 571531 571540 PAGE 1
ww
@
Oo
Oo oO ©
¢)
i.
i)
)
my
ve
C3
e)
co
v Cr)
CN
4)
@
q
C
Q
@
O
@
Oo @ e °"@
o @
ao ea a
Cf) ey
a)
©
oy
©
>)
©
i)
9 90 8 @
wt
IBS MAINTENANCE DIAGNOSTIC PROGRAN
A083
ERR LOC
OAA1
OAA6
OAAB
OABO
OABS
OABA
OABE
OAFF
OAC3
OAC?
OACA
OACE
OAD2
OAD3
OADY
OAD6
OADA
OADB
OADC
OADE
oBOCc
OBOE
OB OF
OB1T0
0B14
OB12
OB13
OB15
OBI6
OBIE
OB26
0B293
08314
0B39
OB41
OB4S
0B51
OBSS
0B61
DATE
EC NO.
READ
CBJECT CODE
DATA
ADDR STST SOURCE STATEMENT
28 00 1AE2 00
28 00 1AES 00
28 00 1862 00
28 00 1Bic GO
28 00 73820 06
CO 87 1454
02 OQRBE
3C CH OBOE
38 08 1A6B
F2 90 08
3C 67 OBOE
cO 87 0218
01 OAD2
21 OAD3
0B61 OAD5
cO 87 O2TA
06 OADA
18 OADB
OB4O OAD?
3c 00 184uC
0c O02 184B 184C
3c 00 1864
co 87 0000
CIDID3ZYOESDFSC9E3 OBDS
E240C8C1ESCS40C2
CSC5DS4OE3CSE2E3
c5c4
0000 OEOB
0232
0c GBboCc
00 OBOD
00 OBOE
AO OB80F
BO OB10
00 0571
00 0812
0000 OBi4
00 0B1S
CIDSESCIDSC9CUKO 0528
EZ2ZE2ZFGXOE?CSE3E3
c9D5C7
CSPEEGLOEICSEZE3 OBO
C3IDSCTHOCUC9E2 D2
KOCRDICIESCSLOET
C2C5C7C9D54O0D9C5 OBA
CICKHYOCHECTE3C14U0
COEXDSC3IEICIDEDS
HOEZCSE2E340C 1F0
r8
138AR70 OSAPRT70
571512 571516
70
71
72
73
748
75
76
109
109
SET203
PRTC PN
SETEXT
ROUNIT
UDTFTR
UT AE
REMYDS
SETSW
TRACK #
SPNDLA
SPNDLB
RUNRAV
RUNFIX
THCZR
PASS
INVFLG
SPNBSG
SECSSG
22H AY70
571513
PART XO. 5129638
PAGE 1a
MZZ TSTERR+1,0(,XR2) SET FOR CURRERXT SPIADLE
MZZ TSTSCN+1,0(,XR2) SET FOR CURRENT SPINDLE
"ZZ SNS4+1,0(,XR2) SET FOR CURREKT SPINDLE
ZZ RLDFCR+1,0 (,XR2) SET FOR CURRENT SPINDLE
SZZ RS10+1,0(,X82) SET FOR CURRENT SPINDLE
B SENSE
DC XL17'02! ASK FOR DEVICE STATUS BYTES 0 & 1,
MYI TRACK#,203 SET FOR FULL CAPACITY DISA
TBN STATUS,X'O8! TEST CYL 100 BIT
JF PRTSPH JUMP IF CFF
AVI TRACK#,102 SET FOR 1/2 CAPACITY DISK
B PRINT TO PRINT SECTIOW HEADING
DC XL7'018 FLAGS
Dc IL1* 33? LENGTH
DC AL2(SECHSG) SESSAGE ALDRESS
B PRINT TO PRINT SPIRDLE
DC KL1"068 PLAGS
DC IL1*24 LENGTH
pc AL2(SPNMSG) MESSAGE ADDRESS
NVI HDTBL+3,0 ZERO HEAL
MVC HDTBL+42 (3) ,HDTBL+3 ERROR FLAGS
AVI. FRSTPS,O SET SWITCH FOR RECALIPRATE
B *-* EXIT
DC CL26*ALL UNITS HAVE BEEN TESTEL
*DC XL2°0°
EQU = X*. 232
DC XL1"0#
rc XL1°O!
pc XL1°00"
pc XL 1° A0?
DC XL1"BO!
DC XL1"08
pc XL1"0#
pc XL 2°08
pc XL1°O!
DC CLI9*INVALID SSW SETTING
*pc CL24"NOW TESTING DISK DRIVE x
*pc CL33*BEGIN READ DATA FONCTION TEST AO8
*01A0G70 010CT70 FROG ID 0A08- 3
571531 5715480 PAGE 1A
a
IBM MAINTENANCE DIAGNOSTIC PROGRAN
A083
ERR LOC
OB62
OB66
OBGA
OB6D
0B71
OB74
OETA
OB7D
ORBO
OB84
0B87
OBSB
OBSC
OB8D
‘OBS F
0B91
OB95
OB97
OEQE
OB9P
OBA3
OBAG
OBAA
OBAE
ORB
OBBS
OBBSB
OF BC
0 FCO
OBC
OBC9
OBCD
OBDA.
OBDS
OBDS
OBDC
OBDF
OBES
OBES
OBEC
OBF2
0 BF6
OBFA
OBFE
0c02
0Cc06
0c 09
ocor
0c71
oci15
0c19
OCcir
0Cc24
DATE
EC NO.
READ
OBJECT CODE
34
3D
F2
3c
F2
oD
F2
F2
co
3D
3c
F2
co
3c
3D
co
co
00
08
00
01
FF
87
01
81
87
06
00
01
87
00
03
81
87
OBFPD
OB1S
07
0B15
13MAR7O
571512
DATA
ADDR
OBITS
OBSB
OBBC
OBBE
0B90
OB9S6
TA53
TA53
1A53
oc21
OGAPR7O
571516
STAT
111
112
4113
114
115
116
417
118
119
120
127
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
449
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
SOURCE STATEMENT
TSTSPNH
SETSPN
TSTSW
TSTRSV
TSTFIX
SETRAV
FIZED
TSTEXT
ZRCCTR
STEP
22MAY70
571513
ST
CLI
JNE
BVI
J
cue
JE
BVI
CLI
ALC
CLI
ALC
AVI
MVI
CLI
BVI
JNE
mVI
BVI
CLI
BE
pc
01A0G70
571531
TSTEXT+3, ARR
PASS,O
SETSPN
PASS, X'PF
*TSTSW
RUNFIX (2) ,TWOZR
ZROCTR
SETRAV
SECTSW,X' 06°
TSTRHV
XL1i*cé6!
ILi*i9!
AL2(INVFLG)
XL2'AOFA®
HALT
XL2*AOPA
*TEST
TSTSW
SECTSW,X'OU!
TSTPIX
RUNRMV,X* FFP
SECTSW,X*02!
SETRMYV
REMNVDS, X'FF!?
SETRMV
RUNPIX,X'FF!
RUNRMV,0
FIXED
TBLH (2) ,ONE
STEP, 1
DISKTP,O
RUNRMV,0
TSTEXT
RUNPIX,0
ZROCTR
TBLH (2) , ONE
STEP,1
*4+9
TBLH (2) ,ONE
DISKTP,X'O8"
*RUNFIX,9
*-*%
X'0A03?, 06
PASS,0
*4141
SETSwW, 0
0
STEP, 0
X'O0A03',03
CKHDER
LINK
XL17* 08
010CT70
571580
PART NO. 5129638
PAGE 2
STORE EXIT ADDRESS
IS THIS THE FIRST TIME THROUGH ?
JUMP IF NO
SET SWITCH
PROCEED TO TEST SWITCHES
HAVE ALL DISKS SEEN RUN?
JUMP IF YES
SGMNP IF HNO
TEST FOR BOTH SSW'S 15 6&6 16 ON
JUMP IF BOTR NOT ON
TO PRINT INVALID SS SETTING
FLAGS
LENGTE
MESSAGE ADDRESS
MESSAGE ID
TO DCF ERROR HALT
HALT ID
TO REERD CONSOLE SWITCHES
TEST FOR SWITCH 15 ON
JUMP IF ON
IF NOT ON, SET TO RUN REMOVABLE DISK
TEST FOR SWITCH 16 OR
JUMP IF ON
TEST FOR RUN REMOVABLE ONLY
JUMP IF NEVER RUN FIXED
IF NOT ON, SET TO RUN FIXED DISK
DO WE WANT TO RUN ON REMOVABLE?
JUMP IF KO
INCREMENT TABLE POINTER
SET SWITCH TO INDICATE SANE
SET TO RUN ON REMOVABLE
CLEAR RUN REMOVABLE SWITCH
TO EXIT
DO WE WANT TO RUN
JUMP IF NO
INCREMENT TABLE PCINTER
TEST FOR PREVIOUS INCREMENT
JUMP IF YES
INCREMENT TABLE POINTER
SET DISK TYPE TO FIXED
CLEAR RUN FIXED SWITCH<
ON FIXED?
EXIT
CHECK FOR LAST ROUTINE
ZERO SWITCH
JUMP IF NOT LAST ROUTINE
RESET SWITCH
CHECK FOR COMPLETION OF ROUTINE 3.
BRANCH TO CHECK ERRORS
TO NEXT ROUTINE
PROG ID 0a0s-3
PAGE 2
4
oO
oO o@ 8 9 OO 9
oO
iy ty ‘> Cc) Ct)
GO Oy 0: 3
f
) oO e ey
0 Oo 9O
eo 8 @ 8 & G
mo @
ao o a OY QO OO
ey
oOo Oo 6
cy
C»
QO
2 6 08 4 Aa G
IBS MAINTENANCE DIAGNOSTIC PROGRAS
A083
ERR LOC
0C22
0c23
0c24
0C26
Oc2A
OC2E
0C32
0c36
OC3A
OC3FE
oc4s
0c4s
oc4ags
OC4A
oOcK&Cc
ocso
ocs4
oc58
ocsc
OCcSr
OCSE
0c60
0C62
OC6E
0c68
OC 6C
OC6D
0c71
oc74&
0c78
oc79
OC7A
oc7c
OCT7E
0c82
ucsy
0C&8
0c90
ocg98
NOCAC
OCA8&
OCBO
OCB7
OCBD
occs
NCCE
OCDS
ocDD
OCES5
OCED
OCF 1
ocrs
oroo
oDp08
0D10
0D18
0D20
Or28
op2c
OD34
DATE
' EC WO.
READ
OBJECT CODE
o1
co
OD 3B
3D 00
CO 81
cO 87
3c 00
co 87
3c FF
oc 01
CO 87
01
00
TAYE
co 87
cO 87
cO 87
cO 37
C6
3B
OcPr7
A040
co 87
A040
cO 87
02
38 08
OB0D
OAOD
0B62
TA6R
I8ED
TAGFP
1A51
1A83
OB14
0c58
ocs4
0cé68
O21A
0222
TA54&
TAGA
F2 710 10
co §7 O21A2
C6
43
OD 3A
A041
co 87
A041
0222
CO 87 OC2E
E3CB8C540D7D9CSES
C9 L6EXE2UOCSD9ODI
D6EDSE2ZRODEC3CIE4
D9 DECSCH4OE6CBCI
D3C5XO0E2C5SC5D2C9
CSC7T4UOE3CB8C5S4O
C3C54O0C3E8D3
DICSCIC4BOCHCITE3
C140EGE2C9D5C740
C14ODSD6ED54OC5E7
CIEZEICIDSESHOE2
CS5C3E3D6D940C9C4
4OCUCIOCS4ODSDEE3
KOCTCSES
CS¥OCSDIDIDEDY
DS5DEXOD9IC5C34BHN
C6 T6 EY CSCK4ODSDE
E340 E2C5E340C 2E8
4O0C140D9C5C1IC44O
C¥CTE3ZCISOC3IDED4
D&C1IDSC4H& OEXE2C9
p5c74&0Ci
E2C5C3E3D6D948 0C9
C4 HO DECEYOCE6CE
13MAR70
571512
DATA
ADDR STMT
0cus
0ck9
OC4&B
ocsc
CcSD
OCSF
0c61
0Cc67
OCcéC
0c78
0c79
0C7B
oc7D
0c83
OCBE6
OcBC
OCFO
OCF7
OD2B
OD3IA
O6APRT7O
571516
171
172
173
178
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
208
205
206
207
208
209
210
211
212
213
214
215
215
215
215
215
215
216
217
217
217
217
217
217
217
218
219
219
219
219
219
219
219
220
220
SOURCE STATEMENT
*
2
*
*
RTN1
BEGIN
RINVA
RTNIA2
RTN1IB
RTNIC
ERFOR9
ERRIA
ERR1B
22MAY70
571513
ROUTINE NO. O1,
PART WO. §129638&
PAGE 2a
CHECK FUNCTION OF BO RECORD POUND °
SENSE BIT, (BYTE 0, BIT 5) s
THE READ DATA COPMSAND e
¢
ROUTINE PREFACE
ROUTINE KO.
ROUTINE FLAGS
ADDRESS OF NEXT ROUTINE
HAVE PARAMETERS PEER FNTERED?
BRANCH IF KO
ZERO SENSE AREA
TO SPREK THE CE TRAC?
SET CYLINDER BO. TC FOPCE A WRF.
SET FOR TRACK 0, SECT. O
TC I/O SUBROUTINE
FUNCTION CODE { READ}
CONTROL CODE (LATA)
CONTROL FIELD ADDRESS
GCCD RETURKR, (KOT EXPFCTED)
NORMAL RETORK FROS® EXPECTED ZPROR
TO PRINT ROUTINE ERROR
PLAGS
LENGTH
ADDRESS OF LAST
MESSAGE ID
TC DCP HALT
HALT ID
TO SENSE I/O SUBROUTINE
DEVICE STATUS BITES 0 & 1
TEST BYTE O, BIT S FOR O%
THIS IS *NO RECCRD POUND®
JUMP IF OF
TO PRINT ERROR
FLAGS
LENGTH
ADDRESS OF LAST PRINT CHARACTER
MESSAGE ID
TO DCP HALT
HALT ID
sPRINT CHARACTER
ROUTINE EXIT
CL&7"THE PREVIOUS EFRORS OCCURRED WHILE SEEKING THE °
CL52*READ DATA DSING A NON EXISTANT SECTOR ID DID NOT Giv
*De XL1°01°
*pc XL1'00°
pc AL2 (RTN2)
CLI SETS#, 0
BE SETDSK
B TSTSPN
AVI STATUS-17,0
B SEEKCE
AVI RDDFC+1,X*FF®
MVC RDDFC+3(2) ,TWOZR
2 STRTIO
DC XL7°O1!
Dc XL1*00°
pc AL2(RDDFC)
B RTNIAZ
B +4
Ez RTNVB
B PRINT
Dc XL1°*C6°
*pc IL1*59#
Dc AL2(ERRTA)
pc XL2‘AO4O®
B HALT
cc XL2* A040?
B SENSE
DC AL1(STATO1)
TBK STATOS-1,X°O4?
JT RTWIC
B PRINT
DC XL 1'C6
*pec ¥L1°67°
pe AL2 (ERR1B)
Dc XL2*AO4U1
*B HALT
cc XL2*a0a1
*B RTNWA
DC
DC CLO6'CE CYL
*pc
pc CLO7°E ERROR®
Dc CL52*NO REC.
DC CL15*SECTOR ID OF FF
*01A0G70 010CT7O
571531 571540
FOUND NOT SET
BY A READ DATA COMMAND USIKG A®
PROG ID 0a08-3
PAGE 2A
4
eeeeeeoeeeeoeoeoeoeoeoeoecseeoeeeneoeneneneoeeeee &
IBM MAINTENANCE DIAGNOSTIC PROGRAM
PART NO. 5129638 IBM MAINTERANCE DIAGNOSTIC PROGRAB PART NO. §12963a8
PAGE 3 Cc .@a PAGE 3a C
A083 READ DATA c a BEA BD DAD BR
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ER& LOC OBJECT CODE ADDR STMT SOURCE STATEMENT
222 * ROUTINE NO. 02, CHECK READ DATA FONCTION * G:oO ODF6 F2 87 92 290 J RT N2K
223 * USING HEADS 0 & 2 291
= 224 ODF9 CO 87 189B 292 RTR2B2 B TSTDAT TO TEST DATA ADDRESS
OD3B 02 OD3B 225 RTN2 DC XL1°02¢ ROUTINE NUMBER C.ea ODFD 1FCO ODFE 293 Dc AL2 (READ*¢256)
ODp3c 00 Or3C 226 Dc XL1°00! ROUTINE FLAGS 294
OD3D 105B OD3E 227 pc AL2(RTN3) ADDRESS OF NEXT ROUTINE PREFIX ODFF 3D FF 1A4D 295 RTN2C1 CLI WRIDFC+3,X*FF? TEST SECTOR COUNTER FOR STEPPING.
228 GS Cc 0£03 F2 81 10 296 JE RTN2C2 PROCEED IF OK.
OD3F C2 02 1848 229 LA HDTBL- 1, XB2 SET POINTER OEO6 CO £7 O21A 297 B PRINT TO PRINT SECTOR CCUNTER ROT STEPPED
OD43 34 G2 182E 230 ST TBLH,XR2 POR HEAD 0, REMOVABLE DISK OEOA C6 CECA 298 cc XL1'C6! FLAGS
OD&7 3D 00 OBOD 231 CLI SETS¥,0 HAVE PARAMETERS BEEN ENTERED? Ce OEOE 28 OFO0B 299 DC IL1*43! LENGTH
ODUEF CO 81 GADD 232 BE SETDSK BRANCH IF NO OEOC OFS OFOD 300 DC AL2(ERRO2B) MESSAGF ADDSESS
OD&8F CO 87 0B62 233 RTNZA B TSTSPN OEOE A043 OEOF 301 DC XL2*a043* MESSAGE IDENTIFICATION
0D53 C2 02 182F 234 LA SECTBL, XR2 SET ERROR TABLE POINTER Cc € 0£10 CO 87 0222 302 B HALT TC DCP HALT
on57 BC 00 17 235 MVI 23(,XR2),0 ZERCG SECTOR OF14 A043 CE15 303 pc XL2* A043? HALT ID
ODSA AC 16 16 17 236 MVC 22(23,XB2) ,23(-XR2) ERROR FLAGS 304
ODSE 3c 00 1A4UC 237 MVI WRTDFC+2,0 SET POR HEAD 0, SECTOR 0 oO g 0E16 OD 00 1A8C 105A 305 RTN2C2 CLC WRTIDPC+2(1), EXPSEC CHECK HEAD & SECTCR KO. AFTER
OD62 3c 00-105A 238 MVI EXPSEC,0 SET EXPECTED HEAD & SECTCR NO. 306 * WRITE YS COMPLETED, (EXPECT NO CHG.)
OD66 CO 87 18ED 2393 B SEEKCE TO SEEK THE CE TRACK OEIC F2 81 10 307 JE RTR2D PROCEED IF OK
240 Cc ¢ OEIF CO 87 O21A 308 B PRINT TO PRINT ERROR
OD6A 3C £7 1EBF 241 RTN2B MMVI WORK4+255,X'E7! SET WRITE FIELD 0£23 C6 0£23 309 Dc KL1"Cc6! FLAGS
OD6E OC FE 1EBE 1EBF 242 MVC WORK+254(255) , WORK +255 GE24 43 OE24 310 pc IL1*67° LENGTH
243 G € 0E25 OFCS OE26 311 Dc AL2(ERRO2D) SESSAGE ADDRESS
Op74 3C 00 1FBF 248 MVI READ+255,0 SET READ FIELD O£27 A044 OE28 312 DC XL2*a04u? MESSAGE IDENTIFICATION
OD78 OC FE 1FBE 1FBF 245 MVC READ#+254 (255), READ#255 TG ZEROS 0£29 CO 87 0222 313 B HALT TO DCP HALT
246 ta 5 OF2D AO0us OE2E 314 cc XL2*aQuu? RALT ID
OD7E 3C 12 1BD8 247 MVI SNSID,X'12° PUT MESSAGE ID IN PRINT 315
OD82 3C 00 TA4ND 248 MVI «=WRIDFC+3,0 SET TO WRITE ONE SECTOR OE2F C2 02 1DCO 346 RTN2D LA WORK, XR2 SET XR2 TO POINT TC WORK AREA
OD86 OC 00 1AKC 105A 249 MVC WRTDFC+2 (1) ,EXPSEC SET SECTOR NO IN CONTROL FIELD <- 0E33 BD E7 00 317 RTN2F CLI 0O(,XR2),X*E7* CHECK WORK AREA FOR NO CRANGE
250 0£36 F2 01 14 378 JHE &TN2E JOMP TC PRINT JF WRT. FLD. IS CHG.
Op8c C2 01 1DC0 251 LA WORK ,XR1 SET WRITE DATA ADDRESS 0£39 E2 02 01 319 LA 1(,XR2) ,XR2 NOT DONE, INCREMEKT XR2
Op90 34 01 1R6D 252 ST DFDP,XR1 IN DATA CONTROL FIELD C. -© O£3C 34 02 1A6D 320 ST SNSXR2,XR2 NO CHG, SET TO CHECK NEXT BYTE
253 OE4O OD 01 1A6D 1996 321 CLC SNSXR2(2) ,WORKI CHECK X82 FOR REACHED UPPER LINIT.
OpD94 CO 87 1A83 254 E STRTIO TO I/O SUBROUTINE OEG6 F2 81 14 322 JE RTN2G TO ROUTINE ERD.
0D98 02 op9s 255 DC XL1°02! FUNCTION CODE (WRITE) ee OE49 CO 87 0233 323 E RT H2F CHECK BEXT BYTE
0p99 6O 0D99 256 DC XL1*00* CONTROL CODE (DATA) 324
OD9OA TA4A OD9B 257 DC AL2 (WRTDFC) CONTROL FIELD ADDRESS OE4r cO 87 O21A 325 RTN2ZE B PRINT TO PRIKT DATA FIELD WAS CHARGED
ODSc CO 87 ODAS8 258 EB RTN2B1 GOOD RETURN SS O£51 C6 OES1 326 DC XL1'C6* FLAGS
ODAC CO 87 ODAY 259 B *+h O£52 39 OE52 327 Dc IL1* 57° LENGTH
ODA4 CO B87 OEFAY 260 B WRTER2 ERROR RETURN OE53 OFB2 OE54 328 pc AL2 (ERRO2C) BESSAGE ADDRESS
261 GS «¢ 0E55 AOKS 0£S6 329 DC XL2* A04S* MESSAGE IDENTIFICATION
ODAS 32 42 1BD8 262 RTN2B1 MVI SNSID,X*'42° PUT ID IN PRINT 0£57 CO 87 0222 330 B BALT TO DCP HALT
OPAC 3C 00 1A4D 263 NVI WRTDFC+3,0 SET TO READ ONE SECTOR OE5E aus OE5C 331 pc XL2*°a045* HALT ID
ODEO OC OO 1A4C 105A 264 MVC WRTDFC+2 (1), EXPSEC SET SECTOR NO IN CONTROL FIELD ¢c ¢ 332
265 OE5D C2 02 1ECO 333 RTN2G LA READ, XBR2 LOAD REALDFIELD ADDRESS
OpDB6 C2 01 ECO 266 LA READ,XR1 SET READ DATA ADDRESS O£F61 BD E? 60 334 RTK2H CLI O(,XR2),X*E7* CHECK EACH BYTE OF READ FIELD
ODBA 34 01 1B6D 267 ST DFDR,XR1 IN DATA CONTROL FIELD Sees Se OF64 F2 01 18 335 JNE R&TN2I JUMP TO PRINT IF ERROR
268 0E67 E2 02 01 336 LA 1(,XR2) ,XR2 STEP XR2 TO NEXT BYTE OF READFIELD
ODBE CO 87 1A83 269 B STRTIO TO READ DATA OE6A 38 02 1A6D 337 ST SNSXB2,XR2 STORE FOR COMPARE
Opc2 01 ODcC2 270 DC XL1°01! FUNCTION CODE (READ) Ue OE6E OD 01 1A6D 1D00 338 CLC SNSXR2 (2) ,READ1 CHECK FOR FINISHED
opc3 00 opc3 271 DC XL1"00? CONTROL CODE (DATA ) OE74 F2 81 18 339 JE RTN2K JUMP IF FINISHED
ODCS 1A4A opcS 272 pc AL2 (WRTDFC) CONTFOL FIELD ADDRESS OE77 CO 87 O0F61 340 B RTN2H BRANCH BACK IF NOT DONE
opc6 cO 87 ODF9 273 E RT N2B2 GOOD RETURN c¢ ¢ 341
OLCA CO 87 ODCE 274 B 244 OE7B CO 87 O21A 342 RTR2I_ B PRINT TO PRINT DATA COMPARE ERROR
275 OE7F C6 OETF 343 Dc XL1°C6* FLAGS
ODCF CO 87 1D01 276 RTN2C B SHIFT TO SHIFT BITS FOR DECIMAL NUMBER Co 8 OESO 4A OF80 384 DC IL1*7a" LENGTH
ODD2 1AGA ODD3 277 pc AL2 (WRTDFC) ADDRESS OF SOURCE OE21 1059 OF82 345 DC AL2(ERRO2P) MESSAGE ADDRESS
OpDa CO 87 1D52 278 B CVD TO CONVERT TO DECIMAL NUMBER OE83 ADK6 OE84 346 DC XL2*a04a6* MESSAGE ID
ODDB 1D46 ODD9 279 DC AL2 (CYLNO) ADDRESS OF SOURCE Cc “& OE85 CO 87 0222 347 E HALT TO DCP ERROR HALT
ODDA OF 1E ODDB 280 Dc AL2 (ERRO2A) ADDRESS GF DESTINATION O£89 A046 OE8A 348 cC XL2' A046" HALT ID
Orpc 3c 40 OFIC 281 MVI ERRO2a-2,C* ° SET A BLANK IN PRINT IMAGE 349
ODEO CO 87 179F 282 B SETERR TO SET ERROR FLAG FOR THIS SECT. eS OESE 3D SC TASC 350 RTN2K CLI WRTDFC+2,x*5C? TEST FOR LAST SECTOR OF TRACK 0
ODEY CO 87 1BB1 283 B PRTSNWS TO PRINT SENSE INFO. OE8F F2 01 28 351 INE BTN2S JUMP IF NOT DONE
ODER CO 87 O21A 284 B PRINT TO PRINT THIRD LINE 0£92 CO 87 17BD 352 B CK HED TO CHECK FOR ERRORS
ODEC 06 ODEC 285 DC XL1°068 PLAGS Cc 0£96 CO 87 ODUP 353 RIN2L B RTN2A
ODED 58 ODED 286 pc IL1¢88? LENGTH OE9A OF 00 105A 199A 354 RIN2M ALC EXPSEC(1) ,ONESEC INCREASE EXPECTED HEAD & SECTOR KO.
ODEE OP IE ODEF 287 pe AL2 (ERRO2A) MESSAGE ADDRESS OEAO CO 87 OD6A 355 B RTN2B REPEAT OB NEXT SECTOR
r ODFO CO 87 0222 288 B RALT TO DCP HALT Oo @ 356
ODF4 A04u2 ODF5 289 Dc XL2*a042" HALT ID OEAN 3C 12 1BD8 357 WRTER2 AVI SNSID,X°12° PUT ID IN PRINT
C Cc 6S
DATE 13MAR70O O6APR70 22MAY70 0 1A0G70 010CT70 PROG ID 0a08-3 DATE 13 MAR70 O6APR70 22MAY70 01A 0G 70 010CT70 PROG ID OA08-3
EC NO. 571512 571516 571513 571531 571580 PAGE 3 EC NO. 571512 571516 571513 571531 5715480 PAGE 3a
C Oo eo
c o 98
0: 8
IBM MAINTENANCE DIAGNOSTIC PROGRAH
A083
ERR LOC
OEA8
OEAC
OFB1
OEBS
OEBI
OFBA
OERPR
OEBD
OFC1
OEC3
OEC7
QECF
OED?
OEDF
OFE?
. OEEF
OEF?
OEFR
OFO3
OFOB
OF 13
OFIE
OF 1F
OF27
OF 2F
OF 37
OF 3F
OF&?
OF UA
OF52
‘ OFSA
OF 62
OF6A
e OF72
OFT7A
OF7E
£ OF83
OF 8R
OF93
e OFOB
OFA3
OFAB
OFB3
OFB?
OF BF
2 OFCE
OFCE
OFD6
OFDE
OFE6
OFFE
OFF 6
OFF?
OFFF
1007
100F
1010
1018
1020
1028
1030
1038
1032
oe
oy
oe
rn
fn
em
1OWA
1052
¢ 105A
DATE
EC NO.
c
PART KO. 5129634
PAGE 4
READ DATA
OBJECT CODE ADDR STMT SOURCE STATEMENT
35 01 1828 358 L TBLH, XR1
ic 00 100F 04 359 MVC ERRO2E(1),4{ ,XR1) MOVE HEAD NO. TO ERROR MSG.
se a 1BB1 360 B PRTSNS TO PRINT STATUS ERFORS
027A 361 B PRINT TO PRINT WRITE ERROR
06 OFB9 362 pc XL1*06" FLAGS
uA OEBA 363 DC ILi'74 LENGTH
10 0F OFBC 368 pc AL2 (ERRO2E) MESSAGE ADDRESS
CO 87 0222 365 z HALT TO DCP ERROR HALT
A012 OFC2 366 pc XL2*A012! HALT ID
Se eR: 367 B RTN2L
D7D9CSES OEFA 368 DC CL52! 7
Eee a8 52'THE PREVIOUS EPRORS WERE PRESENT AFTER DOING A READ
D6D9EZ4OE6C5D9C5 368
4OL7D9C5F2C5DSE3 368
YOCIC6E3IC5D940C4 368
[6 C9DSC740C140D9 368
C5CICU4O 368
C¥C1IE3C140C3D6D4 OF1E 369 ERRO2A ' : :
Bye catees a 2A DC CL36"DATA COMMAND USING NEAD X, SECTOR XX
P5C740C8C5C1C440 369
E76B 4 0E2C5C3E3D6 369
C9 4YOE7 E7 369
E2C5C3E3D6D940C3 OF49 370 ERRO ' T .
Peeteee ees 320 2B CC CL43'SECTOR COUNTER IN CONTROL FIELD NOT STEPPED
D5 40C 3D6DSE3D9D6 370
DI4OCECICSD3ICHHO 370
D5D6E340E2E3C5D7 370
D7CSC4 370
E6DICSEICS4OCHC9 OFTD 371 ’ I
eevee cere 7 DC CL52'*WRITE FIELD WAS ALTERED AFTER GIVING A READ DATA CO!
C1D3E 3C5D9C5C4u40 371
C1C6E3C5D940C7C9 371
E5 C9D5C740C140D9 371
CSCICUYOCHC1E3C1 371
BOC3D640 371
Direc Dees OF82 372 ERRO2ZC DC CLOS'*MMAND!
C44OSONOE2 OFB6 373 ' z
Eee Cro Oe OE? or DC CL52*HEAD & SECTOR BYTE OF CONTROL FIFLD CHANGED AFTER A
*E3CS4OD6CE40C3D6 373
D5SE3D9DED340CECE 373
C553C840C3C8C1D5 373
C7C5C440C1C6E3C5 373
D940C 140 373
D6D5CS40E2C5C3E3 OFCS 374 ERRO2D DC CL15"*ONE SECTOR READ!
D6 P98OD9CcSc1cK4 374
E3C8C540D7D9CSES OFF6 * 375 Dc 49s i
Behe 0b 0seore a CL49'THE PREVIOUS ERRORS OCCURRED WHILE DOING A WRITE '
D5D9E240D6C3C3 E48 375
DILICSCU’YOEBCBCY 375
D3C540C4 D6C9DSC7 375
YOCTUOEBDSCIE3CS 375
texas re
CIX0C3D6D4 100F 376 ERRO2ZE DC c.u25* ‘
eee CTaGe sp eps eae 25"*DATA COMMAND DSING HEAD 0
D5C74OC8C5C1C840 376
eC 4 ae
C&’4OC6C9C5 1039 377 DC ' :
Eoeoe ene ococses oe CL42"*READ FIELD DOES NOT CONTAIN EXPECTED DATA
*D5D6E380C3D6D5E3 377
CICODS4OCSE7DICS 377
C3 F3CSCUYOCHCIE3 377
c140 377
CIC6E3C5D940C7C9 1059 378 ERRO2F DC CL32'aF ,
prcencconenccice a TER GIVING A READ DATA COMMAND
C5CICU4OCACTE3C1 378
40C3D6D4D4ac1D5C4 378
00 105A 379 EXPSEC DC XL1°O8
13MAR70 O6APR70 22MAY70 01A0G70 010 -
571512 571516 571513 571531 Syisao. pice on ae
o» © @ © 6 6 86 ©
Oo
oy oO
ry
cy
S
oy
ee)
©)
co ©
cy
D
oOo Oo O
ao oOo aA 2 9 O02 0 @ &@ & @
Oo 0 Oo 9
g-)
oOo Oo ff
Ce
€) .) Q oO
‘?)
CO
©
IBN MAINTENANCE DIAGNOSTIC PROGRAMS
A083
ERR LOC
105B
105C
105D
105F
19063
1067
1063
106F
1073
1077
107A
107E
1082
1086
108A
108E
1094
1098
109E
T0A2
10A6
TOAC
10B0
TOBY
10B8
1089
iOBA
10BC
10CcO
Toca
10C8
1OoCcc
10D0
10D6
10DA
1ODE
TOE2
10E3
10E4
10E6
1OEA
10FE
10F2
10F4
10F8
1OFA
TOFC
1100
7104
1108
110C
110D
110E
1110
1114
DATE
EC NO.
REA
D DATA
OBJECT CODE
03
00
11E7
C2
34
3D
co
co
BC
AC
3c
3c
co
3c
0c
55
OP 1E
co 87
A047
184A
182E
OBOD
CAOD
OB62
182F
16 «17
TAaC
105A
Y8ED
1EBF
TEBE
IFEBF
IFBE
iBD8
TA4D
TASC
1DcO
1B6D
1A83
10C8
10C4
11c4
1BD8
TA4D
TASC
1ECO
1B6D
7483
1119
10EE
1D07
1D52
OFIC
179F
1BB1
O21A
0222
13MART7O
571512
TEBF
1FBF
105A
105A
ADDR
105B
105¢c
105E
10B8
10B9
10BB
10E2
1053
10E5
10F3
10F9
10FB
1710c
110D
110P
1715
O6APR70
571516
STNT
381
382
383
3848
385
386
387
388
389
390
391
392
393
394
395
396
397
3938
399
400
401
402
403
404
405
406
407
408
409
410
411
R12
413
814
815
416
417
418
419
420
421
822
823
428
425
426
427
428
429
430
431
&32
433
434
435
436
437
438
839
440
ayy
a4u2
4&3
UhY
Q4s
446
yay
848
SOURCE
*
*
RTNI
RTN3A
RTN3B
RTN3B1
RT N3C
22M AY70
571513
53129638
PAPT NO.
PAGE GA
STATEMENT
ROUTINE KO. 03, CHECK READ DATA ®
USING HEADS 1&6 3
pc XL1°03' ROUTINE NOMBER
Dc XL1°00° ROUTINE FLAGS
pc AL2(RTH4) ADDRESS OF NEXT ROUTINE PREFIX
LA HDTBL+1,XR2 SET POINTER
ST TBLH,XR2 FOR HEAD 1, RENOVABLE DISK
CLI SETSW,0 HAVE PARASETERS BFEN ENTERED?
BE SETDSK BRANCH IF xO
E TSTSPN
LA SECTBL,XR2 SET ERROR TAELE PCINTER
MVI 23(,X322),0 ZERG SECTOR
MVC 22 (23,XR2) »23{ eXR2) ERRCR FLAGS
SVI WRIDFC+2 ,X* 80? SET FOR HEAD 1, SECTOR 0
NVI EXPSEC,X'80* SET EXPECTED HEAD 6 SECTOR FO.
B SEEKCE TO SEEK THE CE TRACK
MVI WORK+255,X*E7? SET DATA FIELD
nYvC WORK +254 (255) ,WORK #255
BVI READ+255,0 SET READ PIELD
AVC READ+254& (255), READ#255 TO ZEROS
NVI SNSID,X* 16? PUT ID IK PRINT
BVI WRTDPC+3,0 SET TO WRITE CNE SECTCR
MVC WRITDFC+2(1),EXPSEC SET SECTCR NO IN COXTROL FIELD
LA WCRK,XR1 SET WRITE DATA ALDRESS
ST DFPDR,XR1 IK DATA CONTROL FIELD
B STRETIO TO WRITE DATA
pc XL1*02* FUNCTION CODE (WRITE)
pc XL1*00* CONTROL CODE (DATA)
DC AL2 (WRTDFC) CCNTROL FIELD ADDRESS
B RTN3B1 GOOD RETURN
B *+4
B WRIER3 ERROR RETURN
HVI SNSID,X'U7? PUT ID IN PRINT
BVI WRTDFC+3,0 SET TO READ OKE SECTOR
MYC WRTDPC+2(1),EXPSEC SET SECTOR NO IN CONTROL FIELD
LA READ, XR1 SET READ CATA ADDRESS
st DFDR,XR1 IW DATA CONTROL FIELD
B STRTIO TO READ
pc X¥L1°01° FUNCTION CODE (READ)
pc XL1'00* CONTROL CCDE (DATA}
pe AL2 (WRTDFC) CONTROL PIELD
E RT N3 B2 GCOD RETURNS
B +8
B SHIFT TO SHIPT BITS FOR DECIMAL RUMBER
pc AL2 (WRTDFC) ADDRESS OF SOURCE
BE cvp TO CONVERT NUMBER TO DECIMAL
pc AL2 (CYLNO) ADDRESS OF SOURCE®
pc AL2 (ERRO2 A} ADDRESS OF DESTINATION
BVI ERRO2A-2,C* * SET A BLANK IN PRINT IMAGE
B SETERR TO SPT ERROR FLAG FOR THIS SECT.
B PRTSNS TO PRINT SENSE INFO.
B PRINT TO PRINT THIRD LINE
pc XL1°06° FLAGS
pC TL7°85* LENGTH
pc AL2(ERRO2A} MESSAGE ADDRESS
B HALT TO DCP HALT
pc XL2* A087? HALT ID
01AUG70. 010CT7O . PROG ID 0A08-3
571531 5715480 PAGE GA
» =
x
ry
7y
Fan) rs
7%
ns
vy
oy
nn
a
ey
es
ey
IBS MAINTENANCE DIAGNOSTIC PROGRAS
a0 83
ERR LOC
1116
1119
111d
T11F
1123
4126
112K
1128
4712C
112E
1130
1134
1136
113¢
413F
1143
T1448
4145
V147
1149
174d
T14F
3153
17156
1159
415¢
1160
T1I6€E
1169
116d
41771
1172
1173
4175
1177
1178
117D
1181
1184
1187
T1BA
VIBE
7194
4197
1198
T19F
17A0
ViA1
F1A3
TIAS
11A9
TTAB
TIAF
11B2
11B6
T1IBA
41c0
Tica
DATE
EC NO.
REA To.
OBJECT CODE
F2 87 92
co
87
1FCcO
3D FP
F2
co
c6
2B
81
87
OF 4Y
A043
co
87
A043
QD
F2
co
SA
00
81
87
87
1059
A046
co
87
A046
3D
F2
co
co
OE
co
3c
be
01
87
87
co
87
16
1898
1A4D
10
O21A
0222
FANC
16
O21A
0222
1DCcOo
00
Vu
TA6D
TA6D
7153
O21A
0222
1ECO
14
01
1A6D
TA6D
1181
O27A
0222
TAUC
08
17BD
106F
105A
108A
1BD8
T3NARTO
571512
DATA
105A
1996
1D00
199A
ADDR
VIVE
172A
1128
112D
112F
1135
1143
+1u4
1146
1148
TIE
1171
1172
1174
1176
V17C
119F
41A0
11A2
T1A4
TIAA
OG6APR70
571516
STMT
449
850
451
454
508
509
519
57
512
513
S14
515
5 16
SOURCE
RTN3IB2
RTN3C1
RT N3C2
x
RTN3D
RTN3F
RTN3E
RTN3G
RT N3H
RTNSJ
RIN3SK
RTN3L
RTN3E
WRTERZ
22M AY70
571513
STATEMENT
J RT N3K
B TSTDAT
pc AL2 (READ+*256)
CLI WRIDFC+3,X'FF!
JE RT N3C2
B PRINT
Dc XL1°C6
*DC IL1*43"
PC AL2 { ERRO2B)
DC XL2*A043?
E HALT
DC XL2" A043"
CLC WRTDFC+2(1),EXPSEC
JE RT N3D
B PRINT
DC XL 14° C6t
DC IL1°67°
DC AL2(ERRO2D)
Dc XL2*a0 Gy"
B HALT
DC XL2"a0u4?
LA WORK, XR2
CLI O0(,XR2),X*E7"
INE RIN3E
LA 1(,XK2) ,XR2
ST SNSXR2,XR2
CLC SNSXR2(2) ,WORK1
JE RIN3G
B RTN3F
B PRINT
DC XL1°C6!
DC IL1*57
*DC AL2(ERRO2C)
DC XL2* 0045
B HALT
pC XL2' A0uS!#
LA READ, XR2
CLI O(,XR2),X"ET7®
*SNE = -RTN3G
LA 1(,XR2),XR2
ST SNSXR2,XR2
CLC SNSXR2(2),READ1
JE RT N3K
B RTN3H
B CRINT
Dc XL1"C6!
pc IL1'7u¢
pc AL2(ERRO2F)
DC XL2*A046
*B RALT
pe XL2* AO46
*CLI WRTDFC+2,x'pc!
JNE RTN3S
B CK HED
B RTN3A
ALC EXPSEC(1),ONESEC
B RIN3B
NVI SNSID,X*16!
01A0G70 010C1T70
571531 571540
oo 2
PART NO.
5129638
PAGE . 5
TO TEST DATA ADDRESS
TEST SECTOR COUYTER FOR STEPPING
PROCEED IF OK
TO PRINT SECTOR COUNTER NOT STEPPED
FLAGS
LENGTH
MESSAGE ADDRESS
MESSAGE IDENTIFICATION
TG DCP HALT
HALT ID
CHECK HEAD & SECTOR HO.
WRITE IS COMPLETED,
PROCEED IF CK
TO PRINT ERFOR
PLAGS
LENGTH
MESSAGE ADDEESS
MESSAGE IDENTIFICATION
TO DCP HALT
HALT XD
AFTER
{ EXPECT NO CHG.)
SET XR2 TO POINT TO WORK AREA
CHECK WORK AKEA FOR NO CHANGE
JUNP TO PRINT IF WRT. FLD. IS CHG.
NOT DONE INCREMENT XR2
NO CHG, SET TO CHECK NEXT BYTE
CHECK XR2 FOR REACHED UPPER LIMIT
TO ROUTINE END
CHECK NEXT HITE
TO PRINT DATA FIELD WAS CHANGED
FLAGS
LENG TH
MESSAGE ADDRESS
MESSAGE IDENTIFICATION
TO DCP HALT
HALT ID
LOAD ADDRESS OF READIN AREA IN XR2
CHECK EACH 3YTE OF READ PIELD
JUMP TO PRINT IF ERROR
STEP XR2 TO NEXT BYTE OF READ FIELD
STORE FOR COBPARE
CHECK FOR FINISHED
JUMP IF FINISHED
BRANCH BACK IF NOT DONE
TO PRINT DATA COMPARE ERROR
FLaGs
LENGTH
MESSAGE ADDRESS
MESSAGE ID
TO DCP ERROR HALT
HALT ID
TEST FOR LAST SECTOR OF TRACK 1
JUMP IF NOT DONE
TO CHECK FOR ERRORS
INCREASE EXPECTED HEAD & SECTOR NO.
REPEAT ON NEXT SECTCR
PUT ID IN PRINT
PROG ID OA08-3
PAGE 5
wy
oOo oOo 08 08 8 08 © © G6 6 6 696 0 5 & &© 6&6 8 OO BO
Oo oO
Oo
eo 8 0 9 9 9 9
o oO ° Oo 0 090 909 © 0 0 9 808 8S 09 8 @ 08 6 8 8 © 8 89 08 9 8 GO 8 08 @
IBS MAINTENANCE DIAGNOSTIC PROGRAS
A083
ERR LOC
11C8
11cC
11D1
11D5
11D93
TIDA
11DB
VIDE
V1E1
11E3
DATE
EC NO.
READ D
OBJECT CODE
35 01
1c 00
co 87
18 2E
100F
IBB1
O21A
0222
11B6
13MAR70
571512
ATA
04
O6APR7
571516
ADDR
11D9
11DA
Vibe
V1E2
0
STEHT SOURCE
517
518
519
520
521
522
523
524
525
526
527
22MAY70
571513
STATEMERT
L TBLH,XR1
BVC = ERRO2E(1) ,4(,XR1)
B PRTSNS
B PRINT
pe XL7"06!
DC IL1*748
DC AL2(ERRO2E)
B HALT
DC XL2"A016!
B RTN3L
@
0 1A0G70 010CT70
571531 5715480
PART HO. 51296348
PAGE SA
MOVE HEAD NO. TO ERROR MSG.
TO PRINT STATUS ERRORS
TO PRINT WRITE ERROR
FLAGS
LENGTH
MESSAGE ADDRESS
TO DCP ERROR HALT
BALT ID
|
|
=
FROG ID Oa08-3
PAGE 5A
IBS MAINTENANCE DIAGNOSTIC PROGRAMS
A083
ERR LOC
T7127
TIES
T1E9
V1EB
VIEF
V1F3
VIF?
TIPE
T1FF
1203
1207
1208
4211
1217
1218
121F
1223
1227
122E
122C
122E
122F
1233
1237
1238
123F
1243
1207
1248
1251
1257
125B
125¢
12507
125F
1263
1267
1268
126F
1274
1278
1279
127A
127C
1280
1282
1286
1288
128C
128F
1293
1294
1295
DATE
-EC wo.
~
r
R EA D
CBJECT CODE
1848
182E
OBOD
OAOD
OB62
TAUC
IBED
IFBF
IPBE
TEBF
1BD8
JA4SD
ice
1B6D
1A83
123B
1237
OEAY
1BD8
TA4SD
TANC
IF SF
1FBE
TE BF
1A83
1282
1267
1BB1
182E
1339
O2TA
0222
1A4&D
F2 81 10
O21A
13MAR70
571542
1PBF
1ECO
1FBF
1ECO
o4
1898
DAT A
ADDR
V1E7
11E8
11EA
1228
122C
J22E
1258
125¢
125E
1278
1279
1278
1281
1287
1293
1298
1296
O6APR70
571516
STMT
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
54&
545
S4E
547
548
549
550
551
552
553
5548
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
57¢6
571
572
573
5748
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
SOURCE STATEMENT
*
x
*
RING
RTNGA
RTLAIB
RTNUBI
RT NLC
RIN&B2
RTN&CI
22MAY70
§71513
ROUTINE NO. 0&8, CHECK
USING
HEALS
DC XL1° 048
DC XL1*00!
pc AL2 (RTN5)
LA HDTBL-1,XR2
ST TBLH,XR2
CLI SETS#,0
BE SETDSK
B TSTSPN
MVI WRTDFC+2,0
B SEEKCE
BVI WORK+511,X'10!
MVC WORK+#510 (255) , WORK 4511
MVC WORK+255 (256), WORK +256
uVI SNSID,X*12!
MVI WRIDFC+3,01
LA WORK ,XR1
ST DFDR,XR1
B STRTIO
DC XL1*02!
DC XL1'00!
DC AL2 (WRTDFC)
B RT NG BI
B *4+4
B WRTER2
MVI SNSID,x'u2!
BVI -WRIDFC+3,01
MVI WRTDFC+2,0
MVI WORK4+511,0
MVC WORK4510 (255) , WORK 4571
MVC =WORK* 255(256) , WORK+256
B STRTIO
pe XL1°O1!
pc XL1*00!
DC AL2(WRTDFC)
B RT NU B2
B *+4
B PRTSNS
L TBLH ,XR1
MVC ERROSA-13(1),4(,XR1)
B PINT
Dc XL1' 06!
pc IL1'89"
DC AL2 (ERROUA)
B HALT
pc XL2"A042"
B TSTDAT
DC AL2 (WORK+512)
CLI WRTIDFC+3,X*FF
JE RTN4C2
B PRINT
DC XL1'c6?
Dc IL1* 43!
pc AL2(ERRO2B)
O01A0G70 010CT70
571531 .571540
PART NO. 5129634
PAGE 6
READ DATA
*MULTIPLE SECTORS
*0 6 2
ROUTINE NUMBER
ROUTINE PLAGS
ADDRESS CF NEXT ROUTINE PREFIX
LOAD HEAD NO.
STORE
HAVE PARAMETERS BEEN ENTERED?
BRANCH IF NO
POINTER
SET FOR HEAD 0, SECTOR 0
TO SEEK THE CE TRACK
SET
2 SECTOR
WOR KAREA
PUT ID IN PRINT
SET TO WRITE 2 SECTORS
SET WRITE DATA APDRESS
IN DATA CONTROL FIELD
TO WRITE DATA, (2 SECTORS)
FUNCTION CODE (WRITE)
CONTROL CODE (DATA)
CONTROL FIELD ADDRESS
GOOD RETURN
ERROR RETURN
PUT ID IN PRINT
SET TO READ TWO SECTORS
SET TO START AT SECTOR 0
SET READ
TO
ALL ZEROS
AREA
TO READ DATA
FUNCTION CODE (READ)
CONTROL CODE (DATA)
CONTROL FIELD ALDRESS
GOOD RETURN
TO PRINT SENSE INFO
LOAD HEAD NO. FOINTER
PUT HEAD NO. IN ERROR MSG.
TO PRINT 3RD LINE
FLAGS
LENGTH
MESSAGE ADDRESS
TO DCP HALT
HALT ID
TO TEST DATA ADDRESS
EXPECTED ADDRESS
TEST SECTOR COUNTER FOR STSPIING
PROCEED IF OK
TO PRINT SECTOR COUNTER NOT STEPPED
FLAGS
LENGTH
MESSAGE ADDRESS
PROG ID 0A08-3
PAGE 6
Oo oOo 8 4
o
Qo oOo
oy
C)
ey
(> cs
O
o Oo Oo 9 94
- oOo O88 08 Oo 8 8 8 ®@
o 8 © O80 86 4
Qa
oY on
m
€)
oO ©
2)
o
>
Oo
a)
5
c
IBS MAINTENANCE DIAGNOSTIC PROGRAS PART ¥O. 5129638
PAGE 6A
a083 READ DATA
ERa LOC OBJECT CODE ADDR STAT SOURCE STATEMENT
1297 A083 1298 597 pc XL2*a043* SESSAGE IDENTIFICATION
1299 CO 87 0222 598 B HALT TO DCP HALT
129D A0u3 129E 599 pc XL2*A043! HALT ID
600
129F 3p 08 1A4C 601 RTNUC2 CLI WRTDPC+2,08 CHECK HEAD & SECTCR WO. AFTER
602 * WRITE IS COMPLETED, { (SROULD STEP)
1283 F2 ®t 10 603 JE RTNUD JUMP IFSTEPPELD CORRECTLY
12A6 CO 87 0212 604 B PRINT
12AA C6 12AR 605 pc XL1°C6! PLAGS
12AB 54 12AB 606 pc IL1*84? LENGTH
12AC 139A 12AD 607 pc AL2(ZRROGB) SESSAGE ADDRESS
12AE A0u8 12AP 608 pc XL2* AOUSt SESSAGE IDENTIFICATION
12B0 CO 87 0222 609 B HALT TO DCP HALT
12B4 aA0Us 12B5 610 pc XL2*a048! HALT ID
611
12B6 C2 02 DCO 612 RTN4D LA WORK, XR2 S2T XR2 TO PCINT TC WOPKAREA
12BR BD 10 O00 613 RTRKAF CLI QO(,XR2) ,X* 108 CHECK EACH BYTE OF READ FIELD
12BD F2 01 18 614 JNE BTRGE JOSP TO FRT. IF RD. DATA KG.
42C0 E2 02 01 615 LA 1(,XR2) ,XR2 SET TO CHECK NEXT BYTE
42C3 34 02 1A6D 6 16 ST SNSXR2,XR2 STORE FOR COMPARE
12C7 OD 01 TA6D 1996 617 CLC SNSXR2 (2) , RORKY CHECK XR2 FOR UPPER LINIT
12CD F2 81 14 618 JE RTKAG TO ROUTIKE END IF DONE
12D0 CO 87 I2BA 619 B RTNUF CHECK NEXT BYTE
620 £8
12D4 CO 87 021A 621 RTNSE B PRINT TO PRINT READ FIFLD IS INCORRECT
12D8& C6 12D8 622 rc XL1'*C6* PLAGS
12D9 GA 12DS 623 DC ILi"7u# LENGTH
12DA 1059 12DB 6248 rc AL2(ERRO2F) MESSAGE ADDRESS
12DC AO&E 12DD 625 pc XL2°a0u6s MESSAGE IDENTIFICATION
12DE CO 87 0222 626 B BALT TC DCP RALT
12F2 A046 12E3 627 pc XL2* A046" HALT ID
628
T2E4 CE 01 182E 1853 629 RTNUG ALC TBLA (2) ,ONE STEP HEAD EO. POIRTER
12EA CO 87 11FB 630 B RTINGA ROUTINE EXIT
12EE E3C8CS80D7DSCSES 1321 631 pc CL52°*THE PREVIOUS ERRORS WERE PRESENT AFTER DOING A READ
*12F6 CSL6EVE240C5D9D9 631
12FE D6EDSEZYOE6CSDICS 631
1306 4OD7DICSE2ZCSDSE3 631
130E S0C1C6E3C5D94 0C4 631
1316 T6C9D5SC74OC14OD9 631
131E C5CICH4O 631
1322 CUCTE3CI4O0C3D6D4 1346 632 ERROSA DC CL37"DATA COMMAND USING HD. XxX, SECT. 0 & 1°
1324 DACIDSCR4OEYEZCI 632
1332 [SC74 OC8CUSB4OET 632
133A 6BYHYOE2CSC3IE34BH0 632
1342 FOSO5O40F1 632
1347 CB8CSCICU4YOSOUOE2 137A 633 pc CL52°HEAD & SECTOR BYTE OF CONTROL FIELD NOT STEPPED CORR®
134F CSC3E3D6D940C2E8 633
1357 E3C540D6C640C3D6 633
135F D5E3D9D6ED 340C6C9 633
1367 C5D3CS4ODSD6E340 633
136F E2E3CSD7D7C5C4H4D 633
1377 C3D6DSD9 633
137B CSC3E3D3E840C1C6 139A 634 ERROSB DC CL32*ECTLY AFTER A 2 SECTOR READ DATA
*1383 E3C5D940C140F240 634
138B E2C5C3IE3DED94U0D9 638
1393 C5C1ICU4OCUC1E3C1 634
DATE 13MAR70 O6APR70 22MAY70 01AU0G70 010CT70 PROG ID 0aA08-3
EC NOj. 571512 571516 571513 571531 571540 PAGE 6a
& @ . S a a
st8 coe owt. bs oe . fe ae aoe on a e
G ¢G ; . ‘2 a
| Gc 8
IBS SAINTENANCE DIAGNOSTIC PROGRAB PART RO. 5129638 | IBS SAINTENANCE DIAGNOSTIC PROGRAS PART BO. 5129638
. PAGE 7 ° | Qe : . PAGE 7a
A083 READ DATA eae REAB DATA
“f
ERR LOC OBJECT CODE ADDR STHET SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STHT SOURCE STATERERT
636 * ROUTINE NO. 05, CHECK READ DATA FUNCTION * 6G 14857 1FCO 1458 7048 pc AL2(WORK+5$12) EXPECTED ADDRESS
637 * USING FEAD SWITCHING * 7 705
638 * , BEGIN WITH HEAD 0, SECTOR 23, * ‘ 1859 3D FF 1A&8D 706 RTNSC1 CLI BWRIDPC+3, 32°F Ft TEST SECTOR COUNTER FOR STEPPING
639 * END WITH HEAD 1, SECTOR 0 * 9! CS W4SD F2 81 10 707 Jz RTNSC2 PROCEED IF OK
1398 05 139B 680 RTKS ~ 0DC XL1°05* ROUTINE NUMBER 1460 CO 87 O21A 708 B PRINT TO PRINT SECTOR COUNTER NOT STEPPED
1397 00 139C 641 pe XL1*00! ROUTINE FLAGS 1464 C6 1468 709 pc XL1°C6" FLAGS
139D 1578 139E 642 DC AL2 (BT NE) ADDRESS OF NEXT ROUTINE PREPIX a: ¢ W465 2B 1465 710 pc IL 1* 43° LENGTH
643 1466 OFU9 1467 «(711 pc AL2 (ERRO2B) MESSAGE ADDRZSS
139F CZ 02 71849 648 LA HDTBL,XB2 1868 A043 1469 712 DC XL2* a0 43! MESSAGE IDENTIPICATION
13243 34 02 1828 645. ST TBLH ,XP2 c.°6hU°S 146A .CO 87 0222 713 B HALT TO DCP HALT
43A7 3D 0O OBOD 646: CLI SETSR,O HAVE PARAMETERS BEEN ENTERED? INGE A083 186P 718 DC XL2* A083! HALT ID
13a2 CO 871 OAOD 647 BE SETDSK BRANCH IF NO 715
1V3AF CO 87 0B62 648 RTKSA 8 TSTSPN G °o 1870 3D 80 124C 716 RTNSC2 CLI WRIDFC+2,x'80* TEST ENDING HEAD 6 SECTOR ADDRESS
13B3 3c SC 1AuC 649: BVI WRTDFC+2,x°SC* SET FOR HEAD 0, SECTOR 23 1474 F2 81 10 717 JE RTN5SD PROCEED IF OK
13B7 CO 87 18ED 650 — B SEEKCE TO SEEK THE CE TRACK 14877 CO 87 027A 718 B PRINT TC PRINT HEAD & SECTOR ADDRESS
13EB 3C E? IFBF 651 RTNSB SVI WORK4511,X*E7® SET Cc S$ : 719 * NOT STEPPED CORRECYLY
13BF OC FP IPBE 1FBP 652 MVC WORK#+510 (256), WORK4511 DATA 147B C6 147B 720 DC XL1"C6° FLAGS
43c5 0C PE 1EBE 1EBF 653: MVC WORK4254(255),WORK*255 FIELD 1a7c SP 1u7c Oo 72T Dc IL1* 95* LENGTH
13CE 3C 18 1BDS8 654: MVI SNSID,x*18* PUT ID IN PRINT Gc ¢ 17D 1577 TETE 722 pc AL2(ERROSB) MESSAGE ADDRESS
13CF 3c OF 1A48D 655: NVI - WRTDFC+3,1 SET TO WRITE TWO SECTORS V47F AGUg 1480 723 DC XL2*A0uS* MESSAGE IDENTIFICATION
13D3 c2 01 DCO 656 LA WORK ,XR1 SET WRITE DATA ADDRESS 1481 CO 87 0222 7248 B HALT TO DCP HALT.
13D7 34 01 1B6D 657 ST DFDR,XR1 IN DATA CONTROL FIELD Cc 1585 A0&9 1486 725 pc XL2*A0N9* RALT ID
13DE cO 87 1A83 658 B STRT1O TO 1/0 SUBROUTINE 726
13DP 02 13DF 659 DC XL7"02¢ PUNCTION CODE (WRITE) 1487 C2 02 1DCO 727 RTNSD LA WORK, XR2 SET XR2 TO POINT TO WORK AREA
13E0 00 13E0 660 pe XL7'00° CONTI ROL CODE (DATA) Saee ® 148P BD E7 00 728 RTNSF CLI O(,XR2),X*E7° CHECK EACH BYTE OF READ FIELD
1351 1A 0A 13E2 661 DC AL2(WRTDFC) CONTROL FIELD ADDRESS TUBE F2 01 14 729 JNE RINSE JUSP TO PRINT IF RD. DATA NG.
13£3 CO 87 13EF 662 B RTN5SB1 GCOD RETURN 1491 E2 02 01 730 LA 1(,XR2),¥P2 NOT DONE, INCEEMENT XF2
1327 CO 87 13EB 663 B *+h to 2 1494 34 02 1A6D 731 ST SNSXR2,XRZ SET TO CHECK REXT BYTE
13EB CO 87 OEAS 664 B WRTER2 ERROR RETURN 1498 GD 01 1A6D 1996 732 cL SFSXR2 (2) ,WORK% CHECK ¥R2 FOR UPPER LIMIT
#& 13EF 3C 09 13D8 665 RTNSB1 MVI = SNSID,X'09" PUT ID IN PRINT T49E F2 81 14 733 JE RT XSG I¥ DONE, GO TO ROUTINE END
1383 3¢ 5€ 1aAac 666 BVI «-WRTDFC42,X'"SC! SET TO START AT TRACK O SECTOR 23 CC 6¢ T4A1 CO 87 1488 738 B RTNSF NOT DONE, CHECK NEXT BYTE
13F7 CO 87 1A83 667 B STRT1O TO SEEK 735
13FB 00 13FB 668 pe XL1°0O° FUNCTION CODE (CONTROL) 18A5 CO 87 021A 736 RTNSE B PRIWT TO PRINT DATA FIELD WAS CHANGED
13Fc CO 13FC 669 pc XL1°O? CONTROL CODE (SEER) & € 14AS C6 14A9 737 DC XL1°C6* FLAGS
13FD TAB °3FE 670 DC AL2 (WPTDFC) CONTROL FIELD ADDRESS THAR GA 1GAR 738 DC IL1"*7a" LENGTH
13FF CO 8&7 1819 671 RB RTNSB2 GOOD RETURN 14AB 1659 14acC 739 DC AL2(ERRQ2F} MESSAGE ADDRESS
1803 CO 87 1407 672 B *+4 oO ea 14AD AOUG 14AE 740 DC XL2" A046" MESSAGE IDENTIFICATION
1407 CO 87 1BB1 673 B PRTSNS TO DECODE ERROR 14AF CO 87 0222 744 B HALT TO DCP HALT
140B CO 87 021A 674 B PRINT TO PRINT 14B3 A0U6 1HBR 742 DC XL2* A06* HALT ID
THOF 06 140F 675 pc XL1°06° PLAGS oa Ca 793
1410 34 1410 676 Dc IL1#52! LENGTH 14B5 OF O71 182E 1A53 744 RTNSG ALC TBLH{ (2),ONE
1417 ocBC 1412 677 DC AL2 (ERROR) MESSAGE ADDRESS 14BB CO 87 13AF 785 B RTNSA
1413 CO 8&7 0222 678 B HALT TO DCP HALT oO 746 ‘
1817 2009 1818 679 Dc XL2*a009" HALT XD 18BF E3ICBCSSOD7TDOCSES 14P2 747 DC CL52*THE PREVIOUS ERRORS WERE FRESENT AFTER DOING A READ ¢
680 14C7 CIDEESE2NOCSD9ODE 747
1419 3C SA 1BD8 681 RTRSB2 MVI SNSID, X'UA? PUT ID IN PRINT Cc Cc TCP L6DIEZUOEECSDICS 747
141D 3¢ OV 1A4D 682 BVI WRTDFC+ 3, 1 SET TO READ 2 SECTORS 14D7 YOD7TDICSE2ZCSDSE3 747
683 INDE 4OCICBE3CS5DO4OCA 747
1421 3c 00 1FBF 684 MVI WORK4+511,0 SET READ AREA oO Ca TET DECIDSC7TLOCI4“ODS 747
1425 0C FE IFBE 1FBF 685 MVC WORK4510 (255), WORK*+511 TO TQEF C5C1C440 747 . Soot
1428 OC FP 1EBF 1ECO 6 36 MVC WORK+255(256),WORK+#256 ALI. ZEROS 14P3 C4CTE3CIGOD6CF4O 1518 748 ERROSA DC CL38*DATA OF 2 SECTORS USING HEAD SWITCHING?
687 ff. <S IWFRB F2NOE2C5SC3E3IL6D9 748
1431 CO 87 1A83 688 B STRTI) TO READ 2 SECTORS 1503 E280E4E2C 9D C740 748
1435 01 1835 689 Dc XL1"01" FUNCTION CODE (READ) 1SOE C8CSCICUMOEZEECS 748
1436 CO 1436 690 pc XL1"'00° CONTROL CODE (DATA) — fa 1513 E3C3C8C9DSC7 748
1437 JA4A 1438 691 Dc AL2 (WRTDFC) CONTROL FIELD ADDRESS 1519 C8C5SCICKYOSONCE2 154C 749 DC CL52*HEED & SECTOR BYTE OF CONTROL FIFLD NOT STEPPED CORR
*1439 CO 87 1853 692 B RTNS E3 GOOD RETURN 1521 CSC3E3D6D ONO IEE 749
1432 CO 87 1441 693 B *+U Cte 1529 E3CE4OL6CE4OC3DE 749
694 1531 DSE3D9DED 340C6C9 749
14617 CC 87 1RB1 695 RTNSC B PRTSNS TO FRINT SENSE INFO. 1539 CED3CHUODSDFEE3RO 749
1445 CO 87 O21A 696 B PRINT TO PRINT 3RD LINE Ce. “GQ 154% E2ZE3ICSD7DICSCKUO 749
1449 06 1449 697 Dc XL1° 06? FLAGS 1549 C3DELIDYI 749
TQNA SA 14UA 698 DC IL1°90! LENGTH 1SUD CSC3F3IDIJESYOL Ice 1577 750 ERROSB DC CL&93*ECTLY AFTER a READ DATA USING HD. SWITCHING®
1448 1518 144Cc 699 PC AL2(ERROSA) MESSAGE ADDRESS Cc 3 T55© FICSNSVOCILODIACE 750
144D CO 87 0222 700 B HALT TO DCP HALT ISSD CICUYOCUCIE3CINO 750
1451 ROUR 1452 701 pe XLZ'aACSAt HALT 1D 1565 EX EZ2CSDSC74OCELY 750
702 CG Go 156D 4EROE2 F6CSE3C3ICB 750
1853 CO 87 12898 703 RINSB3 B TSTDAT TO TEST DATA ADDRESS ’ 1575 CSDSC? 750
C |
DATE TZERRTO CEaTETG 22MAxX70 0 1A0G70 010CT70 FROG ID OR0E-3 DATE 12KRETC OGATE7O 22MAY70 0120670 C1OCTTC PROG ID OA08-3
EC KO. 571612 5771516 571513 571531 5715480 PAGE 7 EC KC. 571812 S71516 571513 571531 STISEO PAGE 7R
G 2 6S
Saag nen
Sie :
- IBS MAINTERARCE DIAGNOSTIC PROGRAS _ PART WO. 5129638 33. IBM BAINTENANCE DIAGNOSTIC PROGRAN ; PART NO. 5129638
ee tg ae | . ges PAGE 8 a) | hi , PAGE 8a
/ aQ83 READ DATA ¢ ge READ Dawrta
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE | ADDR STST SOURCE STATESENT
752 ¢ ROUTINE NO. 06, CHECK FUNCTION OF END OF CYLINDER * € Q 160EF CO 87 0222 820 B -BALT TO DCP HALT
535 SEWSE BIT, (BYTE 1, BIT 2) * { 1612 AOWE 1613 821 DC XL2°aQuE? HALT IDERTIFICATION
754 © USING THE READ DATA COMMAND * a 822
755 ; < eis 1614 CO 87 1893 823 RTW6D B TSTDAT TO TEST CATA ADDRESS
756 © ROUTINE PREFACE 1618 1£C0 | 1619 828 Dc AL 2 (WORK+256) EXPECTED ADDRESS
757 . 825 ba
1578 06 1578 758 RTN6 DC XL1* 06" ROUTINE KSUNBER @ 1a 161A 3D 00 1auD 826 CLI wWRTDPC+3,00 TEST SECTOR COUNTER FOR STEPPING
cs 1579 CO 1579 759 PC XL1°00". ROUTINE FLAGS 161E F2 81 10 827 JE RTNGE JUNP IF CORRECT
+ IS7A FFFF 157B 760 pc XL2‘FFFF® LAST ROUTINE FLAG 1621 CO 87 021A 828 B PRINT TO PRINT SECTOR COUNTER 20
x ? 761 Cie 829 * STEPPED CORRECTLY |
157C C2 C2 1849 762 1A HDTBL, XR2 1625 C6 1625 830 pc XL1' C6" FLAGS
15A0 34 02 182E 763 ST TBLH,XR2 1626 58 1626 831 pc IL1°88* LENGTH : ; ‘
1584 3D CO OBOD 7648 CLI SETSW,O HAVE PARAMETERS BEEN ENTERED? CO1@e 1627 1789 1628 832 3c &L2 (ERRO6C) BESS AGE ADDRES ; ne ge
1588 CO 81 OAOD 765 BE SETDSK BRANCH IF NO. 1629 A04&3 162A 833 DC XL2* a0g3° MESSAGE IDENTIFICATION Fas aoa
766 838 So Eels seg EES
158C CO 87 OB62~ 767 RTNGA B TSTSPN . Cle 162B CO 87 0222 835 B HALT TO DCP HALT a
4590 3¢ DC AGC 168 AVI «-WRIDFC+2,x*DC* SET FOR BEAD 1, SECTOR 23 162F A0u3 1630 836 DC XL2* A083 * HALT ID ;
1594 €O 87 18ED 769 2 SEEKCE TO SEEK THE CE TRACK 837
770 Clg 1631 3D DC 1A4C 838 RINSE CLI WRIDFC+2,X'DC* CHECK HEAD & SECTCR NO. APTER
1598 3C EV IFBF 771 RTN6OB BVI WORK4511,X*°E7* SET 839 * WRITE IS COMPLETED, (SHOULD ROT STP}
159C OC FE 1PBE 1FBF 772 MVC) WORK¢510 (255) ,WORK#511 2 SECTOR 1635 F2 81 10 B40 JE RTNEF JUNP IF NO CHANGE
15A2 OC FP 1EBF 1£ECO 773 MVC © WORK+4+255 (256), WORK #256 WRITE FIELD Cie 1638 CO 87 O21A 841 B PRINT _ TO PRIWT ERROR sag ie
7748 . 163C C6 163C 842 pc XL1°C6¢ FLAGS oe :
15A8 3C 00 1A4D 775 “SVI ~WRTDPC+3,00 SET TO WRITE 1 SECTOR 163D 55 163D 843 Dc IL1°85* LENGTH
776 Cie. 163E 179E 163F 844 pc AL2 (ERRO6D) BESSAGE ADDRESS
ISAC C2 01 1DCO 777 LA WORK ,¥R1 SET WRITE DATA ADDRESS | 1640 AO&UF 1641 845 DC XL2' AOUF?® MESSAGE IDENTIFICATION
15B0 34 01 1B6D 778 ST DFDR,XR1 IN DATA CONTROL FIELD Bas
779 Cre 1642 CO 87 0222 847 B HALT TO DCP HALT
15B4 CO 87 1883 780 | B STRTIO TO WRITE DATA 1686 AOSF 1687 848 DC XL2* aoure HALT ID
75B8 02 15B8 781 cc XL1°02¢ FUNCTION CODE { R8RITE) 1648 OE 01 182F 1453 B49 RTN6P aALc TBLH (2) ,ONE = -
15B9 00 15B9 782 DC XL1*00° CONTROL CODE (DATA) Cc e 164E CO 87 18ED 850 ae) SEEKCE SEEK TO CLEAR THE END OF CYL.
15BA JAUA 15BB 783 Dc AL2 (WRTDFC) CONTROL FIELD ADDRESS 1652 CO 87 158C 851 B RT NGA Lee ;
15BC CO 87 15c¢8 784 B RTN6B1 GOOD RETURN 852 ee ek ee eee
15C0 CO 87 15C4u 785 B 4h Cc @ 1656 C140E3C5SE2ZE340C9 1689 853 pe CL52*A TEST I/O ON ERROR DID NOT BRANCH AFTER ATTENPTING=# —
15C4 CO 87 OFAS 786 B WRTER2 ERROR RETURN 165F 615640D6D540C5D9 853 _ -
ae 787 1666 D9IDED98DC4CICHNO 853
15C8 3C SC 1BD8 788 RTN6B1 NVI SNSID,X*4c? PUT ID IN PRINT S38 166E DPSD6E380C2D9C1DS 853
15CC 3c 01 1A4D 789 AVI WRTDFC+3,1 SET TO READ 2 SECTORS 1676 C3C880C1CE6E3C5DS 853
' ¥5D0 3c pC AUC 790 AVI WRIDFC+2,X"*Dc* SET FOR HEAD 1, SECTOR 23 167E SOCTE3E3C5SDSDTE3 853
15Du CO 87 1A83 791 B STRTIO TO READ DATA, (EXPECT END OP CYL.) oO 9 1686 COD5C740 853 oa, s .
15D8 01 15D8 792 pc XL1° 01° . FUNCTION CODE (READ) 168A E3T64OD9CSCIC4S4O 1645 858 ERROGA DC CL28'TO READ DATA PAST ERD OF CYL* (| _ Oe gies Sera
15D9 00 15D9 793 DC XL1°00* CONTROL CODE (DATA) 1682 CYCTE3C1INOD7C1E2 8548 ae a es re
ISDA 1AGA 15DB 794 BC AL2 (WRTDFC) CONTROL FIELD ADDRESS Cc} 6 169A E3S0CSDSC44ODECE 854 eee
i5DC CO 87 15E8 795 B RT N6 B2 GOOD RETORN, { NOT EXPECTED) 16A2 4O0C3E8D3 858 é tags
15EO CO 87 15E4 7196 B +h 16A6 CSDSCUSDD6CE40C3 16D9 855 pc CLS2*END OF CYL. SENSE BIT NOT SET AFTER ATTEMPTING TO RE
15E% CO 8&7 15F8 797 B RT N6C ERROR RETURN, (EXPECTED) Cie 16AE E8D34B40E2C5D5E2 855 os
15F8 CO 87 021A 798 RTN6B2 B PRINT TO PRINT NO ERROR FROM TIO | 16B6 C5 &0C 2C9E340D5D6 855
15SEC C6 15EC 799 Dc XL1' C6! FLAGS 16BE E340E2C5E340C1C6 855
15ED SO 1SED 600 rc IL1* 30° LENGTH C16 16C6 E3ICSD9K0CIEZE3C5 855
1SEE 16Aa5 15EP 801 DC AL2 (ERRO6A) NESSAGE ADDRESS 16CE D&D7E3C9IDSC7HUDE3 855
15P0 AOC 15F1 802 DC XL2* AQUC® MESSAGE IDENTIFICATION 16D6 DE4OD9CS 855
803 Cia 16DA CICS4OCUCI1E3C140 16F1 856 ERROGE DC CL28*AD DATA PAST EXD OF CYL.
*15P2 CO 87 0222 804 B ALT TO DCP HALT 16F2 CICIEZE346C5DSCa 856
15F6 AOUC 15F7 805 DC XL2* a04c? HALT 1D T6EA 4OD6CE40CIEBD34B 856
806 C!ea 16F2 E2CSC3E3D6D940C3 1725 857 pc CLS52*SECTOR COUNTER IN CONTROL FIELD NOT STEPPED CCRRECTL
*15F8 CO 87 1A58 807 RTN6C B SENSE TO SENSE DEVICE STATUS | 16FA D6E4DSE3C5D94 0C9 857
15FC 02 15FC 808 pc AL1(STATO1) BYTES O & 1. 1702 D5S4OC3D6DSE3D9IDE 857
809 CG 170A D340C6C9C5D3CHSD 857
- 15FD 38 20 1A6R 810 TBK STATUS,X*20° TEST BYTE 1 BIT 2 FOR OK, 1712 DSD6E340E2E3C5D7 857
vy 811 * (THIS IS "END OF CYLINDER‘) 171A D7CS5SC44S0C3DED9D9 857
1601 F2 10 10 812 JT RTN6D JUMP IF ON Cc. 86 1722 C5SC3E3D3 857
813 1726 E840C1ICEE3C5D940 1749 858 ERROGC DC CL36"Y AFTER A READ DATA PAST END OF CYL.
*1604 CO 87 O21A 814 B PRINT TO PRINT SENSE BIT NOT OF 172E C140D9C5C1Ce40CY 858
1608 C6 1608 815 Dc XL1'C6! FLAGS C 6 1736 C1E3C 14OD7C1E2E3 858
1609 4c 1609 816 pe IL1*76° LENGTH 173E YOCSDSCYRODSCEN0 858
160A 16F1 160B 817 DC AL 2(ERRO6B) MESSAGE ADDRESS 1746 C3E8D34B 858 :
160C AOE 160D 818 pe XL2*AQUE? MESSAGE IDENTIFICATION © Co 174A C8CSCICYXOSO“OE2 177D 859 pc CL52"HEAD & SECTOR BYTE OF CONTROL FIELD CHANGED AFTER A
819 1752 C5C3IE3IDED940C2E8 859
Pan Oo 9 | sas
~ DATE T3MARTO O6APR7O 22MAY70 01A0G70 010CT70 PROG ID 0a08-3 DATE 13MAR70 O6AFR70 22BAY70 01A0G70 010CT70 PROG ID a ‘
BC NO. 571512 571516 571513 571531 571540 PAGE 8 0 EC NO. 571512 571516 571513 571531 571580 PAGE A
eo.
©eeeeeeeeeeeeseeeoeseeeeeeeeoeeneneneen
ee
YBN MAINTENANCE DIAGNOSTIC PROGRAS
“$083 «READ
ERR LOC OBJECT CODE
© 475A E3CSUCNECELOCIDE
pata
ADDR STET
1762 DSEIDIDEDI4OCECS -
IVER CSDICRNOC3CECIDS
1772 C7CSCURDC ICEE3CS
A774 DIKOCIHO
“APTE FZUOE2CSC 3E3DEDI
1786 SODICSCICKuOCECT
VIBE E3C 1WOC1E340C5D5
1796 CUSODECELOC3EBD3
A79E UB
4 08 178C
- 00 17aF
02 182F
FF 60 —
01 182E
00 OF13
87 9000
TDA
Ga
V7BS co :
7BD 34
We 35
47CS C2
4709 BD
V7Ce F2
VICK E2
> T3D2 34
I7DE OD
ye PE co C1
VFECG TC
VWEZ OC
IES 3D
VIED F2
VFO GC
-VIFE TC
VTFE cS
TTF cé
1600 22
VERT Teec
1603 ROLE
1eLS CO ET
T8CS ROE
1E0B CO EF
1BOE
182E
182¥
00
3¢
01
TAGD
JAGH
17¢$
TELE
1867
1SE9
T8396
A eh a ee
18BT 16514
1861 Gs
O2Z14
0222
cooe
TéOY OD
18615 co
1813 CO
181D Ccé
IBIE
181F REA
1821 AORTF
1823 CO E7
1827 ACaT
1829 CO 87
03
01
€7
184ac
0216
O27A2
T89R
0222
0276
182D OCCO
18zF COCceCcocoOcoccEOG
1837 COCGCCCCOCOCC COE
183¥ COCOLGOOOCLOOC OO
TEXT TEKE
TELS CE
1€er Ho
TELE CO
TELE 06
Wear FO
TIB2ETO
571512
179E
VIFF
1800
1802
1804
180A
V81D
T81E
1820
1822
1828
182E
182F
TENG
1848
Teas
TEMA
TEaB
184uC
184D
OGAPRTIO
ST 18%
SOURCE STATEBENT
859
859
859
859
859 |
860 EERCE6D DC
860
860
860
860
861 ¢
862
863 SETERR ST
864 AvC
865 LA
B66 SETERA NVI
867 L
868 mvc
869 SEIERK B
870
8714
*872
873 CKEED sT
874 L
875 LA
876 CKEEDA CLI
877 JE
878 LA
879 ST
880 cLC
881 BNE
882 avi
883 MVC
BBu CLI
885 JE
886 BYC
887 VC
888 B
&89 pc
890 pc
894 pc
892 pe
893 B
894 nce
895 HDEXT B
896
897 CKHDEK CLC
898 BRE
899 B
300 pc
301 pe
902 DC
903 pc
908 B
905 pe
906. E
907
$08 TPE pc
909 SECTEL EOD
310 DL
3910
910
S11 TEIFND DC
812 HDIsi DC
913 DC
944 pc
9156 rc
91€ DC
22KN2Y70 012 0G70
571513 571531
t
PART HO.
C1L33"2 SECTOR READ DATA AT END OF CYL.
*SET AN ERROR FLAG fOR EACH SECTOR ERROR
SETERX+3, ARR
SETERA4 2 (1) ,;CYLNO
SECT BL, ¥R2
*-* (,XR2) ,X*FF
*TBLH,XRi. .
ERRO2Aa~+11,4( 1, XR1)
e-%
5129638
PAGE | a)
SAVE EXIT ADDRESS |
SET CURRENT CYL; NO IN MOVE
LOAD XR2 AS POINTER
SET A FLAG FOR THIS SECTOR
LOAD HEAD NO. POINTER IN XR1
INSERT HEAD NO. IN MESSAGE
EXIT
CHECK FOR ERRORS O8 ALL SECTORS
HDEXT+3,ARK
TBLH,XR1
SECTBL , XR2
0(,XR2),0
HDEXT
1(,XE2) ,XR2
SNSXRZ,XB2
SNSXR2 (2) , TBLEKD
CKREDA
0(,XR1) ,X*FE
*ONEHED-5 (5), BUVDSK
DISKTP,0
*495
ONERED-5(5) , FIXDSK
ONEHED-11(1) ,4(,XB1)
XL1°C6
*IL1*34
*AL 2 (ON EHED)
XL2*AOAG!
EALT
XL2* 20 A6°
*-—¢
HDTBL+ 3(4&) , FOURFF
AL2 (ALLBED)
XL2* AOR?
HALT
XL2* AOAT7#
LINK
YL2*0
**
XL28°G6?
AlL.2 (*- 1)
XL1°O8
XL7eC#
xXxL17°O°
*XL1° O08
CL1*O8
c10cT7C
5715&0
SAVE EXIT ADDRESS
LO2ZD XR1 AS ERROR FLAG POINTEE
LOAD XR2 AS SECTOR FLAG POINTER
CHECK EACH SECTOR FLAG
JOMP WHER FIRST ONE IS FOUND OFF
STEP POLNTER
STOKE
CHECK FOR LAST ENTE
BRAKCE IF NOT DONE
SET FLAG TO INDICAT! DEFECTIVE HEAD
SET MESS&GE FOR RESOVABLE
TEST FOR RUN ON NEMOVABLE
JSUEP IF YES
SET MESSAGE FOR FIXED
SET HEAD NUMEER IN NESS? CE
TO PRINT HEAD EREOR
FLAGS
LENGTH
BESSAGE RDDRESS
BESSAGE ID
HELT ID
EX1it
CHECK FOR ALL READS FAY LING
ERANCH IF NOT
TO FRINT ALL HERDS FAILING
FLAGS
LERGTE
MESSAGE ADDRESS
MESSAGE YD
HALT ID
SECTOR ERROR RECOREING TABLE
FOR HERD 0, REMOVABLE DYSK
FOR HERD 2, FIYEP DISK
FOR HERD 1, REFOULBIE DIEK
FORK BREAD 3, FILED BGIsSk
PROG IV 0208-3
TAGE 3
2 © 6000000 0 6.
Q
O oO
oO oO
ty
oO
a)
a:
O
o oO oO
o © © © © @ @ @ © 8 © 6 8 8 @
@
©
©
O
Q
0 0 89 Q Oo @
IBA SAINTEWAECE DIAGNOSTIC PROGRAS- PART 20. 5129638
126. * PAGE oa
a083 READ DATA
ERR LOC OBJECT CODE BEDR STAT SOURCE STAT TNENT
188E 72 188E 917 pc cL4*2
*18aF F1 188F 918 DC CLi* 48
3850 F3 185G 919 DC CL1# 3t
1851 E2PED3ICICULOCS5DS 186A 920 ALLHED pc CL26*SOLID EFKOR WITH ALL HEADS
*1859 DODEDISOEKBCIEICS 920 .
4861 &0C1D3D340C8C5C1 920
1869 CaE2 $20 .
1868 E2L6D3CICHROTSDS 188C 921 ONEHED pC CL38*SOLID EKROR WITH HEAD X XXXXX DISK
*1873 DSDSD9S40E6CSE3CB 921 :
1878 YOCBCSCICAUOETNO 921
1883 EVEVEVTEVE740CaC9 921
188B E2D2 921 ;
BBD C6C9E7C5Ca 1891 922 FIXISK pC ALS FIXED. -
1892 [TOCSDUESaB 1896 923 RH VDSK DC ‘CLS* RERV.
*1897 FFFFFFFF 189A 928 FOURFF DC XLS* FFFFFFFF
*925
$25 «
926 *- SUBROUTI RE TO DETERMISE IF DATA ADDRESS
*927 * IS STEPPING CORRECTLY -
928
929 .
189B 34 08 18EC 930 TSTDAT ST DATEXT+3 , BRR SAVE RETURN ADDRESS
189F 35 02 13EC 931 L DATEXT +3,X R2 LOAD XR2 WITH PARANETER POINTER
18A3 2c 01 1996 01 932 AYC WORK1(2} ,1(,¥R2) HOVE EXPECTED ALDRESS FOR CONPARE
18A8 OF 01 18EC 1998 933 ALC DATEXT 43 (2} , TWO INCREASE EXIT ADDRESS :
I8AE CO 87 1255 934 B SENSE TO STORE DATA ADDRESS
18B2 Aa 18B2 935 DC AL1(DaTa}
936
18B3 OD 07 1a6B 1996 937 cLC STATUS (2) , WORK CHECK DATA ADDRESS
1859 F2 81 2D 938 JE DAT EXT JGMP IF ADDRESS HAS STEPPED CORRECT
939 + DATA ADDRESS DID NOT STEP CORRECTLY
18BC OD 01 1A6B 199C 920 CLC STATUS (2), BORK2 CHECK DATA ADDRESS
941 * FOR ORIGINAL VALUE
18C2 F2 81 18 942 JE DATOIA JUMP IF DATA ADDRESS IS
943 * STILL AT ORIGINAL VALUE
18C5 CO 87 O2Z1A 944 B PRINT TO PRINT DATA ADDRESS NOT CORRECT
18C9 CE 18cS «945 pe XL1'*ceét FLAGS
18CA 2E 18CA 946 pc IL1*43t LENGTH
18CB 19C7 18CC 947 DC AL2 (DATFI1} ADDRESS OF #ESSAGE
18CI 203B 18CE 988 DATID1 DC XL2*AC3E* MESSAGE IDENTIFICATION
18CF CC &7 0222 9&9 z HALT TO DCP HALT
18D3 AO3E 18D8 950 BC XL2*a035* HALT If
18D5 CO 87 18ES 951 B DRETEXT TO EXIt
35
18D9 CO 87 O21:A aaa DATOIA B PRINT TO PRINT DATA ADDRESS NOT STEPPING
18DD Cc6b 18DD 954 Dc XL1*CE* FLAGS ae
I8BDE 13 48DE 955 DC IL17*25¢ LENGTH
18DF 19§h9 48EO 956 DC AL2 (DATPE2} ADDRESS OF MESSAGE
IBEW 203F 18E2 957 DAIID2 DC XE 2*a0 35 * BESSAGE IDENTIFICATION
18E3 CO &7 0222 958 B HALT TC DCP HALT
18E7 aO3¥ 18EB 959 DC XL2* aQ3F* HALT ID .
18ES CC 87 0000 9€0 DATEXT B +-+* EXIT
961
18ZD 324 08 1924 S62 SEFKCE ST SEEKEY22 FRE SAVE EXIT ADDRESS
18F1 0C OO 1A88F ULCE 963 AVC WRIDFC*UT TRACKS SET SEEK ADDRESS TO CE TRACK
18F7 3C OS 1BD8 S64 BVI SNSID,OS INSERT ID IN PRINT
965
YBPE CO 87 1283 966 B STRTIO TO SEEK CE TRACK
I8FF OC 18FF 967 pc XL1*O8 FUNCTION CODE (CONTROL)
1900 CO 1960 368 pc XL1*Ot CONTROL CODE (SEEK)
1901 12 R82 1902 969 DC AL2 (WETDEC] CONTROL FIELD ADDRESS
1803 cO &€3 191D 970 2 SEEKTS GOOD RETURN
1907 CO 8&7 iseE 971 B *4+Q
1966 CO 87 1BE1 972 B PRISES TC DECODE ERROR
ISOF CO &) 6212 973 B PRIN TO PRINT
1913 06 1913 $748 DC XL1* GE* FLAGS
1314 35 1914 975 Dc ILItS3t LEKGTHA
I8i& OCEC 1916 976 Dc AY. 2 €BLRCESS HESSAGE ADDRESS
DATE I2EERTO OCCRTE70 22ma 170 C taUC TC CtocT7e FROG ID ;. oe
EC BO. 531512 S71£16 571513 571531 STISEE PaGE : ‘
+
Ce RR
of ag AE
alg nk a
c %) ey se
EOE PE By
aE
“tt.
ee MOR oe SR
SPR DOT FET OY
a
ee
IBS MAINTENANCE DIAGNOSTIC PROGRAZ
A083 READ DATA
ERR LOC OBJECT CODE ADDR
1917 CO &7 0222.
197F A009 191C
191D CO 87 1925
1921 CO 87 0000
1925 38 08 1959
1929 CO 87 1254
192D 02 192D
192E 38 70 1A6B
1932 CO 10 1929
1936 38 01 1A6A
1934 F2 10 20
1935 CO 87 183 ee
1941 01 1944
1982 01 1982
19&3 T95A 194u4
1945 CO B87 1949
1989 CO £7 194D
198D OD OC 195B OBOE
1953 F2 01 07
1956 CO 87 0000
195a (00000 195C
195rt CO 87 1D52
1961 195B 1962
1963 4A21 1964
1965 CO 87 O21A
1969 C1 1969
196A 2A 196A
1963 1A0A 196¢
196D a203C 196E
196F CO 87 C21A
1973 01 1973
1974 17 1974
1975 1421 1976
1977 CO B7 O27A
197B 06 1973
197C 28 197C
197D 1A49 197E
197F 3c 00 0B15
1983 3c 00 OBOD
1987 3¢ CO 1B6u
198E CO 87 0222
198F aAO03C 1990
1991 CO 87 0000
1995 0000 1996
1997 0002 1998
1999 0008 199A
1998 1DCO 199¢
199D C&CTE3C1T40C1C4C’ 19C7
19285 Lr9OCSE2F2U0F6C1E2
T9AD ROEZE3C5D7D7C5C&
19B5 4OE3D640C9DSC3D6
‘DATE 13MAR70 O06 APR70
EC NO. 571512 57151€
PART NO. 5129634
Pace 10
STST SOURCE STATEMENT
977 B HALT TO DCP HALT
‘978 pc XL2*a009°* HALT ID
979 ¥
980 SEEKTS B TSTSEK TO TEST FOR A GOOD SEEK.
981 SEFKEX RB *-8 EXIT
982
983 * COME HERE TO TEST FOR A GOOD SEEK
*984 ‘ :
98S TSTSEK ST SEKEXT +3, ARR SAVE RETURN ADDRESS
986 SKTSTA B SENSE TO SENSE DEVICE STATUS
987 Bc AL1(STATO 1) BITES 0 6 1. :
968 :
989 TBN STATUS,X*10* TEST THE SEEK BUSY SENSE BIT
990 BT SKTSTA IF ON DO ANOTHER SENSE
' 991
$92 TBH STATUS~1, X*01# TEST FOR SEEK CHECK
993 Jt SEEKER IF ON, GO TO SEEK ERROR PRINT
994 8 STRTIO TO READ ID
995 be . XL*O18
996 bc XL1°O1t
997 Dc AL2 (IDFLD-2)
998 B *+¥
999 B *44
19000 cCLc IDFLD-1(1) , TRACK@
1001 JNE SEEKER :
"1002
1003 SEKEXT B -* Exit
1004 IDFLD npc XL3*O8f
1005
1006
1007 * COME HERE IF AN ERROR OCCURED
*1008 * WHILE SEEKING THE CE TRACK ®
1009
1010 SEEKER E cvD
1011 pc AL2 (IDFLD-1)
1012 tc AL2(ARIVED) .
1013 B PRINT TO PRINT ERROR ON SEEK
107148 Dc XLI'ct# FLAGS
1015 poe IL1*'42* LENGTA :
1016 pc AL2 (SEKER1) ADDRESS OF MESSAGE
1017 SEEKID pc XL2*a03C! MESSAGE IDENTIFICATION
1018
10179 B PRINT TO PRINT SECOND LINE
1020 Dc XL1*O1!
*1021 pe IL t* 23°
1022 pc AL2 (AEBIVED)
1023
1024 B PRINT TC PRINT SECOND LINE
1025 pe XL7* 06° FLAGS
1026 pe ILi "aot LENGTH
1027 be AL2(SEKER2) ADDRESS OF MESSAGE
1028
1029 mVI PASS,0
1030 MVI SETS#,0
1031 AVI FRSTPS,0 SET TO CAUSE A RECALIBRATE
1032 B HALT TO DCP HALT
1033 Dc XL2*a03c!* HALT ID ‘
4034 B 0
1035
1036 RORK1 pe AL2 (*- *)
1037 TWC Be XL2*02"
1038 ONESEC DC XL2'O@?
1039 WOFK2 DC AL2 (WORK)
1080 .
10471 DATPRI DC CLU3"*DATA ADDRESS WAS STEPPED TO INCORRECT VALUE?
1041
TOG
1081
22mAY70 017A0G70 010CT70 PROG ID OaA08-3
571513 871531 571540 PAGE 10
Oo oOo Oo 8 6
a eo eee eet RRR RTS SNELL NtiRt—ae <tetteResithtinetnelnn njrmpss SnrmanreseisnpnnpNintann sagan tine
% 0 O 0 0 0 0 6 0
©
oOo oO
oO © ©
OO.
G
Oo Oo
0 90 906 0 0 0 08 0 0 090 0 0 9 86 @
Q
ao GQ & G6 G0 8 9 @ 8 8 @. eo 6
IBM SAINTERANCE DIAGHOSTIC PROGRAS
: PART HO. 5129638
: PAGE OR
HOT STEPPING
*CLU2*ERROR OCCUFRED WHILE SEEXING THE CE TRACK,
*CL4O'RUN SEEK TEST SECTION AO3 FOR BORE INFO.
*FLAG
a
CYLINDER |
TRACK & SECTOR
NO. OF SECTORS OR NO. OF TEACKS
FLAG
CYLINDER
TRACK & SECTOR
NO.
OF SECTORS OR NO. OF TRACKS
FEEKKHEK EK EE EKEKEREREEESEEE ERE SESE PEERS S £ERE ES SKEREEEEOREE DSERSEESEOENSVETESES
SAVE ADDRESS RECALL REGISTER
LOAD X81 WITH VALUE FROM ARR.
MOVE IN FUNCTION CODE :
FERFORS SENSE
EXIT
"QO" CODE
CONTROL CODE
STATUS BYTES 0 & 1
STATUS BITES 2 & 3
DISK CONTROL FIELD, { INITIAL)
DISK CONTROL FIELD, (FINAL)
CONTROL REGISTER ADDRESS
DATA REGISTER ADDRESS, (XNITIAL)
DATA REGISTER ADDRESS, (FINAL)
CURRENT ROUTINE KC.
PROG ID 0a08-3
2083 READ DATA
ERR LOC OBJECT CODE ADDR STAT SOURCE STATESENT
19BD DODICSC3ESH0ESE? 1084
19C5 D3E8cs : 1081
19CB C&CIEICIROCICUCK I9ED 1042 DATPR2 DC CL25'DATA ADDRESS
19D0 D9ICSE2ZE24 0DSD6E3 21042
19D8 SOE2ZE3CSD7D7C9D5 | 1082
19E0 C7 1082
19E1 CSLSDIDEDS4OD6C3 1A0A 1043 SEKER1 DC
19E9 C3ERDSDICSCAHOES 1043
19F1 C8C9D3C58OE2CSCS 10483
19F9 D2C9DSC7EDE3C8C5 1043
1A01 40C3C54023D9C1C3 1083
1A09 D26B 1083
TAOB CIDODSCIESCSC4HO 1321 1044 ARIVED DC -CL23*ARRIVED AT CYL. WO.. xxx°-
1A 13 CIEZXOC3EBD34BS0 10448
TATE DSL6SBAOETETET. 1044
JA22 DIESDSROE2ZCSC5D2 1049 1085 SEKER2 DC
1A2A SOE3CSE2ZE300E2CS 1045
1A32 C3E3C9D6D580C1F0 10485
TA3A FIUOCEDEDOKO DADE 10485
IAN2 DOCSUOCODSCEDE4B 1045
1086 .
1AGA 00 TAQA 10487 WRIEFC DC XL1'00#
1ANB 350 JA4B 1088 pc XL17°00°
*IASC 00 FAUC 1089 pc X¥L1"00
*JAUD 00 1A4D 1050 pc XL1°00!
1051
TAUE 00 IAUE 1052 RDDFC pC XL1"00
*1A4P 00 TAUP 1053 pe XL17°008
1A50 00 1A50 1054 DC XL1"00
*1A51 00 1A51 1055 DC XL1°00?
1A52 0001 1A53 1056 ONE DC XL2*01°
1057
1058
1059 * SENSE I/0 ROUTINE
1A54 34 08 1A6D 1060 SENSE ST SNSXR2, ARR
1A58 35 01 1A6D 1061 L SNSXR2,XR1
1A5C 18 03 1062 00 1062 MNN SNS+1,0(,XR1)
1A6% 30 00 1A63 1063 SNS SNS STATUS,0
1A65 DO 87 01 1064 B 1(,XR1)
1065
1A68 0000 1A69 1066 SETXR2 DC XL2* 08
1AGA COO0O 186B 1067 STATUS DC XL2* 0°
1A6C CO00 FA6D 1068 SNSXR2 DC XL2"0°
*1069
1970 ERROR RECORDING TABLE
TAGE 1071 ETABLE ECU
*WAGE CO WAGE 1072 QCCDE DC XL1*O
*1A6F 00 1A6F 1073 CCOLE xc XLT#08 |
7A70 0000 4A71 1078 SNSO1 DC XL2*08
JA72 COCO 1A73 1075 SNS23. DC XL2*"0
*4A7% CO0D0000 1A77 1076 DCFIY oC XL4'08
1A78 COC00000 1A7B 1077 DCFP Dc XL&*0"
YA7C COCO 1A7D 1078 DFCRI DC XL2*°08
TA7E 0000 TA7F 1079 DFDRI DC XL2¢*O
*1A80 0006 1A81 1080 DPDRPF pc XL2'0#
1a82 00 1A82 1081 ROUTNO DC XLT*O#
DATE 13MAR70 OGAPR70 22MAY70 01A0G70 010CT706
EC NO. 571512 571516 571513 571531 571540
PAGE TOA
eeeooegeo0020202080688080080 ©
Oy
a“
os
IBM MAINTENANCE DIAGNOSTIC PROGRAM
4083
ERR LOC
1A83
1A87
1A8B
VAGF
VA9U
1A99
VASE
TAA
TAAG
TARA
TAARD
TAB 1
TABS
TABB
TARB
TABF
JAC 3
VAC?
VACA
FACE
TADZ
TAD5
YADA
VATD
VAE1
TAEG
VAET7
VAEA
JAED
1AFO
TAFG
VAFI
TAFD
1B02
1BO6
1BOA
IBOD
1B11
1B14
1B17
IB1E
IBF
1B22
1B27
IB2A
1B2D
1B30
1B36
iB3B
IB3E
1B44
TB46
IBUC
TE4F
1B52
1BS5
TBSA
1BSF
DATE
EC NO.
READ DATA
OBJECT CODE ADDR STMT SOURCE
1083
*1084
34 08 1269 1085 STRTIO
35 02 1A69 1086
3C 00 1367 1087
28 03 1AC8 00 1088
2c 00 1AC9 01 1089
2C 01 1B6B 03 1090
3B O08 1ACH 1994 TSTIP
3B 08 1820 1092
39 08 1869 4093
F2 10 08 1094
3A 08 1ACB 1095 SETPIX
3k 08 1820 1096
BD 00 00 1097 CKSEZEK
F2 81 2F 1098
31 A6 1B6B 1099 LDFCR
31 BY 186D 1100 LDFDR
c2 01 19C8 1101
F3 a0 00 1102 SIc
C1 A2 1874 1103 WAIT
3D FP 1B67 1704
F2 01 0C 1105
c O60 03 1866 1106
BB 01 02 1107
35 02 1A69 1108
E720 OC 1109 TSTERR
E1 A4 08 1110 TSTSCN
EO 87 04 1911
1112
1113 ©
11714
*1115
ED 01 01 1116 SETADR
F2 07 08 4117
3C 00 1364 1118
2c 01 1B6F 03 1119
35 02 1B6F 1120
2C 06 1866 03 1121
3C FF 1367 1122
3D 00 1B64 1123
F2 01 15 1124
3C 01 1B64 1125
FB O01 02 1126
BC FP 03 1127
3¢ 00 1B65 1128
31 A6 1B6B 1129 RLDFCR
F3 AO 00 1130 RSIO
1131
8D 00 01 1865 1132 SETADA
F2 81 25 1133
F2 84 11 1134
BB 01 02 1135
Oc 00 1D63 1B65 1136
2F 00 1863 01 1137
F2 87 17 1138
1139
BA 01 02 1140 FWDSEK
2c 00 1863 01 1184
OF 00 1863 1B65 1142
F2 87 06 1143
1144
BC 00 03 1145 NOSEEK
F2 87 OA 1146
1147
8c 00 03 1B63 1148 SETADB
2c 00 1865 01 1149
CO 87 1ABB 1150 ADREXT
13MAR70 O6APR70 22MAY70
571512 571516 571513
PART NO. 5129634
PAGE 11
STATEMENT
START 1/0 SUBROUTINE
ST SETXR2, ARR SAVE ADDRESS RECALL REGISTER.
L SETXE2,XB2 LOAD XR2 WITH VALUE FROM ARR.
MVI SAVS¥,00 ZERO SWITCH
ANN SIO+1,0(,XR2) SET PUNCTION CODE
MVC =S¥O+2(1),1(, XR2) SET CONTROL CODE IN SIO
MVC DFCR(2),3(,XR2) SET DATA ADDRESS FOR DFCR
SBF SI0+1,x?08° SET FOR RESOVABLE DISK
SBF RSIO+1,X?08 SET FOR REMOVABLE DISK
TBF DISKTP,X¥‘O3° TEST FOR RUN ON LOWER DISK
aT CKSFEK SUMP TO CHECK FOR SEEK
SBR SIO+?,x'Gs' SET FOR FIXED DISK
SBN RSIO+1,X'08 SET FOR FIXED DISK
CLI 0(,XR2),00 TEST FGR SEEK
JE SETADR IF YES, GO SET ADDRESS
LIO DFCR,X*A6? LOAD CONTROL REGISTER
LIQ DFDR,X'AM? LOAD DATA REGISTER
LA 6600, X21 LOAD DELAY VALUE IN REGISTER
SIO =X'00',X*AOt START I/C OPERATION
TIO BUSY,xX*A2! TEST FOR BUSY
CLI SaAvVSW,X'FF! IS SWITCH ON?
JNE TSTERR IF NO, SKIP RESTORE
KVC 3(1,XR2) ,DFC3SV RESTORE N BYTE
SBF 2{ ,XR2),01 TURN OPP THE FOR/ REV BIT
L SETXR2, XR2 RESTORE PARAMETER POINTER
TIO 12(,XR2),X*A0* BRANCH IF ERROR
TIO 8(,XR2),X" AU! BRANCH IF SCAN FOUND
B 4(,XR2) EXIT
SUBROUTINE TO SET THE NUMBER OF TRACKS AND THE
DIRECTION (FORWARD GR REVERSE), TO SEEK
CLI 1(,XR2),01 IS THIS A RECALIBRATE?
INE #47 IF NO, BYPASS SWITCH RESET
MVI. FRSTPS,0 RESET RECALIBRATE SWITCH
MVC =©XR2WK(2) ,3(,XR2) SAVE ADDR, OF CTL. FLD. ADDR.
5 XR2EK, XR2 LOAD XRZ2 WITH CONTROL FLD. ADDR.
MVC DFC3SV(1),3(,XR2) SAVE N BYTE IN CONTROL PIELD
MVI SAVSW,X' FF? SET SAVE SWITCH
CLI FRSTPS,00 IS THIS FIRST PASS
ONE SETADA SKIP RECALIBRATE IF NO
MVI ¥FRSTPS,01 SET FIRST PASS SWITCH
SBF 2(,XR2),01 SET FWD/REV FIT TO REV.
BVI 2(,XR2),255 SET MAXIMUM TRACK CROSSING
MVI LASTAD,OO SET OLD ADDR TO 0
LI DPCR,X*AG! LOAD DATA CONTROL REGISTER
SIO 00,X*AO® SEEK REVERSE
CLC 1(1,XR2),LASTAD COMPARE PRESENT ADDR. WITH NEW ONE
JE NOSEEK EQUAL, SFEK IS NOT NECESSARY
JH FWDS EK NEW ADDR. HIGHER, DO FORWARD SEEK
SBF 2(,XR2),01 NEW ADDR. LOWER, SET BIT FOR REV.
MVC SCRCH(1),LASTAD PLACE LAST ADDR IN WORKAREA
SLC SCRCH(1),17(,XR2) SUBTRACT NEW ADDR. PROM LAST ADDR.
J SETADB PROCEED
¢
SBN 2(,XR2),01 SET BIT CN FOR FORWARD SEEK
MVC =SCRCH(1) ,1(,XR2) PLACE NEW ADDR. IN WORKAREA
SLC SCRCH(1),LASTAD SUBTRACT LAST ADDR. PROMS NEW ADDR.
J SETADB PROCEED
NVI 3(,XR2),0 SET NO. OF TKS. CROSSES £0 ZERO.
3 ADREXT TO EXIT
NVC =. 3 (1, XR2) , SCRCH PLACE IN NO. OF TRACKS CROSSED
MVC = LASTAD(1) , 1{ , XR2) SAVE NEW ADDRESS
B LDPCR EXIT
0 140670 010CT70 FROG ID 0A08~3
571531 5715480 PAGE 11
~
©
o Oo Oo Oo
Oo oOo
Bh
om
a)
oN
eS
Q
mo oO
9 oO 08 QO OA
oO
©
0 0 OO O
@2#eee#esdese@
3 eee
oO OF OF 8 98 9
oO..0UmFmmlmlUCOUCUCODCOCOGODeSC8
¢?
©)
©
O
o 08 0 0 9 O
IBS MAINTENANCE DIAGNOSTIC FPROGRAB
A083
ERR LOC
1563
1B64
1B65
1B66
1867
13B68
TBOA
1B6c
TB6E
1870
1B72
1B74
1B78
1B7C
1B80
126 2
IBS
1388
1B8C
1B8D
1B8E
1B90
1892
1B96
1B98
1TE9C
1BA&
TBAC
DATE
EC WO.
READ DATA
OBJECT CODE
00
60
50
00
oO
O00
00 60
1DCcO
0000
FFFP
0294
36 01
cO 84
co 87
0A 03
1B BO
3c 40
cO 87
c6
15
1B BO
AOQ8E
cO 87
LOSE
cO 87 0000
E3C9 DYCSDE6EUE340
CIDS4OLIDEELE3CY
C5CSYUDETET
1B71
TACA
1D52
IBAE
O21A
0222
13MAR70
571512
O6APR7
571516
ADDR
1B63
1B64
7R65
1 B66
TB6T
TESS
TBEB
1B6D
1B6F
1B71
1B73
7381
1383
¥BSC
TRED
1B8F
1B91
1B97
1EBO
0A03
0
STHT SOURCE
1151
1152
1153
1754
1155
4156
1157
41158
1159
7160
11671
1162
1163
71164
1165
1166
1167
1168
1169
1170
4171
T172
1173
11748
1175
1176
1176
1176
1477
SCRCH
FPRSTPS
LA STAD
DFC3S¥
SA VSW
DISKTP
DFCR
DFCTR
XR2WK
NEG
SIXSIX
BUSY
THALT
TIMOUT
RPFX
22mAY70
571513
STATESENT
pc XL1"00
*pc XLI°O0O#
DC XL1*O0
*be XL1*008
be XL1°O0!
DC XL2'0°
bec AL2 (#-*)
bc AL2 (WORK)
BC XL2*Q?
PART
PAG?
KO. 5129634
TIA
BC XL2*FFFF?
*pc IL2'0660°
*A NEG1,XR7% DECREM ENT DELAY COORTER
BH WAIT RETURN TO TIO IF KOT TIRE OCT
B cyD TIE OUT OCCURED, CORVERT ROOT. NO.
pe AL2 (RPFX) CORRENT ROUTIRE KO.
BC AL2(TINOUT) ADDRESS OF DESTIRATIO“R
EVI TIHOUT-2,C*
*B PRINT TO PRINT TYSEOCUT OCCURED
be XL7°C6? FLAGS
pe IL?*21° LENGTH
pce AL2 (TI BOUT) SESSAGE ADDRESS
DC XL2*a08E! MESSAGE ID
B HALT TO DCP ERROR HALT
pc XL2'AOBE® HALT ID
B 0
DC CL21'TIB®ECUT IR ROUTINE Xx
*EQU X*A03
*01A0G70 0710CT70 PROG ID 0a 08-3
571531 571580 PAGE 13a
aa!
aR:
mr
ON
C
IBM MAINTENANCE DIAGNOSTIC PROGRAS
A083
ERR LOC
1BB1
1BB5
1RB9
TBBA
IPBE
IBC 2
1BC3
18C5
1BC7
IBC B
1BCE
TBD3
TBD
TBDS
IBD?
1ED9
TBDE
IBE3
1BE7
TEEA
IBFE
1BEF
IBF O
1BF2
1EBF6
1BF9
‘BFC
1BFF
1c03
1c07
1COR
TCOE
1C12
1C16
1017
1C1B
IC TF
1€20
1C22
1C2u
1C28
1c2c
1€30
1c31
1032
ic34
1038
1c4a0d
1c4u8s
C&D
1c55
1¢5D
1c65
1C67
1C6F
1077
1c79
1c81
DATE
EC NO.
READ
OBJECT CODE
34 08 1C37
CO 87 1A54
02
3C 01 1IBP3
CO 87 O21E
02
1A6B
1¢50
C2 01
C2 02
1C66
1CPr7
co 87
c1
O27A
1C 66
A000
2C 0G TBE& O00
1C 3° IDBF 00
38 O00 AGA
F2 390 08
CO 87 O21A
01
12
1D BF
3D 00 1BE4
F2 81 OA
E2 92 01
D2 01 12
cO 87 1BD9
3D 80 1BF3
3C 80 1BP3
34 01 IC1A
co 837 1A54
C2 01 0000
CO 87 O2Z1E
C2 02 1CF7
CO 87 1BFC
cO 87 Q21A
1¢ 548
co 87 0000
F2E3CTEZS EXE240C2
EB8E3C 5E240C9D540
C8CSE76B4 0
00C0000600000000
D5D640DED 7804040
8040404040804 000
4040
CIDSE3C5D 9ESCSDS
E3C9D6D54 0D9C5D8
Cuup
C&CIEZE2C9ID5SC7HO
CIC4CND94 BUODYCI
13MART7O
$7 1512 571516
DATA
ADDR
IBBI
1BC2
TBC4
TBC6
1BD3_
TBDS
1BD6
13D8
1BEE
1BEF
IBF 1
1016
1C1P
1¢21
1C23
1€30
1¢31
1€33
1C&C
1c54
1C66
1078
1C8A
OG APR70
STNT SOURCE STATEMENT
1179 * SUBROUTINE
1180
1181 PRISNS ST
1182 B SENSE
1183 DC AL1(STATO1)
1784
1785 B UNPACK
1186 DC XL1°02!
1187 DC AL 2 (STATUS)
1188
1189
1790 LA STATWD,XR1
1191 LA STMASK, XR2
1192
1193 B PRINT
1194 Dc XL1'C1#
1195 DC IL1'O1°
*1196 DC AL2 (STATWD)
1197 SNSID DC
1198 MOVEBT MVC
1199
1200
1201 TSIBT TBN
1202 JF STPSNS
1203 B PRINT
1204 DC XL1*O1!
1205 DC IL1*18?
1206 DC AL2(STATPR)
1207
1208 STESNS CLI
1209 JE SENSA
12 10
1271 LA 1(,XR2) ,XR2
1212 SERSB LA
1213 B MOVEBT
1214
1215 SENSA CLI
1216 JE PRTHEX
1217
1218 ST SENSC+3,XR1
1219 B SENSE
1220 DC XL1°03
*1221 SENSC LA *-*, XR1
1222
1223 B UNPACK
1228 DC XL17*¢2?
*1225 pc AL2 (STATUS)
1226 rc AL2 (HEXSTA)
1227 LA STMASK,XR2
1228 B SENSB
1229 PRTHEX B PRINT
1230 DC XL1'025
1231 DC IL1*29#
1232 DC AL2 (HEXSTA)
1233 PREXT B *-+
*1234
1238
1238
1235 HEXSTA DC XL8'O#
1236
1237 STATED DC
1237
1237
1238
1238
1238
1239 DC CL18* MISSING
1239
22BAY70 01A0G70
571513 571531
mVI STPSNS+1,X*O1
*DC AL2 (HEXSTA-4)
BVI STPSNS+1,X* 80!
PRTE XT+3 ,ARR
XL2* A000!
TSTBT+1(1),0(, XR 2)
NVC STATPR(18) ,0(,XR1)
STATUS-1 ,*-
*TSTBT+1, ¥-
*48 (,XB1) ,XR1
STPSNS+1,X'"80!
PART NO. ‘5129634
PAGE 12
TO PRINT THE CONTENTS OF DEVICE STATUS
*SAVE ADDRESS RECALL REGISTER
TO PERFORS SENSE
GET DEVICE STATUS BYTES 0 & 1.
SET FOR COMPLETION OF FIRST BYTE
TO UNPACK STATUS BYTES
SET XR1 TO POINT TO FIRST NESSAGE
SET XR2 TO POINT TO TEST MASK
TO PRINT SNS WITH HEADING
FLAGS
LENG TH
ADDRESS CF LAST PRINT CHARACTER
MESSAGE IDENTIFICATION
SET MASK BIT IN TEST BITS INSTRUCT.
SET MESSAGE IN FIELD
TEST CURRENT BIT FCR ON
BYPASS PRINT IF OFF
TO PRINT SNS WITHOUT HEADING
FLAGS
LENGTH
ADDRESS OF LAST PRINT CHARACTER
TEST FOR FINISHED
JUMP IF FINISHED WITH THIS BYTE
STEP XR2 TO POINT TO NEXT SASK BIT
STEP XR1 TO POINT TO NEXT MESSAGE
GO TEST NEXT SENSE BIT
TEST FOR COMPLETION
TO EXIT IF DONE
SET FOR CHECK: OF 2ND BYTE
SAVE XR1
TO SENSE
BYTES 2 & 3
RELOAD XR4
CF 2ND BYTE
SET BIT POINTER
TO PROCESS 2ND BYTE
TO PRINT STATUS IN HEX
SUBROUTINE EXIT
pC CL21'STATUS ttks IN HEX,
*CL18*NO OP
bc CLI8* INTERVENTION REQD.!
SARK
*PROG ID 0a08-3
PAGE 12
y»y O&O Oo OO AO OO OF ODO A
a)
Cc)
°o
o
Ceovoeeeveeevneeesees:
0 98 8 86 4
#7
Le a ncn ie EO SY Sl Ae TRA LTR: I —ttnten tn ete
|
|
|
|
|
{
S®©eeeoeoeeaeaeeeeeeeeee
Oo ©
Q
a
q
2)
62
©
o 9 8 Oo 9
IBM MAINTENANCE DIAGNOSTIC PROGRAB
A083
ERR LOC
1c89
1083
1093
1C9OB
1c9D
TCA5
1CaAD
iCAF
1CB7
1CBF
icc 7
icc9y
1CD1
1CD3
1CDB
1CE3
1CB5
TCED
1cP5
1CF7
1CFE
ICFP
1D01
1D05
1D09
TDOL
1D11
1D15
1D19
ID1D
1D20
1D25
1D2Aa
1D2D
1D30
1D34
1D38
1D3B
ID3E
1D42
1D46
Da?
1D&s
IDUY
TDaAa
IDSB
1D&C
ID4D
TDUE
ID4F
1D50
DATE
EC NO.
READ
OBJECT CODE
D9D2
CS LT8ESCIDTDUCSDS
E340C3C8C5C3D246
4O40
C4H¥CTE3C140C3C8CS
C3D24804040404040
8040
DST640D9CS5C3D6D9
Cs HOC6EDEENDS CHAD
4040
E3D240C3D6D5C4C9
E3CIDEDS5S40C3C8BC5
€3D2
E2C5C5D240C3C8C5
C3D240404 0404040
4040
EXDSE2C1C6C54 040
8O 40808080 4048040
4040
80402010
08080201
iF BF
2C 00 1D2B 00
2c 00 1D31 05
13MAR70
571512
DATA
ADDR
1c9c
ICAE
10C0
1cD2
ICE
1CF6
1CF7
1CFA
1CFE
1D00
1Du6
1D47
1D48
1p4a9g
IDSA
1D4&B
1TD4C
1D4D
IDE
1D4P
1350
O6APR70
571516
STST
1239
1240
1240
1240
1241
1241
1201
1242
1242
1242
1243
1243
1243
1244
1248
1244
1245
1245
1245
1246
1247
12488
1289
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1268
1265
1266
1267
1268
1269
1270
1271
1272
1273
12748
1275
1276
1277
1278
1279
1280
1281
1282
1283
SOURCE STATEMENT
STMASK
READ1
*
SHIFT
MYCTIBN
TBNK
SBN
SHFEXT
CYLNO
SHFTBL
22MAY70
571513
bc
nc
DC
oe
bc
SUBROUTINE TO SHIFT
CLIB*EQUIPRENT CHECK
CL1I8*DATA CHECK
CL18*RO RECORD POUND
CLi8*TK CCNDITIOR
CL18*SEEK CHECK
CL18* UNSAFE
s
XL&*804020108
XL4*08040201'
AL2(READ+255)
ST SRPEXT+3, ARR
L SHFEXT+3 ,IR1
L SHPEXT+3,XB2
A TRO,XR2
ST SHFEXT+3 ,XR2
NVI CYLNO,0
LA SHFTBL,XR2
L 1(,XB1) ,XR1
RVC TBN+1(1) ,0(,XR2)
MVC SBN+1 (1) ,5(,XR2)
TBN 2(,XR1) ,#-
*JF #47
SBN CYLNO, *-
*CLI TBN+1,X°U0°
JE SHPEXT
LA 1(,XR2) ,XR2
B MYCTBE
B e—t&
pc XL1*O
*DC XL7"'08
*pc XL1*08
*DC XL1" 108
DC XL1'20°
pc XL1* 40°
Dc XL1°01°
pc XL1"O02°
DC XL1°0a08
pe XL1*08
*DC XL1'10°
01A0G70 010CT76
571531 5715.46
PART WO. 5$129638
PACE 12a
CHECK?
BITS IW CONTROL FIELD
STORE ADDRESS RELALL REGISTER
LOAD EXIT ADDRESS IW XR?
LOAD EXIT ADDRESS IN XR2
INCREASE BY 2
STORE 7CR TRUE EXIT ADDRESS
ZERZ WORK AREA
LOAD ADDRESS OF SHIPT TATLE IN XR2
LOAD CONTROL FIELD ADDRESS IN XR1
INSERT CORRECT MASK FOR TZST BITS
INSERT CORRECT BITS YOR SET BITS
TEST OWE BIT FOR OF
JUMP IF OFF
SET ONE BIT ON IN DECISAL FIELD
TEST FOR LAST BIT
JUAP TO EXIT IF ALL DONE
NCT DONE, STEP xXR2
TO TEST NEXT BIT
EXIT
: PROG ID 0a08-3
7 PAGE 124
ry
zy
IBM SAINTENANCE DIACNOSTIC PROGRAM
‘2083
ERR LOC
1D51
1D52
1D56
IDSA
1DSE
1D62
1DE66
ID6A
ID6E
1D74
ID7A
1D8C
1D86
yD8C
iDgy2
1D95
ID9B
1DSF
1DA3
TDAS
IDAC
IDAE
ipco
1ECO
DATE
EC WO.
READ DATA
OBJECT CODE ADDR
00 1D51
36 08 1A53
34 08 1D73
36 08 1998
34 08 1D79
34 08 1D7F
36 UB 1A53
34 08 IDA2
0c 01 1D85 0000
0c 01 1D98 0000
OC 61 1D89 0000
cc CO 1D51 oC00
04 20 0000 1DAD
OF 00 1D51 1A53
F2 82 OA
06 20 0000 1DA3
cO 87 1D8C
CO 87 6000
PI 1DA3
FIF2F3FUFSF6F7F8 1DAD
FOFO
1DBP
1DCcO
1EBF
1ECO
1F BF
0003
0076
0001
0002
0008
0002
0003
OOA6
OOA4
0080
0040
0208
0202
0212
0216
O21A
O21
0222
022A
003c
003P
0c26
13MAR70 O6APR7O
571512 571516
SOORCE
1285
*HXBYT
CVC
FRCR
TYBOT
OTOCRZ
FRCBYT
ZROTO
DECGAN
TOBYT
TIXE
DECONE
UNITS
STATPR
WORK
READ
H1
H2
XE 1
22MAY70
571513
PART
PAGE
wo. 5129634
13
STATEMENT
SUBROUTINE TO CONVERT A NUMBER TO DECIMAL
DC XL1*O#
A ONE, ARR ADD ONE TO GET FIRST PARAMETER
ST FROM+5, ARR INSERT THE FROM ADDRESS
A TWO, ARR ADD TWO TO GET THE SECOND PARAMETER
ST TYBOT+5,ARR INSERT THE TO ADDR
ST OTORZ+5, ARR
A ONE, ARR ADD ONE FOR EXIT ADDRESS
ST TI XE+3,ARR STORE EXIT ADDRESS
MVC FROBYT+5(2),*-
*MYC TOBYT+3(2) ,*-
*MYC ZROTO+3 (2) ,*-
*HVC HXBYT(1) ,#-* PUT BYTE IN WORK AREA
ZAZ *-¥*(3) , UNITS (1) ZERO THE TO AREA
SLC HXBYT(1),ONE DECREMENT THE HEX BYTE
JL TIXE JUMP IF BELOW 1
AZ *-+ (3) , DECONE (1) INCREMENT THE DECIMAL COUNT
B DECGAN
B *-* EXIT
DC cL1¢18
DC CL10'1238567890'
DS CL18
ECU.
*DS CL256
EQU)
*DS CL256
FOR x"03! HALT DISPLAY 1
EOD) Xx'76! HALT DISPLAY 2
EQU. 01
EQU 02
EOD 08
FOO x*02!
EQU xX*03!
EQU X* a6!
FOU x*ay?
EQU) x*80!
FOU x*4o!
EQU =x" 2088
EQD) X*20A
*EQU) x'2128
EQU X*2176!
EQU xX*21TAP
EQU X*"21E?
EQU Xx*"222"
EQU X*22A‘
EQU x#3Cc! HALT DISPLAY F
EQD X*3F! RALT DISPLAY A
END BEGIN
@
01A0G70 010C7T70 PROG ID 0aA08-3
571531 571540 PAGE 13
©
oO o 9 ®&
Q
©
)
e)
Cc
O
cy
Cc)
oO 08 8 QQ 4
oO Oo 8 8 &
Oo 8 Oo ©
eoeos
1
5
€
S
S
€
¢
ry
€
¢€
¢
©
t:
IBS MAINTENANCE DIAGNOSTIC PROGRAS
a0 83
SYMBOL
ADREXT
ALLNED
ARIVED
ARR
408
BEGIN
BITO
BIT
DATE
EC NO.
3
Q > =» mw
CO pe De be De pe be De pe DD De be be De pe Be pe De ee De be De be pe ee be pe ee pe De De ee De ee) ee De ee OD)
REA D DATA
LEN VALUE DEFN
005 ‘BSF 1150
026 186A 0920
023 1A27 1084
001 OCOB 1317
901 0000 6003
CO& O0C26 0179
001 0080 1322
001 OO46 1323
004 B74 1162
001 <A6F 1073
006 %180F 0897
004 147BD 0873
003 17C9 0876
003 ‘TABS 1097
O0C1 OOA6 1320
008 1D52 1288
007 ID46 1272
001 OOA&S 1321
008 18E9 0960
002 18CE 0988
002 1%8E2 06957
O43 19C7 7041
025 19FE0 1042
o04 18D9 0953
004 1A7B 1077
004 ‘TA77 1076
006 DSC 1300
001 DAZ 1305
002 1B6B 1157
002 ‘A7D 1078
001 1B66 1154
002 1B6D 1158
002 1A81 1080
002 ‘A7F 1079
002 1869 1156
O0C6 OCBC 0216
036 OFTE 0369
043 OF4S9 0370
005 OF82 0372
015 OFCS 0374
025 100F 0376
032 1059 0378
037 1346 0632
032 139A 0634
038 $1518 9748
043 1577 0750
028 416A5 0854
024 16F7 0856
036 1749 0858
033 4179E 0860
007 OCF7 0218
015 OD3A 0220
001 1A6E 1071
001 105A 0379
ocS 1891 0922
004 OBDS8 0149
O08 189A 0524
006 i1D80 1298
006 1D6E 1295
001 B64 1152
003 1B3E 1140
001 O003F 1333
001 0222 1330
13MA R70 O6APR70
571512 571516
CROSS- REFERENCE
REFERENCES
1146
0902
1012 1022
0025 0111 0863 0873 0930 0962 0985 1060
1289 1290*% 1291 1292 1293% 1294
7334
4103
0167
0352 0511
0881
1098
0278 0837 106010 1168
0279 O438 0868 1258* 1265
0935
0930* 0931 0933* 0938 0951
0947
0956
0942
1303
1302
1090* 1099 1129
1106 1121
*0252* 0267* 0411# 0426* 0553¢ 0657* 0778* 1100
0745* 0155* 0884 1093
0677 0976
0280 0281* 0287 6439 O48480* 0846 0868
*0300 0459 0596 0711
0328 O48?
0311 0470
0359* 0364 0518* 0524
0345 0504 0624 0739
0580* O584& 2
0607 %
0699
0722
0801
0817
0832
OBu4
0196
0208
0013
0238* 0289 0264 0305 0358* 0397% 0408 0423
0886
0142
0897
1295
1289
*0092* 10371 1118% 1123 1125%
1134
0128 0198 0210 ©0288 0302 06313 0330 0347
0489 O5C6 0525 0585 0598 0609 0626 0678
0804 0820 0835 Ges7 0893 0904 0949 0958
22NAY70 OTAUG70 010CT70
571513 571531 5715490
1085
Ou64
O3€5
0700
0977
1781
0513
*O4an7
0713
1032
PART WO. 5129638
PAGE 13:
1253 12888
0461 0872
0728 O741
1173
PrceG ID Oa0s~
PAGE 13
es
IBM MAINTENANCE DIAGNOSTIC PROGRAN
A083
€ SYMBOL
HDEXT
HDTBL
HEXSTA
ey
ey
x
»
wm
og
4
ro
°° PRTEXT
PRTHEX
PRTSNS
‘ PRISPN
CODE
RDDFC
* READ
READ1
REMvDS
RLDFCR
RMVDSK
ROUTNO
RPFX
RSIO
RTN1
RINVA
RTNITA2
RTN1B
RTNIC
RTN2
RTN2A
RTN2B
RTN2E1
RTN2B2
RTN2C
RTN2C1
RTN2C2
RTN2D
RTN2ZE
RTNQF
RTN2G
RTN2H
RTN2J
RTN2K
RTN2L
RTN2S
RT N3
DATE
Ec NO.
4
@e0254aeaee50nueaueanueeeeenenenes eee e 08808886 @ @
T
pr > pe YD On Erp Pe ee POOP Se PY Ow DP
be te be oe oe oe oe oe oe oe oe Oo oe OO oe eo
REATL
LEN VALUE
004 1808
001 1849
008 C54
001 003c
Oot 1D51
0ci 0003
O01 0076
003 195¢
019° 08B28
001 1865
004 ABB
OO& IABF
O01 02 16
001 O22A
C05 BDI
005 %4D20
002 1371
C03 1B4F
026 OBO9
002 1253
O34 18&8C
002 199A
006 ‘ID7A
001 OB15
00% O27A
004 1¢34
004 1¢2C
004 1BB1
OC4H OACE
001 1AG6E
001 AYE
007 1ECO
002 1D00
001 OBOC
O04 1B1B
005 1896
C01 1A82
0071 OAD3
003 IBF
001 0c22
004 OC2E
004 0c5B
0cu 0C68
O04 oOCc8&4
001 OD3B
004 OD&F
OCcu OD6A
004 ODA8
004 ODFI
004 ODCE
OC4 ODFF
006 OE16
004 OE2F
O04 OED
003 OF33
O08 OESD
003 O0£F61
O0&8 OE7B
OCu OEFSB
008 OF96
006 OE9A
001 1058
13MAR70
571512
DATA
DEFN
0895
0912
12353
1332
1287
1313
1374
1004
0107
1153
1099
1100
1327
1331
1198
1261
1160
1785
0035
1056
0921
1038
4297
0106
1328
1233
1229
17181
0082
1072
1052
1310
1249
0098
1129
0923
1081
_ 1177
1130
0175
0781
0193
0200
0213
0225
0233
0241
0262
0292
0276
0295
0305
0316
0325
0317
0333
0334
0342
0350
0353
0354
0384
OG6APR70
571516
REFERENCES
0873
0090
*1188
0877
0091
1226
1298
0997
0125
1128
0033
0067
*0768
0052
1213
1269
1162
1133
00489
0143
0883
*0354
1292
0112
0046
0443
0708
4013
1187
1216
0283
0080
1800
1132
7150
0898
0151
0513
0082
0456
0718
1019
036C
0184
02404
1249
0338
0034
0073
0883
C245
0497
1165
0074
0012
0213
0190
0192
02048
0177
0353
0355
0258
0273
¢
0296
0307
0318
0323
0322
0340
0335
0290
0367
0351
0227
0339
22MAY70
$71513
1300%
O8B6
*071.4%
0185
*006 3
*1092%
CROSS- REFERENCE
0091* 0229
1232
1011
113E€ 1742
0906
0154 0629
0887* 0891
0161* 1029*%
0086 0122
O467 O8B4
0736 0798
1024 1168
O442 0519
0189
0245* 0266
0138
10 96
*OTAUG70
571531
0388 0537
1149%
0744 0849
0193 0205
0501 0521
0814 0828
1193 1203
0578 0673
0293 0333
010CT70
571540
0644
1288
0234
0581
0841
1229
0695
0403
*0762
1293
C297
0593
0888
0972
0404
0897
1300
0308 0325
0604 0621
0899 0944
O4CE* 0425
PART NO.
PAGE
0342 0361
0674 0696
0953 0973
0852 0492
PROG ID
PAGE
5129638
14
OCA0B-3
14
Ce
cN
oy
om
7
o
O
oO Oo of Af OO OO 8 8&8 © 8B @
O
A)
9
a) ey im > ? a) ¢>
é
xX ©
oO
Qo 9
o
IBS MAINTENANCE DIAGNOSTIC PROGRARA
A083
SYSBOL
RTNZA
RTN3B
RITN3B1
RTN3E2
RTN3C
RTN3C1
RTN3C2
RTN3D
RTN3E
RTN3F
RTN3G
RTN3H
RTN30
RTN3K
RTN3L
RTN3A
RTNY
RING A
RTNYB
RTNGE1
RTN4&YB2
RTNSC
RTN&CT
RTN&C2
RTN&D
RTNGE
RTNGP
RTNYG
RTNS
RTNSA
RTNSB
RTNSE1
RITNSE2
RTN5 E3
RTN5C
RTNSCi
RTN5C2
BT NSD
RTNSE
RYTNSF
RTN5SG
RT N6
RTN6A
RTNOB
RTN6B1
RT N6 E2
RTN6C
RTN6D
RTNOE
RT N6OF
RUNFIX
RUNRAV
SAVSW®
SEN
SCRCH
SECMSG
SECTBL
SECTSW
SEEKCE
SEEKER
SEEK EX
SEEKID
SEEKTS
SEKER1
SEKER2
SEKE XT
DATE
Ec NO.
® EAD DATA
T LEN VALUE DEFR
A 004 106F 90392
2 008 108A 04800
A 004 10C8 0421
A 008 1119 0451
A CO& 1T0EE 0435
A004 117F O45S8
A 006 1136 O864
A 004 114F 0475
A 008 1716D O484
A G03 1153 0476
A 004 117D 0492
A 003 1181 0493
A 004 119B 0501
A 008 11AB 0509
A 008 141B6 0512
A 006 11BA 0513
A 001 11E7 0533
A 004 11FB 0541
A 004 1207 05485
A O08 123B 0563
A 0048 1282 0588
A004 1267 0578
A 008 1288 0591
A 004 129F 0601
A OC& 12B6 0612
A008 12D4 0621
A 003 12BA 0613
A 006 12E4 0629
A 001 139B 06490
A 008 13AF 0648
A 008 13BB 0651
A 004 13EF 0665
A 008 1419 0681
aA O08 1453 0703
A 008 1481 0695
A 004 1459 0706
BR 004 1470 0716
A004 1487 0727
A 008 14A5 0736
A 003 148B 0728
A 006 1485 0744
A 001 1578 0758
A 0048 158C 0767
A 004 1598 0771
A C04 15C8 0788
A 004 15E8 0798
A 004 15F8 0807
A 008 1614 0823
A 004 1637 0838
A 006 1648 O849
A 001 OBI2 0704
A 001 0811 0103
A 001 1B67 1155
A 004 1D30 1265
A 00141 1863 1151
A 033 O0B61 0109
3 001 182F 0909
c¢ 001 O20kR 1325
A004 ‘I8ED 0962
A 008 195D 1010
A 008 1921 0981
A 002 196E 1017
A 004 191D 0980
A 042 ‘AOA 1083
A040 TAKS) 1085
A 0048 1956 10063
T3MART7O O6APR70
571512 571516
REFERENCES
0512
0544
0417
0432
0455
0466
0877
0882
0481
C899
04894
ound
0527
0510
0386
0630
0498
0559
0575
0592
0603
0674
0619
0618
0535
0745
0662
0671
0692
07 07
0717
0729
0734
0733
0642
0851
0784
0795
0797
0812
0827
0840
0116
0134
1087
*1262
*1136
0085
0238
0120
0183
0993
0962
*07281
1104
0393
0132
02393
100 1
0970
1016
1027
0985
*22m AY70
571513
0440
1137%
0149 0156%
0146
*1122
*CROSS-REFERENCE
1141* 17862¢ 1148
0865
0136
0398
0875
0543
01A0G 70
571531
0650 0769 0850
OtocT70
571580
PART HO. 5129638
PAGE IGA
|
PROG ID OAOB-3
PAGE 74a
۩CCCCCCCHCCCCCHCCOCCSEHSECSEESESESESCECEEEEeE
ey
fs
ee
7
ite) ry
ws
es
v4
ot
mo
“a
©
IBA MAINTENANCE DIAGNOSTIC PROGRAR PART NO. 5129634 | IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 5129638
PAGE 15 € | @ PAGE 154
A083 READ DATA © | ‘s a083 READ DATA
|
CROSS- REFERENCE i CROSS-REFERENCE
SYMBOL T LEN VALUE DEFN REFERENCES © | @ SYsBOL T LEN VALUE DEFN REFERENCES
SENSA A 008 1€03 1215 1209 TSTSPN A OOU OB62 0111 0181 0233 0392 0541 0648 0767
SENSB A 003 BFC 1212 1228 G iG <sts# a 00% oOBs0 0120 0115 0131
SENSC A008 1€17 1221 12184 TSTTP A O08 1A9E 1091
SENSE A008 1A58 1060 0075 0200 0807 0934 0986 1182 1219 THO A 0U2 1998 1037 0933 125€ 1290
SETA 2005 OA6C 0055 0038 © | @ gTwozR A 002° 0314 0105 0051 0116 0185
SETADA A 00S 1822 1132 11248 TYBOT A006 1D7& 1296 1291%
SETADB A 005 1855 1188 1138 1143 UDTPTR A 002 OBOB 0096 0028 0031* 0032 0051* 00664
SETADR A 003 AEA 1116 1098 © | & UFIND1 A O68 OA24 0032 0029
SETB A OCS OA78 0059 0042 UFIND2 A 00% 0A20 0031 0045
SETBTH A063 OA8B 0065 0057 0062 ONITS A 010 DAD 1306 1299
SETDSK A 0C& OAODD 0025 0780 0232 0391 05450 0647 0765 O @ ONPACK C 001 021E 13295 1185 1223
SETERA 8 003 17AD 0866 0864u% UTAB C001 0232 0097 0030
SETEPR A OCH 179F 0863 0282 0441 SAIT aAOOU ACA 1103 0069* 1163
SETERX A 004 1739 0869 0863+ G @ WORK a 001 1DcO 1308 O02871* 02482 0242* 0251 0316 O400* 0407 O801* 0810 O475 0585 0596
SETEXT A 004 OREC 0693 0025* : 0546* 0547 0547* 0552 0567* 0563 0568* 0569 0569 0589 0612 0651¢
SETFIX A004 JAAD 1095 0652 0652* 0653 0653* 0656 068G* 0685 0685* 0686 O686* 0706 0727
SETRMV A 008 OBBC 0141 0118 0137 0139 Ge 0771* 0772 0772* 0773 0773 0777 0828 1039 4158
SETSPN A 006 OB74 0116 0113 WORK? A 002 1996 1036 0321 O88C 0617 0732 0932* 0937
SETSW A001 OBOD 0099 0026* 0050* 0163* 0173 0231 0390 0539 0646 07648 1030% WORK2 A 002 199C 1039 0940
SETXR2 A 002 1A69 1066 1085* 1086 1108 © @ wWRIDFC A001 1ASA 1047 0237* 0288* 0249* 0257 0263* 0268* 0272 0277 0295 0305 0350 0396¢
SET203 A 004 OABF 0078 0407* O4FO8* 0816 0422* 0423% 0431 0836 O855 046% 9509 05462¢ 95508
SHFEXT A 00% 1D&2 1270 1253* 1258 1255 1257*® 1267 . 0558 0564* 0565* 0574 0591 0601 0689* 0655" 0661 0666* 0670 0682¢
SHFTBL A 007 IDG7 1274 1259 G @6 0691 0706 0716 0768* 0775* 0783 0789* 0790* 0798 0826 0838 0°63
SHIFT A 004 1D01 1253 0276 0835 0969
SIO A 003 1AC7 1102 0068* 108&* 1089* 1091* 1095* WRTER2 A 008% OFAS 0357 0260 0561 0664 0786
SIXSIX A 002 18373 1161 CG @ wWRIER3 A008 11C4 0516 0419
SKTSTA A 004 1929 0986 0990 XR1 Cc 001 0001 1315 0030* 0037 0032* 0037 -0041 0043 O04N O0088* 0961 0065 0065" 0066
SNS A 008 1461 1063 0072* 1062* | 0251* 0252 0266* 0267 0358* 0359 0810* 08117 (C4&25* 0426 0517 0518
SSID A O02 1BD8 1197 0287* 0262* 0357* O406* 0421* 0516* 0549* 0563* 0654* 0665* 0681* 0788* GS lg 0552* 0553 0579* 9580 0656* 0657 ©777* O778 0O867*% 0868 08782 0882
0964* 0887 1061* 1062 1068 1101* 1162 1190 1199 1212 1272 1218 12218
SNSXR2 A002 1A6D 1068 0320* 0321 0337* 0338 O0479* 0480 04896* 0497 0616* 0617 0731* 0732 1254%* 1260 1260* 1263 ;
O0879* O88C 1060* 1061 Gi @ xr2 ¢c 001 0002 1316 033+ 0055 0059 0067 0068 0069 0070 06671 0072 0073 C078 02299
SESO1 A002 4A71 1074 9230 0234* 0235 0236 0236 0316* 0317 0319 0319% 0320 0333 03338
“SNS23° A002 1873 1075 0336 0336* 0337 0388* 9389 0393* 9394 0395 0395 0575" 0376 0578
SPNDLA A O0C1 OBOF 0101 0055 6190 0478* 0479 0C492* 0493 0895 0895* 0896 0537* 0538 0612 0633 0615
SPNDLB A 001 0B10 0102 0059 0615* 0616 O6448* 0645 0727* 0728 0730 0730* 0731 0762* 0763 o865¢
SPNMSG A 024 OB4O 0108 0056* 0060* 0089 0866 0875* 0876 0878 0878* 0879. 0931* 0932 1086*% 1088 1089 1090
STATPR A018 DBF 1307 1199% 120€ Cle 1097) 1106 1107 11708* 1109 12719 1121 #1116 #1119 #11208 1121 1126
STATUS A 062 1A6B 1067 0079 0782* 0202 0810 0937 0380 0989 0992 1063* 1187 1201 1225 | 1127) 1132 «©1135 «©1137 1180) «411810 «127850 «1188 «61189 1191* 1198 1231
STATWD A018 1C66 1237 1190 41196 1211* 1227 1255* 1256* 1257 1259* 1261 1262 1268 1268
*STATO1 C 001 0002 1318 0201 O808 0987 1183 CG G@ XxXR2WK A002 1B6F 1159 1119* 112C
STAT23 C 001 0003 1319 ZROCTR A OC4 OBFE 0160 0717 0150
ST EP A&A 001 O0C21 0169 01784* 0152 0165 ZROTO aA C06 I>DS6 1299 1297%
STMASK A 001 CFV 1286 1991 1227 C 4
STPSNS A004 1BF2 1208 1188* 1202 1215 1217# TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = o
STRTIO A 004 1883 1085 0186 0254 0269 0413 0428 0555 0571 0658 0667 0688 0780 0791 i
0966 09948 GC @e
SWITCH C 001 0208 1324 0035 003¢
TBLEND A 002 1848 0911 08380
TBLH A002 182E 0908 0143* 0151* 0154* 0230* 0358 0389* 0517 0538* 0579 0629% 0645* O744* Cc ¢g
0763* 0889* 0867 0874
TBN A 003 1D2A 1263 1261* 1266
TEST C001 0212 1326 0130 2 96
THALT A 004 1892 1173
TIMOUT A021 ‘BBO 1176 1166 1167* 1171
TIXE A CON DOF 1304 1298* 1391 Co 6
TOERYT A006 1D95 1302 1296
*TRACK# A 001 OBOE 0100 0078* 008 7* 0963 1000
TSTBT &€ 004 %1BE3 1201 1198* 1208 Oo 9
TSTDAT A 004 189B 0930 0292 9851 0588 0703 0823
TSTEFR A003 1AE1 1109 0070* 1105
TSTEXT A 008 OBPA 0158 0177* 0187 cia
TSTFIX A O08 OBAA 0136 0133
TSTRAV A O04 OB9F 0132 0121
@STSCN A003 AES 1140 0071* Gc @
TSTSEK A008 1925 0985 0980
0:16
DATE 13HAR70 O6APR70 22MA¥70 071A0G70 010CT70 PROG ID 0A08-3 DATE *3MAR70 O6APR70 22m AY70 01A0G70 010CT70 . ~ PROG ID 0a08-3
EC NO. 571512 571516 571543 571531 5715480 PAGE 15 | EC NO. 571512 571516 571513 571531 571580 PAGE ISA
: Q '@
CG °o
yo
co
IBS MAINTENANCE DIAGNOSTIC PROGRAMS
A083 R EAD
THE CHARACTER
CL 1 THROUGH 16 CL 17 THROUGH 32
T+-¥:YH< & CBH
T+-Z5-K@8 GH.2/
T+-DOV1+H .DC3
T+-,, A&* B- F2
T+-S%WOH*® <GLUUC
T+-_/S5*-5N5>R BaP
T+->*( -. "LG BIP
T+-?PB8 BA HHO/
T+-OK]& .D?HAGOB
T+-V(CBD* OYCOHD
T+-2HCET /O01MOH
*- Tt-3C2<N S'XEV*Y
T+-3=8aE 94.15%)
T4+-49E<$09 (PDE (P
T+-5U1-H DE?B //
14-62 A="C}B57/=
T+-73C ELAAEO-D
T+-8VF-ROC1# /0H
T+-9- 1EADOH*®BEDA
T+-:$2;* @-DMB-H
T+-#OD EY RWEBGCOY
DATE
EC NO.
13MARTO
571512
DATA
ESD & CESHB>Za"0%
Fx$ @YD>;A AU-D
2B4A8 5.20 6a"0%
“OH*EN Ha20%e+ -
U5*XTBUCHO; PES<.
S8@XN 14CD2;-KE<L
2 &*O" ORNDY*<CED
D{ [email protected] -,2D %
AF F8EM34 ACBG2-50
oc@Bs vo. & (+34
<E<BG /,P+037YDC
0941 1) XR5_XSE($
OMCNS_N 1;718>}
suNGeie os) Wae
H( HOTS BO7 -6Y
"}AHS6CO FUG< AZ
;0CEAF67 /1DC &
SYD.2/9. /1S$G2_
DO-H) 0.7X | HAE+H
A( HESE4AFWS) (Hi
@D/20(&D0Qhttps://archive.org/stream/bitsavers_ibmsystem3_47662652/0 D @
O6APR70
571516
22BaY70
571513
OBJECT CARD LISTING
CL 33 THROUGH 48
(18 -BYHABCHA TH
CCI HH<BG /YFF-%
<4-DC( D.B2- PR
EFVHEACIXBO# /0H
E1)N 8aPS8aPD
R2;PEG+7B1*-I58C
.D-SM@YFAaY*a+ 0
*HOK<@YDD] | @. DTU
+ J->FV<@BA_Z}
“BO? -6Y (OH*. QTO
" /OHSYDC /12M T-
CO=LR6 *PDE+$H2) |
AS; ( BXPCB *SRE<X
RI#GDECLABAE O'S
(OH*. ORHBFB=a_ AS
<CE,B J7 ( DS3*B
EK%BGC+X /0740H
** "12 (@YDSO0R* BPSO
B LEBFRU( JZ_PRS
MECBGCWG /OHE1UY
DOH*S%*BG /YFK/
OTA0G70
571531
CL 49 THROUGH 64
4 &%. (ED. BaHBF, 0
I] ~CE0ABO%.E<B
H E2 Y Ayes 3B-
E KD.Q*BG /YFF _
eeoamewve 2
B-% 2) P
R1*GDECLAB@E 1>L
BB?HEF<BG /, FDO%
"B1G2-JM+ J->FV<
o¢ ee
~D&BG "A-YC|
“FW, /1T_1}OELCO
DPW, 2DAC /OHEWK<
E+. E1).15*) 8aT
DE<LIIDCNS>( 1X
MS<GNIDCUSKXNT4C
RE/OP} ELCO DE,
GFY<B AZHOH* (D<B
) JZHOH*) H/SFC18
,CUW-E@BG SH-604
2-JL /0830H* BF%Q
G6OEAFOH*BHDAFING
{ OH*BHD KOH*+y>}
010cT70
571540
INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NOMERIC SHIFT.
CL 65 THROUGH 80
@ %<+ HBB"HEAXE
G SY GH- &494D
FH H £96 Y AZ
° o
1 QL OBFDSOLCO
V0) |I1DCS8>R S&P
-NO=}I5_N B@PSB4uC
YY}, /CHSYI, /08
2 60/1 $ELO BIG
.ESHABCO BO7 /0_
AFVD.E<BGPY<A AZ
(+ DAAOBR*BHDAAOH
*EE <}EE<| YG 'XEO*)
¥1NCE6) X06) POS (x
ABSPCB 'SRE<XDE ($
" /1T_1 +*;203=6,8
GCEL /0:0|DHS6CO
@E @*0H* PX OBGFEG
FUOE0?HAD<BG /,
9CBH-J*BG SH-J*H
EL |HAB<BGE#7 /05
H1MCP6*PV 2) $UBUC
PROG ID
PART NO.
PAGE 16
5129634
CL 81 THROUGH 96
-"|H 0:080830001
.6]H RE&4A0830002
S B- 1T<A0830003
"F6E @L*R0830004
T820 N/4R0830005
Aa|- &3*20830006
KOH* @#-A0830007
2/2H "Q<A0830008
“1°” LDea0830009
+0H* 1¥-20830010
<.>< 09HA0830011
”4<D 4000830012
E04% 9K#A0830013
FE<Q MHOA0830014
3230 J: 40830015
"FUG N9BA0830016
"OR &BE 0830017
F&0@ @1 A0830618
BG% 61HA0830019
|c- 271840830020
£6) 0 *$0A0830021
0a08-3
PAGE 16
2 0 0 0 00 00 484 9 2
oO
o 89 0 0 G6 6 8 ©
o 80 G OO
© 0 @ 0 8 8 8 4
eo 9 © @ 6 6 6 @&@ @ 6
Qo 9g &@® a4 @&@ 989 GO @
eo
QO
©
IBS MAINTENANCE DIAGNOSTIC PROGRAH
A083 R EAD
CL 1 THROUGH 16
T+-835_XSE+SEGAN
T+-"<E+) ,6+.E0=]
T+#-=GGON TEX EG|I
T+-"BMDCS1*}T5_V
T+-"" 1#SDB8 ATES (-
“T+/ 85(LA5*I 94.
T+/A 36 <GF 8OPRE<-
T+/B> /-2? P, AQ
piveubceiven Jas
T+/DUO H*&# %BGGED
T+/E-D<BG /,FHS!
T+/F FCEDES JW O@Y D
T+/GNOH* BFSREDEW
T+/HE/OBKEADYSC@B
T+/I-C [a;21# | AR
T+/HF" /==G#86"1:
T+/.A0C7"P U72-JC
T+/.8 LEBPWH( JZ
T+ /<76)R8UCW1) X
T+/ (26+) ,&+.E0={
T+/+_5@PDE<}06)X
T+/| YC*¥BGBEHOPAZ
DATE 13MART7O
EC NO. 571512
DATA
CL 17 THROUGH 32
"5 XEBSPNBUCAID]
O6MCX9=. E0=] O6MC
9RGSE<GLBAPRIEI
" O>TTINCO1UCCS_P
R1; PIS>LSE<PR6) $
I5*) 2<PA1DCO6*P
I9*XNTUCAS (XEO*I
O32 FUO@-AAEOH®
C - EKXBGXT s1C
EK%BGGNH)J-a;|D.
IYD] /OHSYD<( AZ
MOH*JN@BG /, FtE=
-J%BG SH-JT7*F03
G SH-ESBGDSOD A+
$6COAFU7B 37 ( D
"GEC /1DC & ERB
” /OHE1S%| KEACOH#
_FRS2-JL /1H:0H
*E&(AR1;.E5; ( 0*S
-&{ A MDC12<PAIDA
EO=| L:DCA1>}E6NC
OBJECT CARD LISTING
CL 33 THROUGH 48
EGOMCDS&XNIGCAE (X
C 5>LNBAPRE<XNE<|
* os$T1)¥ 1@xV2)P
T6) SLEC$I1) | DE<]
R 80CO08{ j U6) XE1DC
A1DCF2*PLIDCD5%P
4<GTONCCS_LNO) P
Q#L3XG ,a<"/:=G,a
DOH*J1C1GF'~a Az
|G<BGE9" /1>10H
*<DE,2-3C /OHEIK
BYDP /OHSYDPB /#
2 6T /1;°0R*E$08
SO-HOKCEBFBB* &
S$*BGFY<E AZHOH
*GDY. /11X0H*SSLE
PEDAC]&&EL| RAD<B
BFSREDEW-J%BG SH
TV 1($15*) OC
£6+.E0=|O06MCB:+]
AE|I BKPCH*SRE (X
SOH*QFLIKGERC"1= =GHR<"72=G, DAFA?
OGAPR70 22MAY70 0 1A0G70
571516 571513 571531
CL 49 THROUGH 64
E0*) 1<GTONCCS_L
05;185_( 1SxEMas
GE<E 6*PAIDCDO; 1}
HO) PG1*J 0*$T1)¢
WICXLINCDSKX NISC
SE (POBSCCS_PTOFX
D < D:-B //B( H
@ A="C48+2/7="1A0
(C ELAAEO--D;0C6
BF-RNC1¢ /OHSYD-
| TEADOH*BHDADO-H
"25% a-DNB-HA( RB
” DEYRWSBGDHYOE/?
(OHDHC*BGB6H@ AZ
K+@BGDT~ /0: 0} DH
APB8* ACOACBG /Y
G /,FBA*EYDT /08
~J-8APBSEMAaBGD~?
R1*GDE<La8aE O'S
E&(SPE<} 05; | B5_ (
E0*3 1<GTO&M EPT
Qf DEL*HAG*® 4 J_
o10cT70.—i«w
571580
PART NO.
PAGE
CL 6S THROUGH 80
M0) PDE +LS2) PGE<T
"S)STES.TIPPISL
AE< JOS (LMO) PD2<P
“omcoSen BxPca's
AG*SRZ; | EECLASZE
NECPXSSPCBSPDECL
0.18 BO? -EY (OH
$6C0 FUNK AZ<LZ,
AF67 /1DC & EKSB
2/9. /1S8G@ *12
)O.7X |HAE*HB L&
EScuarws) (HAR<B
Q(sD0https://archive.org/stream/bitsavers_ibmsystem3_47662652/0 D anon
*<OH*OFLUEG F8<" =
SECOAPUL@ AZ<|
POJ (FO H* BRDABOH
*SYDTB /7 23. a-D
T2<N 5*XE9¥X0941
BS<GN1DCU8%XN14C
“aaxeaas 5)$TE+.
B //I( HQ.T4 BOT
_OH*E-O8 FU, /11
PROG ID
PAGE
51296348
164
CL 81 THROUGH 96
ZOE 7Q<A0830022
W6*0 68020830023
AID. 6/8A0830028
RE (D OS%A0330025
“org 25000830026
AB@D 6980830027
_O%H 7~ 40830028
R J& =.BA0330029
GDIU 9S4A0630030
(@YP €9940830031
BFW 68940830032
GDOD m1#A0836033
$%* 2 HA0830038
=G¢2 * QAC830035
=200 $C#A0830036
oW1a +.-A0830037
H8-H 6Z 20830038
4) 0 £9420830039
HID% KIDAG8300480
T1)* Ez 20830081
"ey ) €DA0330082
20H* *7#40830083
oa08-3
16—a
“a8
i
ate
eeevnoeavsevaeneeoneenenoeenoesdeoeeon eee eee 0
G
*
oN ry
nf
oe
of
IBM MAINTERANCE DIAGNOSTIC PROGRAH
AO 83 READ
CL 1 THROUGH 16
T+/ETD=? /O:0} U
T+/9;203=6 #872793
T+/KRD<BG /, PHO!
T+/LMPRY RV PRAEXB
Te/B{ G*N SIXESEP
T+/NH8>$I8 Gj HZ} P
T+/0E6) XEO=|L: DC
T+/P BOT -8Y (OH
*T+/P#/ IPDOH*+ ZCI
m+/06 T--FW?2DAC
T+ /RID<BG /,FKI3
T+/EZO_XA5* | HE<G
T+/$XO=TLK4YCS1) P
T4+/*S5*3 SER O=T
T+/)) O0={ L2BCAi>]
T+/;Q1UCCS_PT6) $
T+/rLVCC? ((.( -
T+/- +P Wd ( OZ_PDT
T+//ICEXCLASEO D
T+/SD. |. 10=.
T4+/S"9=AXE<LIB_.
T+/T:FR32-JL /OH
DATE
EC NO.
13 BAB7O
§71512
DATA
CL 17 THROUGH 32
$6C1*FU3 /1DC_
"G,@;O<BGFY<A AZ
IYD} /OHSYD<*-AZ
GEH? /OHF10 YEOEA
NSUCA1> | EONCDSEX
G2<PAIDAGE+. E0=]}
A1> | EONCAGE (XEO*J
LOT3*FU3 /1T_|4
*<P*-@ JZ(| (OEL<B
” /OHE1UOO@EA+0 HF
SYD" /OHSYDa+ J-
FB@PRE<GTB@PNS=]
S1MCB2; ( 5)$TE+~
LK=.E0=]O06MCC5>L
EEMCAE (XEO*I 1<G
L&E<$I1)] DE<}HO) P
P? 0 E:@)J%HBFB=
*" gataya c 80/15
BESBG /,FF//DY ib
OUDXDE<PRE) SRE+S
P2;7E1(XES+¢No0"
OBJECT CARD LISTING
CL 33 THROUGH 48
EKEBGEAX /1&GOH
*HOW*NM@BGEDS /1>
< GYD &0H*BP &RAE P;
FOH* BHDAFC-DQhttps://archive.org/stream/bitsavers_ibmsystem3_47662652/Z
NIUCAE (XEO*I 1<G
O6NCB: +JE& ($FE<)
” 1€GTO MCUBEENTHC
3203=G #8+703"G ,@
GEY<A AZHOH*N:<B
BEDASOH*QW1# 1&
DEV] /1T_OH*NTCE
Ié*) 8'R 6*PA1DC
ESUCA1>| EOMCAS=|
NS@PRECXNE<] 053 |
TCMCPO;.T&<PNIDC
G1*J 0*$T1)V OMC
a"0 5 J->G 4.0L
O18 $E-HAA-ODFH
*/JOHSYH~ /OHO
IBa/ 0)}LE<KTEO*L
""36HF+05 /TS. D
EIS&R1: =<OH*BHD =OH*0Q:*BG /,FFJX
O6APR70 22MAY70 01A0G70
571516 571513 571531
CL 49 THROUGH 64
$%*BG /YP( 2@0H
*1OH*BP-REEJT /OH
-K*BG SH-K*HBC* B
LOH*L, =] HINCP6*P
TOHCO1UC25+. B0=]
053) R5_( 1SKEWAI
H1D_ 8>$189| H2) P
.0CO FU7B 37 ( D
GE;L /1P80H*BF&R
EL-HAD<BG /, FOA)
" gapsBucI2)R S_N
bO:| AS (7Ae>( 1) P
E5(772) PGE+ 108 (X
R5_( I%XEW9I 5) S
OCC: ({ .2<PAIDA
264+. E0=| O6MCR1*G
"70 ( -QCTMAFBE
QUIO FRDDO H*BF%O
eeonevreecervrene ave &
S8_$L2*J 1) XR5_V
RV-D+ JTAFRT /12Z
“re yousyc" 70
010CT70
5771540
CL 65 THROUGH 80
BHD I] DYS6COAFUS
SYD, /18$G@ "12
'90C2 JES -D4 /Z
¥2) SUBUCE6) XO6;I
06:1 94.15%) 2<P
” 5) $764.71) 9P1*S
GA-C"" HBF DUS /-
$S*BGFYCB AZHOH
*GEDO-L<BG SH-L<B
IYD) /OHSYD<'7AZ
ay XRS_V 1<XDE (P
DE (SFE <| YY@PNIDC
E0#J 1<GTOMCPO;.
TE+.T1)-P1*T OFF
66+. E0=| O6MCB: +}
DE<LAS@E 0;( 1)P
B /-2?& aYD@8-H
SPH2-Z%BG SH-Z%B
eeewtrececeoeveceeaenaees
9%XT2DCH1*GDE+)
MZ YAFWERV2HALES
( -RI 0 PUS.CTO
PART
PAGE 17
PROG ID
NO. 5129634
CL 81 THROUGH 96
2 Ad R/0A0830044
(@YD *28A0830045
_CED =.QA0830046
“oxm 008A0830047
AID $:%A0830048
“O19 LK*A0830049
>|& =HOA0830050
N2¢ HSYA0830051
GFVE ;Z 40830052
<@YD PEMA0830053
o8& =S*A083005848
010 PE-A0830055
TECH ) L#A0830056
R6#M 6TOA0830057
EE(Q *CEA0830058
DE(Q NY0A0830059
A(R 29040830060
ese
G 6Z A0830061
QJ- 5.8A0830062
9=* 92040830063
AFWS ~#DA0830064
IF*- MTDA0830065
OA08-3
PAGE 17
9 00000«0~ ;090 80 8 oO oO FY 00 0 0 0 60 6 &
0 9 909 90 FG
o oOo 980 9 9 92
2 0 ea © @ © 8@ & & & 8
Oo oO OQ 3a
O
O
IBS MAINTENANCE DIAGNOSTIC PROGRAR
ao083 READ
CL 1 THROUGH 16
T+/U5O0B*E-O FU,
T+/VO+ DFE?HER<B
T+/R, /YAEIY/08
*T+/XWBUCS8aPP5aP
TH/Y/5%] C9 (XR1I*I
T+/Z*6;LNS+.E1)I
T+/DP 1ZS C FW?
T+/,K KOAFERC+O-
T+/%( E2< <SR,%
T+/_H J_U>0DB?12
T+/>CO1_VOY*F?
T+ /O=1D $,8BG /,
T+/29/0H3 /Z,GEC
74/04 -GK J. /1?
74/12/0 8>|A8=L
T+/2D2) SNE (XE6<I
TH/3VEDA & (POE (X
T+/4—-5 5. ATEN EDA
1+/5$ RY, FO GLD
T+/60FR-YEASS( -
TE/6_ ) Y@BGGQ3
EC BR* E7*==DC" PHS
ee a ee a eee a ee ee ee ree ee me ee
DATE
EC NO.
13MAR70O
571512
DATA
CL 17 THROUGH 32
" /10) OH*®RB@BGF &G
GFY<A JSYEOH*RK#E
BF-QYFUUa %N)
DE+} OE<XNO'SRO*P
“ORTIN|N SEPEYSX
B@PSB4YCS1*)]T2) $
F2CKHF2 9BA_2@/_
A TMBFRI/Y 3/Z T
C] S$PLPWF673Y B
CAY* ET CF6<% A_
FEI>OYH# /OHSYH#
B J1WO-H*"@BG /,
R]O S@"HART2 FN<
SE<. Y8OP SECXNE<T
- 5<XSBRXNTNCAICL
E0'$R1DCF5>LN1IDA
"SDA EDA EDB EB.
E; Baz D+- ) JTS
) ~3QHFV<4BA6SC D
JO @-G2B"L5' 25
O6APR70
571516
22MAY70
571513
OBJECT CARD LISTING
Cl 33 THROUGH 4&8
/OREATH<2<BG SH
GFB&( AVS$BO#2 E-
~CLO F6L /OHSYC3
C84UCVO) FUIFLAS8@E
RIACT2<N O@N BX
NE<GOaSCF5_V 5 (S$
eawoeeeenseoe ee ee
H+--E2CYRF2E* C
-/0K" &G62 6623 A_
(| DSR-HAI-EDDS$S
2 eeereaeonece
Vv *BGF ,%
/O0 8@XM1)$084C
A JiWY % A?U AO
4 JOECR*EN JB &
ES6_ Cc
RKYCHO) XK1)TU2)—>
6+} KE<}O5S*LI8ax
6B EB J="( -)JLM
GK?2-6°5S -G /14
)/5- Cc D)w¥ coD
01AUG70
$71531
CL 49 THROUGH 64
-B*BGPKP sO ( -
70 OH®) H/T
° eoevanves eo
70 - pGeCc
0* LD6*PSSUCNS> (
AO'I,0)XR2;PEIDC
eweoe
R7HCI5*S$OKO
ee" WBAZZ (EH
2-KB1Z/_,<SESS$*H
Ue DESOKS /_?2-
-0 F6<SRKA F6<
yg mmapycg
ISHCR5>LT2) PEG +>
jG$a+ FE?HEB<B
” OH* BG-HEE1140-#
NSUCOSSA EDA EDA
81) PTE< { HIP KEDA
OSHCC2<PCH>. £1) I
AGNES /5E(-BRWCE
eeoe
-OH* DBA -E— D
010CT70
$71580
PART RO.
PAGE
CL 65 THROUGH 80
RO*BGPVEB+A EE
$FSG /OREOKYEBD.
DOs { AE<GD1(XES>I
"B> LES '15¢+E8) ¥
ABKCC?: ((-6 (POKUC
eee DUBAZ_ (ED
FELO F6*Y 1,8 BO
AF*T3Y CAY/_UI-0
$R-<a" 1X16 SRIB
A@Y*P>-DB. $00D
AF7G /A, HOB*) B-¥
1( -* (@BGPVEB! D
G /YAD/6"1E S$9TE
**apGr"3 /OHE /&
“gpa EDCI5;}E6;P
” 1<GTOMCC2<PCHUA
“oaTEO'T EDA EDA
BGNS3 ASPO-R) 7M
BA -& CQHFV<4BA5
"" 46_CO )MIZLOYH
mse eneenesenee ee ena ee
PROG ID
PAGE
51296348
TTA
CL 81 THROUGH 96
EYKU 37620830066
aOH® QL4A0830067
“gp 11940830068
O6% 78440830069
19=* 9080830070
FS$3- uKRA0830071
“psu ©3420830072
$R™H 02*R08 30073
APLO 2ZDA083C074
| AX 2$YA0830075
Cre ;- 20830076
$2a@ :.440830077
AB>H ;COA0630078
*W< :0%A0830079
E5:< JOEA0630080
“ep £3 a0830081
“S46 13800830082
A KO 6-1'40830985
3(-- @2mA0830084
HAS ‘'$HA0830085
"0DA0830086
02670L:420830087
ee ee ae eet Ae OD ae Om ED eee em eee SSS OY Me ete a ie He eR tee EY I ES i ANH AE ER A al A SO
0A08-3
17a
oe 6828 @.
wi
i
i
eeeeoeo ee
See - : te ae 4 - + se 5 + iat + a ° . . ees . a0, . B : : . . en ; , . ai : ao
‘oe : ‘
(ee ~~ —
(28S RATHTERANCE pracnostic procran Peat BO. 5129636 ¢ TBA AAINTERANCE DIAGNOSTIC PROGRAA PART HO. 5129636 a
we | | oo : | | pace YS | a | Pace | a
ates DIST. write rp Test oR ve ere a2 , e a0ss DIS K @RPITE 1p TEST
ERR LOC CBIFCT CODE ADDR STAT SOURCE STATEREST ERR LOC OBSFCT CODE - ADDR STHT SOURCE STATENERT
a | } | : ‘ : . | 7
0000 2 aod START 0 | : ; GATT 08 NO 1855 I7ES 70 AZZ 0—«-«- RWAITO1, LDFCRE1 SET FOR CURRENT SPISDLE | -
a ? acB «772 *O27* K POR DEVICE STATUS O68
5 Seeserssesseserecersee cess occeHeseese sc sy sostersssesaseseegcsaseseesoses =~ €acc 3C CB ORI ee 73 a qaners 303 cis POR Sak pinicie mao ”
6 ¢ SECTION PREFACE 2 OADO 38 C8 17a5 74a TBM STATUS,xr*O08* TEST CYL 100 BIT
: 7 a eo 6 z OADS F2 90 08 299, oP PRTS Pa IP OF, DO PRINT ;
ues ao cau ee ae iceiya. erect OADT 3C 6&7 0813 TA AVI TRACKS, 103 SET POR HALP CAPACITY DIS ,
: leith 77 ‘
aaa or eet 9 ae seer ee SURSER - e ance - 87 O217K 7% PRTSPS B PRIIT TO PRIEST SECTION HEADING
P 1 . ADP 8 CaDrF 79 pc XLI°ate
e OAC OR51 ORO? 12 DC AL2 (BTR) ADDRESS OF FIRST ROUTISE PREPIZ OazZO 20 OArO 80 oc TLi* 32¢ LESGTS
- Cage ATAG CA0e = 13 pc AL2(ETABLE) ADDRESS OF ERHOR RECORDISG TABLE ‘OAET 0850 O2E2 81 pc AL2 (SECMSG) MESSAGE ADDRESS —
r Ha0a 2010C0 caoc . . pC XL3°a01000° Oa?P3 FrrO ORES 82 pe XL2* FFOO* ,
i : OAPS CO 4&7 0218 8
b . SOSETOSTES FOOT SRSEHS ESET DSO FOESHO SHEET SESSCHHHTESHLHSHTOOSISZOHEE SLO OS B30 ohne - CAES GE Cages ae Sc tLi906* nics i ae yee, ~
eo ° ‘ OAPA 18 OarA 8685 pc IL 1* 20° LEUGTS _ ee
i 18 ¢ 1. SET SWITCH 15 TO SYPASS KUBRING OW THE REMOVABLE DISK CAPB 0P30 OAEC 86 pc &L2 (STNASG) MESSAGE ADDEESS
ee Ser ineE At ee siete crtcies on sree meee e : ci crevasse ae eee ate eine Son ser erase
° £ 8 88 SETEXT 8 s-3 2x1It
r 21 © &. SET SBITCH IF TO BYPASS RUMEIEG OM DISK DRIVZ 2 e 89 -
u Bae a ancatee : 2 eee barat ae Ge et eek 5 oat eee CBOE 90 NOUNIT DC CL26*ALL OBITS HAVE BEEN TESTED®
z 2 er 2 * APD E280CRC1FSCS80C7 90
OA11 38 03 0208 28 TBH SECTS ¥ue1, x10 3° TEST POR SSB 12 6 tP. - OR05 CSCSDSS80E3CSE2E3 90
qe OA1S Pz 90 08 25 3? eo7 JUSP IP EITHER IS orr. 3 OPOD CfCc4u 90
f 0A18 CO &7 165P 26 B PT RSP LD NEXT SECTION IF SOTH ABE OB. OBCr 0100 0810 91 UDTPTR DC XL2*0°
OAIC 3C FF OBI2 a AVI | «-SETSH,X*PR® SET SETOF S#ITCA C232 92 UTAB FOU Xx*2328
i Z 2 CR19 60 0811 93 RENVDS DC XLt°0°
: OA20 3D 00 ©6810 29 CLI UDTPTR,O HAS POINTER BEES INITILIZED? . OR72 CO CB12 98 SETSW DC XL1°Q
*t CA24 F2 01 08 30 Jue OFIND? JOSP IP YES CP13 00 OF13 95 TRACK® DC IL7*00
*OA27 C2 01 0232 31 La OTAB,IR1 LOAD IF sO = i ORT AO CB18 96 SPHDLA DC ZL1*aQ
*: OA28B 33 01 03810 32 UFIND2 S UOTPTE&, IB1 CB15 RD OB1S 97 SPNDLE pC XL7*° 80°
OA2P 35 01 0810 33 OFIND1 L ODTPTE, IR CAIs COCO CB17) 04=—s- 98 «THOZR «pC XL2*O¢
+ 0A33 3C 00 0R11 33 AVI 8 RENYDS,O ZEBO THE RESOVABLE OBLY S¥ITCB = & NEA OO Of18 99 PASS Dc XL1*0
*a = ns aks 9 i See ene sane: vee aoe ee Seance _ OF19 CSCEFENOP3CSE223 OB30 100 SPNNSG DC CL29*KOW TESTING DISK DRIVE x
*. M821 CAILSC7IVOCECS EZ D2 100 :
OA3E 7D AO 00 37 CLY 0(,%R1),x*ac® TEST POR A USIT ADDRESS OF *a®* e t 0829 SOCEL9C9ESCSa0ET7 3700
au) oe a aus = JE ee er ace Tee Is Ong OR3T C2CSCICILSLIOFELY CBSO 103 SECHSG DC CL32* BEGIN WRITE ID FUBCTION TEST A09
*5 ‘ NP39 COFICSROCICREOCE 101
OARB F2 10 06 80 3T #49 JUSP IP ON, WEVYER BRON DISK 2 t £ ORB? ESCSCIFEICIDHDSSO 101
OA3B 7D FO 00 BY CLI O(,XR1),X*BO* TEST FOR A UNIT ADDRESS OF &R® ORGD BICSEPF IOC IFCFO 101
CASE F2 81 25 a2 JE SETB JUSP IP THERE IS ONE 102 ¢ ROUTINE KG. OF, CHECK WRITE ID FUECTIOR © @
4 0a51 78 10 01 a3 TBR 1(,XR1),X°10° TEST POR LaST euTRyY e , 103 © ° USISG HEAD 0 ©
a be 01 03 au LA 3(,XR3) ,XB1 STEP POLETES TO WEIT Estar r “ 108 ”
i 0a57 CO 90 OA2B a5 SF OF ISD2 CONTINUE IP SOT THE LAST ENTRY * =
: OASB 3C CO 0812 a6 AVI SETSW,0 ¢ 2 cae re arn -
aaee = re yeas ORI? ee BAVC) 8 =—s:; UD TPT R(2) , TUCZR = CeS1 01 ORS? 107 RTWY 8 DC XL°01°¢ ROUTINE #0. ,
: =e B RTEBGO TO. RUM ROUTINE 8 OfS2 00 C852 108 pc XL1*°00* BOUTISE FLAGS :
- - 0BS3 Oc 5a
r 0269 08 00 1725 OBiR $0 SETA "ZZ «= LDPCROT,SPNDLA SET TO RUS ON SPIEDLE *a* e Se ee a 6 ce cree Be reg an
peer 45 y On20 23 SVX SPNSSG,C*?* SET MESSAGE POR SPIXDLE °¥° OFSS 3D CO 0R12 191 BEGIN CLI SETSY,0O HAVE PARAMETERS BEER ENTERED?
: = 3 SET STH PROCEED c 2 0B59 CO #1 OADD 112 BE SETDSK BRASCH IF #O
“a 0 e s
OA76 08 00 17E5 0B15 $8 SETB ZZ LDPCR¢1,SPREDLB SET FOR SPINDLE 8. nae ea i ate ie < a vs ie on ereiie HEAD 0
i OA7C 3C F2 0830 - §5 SVI SPNASG,C*2°* SET MESRAGE FOR SPINDLE *2° - 9B65 3C 09 1963 115 uVI SNSID,09 INSERT ID I8 PRIRT
pace ue = e2 =. aes eles ek ne ie oo ce am os REBOVABLE OLY e OB69 OC 00 1789 0813 416 SVC WRTDPC*1(1) - TRACKS SET TO SEEK THE CE TRACK
: OPSP 3C CO 178A 117 AVI WRT DFC*#2,0 SET FOR HEAD 0
: OA86 3C FP 0811 ee BVI BENVDS,X*PPre SET BLT TO SPECIPY REAOVABLE OBLT 2: = CR73 3C CO 189P 118 AVI DISKTP,0O SET POR UPPER DISK
; 0B77 CO 87 17A8 119 B STRTIO TO I/0 SUBROUTIRE
: oun i a teas a SETBTH ea gtoe ere STZP POINTER TO NEXT ENTRY OB7R 00 0278 120 pc XL1*°00° PUNCTION CODE (CO#TROL)
= OB7Cc CO CB7C 121 *00 8
0a91 08 00 1729 1785 62 AZZ LDPDR¢1, LDPCR6} SET POR CURREET SPISDLE 7 aBqD 1788 OBTE 132 Se jue iwarore) COWTEGL FIELD apbaxes
| OA97 08 00 17F5 1725 63 RAZZ =. ST. O0#1, LDPCR+¢1 SET POH CURRENT SPIBDLE OP7P CO 87 CB99 123 B RTN 1A GOOD RETOUR
} OASD Of OO 17F8 1785 64 MZZ 4 =-WAIT¢1,LDPCRON SET POR CURREST SPIEDLE - ORR3 CO 87 ORBT 12a 8 o+8
t OAA3 08 GO 1810 1725 v5 AZZ TSTERR¢1,LDFCRe1 SET POR CURREST SPIKDLE = OF87 CO 87 193C 125 B PRTS#S TO DECODE ERROR
; OA29 08 OO 1813 1785 66 AZZ 8 TSTSCH¢1,LDPCREI SET POR CUREEST SPINDLE OPAB CO 87 O271A 126 B PRIET TO PRINT
eo OAAP 08 OO 179C 1725 67 MZZ SNS¢1,LDPCR¢1 SET POR CURRENT SPINDLE c : ORSP 06 OF8P 127 pc XL1°06* FLAGS
OABS 08 CO 188E 17P5 68 AZZ RLDPCB¢¥,LDPCRO1 SET POR CORRENT SPISDLE : 0R90 35 CB90 (128 pc IL1*53°¢ LENGTS
; OABE 08 00 1852 17F5 69 422 RSI001,LDFCR¢1 SET POR CURRENT SPINDLE 0891 OCA OP92 129 pc AL 2 (ERRORS) BESSAGE ADDEESS
Is. S % ~
'. DATE O6APRT70 22" A170 01A0G70 OTAPR71 ISHART72 PROG ID Oa09-8 CATE C6APRT7O 22M AY70 01A0G70 OVAPR71 1SHARI2 P
‘ ROG ID oacg-8
FC WO. 571516 571513 571531 571565 571591 PAGE ’ £ - EC WO. 571516 $71513 571531 571565 571591 PAGE ta
tf. ele coe ’
PRET HO. 5129636 - TAB MAINTEMASCE DIAGNOSTIC PROcRAS
"TBs sate SWOSTIC PROGRAS : PART HO. 5129636
a 8 PETEuANCE DIAGHOSTIC R tens . se ST as =
, aose DISK BRITE TD TEST Bal O98 DISK BRITE ro TEST
EPR LOC CBJFCT CODE ADDR STAT SOURCE STATESENT ERR LOC OBJECT CODE ADDR STMT SOUNCE STATEARERT .
0B93' CO 87 0222 130 B HALT TO DCP HALT pe? 20 9C33 1738 ecza 198 BC 8 - AL 2 (WRPDFC) ‘COWTEOL FIELD ADDBESS ¢>. ox:
OR97 ADCS cB98 431 DC XL2* a00g* HaLT ID DCSS CO 87 IADE 199 8B CVD TO CONVERT SECTOR RO.
432 ae 0Ca9 TACP OCSA 200 DC AL2 (CYLWO) SOURCE
©0899 CO 87 71705 133 RTRIA B TSTSEK TO TEST POR GOOD SEEK ocsB OfCr ocac 201 DC AL2(ERRO2E) DESTINATION
. 138 . OC&D CO 87 O27A 202 8 PRIST TO PRINT ERROR ON VERIFY
OB9ID 3c OO WAC 135 AVI WORK,O ZERO THE BRITE AREA at Oct? 66 0C54 203 pc XL1°06* PLacS —
OBA1 3C 17 1788 136 SVI @RTDFC+3,23 SET TO #RITE ONE TRACK >. 0C52 4p 0CS2 208 pe IL1°77° LENGTH
OBAS 3C 9C 1963 137 A¥X SNSID,x*9C* PUT MESSAGE ID IW SERSE PRIET : 0C53 OFCP 0c54 205 pc AL2 (EERO2E) SESSAGE ADDRESS
OBAQ 3C FO OCET 138 BVI ERRIA,C*O* SET HEAD O IN MESSAGE Pa 0c55 CO 87 0222 206 B-~—s« HALT TO DCP ERROR Salt
OFAD CO 87 T7848 139 b STRTIO TO I/O SUBROUTINE. a 0cS9 A022 OCSA 207 oc XL2¢a022* Hal? ID
0BB1 62 “ORB 180 DC XL2°02¢ FUNCTION CODE (WRITE) ' 208
OBB2 01 OFB2 181 DC XL1°O1~ CONTROL CODE { 1D} OCSB 3D SC 1782 209 RTNIG CLI wRTDPC+2,x*SC* TEST POR LAST SECTOR VZRIPYED
ORB3 1788 OER’ 142 pc AL2 (WRT DPC) CONTROL FIELD ADDRESS , OCSP CO 81 0216 - 270 RE LINK TO DCP LF FISISHED
OEBS CO 87 OBCP 143 8 _ #TMI1B GOOD RETURN, (BRPECTED) 0C63 02 00 178A 175D 217 ALC. ‘@RTDFC+2(1) fONESEC- ROT DONE, STEP TO BEXT SECTOR: =: =
OPB® CO 87 ORBD 188 B #48 id ‘ 0C69 CO 87 OCIP 212 8 RTN IP TO VERIPY TSE NEXT SECTOR
OBED CO 87 193c 185 8 PRTSHS ZRROR RETURE, (NOT EXPECTED 5 : OC6D E3CSCS4OD7DICSES OCSB 243 pc CLO7°TRE PREVIOUS ERRORS OCCURRED WHILE SEEKING THE *°
CFC1 CC 87 O2tA 486. B PRIST TO PRINT ROUTIBE ERROR 0C75 CODHFLE280C5D9D9 213 ;
OBcS 06 oBcS 147 pc XL1*06! FLAGS OC7D DODIE2bO DECICIES 213
OBC6 80 CBC6 188 pc ILT*oae LENGTH OCB8S DIDICST4SBORGE SCD 217
OBC7 OCE! eBce 1489 pc AL2 (ERR 1A) ADDRESS OF LAST P#INT CHARACTER OCBD DICSSOE2ZCSCSD2C9 233
OBcs CO B87 0222 150 B HALT TO DCP HALT ok 0C95 £5C780FICBCS4O 213
escp a0gc OBCE 151 pc XIL2*a09c* BALT ID Pd OC9C C3CSAOC3EBD3 OCA? 2138 ERRORS DC CLO6"CE CYL
*152 . OCA2 E3CRC580D7DICSES GCCC 245 DC CLU&3"THE PREVIOUS ERRORS OCCURRED WHILE DOIEG Qa °
OBCF 3D FP 1788 153 RTW1B CLI wRTDPC+3,xX‘°FF® TEST SECTCR COUNTER FOR STEPPIRG. q OCAA COL6EGE2SOC5SD9IDI 215 :
OBD3 F2 81 10 158 JE RTH IC PROCEED IF OK. OCB2 DEDIF2ZG0DEC IC JES 215
OBD6 CO B67 O27A 155 B PRINT TO PRINT SECTOR COUNTER NOT STEPPED PCBA DICICSC&4OEECECI 235
ORDA C6 OEDA 156 DC XL 1°C6? PLAGS i OCC2 £3C580C8DEC9DSC7 215
OBDB 2B OBDB 157 DC TL1°43¢ LENGTS OCCA 80C180 215
OBDC OE£2C OBDD 158 pc AL 2 (ERRO2B) MESSAGE ADDRESS OCCD E6P9C9F3ICS4OC9CR OCE1 216 ERRIA DC CL2U°SRITE ID USIBG HEAD Z
*OBDE 2016 OBDF 159 pc XL2°A016° MESSAGE. IDENTIFICATION 3 OCDS 9OF8E2C9DSC780CB 216
OBEO CO 87 0222 160 B HALT TO DCP HALT . OCED C5C1C84OR7 216
OBES 2016 OBES 161 pc XL2*A076* HALT ID
162 “4
OFF6 CO 87 1782 163 RTNIC B SENSE TO SENSE DEVICE STATUS ag i
, OPEA 06 OBEA 168 pc XL1"08* GET THE DATA CONTROL ADDRESS
a OBEB OD 01 17A5 16A3 165 CLC STATUS (2) ,DFDR CHECK DATA ADDRES AFTER ce |
of 166 * WRITE IS COMPLETED, (EXPECT #O CHG.) ~ |
i OBF1 F2 861 10 167 JE BTW1D PROCEED IF OK ;
Pat OBFS CO 87 O21A 168 B PRINT TO PRINT ERROR a i
. OBFS8 C6 OBF8 169 pc XL1°C6* FLAGS . =
& OBP9 25 OBF9 170 pc IL1°37¢ LENGTA
>< ss OBPA OFB2 OBFB 171 pc AL2 (ERRO2D) MESSAGE ADDRESS Ph Bg
a OBFC A03E OBFD 172 DC XL2*A03E* SESSAGE IDENTIFICATION ae
OBFE CO 87 0222 173 B HALT TO DCP ERROR HALT |
he 0CO2 A03E 0co3 174 pc XL2* aO3E* HALT ID g
: 175 ~ 3
' OcOS 38 SC 176A 176 RTNID TBR WRIDPC+2,xX°SC* TEST SECTOR ADDRESS POR LAST SECTOR
‘. 0cos F2 10 10 177 IT RTNIE J0SP IP IT STEPPED CORRECTLY - 4
; OCOB CO 87 O21A 178 B PRINT TO PRINT SECTOR ADDRESS ISCORRECT ? ~
i OCcOF cé OcOF 179 pc XL7°co6® PLAGS
I. oc 31 0c10 180 pc IL1*ag¢ LENGTR “ :
i 0C11 OFSD oc12 181 pc AL 2 (ERRO2C) MESSAGE ADDRESS . 7
[ 0C13 A026 0c1a 182 pc XL2*a026* MESSAGE IDEXTIPICATION
0C1S CO 87 0222 183 B HALT TO DCP HALT - :
e 0C19 A026 OCTA 184 pc XL2*A026° HALT ID 7 ~
i 185
P OC1B 3c 00 178A 186 RTNVE AVI 8 WRTDFC+2,0 SET TO USE HEAD 9 c a
& OCIF 3C CO 1788 187 RINIP AVI WRIDFC+3,0 SET TO VERIFY ONE SECTOR > .
% 0C23 CO 87 17A8 188 B STRTIO TO VERIFY ONZ SECTOR
% 0c27 01 0c27 189 pc XL1°01° FUNCTION CODE, (READ) -
$ 0c28 03 0c28 190 Dc XL1*03° CONTROL CODE, { VERIPY) :
‘ 0C29 1788 Oc2a 191 DC AL2 (WRT DFC) CONTROL FIELD ADDRESS
:. 0c2B CO 87 OC5B 192 B RTE 1G GCOD RETURN - <
: OC2F CO 87 0C33 193 B #44 hs
: 0C33 3C 22 1963 194 NVI SWSID,X*229 PUT ID IW SENSE PRINTOUT
be 0c37 CO 87 193 195 B PRTSNS TO PRINT STATUS ERRORS ie
*“ OC3B 3C FO OECS 196 AVI ERROZE-10,C*°O* SET HEAD 5O. IN MESSAGE : .
OC3F CO 67 1A8A 197 B SHIFT TO SHIFT SECTOR HOUSBER FOR CONVERT
et . .
CATE OG6APRT70 22may70 0140670 O1APRT1 15MAR72 PROG ID Oa09-8 : DATE O6APR70 22B8AT70 0 1A0G70 OTAPR71 ISHART2 PROG ID Oa09-8
EC NO. 571516 571513 571531 571565 571591 PAGE 2 « z FC NO. 571516 571513 571531 571565 571591 is SE 2a
‘S
mse,
~
we
cs aabnnabcnecedee
IBM BAINTENASCY DIAGNOSTIC PROGRAA
4098 ~
BRR Loc
OcE2
0CE3
OCES.
OCES
_OCEA
QCFE
OCP2
OCF6&
OCFC
oD00
ODboa
oDO8
opoc
“ODOD
ODd0E
Op10
OBA
on18
opic
2D20
OD21
0D22
OD24
0Dz28
OD2A
OD22E
6D32
Ob36 ;
“OD3A
OD3E
0Ds2
0D8&3
ODas
ODk6
ODSA
ODUE
0D52
0n56
OD57
0D58
OD5A
ODSE
OD60
OD6a
OD67?
| ODGEB
opé6c
ODpéD
OD6F
Op71
0D75
ODI77
OD7B
OC7C
OD82
op85
0D89
ODBA
OD8B
CATE
Ec RO.
OBJECT CODE
02
00
OEDO
3n 00
co 81
38 On
co 10
cc 60
3¢ 8&8
3c 00
3¢ 89
CO 87
00
eo
cG 87
co 87
co 87
co 37
06
35
Ocal
co 87
A009
CO 8?
FP2 81
co 87
cé
25
OE82
7788
*OB12
OAOD
O208
(0216
789
IBA
189F
1963
V7A8
QOD2A
Opa
193C
O2 1a
0222
1705
TBac
1963
1788
OCE1.
TTAB
OD60
OD4E
193¢
Q21a
0222
178B
O21A
0222
T78E
T7a5
10
O2TA
O6APR70
571516
aire
Sa
ORT3
18a 3
DY SK WRITE
ADDR STatT
OCE2
OCE3
OCES
ODSC.
opoD
oper
0D20
cp21
0D23
cp2g
OD42
OD4s3
oDus
0D56
OD57
op59
ODS?
CD6éB
on6c
OD6E
0D70
OD76
OD7B
O0D89
ODS8A
ODsC
22RAY70
§$71513
PART #0.
51296 36
PAGE 3
ID TBST
SOURCE STAT ESENT
218 ROUTINE NO. G2, CHECK WRITE ID FUNCTION s
219 ; USISG READ 1 ; s
220 RTH2 pc XL9*02° ROOTINE SCUABER
221 oc XL1*00* ROUTINE FLAGS
222 pC AL2 (2TH 3) ADDRESS OF HEXT ROUTERB PREPIE
223
224 CLI SETSE,O HATE PARAMETERS BEEN ERTERED?
225 BE SETDSK BRANCH IF KO
226 TSN SECTSH, X*° O48? TEST SSR 15
227 BT LIBK JUNP IP O8, BYPASS SEAD 1
228 aAvC WRT DPC+17 (1) , TRACKS SET @RITE ADDRESS TO CE TRACK
229 AVI WRT DFC+2,xX°80* SET POR HEAD 1, SECTOR 0. -
230 MYX CBYSKEPP,O0°5 «°° SET POR UPPER DISK’ “" 5555 ©-
231 aVI SRSID,09 INSERT ID IM PRIBT
- 232 B STRTIO TO SBEBK CE TRACK
233 pc XL17°0¢ FONCTION CODE (CORTROL}
2348 pc IL1¢O! — CONTROL CODE (SEEK)
235 pe AL2 (RTDFC) COMTROL FIELD ADDRESS
236 B RIN 2A GOOD RETURN
237 B weg
238 B PRTSHS TO DECODE ERROR |
239 8 PRINT TO PRINT
280 DC XL1°O6* PLAGS
241 pc IL1°53° LENGTA
2402 pc AL2 (ERRORQ) MESSAGE ADDRESS
283 B HALT TO DCP HALT
244 pc XL2* 20098 HALT ID
24S
286 RTH2ZA 8B TSTSEK TO CHECK FOR A GOOD SEEK
287
248 NVI WORK,O ZERO THE WORK AREA
2489 NVI SNSID,X*'9C? PUT MESSAGE ID IW PRIAT
250 NVI WRT DPC+3,23 S2T TO WRITE ONE TRACK
251 AVI ERRTA,C*1& SET HEAD 1 IN ERROR KESSAGE
252 B STRTIO TO I/O SUBROUTINE
253 pc XL 79028 FONCTION CODE { WRITE)
2548 pe XL1*O1? CONTROL CODE (ID)
255 pc AL2 (WET DFC) CONTROL PIELD ADDRESS
256 B RTN2B GOOD RETURN
257 8 *4Q
258
259 B PRTSNS TO PRINT SENSE INFO.
260 B PRINT TO PRINT THIRD LINE
261 DC XL1*06°* PLAGS
262 pc IL1*6a8¢ LENGTH
263 pc AL2 (ERR1A) MESSAGE ADDRESS
264 B HALT TO DCP HALT
265 pc XL2*a09C? HALT ID
266
267 RTN2B CLI WRTDPC¢3,X°FP* TEST SECTOR COUNTER FOR STEPPIRBG.
268 JE RTN2C PROCEED IF OK.
269 B PRINT TO PRINT SECTOR COUNTER HOT STEPPED
270 pe XL1°C6* PLAGS
271 pc ILt*43° LENGTH
272 pc AL2 (EBRO28) MESSAGE ADDRESS
273 DC XL2*A016¢ MESSAGE IDENTIFPICATICH
274 B HALT TO DCP HALT
275 DC XL2°a016°¢ HALT ID
276
277 RTN2C OB SEWSE TO SENSE DEVICE STATUS
278 Dc XL 1° 09° GET THE DATA CORTROL ADDRESS
279 CLC STATUS (2) ,DPDR CBRECK DATA ADDRES AFTER
280 * WRITE IS COMPLETED, (EXPECT NO CHG.)
281 Je RTN 2D PROCEED IF OK
282 B PRINT TO PRINT ERROR
283 DC XL1*C6t FLAGS
288 pc IL2°37° LENGTH
285 pc AL 2 (ERRO2D) MESSAGE ADDRESS
01A0G70 O1APR71 15MABR72 PROG ID 0a09-8
571531 571565 571591 PAGE 3
ae
69
ea
ea
a>
«>
gy
aye se area
one
#46
eet
ACDR STMT SOURCE STATENENT —=——.._. -
XL2°a03E
*HALT
XL2*a0388
WRTDPC#2,X"DC
*RTHZE
XL7°co
*IL1*4ge
AL2 (ERRO2C)
IL2°a026¢
HALT
EL2°AO26* 2;
WRT DFC+2,1°80"
WRT DFC+3,0
STETIO
XL7°01°
XL1°93¢
AL2 (WRT DPC)
BTN2G
*e4
SHSID,X*27°
PRTSRS
ERRO2ZE-10,C"1?
SHIFT
AL2 (WRT DFC)
CVD
AL2(CYLWO)
AL2 (ERRO2E)
ERRO2ZE~2,C*
*XL1°06
*IL1*77°
AL2 (ERRO2E)
HALT
XL2*a027°
WRIDPC+2,xX*DC
*LINK
WRIDFC#2(1) , ONES EC
RTR2P
PART #O..
PAGE 3a
ee ee ee me
BESSAGE IDESTIFicaTIoN
TO DCP HALT
HALT ID ae:
TEST SECTOR ADDRESS FOR LAST SECTOR
JUSP IP XT STEPPED CORRECTLY ;
TO PRINT SECTOR ADDRESS IscoRREcT
FLAGS i
LEWGTH
MESSAGE ADDRESS
BESSAGE IDESTIPICaT ION
TO DCP HALT ;
~BALT IYD« ee Og Re Wee:
SET TO USB HEAD 1 :
SET TO VERIFY OWE SECTOR
TO VERIFY OFZ SECTOR.
PUNCTION CODE, . (READ)
CONTROL CODE, (VERIFY)
COBTEROL FIELD ADDRESS
GOOD RETURE
PUT ID IN SENSE PRIBTOUT
TO PRIST STATUS ERRORS
SET HEAD NO. If MESSAGE
TO SHIFT SECTGR WUMBER FOR
CONTROL FIELD ADDRESS
TO CONVERT SECTOR WO.
SOURCE
DESTINATIO“
POT A BLANK I8 MESSAGE
TO PRINT ERROR OH VERIFY
FLAGS
LEEGTS
BESSAGE ADDRESS
TO DCP ERROM HALT
HALT ID
TEST FOR LAST SECTOR VWERIPIED
TO DCP IF FINISHED a
NOT DONE, STEP TO WEXT SECTOR
TO VERIFY THE NEXT SECTOR
CORVERT
CL&3*SECTOR COUNTER IK CONTROL FIELD NOT STEPPED
*vr o®
CL&9*°SECTOR ADDRESS NOT STEPPED TO SC AFTER A WRITE rp
CL37*DATA ADDRESS STEPPED APTER A WRITE ID
*CLSO‘THE PREVIOUS ERRORS OCCURRED WHILE DOING A VERIFY ?
CLZ7*DATA USING HEAD XK SECTOR XxX
*ISHAR72
371591
ge 2
I5% BAISTEMANCE DIAGNCST?< PROGRAR
aoas DISK WRITE FR TEST
FRR LOC ORJECT CODE
OLSD aAC3E ODBE 286 pc
OD8P CO 87 0222 287 B
0D93 AO3F : O0DS9&% 288. - DC
CD95 38 pc 478A 289 RTN2D TBR
0D99 F2 10 19 290 st
ODSC CO 87 O2Z1A 0 294 RB
Onaod cé& ODAO 292 DC
ODA 24 ODR4 293 pc
ODA2 OFSD ODA? 279% Dc
ODRG AOZ6 OLAS 285 DC
Onas& CO 87 0222 296 B
. ce . SDAA BO26 sos -ga 2 CDAB. 299 Lee OC os
“-" “pic 3c"Ro 78a 298 RTRZ2E YI
OLPO 3c 00 1788 299 RTN2P NYT
ODBS CO 87 1748 300 8B
ODBS 01 CDBS 301 pc
ODRY 03 ODBa 302 pC
ODPA 1788 ODRB 303 pc
OpBC CO &7 ODFO 304 8
OCCcO CO A? ODCa 305 B
ODCyY 3C 27 1963 306 NVI
ODC8 CO 87 133C '. 307 B
Orcc 3C FT OFCS 308 AVI
ODDO CO 87 ASA 309 B
ODDe 17288 ODDS 310 pc
ODD6 CO 87 IADE 311 B
ODDA 1ACP ODDB 312 pc
OLLC OFCF ODED 313 pc
CDDE 3C 8&0 OECD 314 avVI
ODE? CO 87 O27A 315 B
ODE6 06 ODEG 316 pc
ODE? aD ODE? 317 pc
ODES OECF ODES 318 pc
ODEA CO 87 0222 319 B
ODEE a027 ODEZP 320 pc
CDFO 3D DC 178A 321 RTN2G CLI
ODF&’ CO BT 0276 322 BE
ODFB OF 00 178K 175D 323 aAic
ODFE CO 87 ODBO 324 B
OFO2 E2CSC3E3D6D940C3 OE2C 325 ERRO2B DC
OLOA DOESDSEICSD9UCCY 225
CE12 DSYOC3DEDSE3D9 D6 325
ORIA DIG0CEC9CSDICe4S 325
O£22 CSLC6EIBOE2F2CSD7 325
OPF2A CICSCA 325
O£F2ZD £22C5C3E306D940C1 OFSD 326 ERROZC DC
O£35 CUCULOCSE2ZE290D5 326
OE3D DEE3SOF2ZE3CSNIDI 326
OESS CSCUSOFIDSGOFSC 326
OF8D SOCIC6E3CSD9R0CI 326
CESS BOFEDSICIE3CS40C9 326
OFSD ca 326
OPSE CUCTEICIZOC 1C4UCS OF82 327 BRROZD DC
OF66 DSCSE2E2ZU0F2F3C5 327
OE6E DIDTICSCALNC 1C6B3 327
CE76 CSD94GOCTUOFEDSC9 327
OF7TE E%cSHOC9ICa 327
OER3 EICRCSSODTICICSFS OFS 328 DC
OP8BB CSL6ELE240CSD9N9 328
OF93 D6EDIEZ8ONEC3ICIFY 328
OFOR DILICSC4USOPEC ECS 328
OFA3 DICS8OCSL6C9DSC7 328
QCEAP SOCINOESCSD9CICE 328
OEB3 E840 328
OEBS C&CTEICI“OFRYE2ZCS OBCP 3279 ERROZE DC
OFBD DSC780CB8CSCICRAO 329
OECS £E7S80E2C5SC 3E3D6D9 329
OFCD SOF7ET? 329
DATE O6APR70 22NAY70 01A0UG70 O1APRT1
PC WO. 571516 571513 571531 571565
PROG ID OaA09-4
PAGE 3a
tilt
hee
stot
TBR RAINTERANCE DIAGNOSTIC PROGHAT
4 PAGE 8 OG
“poog. DESH w®RIT E. ¥ D a z st $
_ BRR LOC OBJECT Copz ACDR STST SOURCE STATENERT
a Oa a : 331 * ROUTINE RO. 03, CHECK USITE Ip PONCTION a 2
a Oh ; 332 @ ne OSING HEAD 2. °
OEDO 03 OFDO 334 RTH3 dC XL7*03" ROUTINE SBNBBR
OEDT CO OFDt 335 DC XL 17.00" ROUTIBE PLAGS
OLD? OFFS: OED3S 336. _ oe AL2 (BT NR) ADDRESS OF EBIT ROUTIBE PREFIX
337. - ; ov. Feta ; .
3. SEDY 3p 00 8B 12 - * 338 ' CLI . SETSH,0 HAVE PARANETSRS BEEN BNTERED?
*; @OBBS CO 81 GAtD 339 BE SETDSK : BRANCH IF RO
.° @EDE 3D FF OB11 - 320 CLI RESYDS,X°PP?* TEST PGR RUX REMOVABLE ONLY
SEBO CO 81 O21 384 BE LINK Exit IPF YES.
«6 EES 28°02 0200 3a2 TBN «= SECTS&,X*02" TEST SSW 16
> GEEB CO 10 6276 33 Br, LER. BRANCH IF O8, BYPASS TEST OF HEAD 2
OfeC GC 00 T1789 0B13 — aaa ave WRT DPC< 1 (7), TRACKS SET WRITE ADDRESS TO CE TRACK
OLF2 3¢ 00 178A 385 _ S¥I: @RTDFC+2 ,0 SET FOR READ 2, SECTOR ©
CEF6 3c 08 T89F 356 AVE - DISKTP,%*08¢ SET POR LOWER DISK
OEFA 3c 69 1963 387 AVY SNSID,09 IRSERT ID IW PRINT
‘OEFE CO 87 71788 399° oe :) STRTIO TO SEER CE TRACK
Ore2 oo . OPO2 350 pe XLI°O* FUHCTION CODE { CONTROL
@?7o3 00 OF03 «357 pc XLi‘9¢ CONTROL CCDE (SEEK)
OFrea 1788 OFOS 352 pc AL2 (@RTDFC) CONTROL FIELD ADDRESS
’ F706 CO 87 0F20 353 B RTH3A GCOD RETURR
OFPOA CO 87 OFOE _ ‘35a B ‘S44 :
OFOE CO 87 193Cc 355 Bo PRTSNS ‘TO DECODE SRROR
GFI2 CO 87 021A 356 8 PRINT TO PRIST
OPI6 06 ; OF16 357 pC XL 7°06! PLAGS
Or17 35. Or17 358 DC IL1*S3* — LENGTH
OF18 OCAi : OF19. «359 BC AL2 (ERROB9) BESSAGE ADDRESS
OFTA CO 87 0222. 360 B HALT TO BCP HALT
OFTE aco9o CFIF 361 boc EL2* a009¢ HALT ID
362 a
OF20 CO 87 1705 363 RTN3A B TSTSEXK TO CHECK POR & GOOD SEEE
364
Or28 3c CO 1BaC 365 AVI #ORK,O ZERO TRE DATA ARBA
OF28 3¢€ 9C 1963 366 SV¥I SNSID,x*9Cc* POT ID IN PRIUT
OF2Z€ 3c 17 1788. 367 . AVI WRTDPFC+3,23 SET TO WRITE OWE TRACK .
OP30 3C F2 OCE1 368 AVI EBR7A,C*2° SET BEAD 2 IN ERBOR BESSAGE :
OF38 CO AT 17A8 369 B STRTIO TO WRITE DATA
OF36 02 OF38 370 Dc XL1*°02¢ FOXCTION CODE { #RITZ)
OF39 01 OF39 371 pc XL1°0918 CONTROL CGDE (ID)
OF3A 1788 OF3B 372 pc AL2 (WRTDFC) CONTROL FIELD ADDRESS
OFIC CO 87 OFS56 373 B RTN3B GOOD RFTURS :
OFSO CO 87 OFAS 378 B ren
. : 375 i
OFsa CO 87 193¢€ 376 B PRTSHS TO PRIRT SENSE INFO. a
OFS CO 87 021A 377 B PRIST TO PRINT THIBD LIRE i
OFaC 06 ' OFaC 378 pc 1L1°06* PLAGS
OFLD 480 Oran 379 oc IL 1* 64" LENGTH
OFSE OCEI OraPp 380 pc AL2 (ERR1A) MESSAGE ADDRESS
OF50 CO 87 0222 331. B HALT TO DCP HALT an
OFSS AN9C OF55 382 pc XL2*avusc* HALT ID a
383 i
OF56 3D FF 1788 384 RTN3B CLI &RTDPC+3,X*PF* TEST SECTOR COUNTER FOR STEPPING.
OFSA F2 81 10 385 JE RT W3C PROCEED IF OK. ~
OFSD CO 87 O21a 386 B PRINT TO PRINT SECTOR COUHTER NOT STEPPED
OF61 C6 OF61 387 pc XL1'C6° FLAGS
Or62 2B OF62 388 pc IL1*93# LENGTH
OF63 OF2C OF64% 389 Dc AL 2 (EBRO2B) MESSAGE ADDRESS
OF65 A016 CP66 390 pc XL2*A016* BESSAGE IDENTIFICATION - os
Or67 CO 87 0222 391 B HALT TO DCP HALT }
OF6P A016 OF6C 392 pc XL2*A0 16 * HALT ID
393
OF6D CO 87 178E 394 RTN3C OB SEBSE TO SENSE DEVICE STATUS rs
OF71 04 OF71 395 Dc XL1¢Qg! GET THE DATA COETROL ADDRESS
OF72 OD 01 1745 1843 396 CLC STATUS (2) ,DFIR CHECK DATA ADDRES AFTER
. 397 * WRITE IS COSPLETED, (EXPECT BO CHG.)
OF78 F2 81 10 398 JE. RTH 3D PROCEED IF OK
DATE OGAPR70O 22NAY70 O1TAUG70 .OVAPRT1 ISHAR72 PROG ID 0209-4
EC NO. 571516 571513 571531 571565 571593 PaGE a
PART Wo. | S229636
7
ae Be eabenteen meee MS
eg PAINTEWANCR DIAGHCSTIC PROGRAM 3
AosR DISR
ERR, Loc ¢ oBsecr CODE
or7B CO 87 024% : 399
OF7F C6 OF7P NDS
OFB8O 25 . oFso0 api.
OP8? OF82 CF82 862
OF82 ADIE CPSs 803
OP8S CO 87 0222 808
OP89 AOZE OFBA SOS
. : ; S06
OF88.38 5C 178K sO} Rrwap
OFBF F210 10 08 -
OP92 CO 87 O27A 409
OFS6 CA cross 810
- OPFOR JTe rr cea TItergy att
OP9R OSD OF9S 912
OP9A AO?H CPSB 4443
OF9C CO 87 0222 ats
OFAO A026 = OPA1 015
" BIS
OPA? 3C CO 178A #27 RTYIE
OPA6 3C 8 178R 378 RTAIF
OPAA CO 87 17a8 819
CPAE 01 OFAE 820
OPFAF 03 OFAP 627
OPBO 1788 DFB1 822
OFB2 CO 8&7 OFFS 423
GPRE CO 87 OFBA 3248
OFFA 3C 22 1963 825
OFBE CO &7 193C 826
OFC2 3C F2 CFCS 227
OFC6 CO 27 TABA 228
OFCA 1788 OFCR 4829
OFCC CO 37 WADE 830
OFDO 1ACP OPD1 431
OFD2 OFCF OFD3 832
OFDS 3C 40 OFCD R33
OFDB CO 87 O2TA 838
OFDC 06 OFpC 435
OFPTD 4D CFDD %36
CFDE OFCF OFPDF 237
OPED CO 87 0272 838
OPES a0?72 CFES 4939
aan
CPE6 32D 5c 178A 281 RTHIS
OFEA CC 1 O216 8a2
OFFE OF CO 1784 175D ; 883
OPF&a CO 87 OFAG6 Bag
DATE O6APR70 22MAY70 01A0G70
FC WO. 571516 571533 571531
@RITE rp
TEeUst
RBDR STAT SOURCE STATESEST
B
be
BC
pe
>]
A
PRERRSE BT
mae 5
Awww a
«a
bt
“RERTERR TRS
a
OIAPRT I
571565
PpRIET
¥4,.2°C6?
EL * 378
AL2 { BERO2D)
XL 2* ROSE?
WALT
‘EL2°A0 3E
*#WRTDPCe2, x°5C
*RTE3E
KET*Cot
ELIeage
&L 2 (28802C)
TL2* 8026
*#ALT
"L2°8026°
WRTDPCe2 0
FBT DPC+ 3,9
‘STRTIO
ELi* ov
XL1*93¢
AL2 (WRTDFC)
RTH 3G
#48
SNSID,¥*22°
PRTSES
ERROZE-10,C*2
*SHIFT
AL2 (BETDFC)
cv
&L2 (CYLBO)
BL2(ERRO2ZE)
EERG2ZE-2,C* °
iL 1°O06
*IL1*77
*AL2 (ERRO2E)
HALT
XL2*a022
*WETDFC#2,X°SC
*LIwK
WPT DFC+2 (1), ORESEC
RTH3F
25H AR 72
571591
TO. PRIET ERESR
Fiacs
LERGTR
HESSAGE abDREss
MESSAGE IDESTEPICAT IO“
TO DEP Halt
Bart? ID
TEST SECTOR ADBRESS POR LAST SECTOR
JG8P IPF IT STEPPED CORRECTLY
FO PRINT SECTOR ADDRESS TACCRRECT
FLAGS
“sacra — Sak oh ak, EE
BESSAGE ADDRESS
BESS&GE JOETTFIFICETION
TO SCP HALT
SaLT ID
SET To USE szaDp 2
SET TO VERIFY ONE SECTOR
TO VERIFY OBE SECTOR
FUNCTION CODE, (READ)
CONTROL CODE, { TERIFY)
CONTROL FIELD ADDRESS
GOOD RETURE
PUT ID I8 SEUSE PRIBTOUT
TO PRINT STATUS ERRORS
SET HEAD SO. I MESSAGE
TO SHIFT SECTOS NOMBER FOR CONVERT
CONTROL FIELD ADDRESS
TO CONVERT SECTOR 20.
SODRCE
DESTISATION |
PUr A ELASK Im HESSAGE
TO PRIET ERROR ON VERIFY
FLAGS
LENGT#
BESSAGE ADDRESS
TO BCP ERROR EALT
HALT ID
TEST POR LAST SECTOR VERIFIED
TO DCP IP FIRISHED
NOT DOSE, STEP TO HLXIT SECTOR
TO VERIFY THE NEXT SECTOR
PROG ID
PAGE
rn ae
Co eceeecececeeeeeseeeseeeeeeseeseseneeoers
@ © @ @ @ @ @ = " sed 3 tps _ - 2 oN Sed ; EF dee SI stag BATS
.
OrERs
2, ee
“FOR
. 1068
300C
FOO
- ¥04R
9048
4022
“926
ie
F928
98 2C
_ FO2R
4032
O36
4038
1032
1037
1080
3082
1086 A!
16488
ee
1050
10548
7058
10SC
1060
1061
1862
1068
.. $€68
TOBE
1076
$076 |
¥OF75
T1076
1078
107C
“1072
1082
7085
1089.
1088
4088
108D
108F
1093
t
a
i
3
9095
i 1€99
i 1098
i 40A0
“pate
oFFs 6
. eo |
+ 4678,
“osrct CODE
08
7120
60
at
¥F
ot)
02
10
00
a0.
08
09.
F2 81
D x s x
0n12
OAOD
orrs
CFP9
OFFS:
OBIT -
0276
020A
0276"
4789
178%
FSP -
1963
788,
1608
1036
+9:3¢
o21a
. 0222
1785
tTBECc
1963
T78B
6cE1
T7428
1O7E
106C
193C
| O2TA
0222
178B
O2TA
0222
TI8E
T7A5
10 -
OGAPRTO
571516
oBT3
02a
1028
182d
1038
103F
1041
1087
3060
1061
1063
C78
O75
1077
07D
1089
108A
108¢
108E
1094
1099
18A3
224 AT70
571513
aeRY
- ADDR
Te
STAT
R86.
aa7
428
"8289
8598
aS
z D
on AAINTERARCE Sieserie eee s =
¢* EBs?
SOURCE ‘STATEREST 4
‘~ :
*
BTN
852.
853
$55.
835
a56
857
858
459
260
861
862
863
RES -
86S -
866
867
468
469
870
874
872
473.
878
875
a76
377
&78
avs
880
$81
&82
883
8 3a
&85
886
487
ass.
8689
890
agi
992
893
94
895
896
497
a98
499
500 .
501
502
503
568
505
506
507
508
509
510
514
512
513
RTRGA
RTN4B
RTNaC
OTAUG70
571531
CLT
Agu Oe
_
Svz
re
&
‘et
fe
aR”
RPS Rr reas
oS
BVI
cLc
aE
OTAPR71 -
571565
BOSTTRE #0.
—ELI*946
¥L1*00°
AL2ERTHS)
SETS, 0
SETDSK
RERTOS 2° FF
*LIBK
SECTSH, z°02
*. LYRK-
@RTDPCS1 (1) FRACKA
BRTOFCe 2, 7° H0
*DISKTP, F*08
*‘SUSID, 99
_ SPETIO
XLICO!
XL17°9
*AL2 { BRT DPC)
RTROA
e+Q :
PRTS 8S
2L1*O6
*TL 1* 53
AL2 (ERRORS)
HALT
%L2*a009
TSTSER
ZORK,O
SESID,xX*9C?
WRI DFC+3,23
ERR1a,Ct*3
*STRTIO
XL19*62¢
*ZL1°OV8
AL2 (HETDFC)
RTEGB
sey
PRTS NS
XL1°06
*TL1*69°
AL2(ERR1A)
HALT
XL2*a09ce
WRTDPC+3,X° PF?
RT ESC
XL1°Co
*IL 1° 43
*AL2 (ERRO2B)
XL2* a0 16°
HALT
XL2* a016
*SENSE
XL1*OG¢
STATOS (2) , DF DR
RTEaD
15 8AR72
571591
0a, CHECK
USING
ey
“pager x0, 5129636°
eatre 1D PUSCTIos é
@RZaD 3 ; o
*ROUTINE HURBER
ROUTINE PLAGS
ADDRESS OF BEXT ROUTINE PREPIZ
HAVE PARAGETERS BEER ‘ERTERED? —
BRANCH IF #O
TEST FOR £0K BEMOVABLE OBLY
Exit IP YEs.
TEST SSB 16
BRARCH IF OM, BYPASS TEST OF HEAD 3
SET WRITE ADDRESS TO CE TRACE
SET POR HEAD 3, SECTOR 0
‘SET FOR LOSER DISK ;
INSERT ID 22 PRIST
TO SEEK CE TRACK
FURCTION CODE (COETROL)
CONTROL CODE { SEEK)
CONTROL FIELD- ADDRESS
GOOD RETOUR
TO DECODE ERROR
TO PRIST
FLAGS
LENGTR
RESSaAGE ADDRESS
TO SCP HALT
RALT ID
TO TEST FPOR® A GOOD SEEK
SET DATA AREA TO O
PUT ID i PRINT
SET TO WRITE 24 SECTORS sae’
SET HELE 3 IN ERROR SESSAGE
TO WRITE ID
FUNCTION CODE (#RITE)
CONTROL CODE (1D)
CONTROL FIELD ADDRESS
GOOD RETURE
ea
f%
TO PRINT SENSE INPO +
TO PRINT 38D LIRE
PLAGS ”
LENGTH ~
MESSAGE ADDRESS
TO DCP HALT 2,
HaLT ID ee
TEST SECTOB COUNTER FOR STEPPIRG. ”
PROCEED IF OK. =
TO PRIST SECTOR COUBSTER NCT STEPPED
PLAGS cS
LENGTH “
MESSAGE ADDRESS
HESSAGE IDENTIFICATION
TO DCP HALT
*HALT IB
TO SENSE DEVICE STATUS
GET THE DATA COSTBOL ADDRESS
CRECK DATA ADDRES APTER ”
WRITE IS COMPLETED, (EXPECT NO CHG.) —~
PROCBED IF OK
PROG ID
PAGE
0a 09-8
teem gage ae etn
oH
nn
we
he
ray
ha
oy
2098
‘ERR LOC
1043
TOR?
10AB
1CA9
1028
40AD
1087
1033
VOBF
TOBA
108E
“VORP
19Cd
198C2
10cH
30C8
TOCA
4OCE
10D2
20D6
1007
10D8 —
VODA
TOBE
WOE2
1OE6
TOFA
102E
1OF2
1078
OF8
TOFA
OFC
410
31048
1105
1106
4108
710C
TIOE
W112
1146
1V9C
DATR
EC
nO.
“a03E
pis
‘OBJECT CODE
co 87
cé.
25
O282
024A
€O 87 C222
AO3E
38 DC
#2 10
cc a7
ce
Lo Mt
WER
30
O278
‘34
OESD -
&026
co 87
a026
0222
3c. 80
3c 60
ce 8?
78K
1788
7:48
1108
10£2
1963
193C
OECS.
4ABA
“ADE
OECD
O2ZTA
82722
178A
9216
78a
TOCE
O6APR70
'$71516
K weRiIte
ADDR START
4087
TOA8
TOA
TOAC
. 1082
wee hee = -
_ 4909,
3175p
TOBE
TBF
$0c71
4C3
10 B6
1007
1089
IOF3
1OF9
1OFB
2104
1705
1107
170D
2284570
571513
T88 HATWTEMANCE DIAGHOSTIC seca
578
515
516
517
548
519
520
523
522
523
528
525
526
527
$28
$29
530
$31
532
533
534
535
536
537
538
529
540
581
592
583
5395
545
5&6
547
548
549
550
551
552
553
555
555
556
557
558
559
RTRARD
RINGE
RTNGP
RTNIG
OTADG70
571531
z a : z s. T.
SOURCE STATERERT
B parser
pc XL7°Co?
. BC IL1°37¢
DC AL 2 { EBRO2D)
pe XL2*aO3E° |
B SALT
pc XL2°a0SE*.
TBH SRTOPC+2, X*pC
*af #TRSE-
8 PRINT
_ be EL7°*cO*®) |;
Bec FL 2289 ©
pc AL2 (ERRO2€)
pc BL2* ao26
*B HALT
Bc EL2° a0z6°
VI WRT DPES2,X780¢
NVI «- SRTOPC+3,0
B STSTIG
DBC IL1*o
BC XL7*°O3
*Dc AL2 (WRTD?PC}
B RTBLG
B eK
RVI SNSID, ¥°27
*B "PRTSHS
NVI ERRO2£-10,€* 3°
B SHIPT
pc AL2 (@RTDFC)
B CFD
DC AL2 (CYL#O)
Dc ALZ{ ERRO2E)
AVI ERRO2E-2,C*
*B PRIBT
pc XL 2*O6?
Bc IL1*778
BC AL 2 (EBRO2EB)
B HALT
pc XL2*a027°
CLI WRTDPC+2,X* DC
*BE LiIsK
ALC WRI DPFC+2 (1) , ONES EC
B BTAGF.
OIAPR72 - VSN aR 72
571565 571591
fo purer mayor
JUSP IP IT STEPPED CORRECTLY
TO PRINT SECTOR ADDRESS areenet
FLAGS «- - > om
LERGTR
FLAGS |
LENGTE: 3
BESSAGE ADDRESS
HESSAGE IDENTIPICETION
TO DCP HALT
HALT ID.
TEST SECTOR ADDRESS FOR LAST SECTOR
RESSRGE ADDRESS
RESSSGB IDERTIFICATION
TO DCP HALT
BaLT 1D
SET TO USE HEAD 3
SET TO VERIFY OE SECTOR
TO VERIFY ONZ SECTOR
FUNCTION CUDE, (READS
CONTROL CODE, { FERIFT)
CONTROL FIELD ADDRESS
GOOD RETORE
PUT ID IN SENSE PRISTOOT
TO PRINT STATUS ERTORS
SET HEAD #0. I HESSAGE
TO SHIPT SECTOR BUSBER FOR CONVERT
CORTROL FIELD ADDRESS
TO COSVERT SECTOR #0.
source
DESTIBATIOS
PUT A BLAEK IS ESSAGZ
TO PRIET ERROR ON TERIFY
PLAGS
LENGTH
HESSAGE ADDRESS
TO DCP ERROR HALT
HALT ID
TEST POR LAST SECTOR VERIFIZD
TO DCP IF FIRIS BED
SOT DONE, STEP TO HEXT SECTOR
TO VERIFY THE HEXT SECTOR
.
0209-8
Sa
PROG ID
PAGE
a trees pracwos#ic PROGEAA
&
aon DIS kK @R I t eo Ip ft Est
Baw Loc OBI ECT CODE “ADDR STAT SOURCE STATEVEST .
$61 * ROUTIRE NO. as, CRECK THE ABILITY ‘20 SELECT , -
562 * BOTH THE UPPER AED LOWER DISK . °.
‘ 563. -
Tt20 O05 1120° $68 RTHS DBC xL1¢05° ROUTINE SOSBER
1124 GO 1121 $65 ac XL1°CO° ROUTISE FLAGS
1422 1336 1723 566° ac aL2 { ETN6) ADDRESS OF NEIT ROUTINE
. =e?
{ $428 3D 00 Oft2 $68 CLI SETSH,0 SAVE PARASETERS BEER EUTERED?
‘4 TIZ8 CC 81 OROD - $69 BE SETDSK BEARCH IF NO
Zw f12C 3D FF 6811. 570 CLI REnvDS, 3°? F* TEST FOR RUS REMOVABLE ONLI
ie 7930 CO 81 0216 S71 BE LISK EXIT iP YzZS ;
3138 38 08 O76, 572 . Ten SECTSH,x* OG" TEST SSH 15
T3138 CO O 02146 573 BT Lrax BRACE IP O8, BYPASS ROUTIBE
123¢ 34 02 O20: 57a TSu «6 SECTSH,Z°02* TEST SSU 16
7480 CO 10 0216 575 ST LI8K BRANCH IF ON, BYPASS ROUTERE .
1184 3c 00. 189F 576 AVI DESKTP,o SET POR RESOVABLE DISK
7788 GC 00 1789 0873 577 nvC eee SET CYLINDER ADDRESS TO CE THACK
T78E 3c OO T78K 578 VI 0 ERTDPC+2,0 S8T POR READ 0, SECTOR 0
4452 3€ 99 1963 579 SVI «=SHSTD,09 INSERT ID IM PRIBT
580 :
1156 CO 87 1788 581 B STRTIO TO SEEK CE TRACK
1752 00 315A 582 pc IL1*9* PONCTION CODE (CONTROL)
t458 00 1158 583 pc XL 1°98 CONTROL CODE (SEEK)
T15C 1788 1115p See pc AL2 (S8T DFC) .COSTROL FIELD ADDRESS
14SE CO 87 1178 585 B RTESA GOGD RETURE
1162 CO 87 1166 586 B 248
1966 CO £7 193¢ 587 B PRTSHS TO DECODE BRROR
1264 CO 87 O2TA 588 B PRIUT TO PRINT
T96E 06 1162 S89 pc XL1*06* PLAGS
T16F 35 116P 590 pc IL 1#$3* LENGTH
4170 OCAT 1771 «5:91 BC AL2 (ERROR9) MESSAGE ADDRESS
19472 CO 87 0222 592 8 SALT TO DCP HALT
1976 A009 1777, «4593 pc XL2*a009! HALT ID
598
1478 CO. 37 1705 595 RTHSA 8B TSTS EK TO CHECK FOR A GOOD SEEK
596
117¢ 3c DO 1C4aR 597 BVI «= WORK#255,C*R* SET WRITS
1780 OC FE 1C4A 1C83 598 AVC = BORK*# 254 (255) ,WORK*255 PIELD
1986 C2 02 1BEeC 599 LA BORK, IRZ SET DATA ADDRESS
118a 38 02 1843 600 ST DFDR,XR2 IW DATA CONTROL PIELD
601
VIBE 3C 12 1963 602 NVI | -SESID,X*12¢ PUT ID Is PRIST
1492 3C 00 1788 603 AVI WRIDFC+3,0 SET TO WRITE GHE SECTOR
1196 CO 87 1748 604 8 STSTIO TO I/0 SUBROUTINE
11Sa 02 1198 605 pe XLt*02° FUNCTION CODE (WRITE)
119B 00 1198 606 pc XL2°00° CONTROL CODE (DATA)
119¢ 1788 119D 607 pc AL2 (WRT DFC) CONTROL FIELD aDDRESS
VI9E CO 87 1188 608 B RTNSB GOOD RETOR®
T1A2 CO 87 11A6 609 B 2e5
610
7106 CO 87 193C 611 B PRTSHS TO PRINT SENSE INFO.
—T1AA CO 87 021A 612 B PRIUT TO PRINT 38D LINE
1IAE 06 TAE 613 pc XL1°06° PLAGS
TAP 41 11AP 618 pc IL 1*65* LENGTH
11B0 12FP3 11B1 615 Dc AL2(ERRO5SA) BESSAGE ADDRESS
' 1982 CO 87 0222 616 B RALT TO DCP RALT
- VIBE A012 11B7 617 pc XL2*a012¢ HALT ID
618
11B8 3c 08 189F 619 RTNSB VI DISKTP,X'08* SET FOR FIXED DISK
ITBC OC CO 1789 0813 620 NVC) = @RTDPC+1(1) ,TRACKE SET CYLINDER ADDRESS TO CE TRACK
11C2 3C 00 178A 621 NVI «- WETOPC+2,0 SET FOR HEAD 0, SECTOR 0
11C6 3c 09 1963 622 VI = S#HSID,09 INSERT ID IN PRIST
€23
11CR CO 87 17288 624 B STRTIO TO SEEK CE TRACK, FIXED DISK
Tice 00 11CE 625 DC XL17°0° FUNCTION CODE (CORTROL)
11CF 00 11CP 626 pc XL1*08 CONTROL CODE (SEEK)
11p0 1788 11D1 627 pc AL2(WRTDPC) CONTROL FIELD ADDRESS
T1D2 CO 87 11EC 628 B RTUSC GOOD RETUR®
DATE OGAPR70 228A170 01a0G70 O1APR71 1SMAR72 PROG ID 02 09-8
EC NO. 571516 571513 571531 571565 571591 PAGE 6
-@ | eo e@oeeee0e 8 @
®oeoeoeeoeesvseneosdseoedeoedeeeeeeee @ @ . |
pam? ‘no.
PAGE
5129636
es
¢>
">
i)
"?
©)
ey
se eT a
e
eve
’ ‘ ‘ - os * t
: . ; .
ee ee ee ; : s
nn ne _
1 adem
a0gs
. ER ioc.
1106
TIDA
VIDE
1122
.V1E3
TIP3
T1E6
TTEA
11FC
11F0
11FS -
VIFA
WIFE
1202
12066
1207
1208
120A
1208
1292
1216
V2TA
T2I8
V274C
42128
1222
12248
12728
1222
1232
1236
I23a
1238
123C
123E
1282
1286
T23A
128F
126F
1259
1252
1256
1258
125¢
1269
1266
T26A
1268
1272
1276
127A
1278
127C
T27E
1282
1286
128A
T2RE
128F
DATE
EC
nO,
. pr s. x
OBJECT coDE
co
co
co
06
36
87
‘87
87
OCA
co
87
ao09g
co
87
C6
FFE
¥2
co
87
87
1768
co
co
ce
co
06
35
67
67
e?
GCA
co
a7
aoog
co
3c
oc
c2
34%
3c
3
co
01
co
@7
1788
co
co
co
co
06
at
87
87
e7
8&7
VIDA
193¢
024A
0222
1705
1CasB
CUA
1963. .
78s
47438
1228
1272
19 3¢
O2ZTA
0222
189°f
1789
IBA
1963
17Aa8
1258
1286
193¢C
O2 1A
0222
1705
DSB
IDGA
1 aC
18 a3
1963
178B
17 a8
1298
1286
19 3c
O27&
OGBAPR7O
571516
($8H BATHTESARCE DIAGWOSTIC PROGEAR
%
4
e
a :
pant gO. 5729636
Pacz oe he MR! SO ee
‘e@rite# iD TES t. :
ADDR STAT SOURCE STATEREST :
629 B tog
630 8 PETSWS ~~ ‘ct TO DECODE ERRoR
631 B PRINT TO PRIEST
1922 632 Bc XL 4°96* FLAGS
V1ZB3 633 Bc ILi*s2° LESGTHs
2325 638 pc AL 2 (ERRORS) SESSAGE ADDRESS
635 B SALT TO DCP SALT
W1FB 4636 pc XL2*°a009* HALT iD
637
638 RTNSC OB TSTSEK TO CHECK FOR a GOOD SEEK
639
680 AvI #ORKe255,C*F* S&T wRITzZ
1C8B 621 NVC WORK ¢258(255) ,WORK*255 PIELD
$Q2
683 VI SwSIp,X*12* - PUT ID IN PRIST
684 VI WRT DPC* 3,0 SET TO WRITS ONE SECTOR
6&5 3 STBTIO TO £/0 SUBROSTIRE
1206 6486 DC %L1*02° PORCTION CODE (@R ITE)
1207 687 BC XL 1°00" CONTROL Cope (DATA) ee
1209 648 pc &L2 { eRT DPC) CONTROL FIZLD ADDRESS Saree
689 B RTRSD GOOD RETORE os fo eS a ee
659 8 78 ,
651 a. PRTS ES TO PRINT SENSE IBFO.
652 B PRINT TO PRIST 3BD LINE
12%a 653 DC XL1°Q6* PLAGS
121B 65a DC IL t* 65* LESGTa
121D 655 BC AL2{ ERROSA) MESSAGE ADDRESS
656 B HALT TO DCP HALT “
1223 657 DC XL 2*a012¢ HALT ID
6$8
659 RTNSD STI DISKTP,0 SET FOR RESOVABLE DISK
0B 13 660 NYC WRT DFC+1(1) TRACK? | SET CYLINDER ADDRESS fO CE TRACK
661 NVI ¥RTDPC?2,0 SET POR HEAD 0, SECTOR 9
662 avr SNSID,09 INSERT ID If PRIBT
663
668 B STRTIO TO SEEK CE TRACK .
123A 665 pc XL1*°9¢ FUNCTION CODE (CO#TROL) a
31238 666 pc XL1*9°* CONTROL CODE (SERK)
123D 667 bc AL 2 (WRTDFC) CONTROL FIELD EDDRESS
668 B RT RSE GOOD RETURN
669 B 2
670 B PRTS#S TO DECODE ERRITR =
671 B PRINT TO PRINT
128B 672 pc XL 1°06° PLAaGS
128P 673 pc IL17*53¢ LENGTH
1251 674 pc AL 2 (ERRORS) MESSAGE ADDRESS
675 B HALT TO PCP HALT
1257 676 pc XL2* a0o9* HALT ID
677
678 RTNSE 8B TSTSEK TO CHECK FOR A GOOD SEEK
679
680 AVI WORK¢511,0 CLEAR READ
1D4uB 681 avC WORK45 10 (255) ,WORK¢512 AREA
682 LA WORK? 256,XR2 SET DATA ADDRESS
683 ST DFDE, XR2 IW DATA CONTROL FIELD
684
685 avi SNSID,X*°4&2* POT ID IN PRINT
686 mVI @RT DPCe 3,0 SET TO READ ONE SECTOR
687 B STRTIO TO I/0 SUBROUTINE
127A 688 pC XL1°O18# FUNCTION CODE (READ)
127B 689 pc XL 1°00? CONTROL CODE (DATA)
127D 690 pc AL2 (WRT DFC) CONTROL FIELD ADDRESS
691 B RTNSP GOOD RETURN
632 . 5 sey
693 B PRTSHS TO PRINT SEHSE INPO.
694 B PRINT TO PRINT 38D LINZ
128E 695 DC XL1*06° FLAGS
128F 696 Dc TL 14*65* _ LESGTR
22MAY70 C1A0G70 OVAPR71 ISHAR7Z PROG ID 0009-8
571513 571531 571565 571591 PaGE 6A
igh OF Be:
4
pee
ne
_A0S8 ; DIS kK 8 R. I r = t b ? 2s. t
Ene eC. ORIECT cope “appa ‘stot sovres. stareneer
et 1990 1287 4294 637 pe galpeenisns |
“9293 ¢6 87 6222 [688 8 “Hagr .
1296 AOR2 - 1297 699 BE. -XL2*2082* -
é “. F760
4298 3D BY iDes 701 RTRSP eLi- PORKES11,.C78°
F290 F272 81 10 702° 38 8Trxss
420F CO 87 021A 703 Bg: PRINT
42B3 C6 _ W2a3 FOR 2c. RLi*ce
*“42a8 82. T2A8 «6705 pe 0 _-« EE 9° 6B
97a 13.35 . 1286 706 SC AL2 (ERROS Bp
¥2a7 2098 es _ 12RK8 «707 pC +s EE2*ange
*12a3 CO. 87 0222 708 2 $aLT
Y2ED 1096 ‘12a8 709 - pe £L2¢Q090* -
128F CO 87 0216 270 RTNWSS 8 LIK
426 DICSCICSLEDEDSSO 2260 7110 oc
12BB EEDOCSESCSHOCECY 711
1203 Bsc te0cSsssp opens att
“¥QOR BpROcscecsc3pzZaa. FAB
91203 CSCIDIER#OCSCaaR 711
12DB- QOFAF2COCIE[6ODI . 90
1283 cse3C4E8 9 ; :
1287 SOPIF240C9E240E6 1273 712 ERROSA DC CL143°
WEF SVceEIcSaen . 712
72Pa CSDIDSNEDIAORECE 1328 713 oc
_ T2FC CSES40c 1B 3E3CtDA 713
“$308 D7EICIPSCTAOEIDS ' 993
-930C BOF2CSD 30SC'3E 380. . 943
‘4348 CSCIEICECSDIGOES 713
a31¢ CACSHCCECIETC SCS 713
“432e 20 713
1325 DELSHONSC SDEDEES 3335 798 ERROSB DC
(932D CIczpD3cSeOcacs#2 « 774
9335 D2 ; + Fae
t~ a9
4 ge
*is ¥. y
be PS?
wa Se
i. E Mee
£. fetta
DATE O6APR70 22NAY70 01A0G70 OVAPR71 15 8aR72
EC RO. 571516 571513 571531 571591
571565
32 IS @RTTE.
*CL49* ERBOR WHER ATTESAPTING TO SELECT
MESSAGE aDDSEsS
TS BCE HALT
Hatt XD
5129636 .
7.
‘veer POR SAVING READ PROB PIEST DISK —
SUSE IF RQUAL, OK
TO FRIRT SELECT BREoe
FLAGS
LESGTE |
HESS&SE ADDRESS
MESSAGE ID i
TC DCP ERROR RALT
‘HSL? ID
SO0TINR EXIT
CLI7*GR RESOVABLE DISK
*PROG ID
PAGE
CLS2¢ HEAD eR. unite Data EBROR. CHECK BALT ua eas rs REap,
*EITRER TRE FINED ¢
GA09-8
7
nm
4 ri) e) g
£¥
€%
eT ae
> fy «% ¢% Ce ) 69
«>
a ee
ven
ee
er
Ge
ay
*:
A08e
© & es e e S : : : | - Se ke ig > tags pees Ue te ee I ee ore La SE ara Po ein Sy Ee gt Sara Rides
Berke el ees et eho tae gene 2 pete ee hg sons i EY Ges RENEE = an ae ;
woe , é re OP eee : PGESHES or ees Oh aak Eat te
‘ing atreferancr pracsosrre — es — oe . : i
“Tee MAINTERANCE DIacuosT IC PROGRES a
D r Sk a R 1? E “yp sist 3
BRR Loe ¢ oBsreT cope ace appr stat ‘soprce STATEREDT is
OOM oy eee Ze *. Rovrine BO. 06, 2ST CF LOGECAL. 2up or crarena
1336 06. 1336 778 RTN6 3 DC XL1°06¢ BEBE:
$337 600 - 41337 «719 pe XL1*008 aoorins oe
1336 18SF 1339 ot pC AL Z (RTHT} ABDRESS OF BEIT ROUTIRE
133A. 3D 00, 0812 722. °° CLI. setse,o HAVE PARA BEE
1332 CO 87. OAOD 723 | BE eres pe & panice rata
1382 36 O08 O20A 728 . TBN SECTSW,X*04* TEST ssw 1S,
13286 CO 10 0216 725," _ Bt LI WK. . IF O8, BYPaSS HEAD. o
1344 3C 09 7963. 726 AVI SwSID,09 INSERT ID XB PRIAT
‘138B OC 00 1789 0813 - 327 BvC ¥ETDPCe1 (1) ,TRACKE SP? TO SEES TEE Ck THACK
4354 3C CO 178a - 728° BVI WRT DPC*+2,0 St Por nex 0
3358 3C 00 189F 729 AVI «= DESKTP,O SET FOR BPPER DISSE.
135¢ CO 87 1748 ; 73060~C*«* B STRTIO TO I/O SUBROUTTNR ~
4360 00. 1360 (737. ~— DC. IL1*00* FuNCTION cone «€<
_ 9367 00 1369..9732~- ~—C pc mLte90* CONTROL .cOpE cents
. 9362 1788 1363. 733 pe AL2 { @RTDPC) prado FIELD ADDRESS
1368 CO P87 S372 . 73a B éRTW6A GOOD RETORE
1368 CO 87 336C - 735 B £44 ne
136¢€ CO 87 393C 7% B PRTSNS TO DECODE gERron
1370 CO BF G21:A- 737 8 PREUT '2O PRINT yee eas
1378 06 1378 «6738 pt ¥L 1°06 FLAGS : Oe pnd
1375 35 $375 «739 Dc ¥L1°53° LENGTS , -
1376 Ocal | 1377 780. oc AL 2 (EREOB9} BESSAGE ADDRESS
1398 CO 87 0222 : a1 8 HaL_t To DCP BALT
137c A009 137D a2 Fa 2L2* a009* BAaLT ID
Fa3 :
372 cD 87 2705 Jaq HTNGA 8B TSTSEK TO TEST FOR GOOD SEEK
7985
1382 3c 00 1BeC 786 aYI BORK 0 ZERO THE WRITE aRea ves
1386 3C 8C 178A 2a? - SVI SRT DPC4+2, X* 804 SET 70 WRITE ID*S FOR TEAC 7
438A 3C 17 1788 748 VI os WRT DPC*3,23 S£T TO WRITE OWE TRACK
1382 3¢ 9C 1963 789 SV¥I SHSID,2*9SC° PUT HESSAGE ID IN SENSE PEIST
1392 3C FO OCE1 750 AVI #£BR1A,c*O* SET HEAD 0 In SESSAGE
1396 CO 87 77a8 751 B STRTIO | TO 1/0 SUBROUTIRE
139A 02 1390 «752 pC XL1*02¢ FUNCTION CODER { WRITE}
739R 01 71398 753 DC XL7°01° CONTROL CODE { ID}
139c 1788 139D 758 pc AL2 (WRT DPC) CONTROL FIELD ADDESFSS
1392 CO 87 3388 755 B RTHOB GOOD RETURN, (EXPECTED)
13a2 CO 87 1346 756 B 228
757
1306 CO a7 793C 758 8 PRTSYS ERROR RETURN, (NOT EXPRCTPD )
TIAA CO O87 O27A 759 B PRINT TC PRINT ROUTINE ERs
W3aZE 6 ; 23AE 760 DC XL2*G6* PLAaGS
V3aP a0: 13AP 761 DC TLIt6gt LEsGTr “
1380 OCE1 13B1 762 pc AL2 (ERRY2? ADDRESS OF LAS1 PRINY CHARACTER
73B2 CO 8&7? 0222 b 763 ) HALT TO DCF BALI
13P6 a09C 13B7 768 pc XL2* a09c* HALT ID
765 Sa Ae
13R8 3C RO 178A 766 RTN6OB NVI WRI DFC#Z,xX*80* SET TO DSE HEAD O & ID*S vOR HEAD 1
138C 3C 716 1788 767 AVI wWRTDFC+3,2% SET TO PORCE END OF CYLINDER
13C0 CO 87 1748 768 B STRTIO TO VERIFY
13c8 01 13Ca «4769 pc XL 1°01" FUBCTIGK CODE, (BPaAD)
1305 03 13c5 770 Dc XL1°O93* CONTROL CODE, (VERIFY)
13C6 1788 13C7 «(771 DC AL 2 (WET DEC) CONTROL FIELD ADDRESS
13C8 CO 87 138F 772 B RTNOC GOOD RETURN, (NOT EXPECTED) ©
13CC CO 87 13D0 773 B #48
13D0 CO 87 178F 7748 B SEXSE TO SENSE DEVICE STATUS
13D’ 02 13D8 «(775 pc XL1°02* GET BYTES 0 AND 1
13D5 38 20 17Aa5 776 _ TBR STATUS, x*20* TEST POR ESD OF CYLINDER
13D9 F2 10 23 777 JT RT HOD JUaP IF OF
13DC CO 87 021k 778 B PRINT TO PRINT ERROR
13E0 Cé 13E0 779 Dc XL1°C6* FLAGS
1381 53 13E1 786 DC IL 1*°e@3¢ LENGTH
1322 %4BD 13E3 781 pc AL2 (ERRO6GA) BESSAGE ADDRESS
13EB8 aod2Cc 1325 782 pc XL2*a02c* SESSAGE ID
1386 CO 87 0222 783 B HALT TO DCP ERROR SALT
DATE O6APR70 22maY70 017A 0670 OVAPR71 1SHAR72 PROG ID. Oa09-4
EC HO. 571516 571513 571531 57 1565 571591 PAGE 7a
698°
pA BAINTERARCE DIAGHOSTIC PROGEAH
‘pIsk wRITR
“yp pes?
a
rase
'8aLt ID
PROCEED
TO PRIST ERROR O8 TERIFY
FLAGS -
LENGTH
MESSAGE ADDRESS
@ESSAGE ID
TO SCP EBROR BALT
BRaLT ID
SET POR TRACK 0 Z3B*S
PUT NESSAGE ID IX SRS PRIET
TO I7O SUBROUTINE
FONCTION CODE (CONTROL)
COsTROL CODE. { SEEK}
CONTSGL FIELD ADDRESS
GOOD RETURE
TO DECQDE ERROR
T9 PRIEST
FLAGS
LeecTe
BESS&GE ADDRESS
TO DCP HALT
BaLT ID
TO TEST FOR GOOD SEEK
SET TO WRITE OWE TRACK
POT SESSAGE ID If SERSE PRIEST
S2T HEAD O I8 HESSAGE
TO 1/0 SUBROUTI EE
PURCTION CODE (#RITE)
COSTROL COPE (1D)
CONTROL FIELD ADDRESS
GOOD RETORE, (EXPECTED)
EEROR RETURS, (NOT EXPECTED }
TO PRINT ROUTINE ERROR
PLAGS
LESGTE
ADDRESS OF LAST PRIST CHARACTER
TO DCP SALT
HALT ID
ROUTINE EXIT
ROUTISZ ROABER
ROUTISE FLAGS
ADDRESS OF NEIT ROUTINE
BRANCH TO LISK ROUTIBE
CLS2*E8D OF CYLINDER SENSE BIT BOT ON AFTER A VERITY DA&ATA®
ZRF LOC OBJECT CODE == ADDR STAT SOURCE STATERERT
132A a02C ~ 132B 6788 oc ZL2*a02C
*13EC F2 87 10: - 785 a BTHOD
ts ee : ; 786°
I3FF CO 87 0212 787 aTHec 8B PRIET
13F3 C6. oS 1373 788 DC IL1'co?
13F8 99. 13Fr%° 789 oc 1L1*73
*_37P5 42506 13F6 790 DC = —_—so AL (EBROG B)
43F7 AO2E 2378 791 DC XL2°a02E
*13F9 CO 87 0222. 792 B HALT
13FD RO2ZE IPE 793 DC XL2*a02E
*f : feces 8
+3PP. 3C 00 178A FOS RTD BVI BETOFC!2,0
4803 3C 09 1963 786 “SVE SESID, 509°
$a07 cO 87 TTA8.- . Ww. 8 . STRIZe
FAB 00 0B 798 | ec 896 -BL 1 86
-$80c 00 aoc 6799" pe x1L1*90
*' ¥aOD 1788 - . . $80B° 800 pC. -—-: AL-2. (URT DPC)
-§RbP-cO e? te7R"" ~~ BOT 8. RT ROE
1813 CO 87 1917 * 802. 8 +4
19817 CO'.87 193C - 803 - 8B PRTSES
~~ $81B CO 87 O21a-- 808 B PRINT
121F 66. TOtF 805, pe s«CEL’ 1° 068
(i - 9820 35 4820 806 - oc ¥E1*53°
cy 9824 OcAd 1422 807 pc AL 2 (ERROB9)
“9823 CO 87 0222 808 - B SALT
4427 2009 1428 809 DC XL2* 009°
810
1429 CO 87 1705 811 RTHGE B TSTSEK
812
72D 3C 17 « 178B 813 AVI «=«- BETDPCe 3, 23
1831 3C 9C 1963 874 aVI | -SHSID,1°9C
*1835 3C FO SCEt 815 avi ERR1a,CtO
*1839 CO 87 1748 816 . B STETIO
7183p 02 143D 0 817 - BC XL1°O2¢
1Q3E 01 783E B18 pc XL 1°01
183P 1788 1880 ©6819 Dc AL2 (NBT DPC)
1481 CO 87 1958 820 8 RTNGF .
BES. CO 87 1849 821 B +8
1089 CO €%.193C 822 B PRTSES
$98D CO 87 O2tA 823 8B PRINT
W570 060 © 1951 828 pe XL1'06
*1852 80 | 1852 825 pc TL 1*6a
*1853 OCE1 1858 6826 pe AL2 { ERR1A)
ss 3855 CO 87 0222 827 B HALT
“. 4859 AOSC 145a «828 pe XL2°a09C
*ae 829
ls ¥85B CO 87 0216 830 RETN6F B LINK
ee 831
831
145" 07 185P 832 RTN7 DC XL1°07°
1860 00 14860 6833 pc XL1° 00°
1461 1507 1862 834 pc AL2 (RTS)
1463 3C CO OBT2 835 AVI 8 SETS#,0
1467 CO 87 0216 836 8 LIBK
a , 837
“T86B CSISC8KOD6CE40C3 149% 838 ‘DC
W473 EBL3CSLDSCICSDS80 838
147B E2CSDSE2C5480C2C9 838
1483 E340DSD6E3480DEDS 836
188B S0C1C6E3C5D980C1 638
1993 SOESCSDICSCEEBA0 838
1898 C&CTE3C1 - 838
189F SOE3DER0E3C8C580 18BD 839 ERROGA DC
14A7 D3LE6C7C9C3C1D380 839
_ IAF CSDSC84ODECE8NC 3 839
18B7 ESD3CODSCYCSDY 839
14BE CINCE3CIDEXOCODG I1GEB 8&0
14C6 DISOC5SDIDIDEDSHO 840
ATE O6APR70 22MAY70 01440670 O1APR71
571531
2C WO, $71516 = 971813
CL31* TO THE LOGICAL EMD OF CYLINDER®
bc CL86°A TIO FOR ERROR DID NOT BRANCH AFTER REACHING®
571565
“PROG ID oagg-a
PAGE 8
5129636.
- §
ge,
9
i) @ Ch) t* (>
Ske heiapoenccteck 7, eunhmne sh sear nent ene
i
&)
6
ry
* 4 a)
6s
e002 e2eee eee ee ee 8 8
eo
¢a
(4
on
as
a)
FBS SATRTENANCE BIAGROSTIC PROGRAN
2094 -
ERR LOC
TRCF
18D6
ISDE
T4HE6
18FC
16FS
18PC
1804
DATE
EC #0.
DISK BRITE
OBJECT CODE:
appr STs source statemesr
Ie TEST.
C&C9CLHODSDEE 340 880
C 2B 9C 1D SC 388 6C* 880
‘COE3CSDINODIC5CI 840
€3C 8C9DSC 740 ae B80 | te Yd ;
E3ICBCSHOD3IDECTCY 1506 B41 ERROSB PC CL27*THE LOGICAL EMD OF CYLIBDER®.
C3C 1D IUOCSDSCAKO 641
DOCEGNCI ESDICIDS eat
cacsp9 687
O6APRT0 22maY70 0180670 OIAPRIT 15HAB 72
571516 571513 571531 $7 1565 571591
ones-&
PAGE ek.
PEOG ID
3 " : 4
1507
1508
1509
-1S08-
1S0F
+813
717
157A
YS1E.
1S1F
1520
4822
1526
152A
9870
9538
4538
“453¢
153D
- $532
15486
$548
1848
1586C¢
715508
9851
7552
1558
1858
1SS5A
1552
1562
1568
156C
1570
1578
1878
157¢
157D
ISTE
1580
TSR
1888
158¢
$90
1591
1592
1596
1598
159A
1595
159F
1540
1542
15488
15a8
DATE
g
DISK #RITE ID TEST
| OBIECT CODE ‘AEDR STAT SOURCE STAT ERERT »., 2 . 2 ee
(Baz ©. ROUTINE BO. C8, CHECK TSE FUNCTION GF THE
*Ban * FILE @RITE S¥ITCA. ae
*845 :
08 1507 886 RTRS pC IL1°08" ROUTINE BERBER
00. 1598 B8a7 pc ZL 00" | ROUTIAE FLAG
Yrrr 1502 888 pc XL2*PPPPS LAST BOUTINE FLAG
: «gag Be he 5, . a
3D CO 0812 850 “CLI sEtsw,0 HAVE PARARETERS BEEN ERTERED?
€8 61 OAOD 657 BE SETDSK SRANCH IF BO
38 20 0208 852 RTW8CO TBH . SWITCH,Z*20¢ PEST SS 2
¥2 89 OC "953 OF RTN BR JUAP IP THIS SWITCH IS OFF
cO 87 O21A 85a B PRINT TO PRERT BYPASS HESSAGE
<6 1572 855 _ pe ‘SL 2* 06° FLAGS
24%: 151P 856 be IL1*36? L2NGcTs
46502 $21 857 “.. pe aL 2 (BYPAS 6) BPSSAGE ADDERSS
ce 87 1659 858 B RIN GP ; ;
3¢ 00 189F. @59 RTRGR AVI DISETP,O SET POR RENOVABLE DISK
oc 00 4969 08173 860. ~ SPC <- BETDPCe1 (1), TRACKS SET CYLINDER ADDRESS TO CE TRACK
3c 00 4764 66.1 AVI WETDFC+2,0 SET FOR BEAD 0, SECTOR O
3¢ 09 1963 862 SV¥I 4 «6SESID,09 IUSERT ID 18 PRIBT
Ce os
CO 87 1748 864 a STRTIO TO SEEK CE TRACK
oo 153¢ 496865. - pe ZL7°0° FURCTION CODE (COETROL)
oo 153D 866 pe XL1*08 CONTROL CODE (SEEK)
1768 153P 87 | pc AL2 (FRT DPC) CONTROL FIELD ADDRESS
co 87 7155a . . 868 B RTBSA GOOD HETORN
CO 87 15488 869 B sen
co e7 193¢ 870 8 PRTSES TO DECODE EREOR
ce 87 021A. 871 B PRINT TO PRINT
06 1550 3872 pc XIL1*06¢ FLAGS
35 1857 873 BC IL 1°53* LEucts
Ocat 1583-878 _ be AL2 (ERRORS) HESSAGE ADDR&SS
CO 87 0222 875 _— B HALT TO DCP RALT
acos 1559 876 ‘pC XL2*a009¢ HALT ID
877
CO 87 1705 878 RTHBA 8B TSTSEK TO CHECK FOR A GOOD SEEK
879
3c FF 1caB 880 AVI SORK+255,X°PPF* SET DATA
OC FE 1CSa 1048p 881 MVC = WORK 258 (255) ,WORK4¢255 FIELD
c2 02 188¢ 882 LA WORK, XR2 SET DATA ADDRESS
34 02 18A3 883 ST DPDR, XB2 IN DATA CONTHOL FIELD
8385
3C 12 1963 885 AVI «= SHSID,x*12¢ PUT ID IB PRINT
3¢ 00 1768 886 NVI «=. WRTDFC+3,0 S2T TO BRITE ONE SECTOR
cO 87 1748 887 B STETIO TO.I/0 SUSROUTINE
02 157¢ 4888 pc IL12*02* FOERCTION CODE (#8ITE)
00 157D 889 pc XL1‘00° CONTROL CODE (DATA)
1768 157P 890 pc AL 2 (@RTDFC) CONTROL FIZLD ADDRESS
CO 87 1598 691 B RTHBB GOOD RETORS
co 87 1588 892 B eeu
cO0 87 193Cc 893 B PRTSNS TO PRINT SENSE INFO.
cO 87 021A : 89a B PRINT TO PRIBT 3RD LINE
06 1590 895 -- DC XL1*06* FLAGS
a1 1591 896 pc IL1*6S¢ LENGTH
12F3 - 1593 897 DC AL 2 (ERROSA) SESSAGE ADDRESS
cO 87 0222 898 B HALT : TO DCP SALT
a012 1599 899 Dc XL2*a012° HALT ID
900
CO @7 O21A 901 RTNGB B PRINT TO PRIST OPERATOR INSTRUCTIONS
as 159E 902 Dc XL1°@5¢ FLAGS
32 159PF 903 DC IL1*50° LENGTS
1708 ISAT 908 pc AL 2 (RTN6S@) MESSAGE ADDRESS
acre 15a3 905 pc XL2*aOrs* HALT ID
906
907
CO 87 0222 908 B HALT HALT TO TURN ON WRITE IWAIBIT SH.
AOF8 1539 909 Dc XL2*a0re* HALT ID
910
O6APR70 22mAY70 01ADG70 OlAPR71 15a 72 PROG ID 0a09-4
5715 16 571513 571531 571565 571591 PAGE 9
oy
ey
fy
+m
€'y
er
«4
&
er
€9
Oe)
ene eee mets me camigel
ene cane etme te = me
es
«'
es
209%
BRR Loc
1SAA.
75az8
1588
1588
95BC
45C0
75ca
¥5C5
15¢6
15C8
a5cc
15D0
157ra
15pRa
15D9
15DA
1SDC
75E0
tSE2
1586
1S #C
1570
1578
15PS
15P6
1558
1SFC
1600
1608
1608
1609 ©
1608
160
1610 |
1612
1676
161A
WATE
1622
1626
W628
1625
16 2¢
1622
1632
16 26
TE3A
163F
163F
1680
1682
1686
1688
168C
160P
1653
1658
1655
1657
1659
165D
165F
1663
1668
DATE
EC WO.
DIS
OBJECT CONE
3c 00:
oc PE
1c4aB
1C4a
3¢ 12
3c 00
3c 08
CO 87
02
oo
1788.
co 87
co 87
co 87
co 87
6
u1
1273
co 87
A9t2
T7688
T78A
1SE2
15D0-
193C
O21A
0272
3C AA
Oc FE
1D&B
IDSA
1963
W788 |
1612
16906
193¢
O2TA
8222
co 87
C2 02
34 02
3C 82
3c (00
co a7
01
09
1788
co 87
co 87
co e7
co 87
06
ai
12F3
co 87
A0&2
3D FP %D4B
F2 81 10
CO 87 O2TA
co
2B
16AE
AOQA
co 87
AOSA
co 87
06
TA
1705
1cac
1843
1963
1788
1748
1688
1636.
193C
O21A
0222
0222
O6APR70
571516
1963
Aa
021A
tan narerevance brnenéstie bona
eC eeeeeeceeoeeoeeoeoseoeoecoscooosoeoesoeoeoee
2 eee pracnostre Prochae
ee 92
x 8 R It 8 12 ‘TE sft
“Appr STHT ‘source STATEREST 7
. 911 avi WOEK4+255,0 SET Data
Ices. 912 nvC WORK +254 (255) ,VORKZ5S FIELD
913
9494 avr SNSID,1*12° POT ID If Rie?
915 SVE WRTDFC?3,0 SET TO WRITE ONE secror ; ee
946 N¥I « WRTDPFC+2,0 SET FOR HEAD GO, SECTOR 0 ; }
. 917 B STRTIO TO I/O SUBROOTISE | Re a
isca. 918. oc EL1°92° FUBCTION CODE (#RITE) i
C5 979 BC XL1¢90¢ COETROL CODE { DATA) 4
15C7 920 Be aL2 (WRT DPC) COETROL FIELD ADDEESS .
921 8 RT BBC GooD RETUEE 3
922 | B S64 bin hs t's Oe
923 8B PRTSES tO PRINT SENSE I8FO. ar
928 B PRINT TO PRINT 3ED LINE 4
W5DR 925 Dc XL 17°06? PLAacS
1509 926 oc IL1°%6S* LEeecra
%SDB 927 bc -AL2 (ERROSA) BESSaGE ADDRESS
928 8 HALT TO DCP HALT
15£2 929 BC XL2°2012° HALT ID
930
931 RTNBC NVI wWORK+S17,X°aa* S&T READ
1D&h 932 MVC WORK45120 (255) ,WORK¢519 AREA :
933
934 MVI SNSID,09 ISSERT ID Iu PRIET
935 8 STRTIO TO SEEK CE TRACK
ISPS 6936 pc XL17*°0° FONCTION CODE (COETROL)
1575 937 DC XL7*°O# COBTROL CODE (SEEK)
1577 938 DC AL 2 (WRT DPC) CONTROL FIELD ADDRESS
939 B RT SSD GOOD RETURE
980 8B 24g
981 8 PETSES TO DECODE ERROR
982 B PRINT TO PRIsT
1608 983 so XL1°06* FLAGS
1609 924 DC IL1#53° LENGTA
160B 985 DC AL2 (ERRORY) SESSAGE ADDRESS
986 B HALT TO DCP HALT =
1611 987 pc XL2* a009* HALT ID
948
949 RTN8D B TSTSEK TO CHECK FOR A GOOD SEEK
950 La WORK 4256, X82 SET DATA ADDRESS
951 ST DFDR,XE£2 IN DATA CONTROL FIELD
952 AVI SNSID,X*82* PUT ID IN PRINT
953 SVI «6 WHTDFC#3,0 SET TO READ ONE SECTGR
954 B STRTIO TO 1/0 SUBROUTINE
162A 955 pC XL1*01° FUNCTION CODE (READ)
162B 956 Dc IL7* 00° CONTROL CODE (DATA)
162D 957 pc AL2 (#RT DPC) CONTPOL FIELD ADD&ESS f
958 B RTNGE GOOD SETURA :
959 8 toy ,
960 B PRTS"S TO PRINT SENSE INFO.
961 B PRINT TO PRINT 32D LINE -
163E 962 pe XL7*Co* FLAGS
163P 963 pc ¥L1°65°* LENGTH
1681 968 Dc AL2 (ERRUSA) HESSAGE ADDRESS
965 B HALT TO DCP HALT
1647 966 pc XL2*a0a2* HALT ID
967 RTNBE CLI WORKE5S11,X°RPR* TEST FOR ORIGINAL DATA STILL PRESENT
968 JE RT NSF JosP IF YES
969 B PRINT TO PRINT SELECT PRPOR
1653 970 pc XL1*Co? FLAGS .
1658 971 pc IL1 "938 LENGTE
1656 972 pc AL 2 (ERRO 6A) BESSAGE ADDRESS
1658 973 pc XL2°aAO9A° MESSAGE ID
974 B HALT TO DCP ERROR HALT
165E 975 pc XL2*Aa09A¢ HALT ID
976 RTNSP B PRIUT TO PRINT all OWITS SELECTED
1663 977 Dc XL 1° 06° FLAGS
1668 978 DC IL1*26¢ LENGTH
22mAT70 01A0G70 O1APR71 1588872 PROG ID 0a09-8
571513 571531 571565 571591 | PAGE 9,
“SAM MAINTENANCE DIAGROSTIC PROGRAN ta See BO gid OE, Oe oer tee
IHR RAINTPRANCE DIAGNOSTIC PROGPAS a ae te oe «PRT NO. 5728636.
. PAGE ; . o - oe ee Ss pact 0—“(<i<‘“‘(<‘é ll
SpOse BES K WRIPFE TD TEST A098 DISK B®WRIPSE TS Test
2. ERR LOC OBJECT CODE ADDR STHT SOURCE STATESERT — . : ERR LOC OBJECT CODE ADDR STAT SOURCE STATESERT
1665 OBOE. 1666 979 DC AL2 (ROUNIT) BESSAGE ADDRESS 995 * . CONE HERE TO TEST FOR A GOOD SEEK
*1667 38 20 0208 980. TEN SWITCH, X*20° TEST SSH 2 O58 | . > tr, 906
7668 CO 10 %67P 981 B HO REND EXIT IP YES : 4705, 38 08 7720 997 TSTSERK St SEKEIT¢3, ABR SAVE RETURH ADDRESS
*, I66F CO BF OZTA 982 5 PRINT ~ « 1709 CO 87 178% 998 SKTSTA B SERSE TO SENSE DEVICE STaTos
* 1673 9519 1678 983 pe XL2°8579° ; . 470D 02 — 170D 9399 DC O—sd ALA (STATO) BYTES 0 6 1.
ip 1675 1739 1676 988 DC AL 2 (DODO) 1000 :
“ 1677 AOFS. — 1678 985 pc XL2°A0F8! VOR 38 10 T7A5 1007 TBM STATUS,X* 10° TEST THE SEEK BUSY SENSE BIT
» . ¥€79 CO 87 0222 986 _ 28 BALT y 4712 CO 10 1709 1002 BT SKTSTA iP Of DO AWOTHER S2RSE
* 167D acral 1672 987 De EL2°*acrs? ZALT TO RETURKR SSTPCE 1716 38 01 T7A6 4003 TBH STATUS~7,2°O 7° TEST FOR SEEK CHECK
167P CO 87 922; 988 NORERD B Load TERMINATE SECT IO“ . -¥7IR P2109 1D 1004 JT SEBKER -IP OW, GO TO SEEK ERROR PRIET —
4683 08. as Va 7683 989 pC XLI°o* | . I7ID CO 87 C000 1005 SEKEXT B e—% Exit re
1688 CECODICSSOLEDICS 1622 990 ZRROSA BC CLO3°FILE URIVE SWITCH FAILED TO IBRIBIT BRITIBG? 1721 EZ3JESDINSLODODS8O 1739 1906 DODO DC CL25*TUBN OR FILE @RITE serTcHt —
TEC EICSHOEZESCIEICS 990 dee } 1729 COCIDICS4HDESEDICS 1006 a 5
1698 CBSOCEC 1C9D ICSCH 990 ates a : 3731 E3CSHOE2E6CIE3C3 1006
169C SOF DHUNCIDSCSCY 999 . 1739 CB 1006
WAN CZCVEFEDESDICIEI 990 . , 1007
6aC CODSC?7 $36 1008 * CONE HERE IF AN EREOR CCCURRED
*TG6AF DODEEAEICIDSCSYO 16D2 997 BYPASS DC CL36'ROUTIHE 8 BYPASSED WHILE Ss¥ 2 IS on? 1009 * . WHILE SEEKING THE CE TRACK ;
*4687 FESOCZES DIC TEZE2 991 . pk? 173A CO 87 O21A 1010 SEEKER B PRI ET “TO PRIBT ERROR ON. SEEK
Mi6pr c5casor6cecgp3cs 991 2732 C6 173E 1011 Dc XL1°C6? FLAGS
*16C? SOEZE2 FOS0P26 0C9 991 - I73F 2A 173P 1012 pc IL1T*a2¢ LENGTH -
T6CF E2HOD6D5 . 991 _ 3 1780 1787. 1781 1013 pc AL2 (SEKER 1) ADDRESS OF SESSAGE
16D3 ESEUPIPSGODECECE 16F5 9592 | pc CL35*TURN OFF THE PILE @RITE SUITCH AnD * 1782 AIC 1743 1018 DC XL2*a03C* BESSAGE IDENTIFICATION
1GDP SOEICACSHOCEC 9D 3 992 : + 7015
16E3 C54 0E6DICIEICSHO 992 - 1744 3c 70 0818 10 16 NVI PASS,O
- 16EB E2E6COE3IC3ICBLOCT 992 1788 3C 00 GB12 1017 RVI SETSH,0
2 16F3 DS5Ccas0 $92 . : 3 T74C 3C CO 189A 1018 AVI PRSTPS,O SET TO CAUSE A RECALIBRATE
' (6F6 LICSE2ZCSE3S0R3CB 1708 993 RTNESD DC CLIS*RESET THE HALT. * . ; 1750 CC 87 0222 1019 B HALT TO DCP ERROR HALT
1G6FE C5G0C8C1IDIE34B 993 1758 AO3C 1755 1020 Dc XL 2*a03c* HALT ID
1786 CO 8&7 0000 1021 B 0
> 1752 0002 1758 1022 TWO pe XL2°02¢
V7SC OChL 175D 1023 ORESEC DC XL2°08"
oe 1752 CSDSDIDENILODEC3 1787 1028 SEKER1 DC CLS2*°2RROBR OCCURRED SHILE SEEKING TRE CE TRACK.
*i 1766 CIEGDIDICECELORE 1028
: VIBE CB8CILTICSHOE2ZCSCS 202%
ae 1776 D2C9D5C 74 08 3C 8CS 1028
; WIIE GOC3CSROEIDICIC3 1028
1786 D245B 1028
¢ « 7788 00 1788 1025 WRTDPC DC XL1°00° FLAG
1789 00 1789 1026 pc XL1°00° CYLIBDER
a 178a 00 178A 1027 pc XIL1*008 TRACK & SECTOR
eto 1788 00 1788 1028 DC XL27°00° HO. OF SECTORS OR BO. OF TRACKS
7 * 178C 0001 178D 1029 ONE pc XL2*017°
; 1030
es ae 1031 * SENSE 1/0 ROUTIBE
os : ae TT8E 36 08 I7AT7 1032 SENSE ST SNSXR2, ARR _ SAVE ADDRZSS RECALL REGISTER
ra 1792 35 01 1747 1033 L SHSXR2,XR1 LOAD X81 WITH VALUE FROM ARR.
; E 1796 18 03 179C 00 1038 ANN SNS¢1,0(,XR1) MOVE-IN PUSCTION CODE
a 7 179B 30 90 1725 1035 SNS SNS STATUS,O : PERFORA SENSE ‘
179F DO 87 01 1036 B 1(,X81) Exit
4 F7A2 COCO 17A3 1037 SETXR2 DC XL2*0°
iad 17a8 OCO0O 17A5 1038 STATUS DC XL2*O
*17a6 0000 17A7 1039 SNSXR2 DC XL2*°0
*é 1080 * ERROR RECORDING TABLE ee RGR
1728 1081 ETABLE EOD # Ms
$$:
gs Bie ss
ee i %
i
ae
- | ¥
! (
f hast «
i :
di a ae
i, , = ~
r DATE O6APR70 22mAY70 01A0G70 OTAPR71 1SMAR72 PROG ID OA09-8 DATE OGAPR70 22H AY70 O4AUG70 O1APR71 1SSAR72 PROG ID OACI-&
EC NO. 571516 571513 571531 571565 571591 PAGE 100 = EC RO. 571516 571513 571531 57 1565 571591 PAGE 10a
Loe
=
‘ fe ‘
= Uy o .
*i ‘, ‘& 7 “= : Fg. 4 j By > 5
iemints gs ‘ SA 5 ee tin Ses PET 5 “ titles BT oe ae a ok - nce Sa 2 a . Be ate 3-8, nonin ee -- os Sah 2 _ he BB e he Lae = iy Res “3 - - at ae CR a Bene de aed gears hy Rei ea ait ons et ee Smee SP ise 7s - tse
IBG NAINTERARCE DIAGNOSTIC PHOSAAN
RODS
“ger toc
T7AS
WAC
47B0
F788
| VES
V7BE
- 7e3
PICT
Or 4 T9CAK
ka VICE
as Wpe
T7D5
T7D93
T7?oD
. 1720
“17E8
17E8
ITEC
17FO
VIPS
ATE?
17FB
T7FP
1803
1808
1808
180F
1812
1815
18 1B
1B1C
te 48 1F
1822
1826
1828
182F
1838 °
1838
183C
183P
1843
1846
1849
189D
1851
1854
1858
185D
1860
1863
1866
186C
1874
1874
1877
187C
1882
1885
1888
188B
1890
1895
1899
DATE
Ec no.
DISK GRIT
OBJECT CODE ADDR STMT SOURCE STATEMENT ;
1083 * START I/O SUBROUTIRE
; : 1085 ,
38 O8 1743 1085 STRTIO ST $SETXR2,AaRR
35. G2 1743 1086 | L | * SETXR2,AR2
3¢ 60 189D~—sC;: 10487 BVI | SA¥S¥,09
28 03 17F5 CO 1088 SNR 8 =6SIO0¢1,0(,ER2) '
2¢ 00 17P6 OT 1089 SVC = SIG@* 241) ,14,X82)
2¢ 01 T8A1 03 7050. - _8¥C | -DPCR (2}.3(,2% 82)
36 C8 169P 1051 TEN DISKTP,X*O8* -
F2 10 OB 1052 3f SETPIX
38 O8 T7P5 1053 SBP) STO+7,xX°0S* |
38 08 4852 1053 SBP 811001, 2°96"
F2 87 08 1055 a CRS EER
3A O8 I7P5 1056 SETFIX SSH S1O+1,x*°O8¢
3a O08 1852 10S7 Saw 8 RSTO+1,x* 08"
BD 00 00 1058 CXSEEK CLI ©(, 582} ,00
‘CO 8t 1818 1059 BE SETADR
3% AG 18at 1060 LDPCR LIO: pPrcR,x*ac?
37 A8 1823 1064 LDPDR LIO DFDR,X* as?
3c CO 18A8 1062 AVY ENDIPL,O
c2 01 19¢8 1063 . oa 6600,ZR1
F3 ad 00 7064 STO SIO —- X*O0* , xX*a0
*Cl A2 18A9 1065 WAIT TIO BUSY,X*A2
*3D FF 189D 1066 CLI SAVSH,X* PF!
CO 01 180B 1067 BNE LDXR2
8c 00 03 789C 1068 AVC) 8 =—- 3 (T, XR2),, DFCISY
BROT 02 1069 SBP 2 (,XB2},01
35 02 1743 1070 LDXR2 L SETXIE2, KR2
£1 a0 OC 1071 TSTERR TIO 12(,XB82),X*A0
*E1 AY 08 1072 TSTSCH TIO 8(,XR2) Xt aut
FO 87 Cu 1073 B @ (,XR2)
1074 .
1075 * SUBROUTINE TO SET TRE
1076 * DIRECTION
38 08 1898 1077 SETADR ST ADREXT+*3, ARR
BD 07 01 1078 CLI 1(,XR2),01
F2 01 04 1079 INE = #07
3C 00 1894 1080 AVI = FRSTPS,0
2C 01 1845 03 1081 avC 8 8=«KR2WK(2),3(,XE2)
35 02 18A5 1082 L XR2WK,XR2
2cC 00 189C 03 1083 M¥C = DFC 3S ¥(1) 5. 3, XR2)
3C FF 189D 1088 . BVI SAVSU,X*PF
*3D CO 189A 1085 CLI FRSTPS,00
F2 01 19 1086 INE SETADA
3cC 01 189A 1087 AVI = PRSTPS,01
BB OT 02 1088 SBP 2(,XR2),01
BC FF 03 1089 SVI | -3(, XR2),255
3¢ CO 1898 1090 NVI LastTap,00
37 A6 18,41 : 1097 RLDFCR LIO DFCR,X*a6
*F3 AO 00 1092 RSIO SIO 00,xX*a0
*C1 A2 1858 1093 RWAIT TIO *,X*A2
*8D 00 01 1698 109% SETADA CLC 1(1,XR2),LASTAD
F2 81 25 1095 JE HOS EEK
F2 89 11 1096 J8 FDSEK
BB 01.02 1097 SBP 2(,X82),01
Oc 00 1899 1898 1098 MVC 8 ©SCRCH (1), LASTAD
2P 00 1899 01 1099 SLC SCRCH(1),1(,XR2)
¥2 87 17 1106 3 SETADB
BA 01 02 110% FYDSEK SB¥ 2(,XR2),01
2c 00 1699 01 1102 M¥C = SCRCH(1) ,1(,X%82)
OF 00 1899 1898 1103 SLC SCRCH(1),LASTAD
F2 87 C6 1108 3 SETADB
BC 00 ¢3 1105 WOSEEK AVI 3(,XR2),0
F2 87 OA 1106, J ADREXT
8c 00 03 1899 1107 SETADB SVC 3(1,XR2) ,SCRCH
2c CO 189B 01 1108 SVC) =LASTAD(1),1(,X82)
co 87 0000 . 1109 ADREIT B o-%
CO 1899 1110 SCRCH DC XL1*"008
O6APR70 22NAY70 01A0G70 OTAPR71 1SHAR72
571516 571514 571531 571565 571591
‘Ip TEST.
| Paet no. © 5129636,
‘PAGE. at
SAVE ADDRESS RECALL REGISTER.
LOAD XR2 WITH VALUE PRON ABR.
-ZERO SWITCR.
SET FuSCTIOR CODE
SET CONTROL CODE IB sro
SET DATA ADDRESS FOR BFCR
TEST FOR RON ON LOBER DISK
JUAP IF YES . Ree 27e
SET FOR RESOTABLE DISK
SET POR REHOVABLE DISK
PROCEED ee eS
SET POR PIZED DISK
SET FOR FIXED DISK |
TEST POR SEEK
IP TES, GO SET ADDRESS
LOAD CONTROL REGISTER
LOAD DATA REGISTER _
RESET ILHDEX PULSE SWITCE
LOAD DELAY VALUE IM ZR1
START I/O OPERATION
TEST FOR BUSY
IS SWITCH ON?
IF NO, SKIP RESTORE
RESTORE N BYTE
TURNS OFF THE FOR/ REV BIT
RESTORE PARAMETER POLNTER
BRANCH IP ZRROR
BRANCH IF SCANS FOURD
EXIT
NUMBER OP TRACKS AND TLE
(FORWARD OR REVERSE), TO SEEK
SAVE EXIT aDDRESS
IS THIS A RECALIBRATE?
IF BO, S5YPASS SWITCH RESET
RESET RECALIBRATE SHITCE
SAVE ADDR. OF CTL. FLD. ADDR.
LOAD XR2 SITH COMTROL FLD. ADDR.
SAVE W BITE IW CONTROL PIELD
SET SAVE SUITCH
IS THIS FISST PASS
SKIP RECALIBRATE IF nO
SET PIRST PASS SWITCH
SET PYD/KEV BIT TO REV.
SET SAXIBUS TRACK CROSSING
SET OLD ADDR TO 0
LOAD DATA CONTROL REGISTER
SEEK REVERSE
WAIT
COMPARE PRESENT ADDR. SITH SEW ORE
EQUAL, SEEK IS HOT NECESSARY
SEW ADDR. HIGHER, DO FOR@&RD SEEK
SEW ADDR. LOWER, SET BIT FOR KEV.
PLACE LAST ADDR IM WORKAREA
SUBTRACT NEW ADDR. FROAS LAST ADDB.
PROCEED
SET BIT OM FOB PORWARD SEEK
PLACE NEW ADDR. I WORKAREA
SOBTRACT LAST ADDR. FROM HEB ADDR.
PROCEED
SET KO.
TO EXIT
PLACE IN HO. OF TRACKS CROSSED
SAVE EW ADDRESS
Exit
OF TKS. CROSSED TO ZERO.
PROG ID OA09-8
PAGE 41
he
yy
6
>
eee Seep
ea
oe
ea
Inn MAT#
A098.
ERP LOC.
1894
1898
189¢
189D
1898
TBROC
18Aa2
18a9
T6A6
48A8
TRA
BAD
9881
71882
1BR6
18B9
188D
18c3
v8CS
18¢9
78CD
18D0
18D8
78D5
18D6
18D8
VADA
18DE
18E0
18F4
18F6
18FB
1BEC
1APO
13F1
18P2
18F4
18P6
16RA
18FC
1900
1908
1910
1915
194D
1925
192D
1935
193A
DATE
EC WO.
TERAUCE BTRGHOSTIC PROGRAA.
PIS k RITE
OBJECT CODE _ ADDR STNT SOURCE
00 189A 1111 ERSTPS
00 i 189R 1212 LASTAD
00 189C 14113 DFC3SY
00 | 189D 1114 SAVSW
OOorr 189P 1115 DISKTP
000d 18A% 17796 DFCR
TB AC 18A3 1747 DFDR
0000 1805 17928 XR2UK
FRFF : WA7 1719 NEG
00 178A8 1120 INDXPL
38 904 12338 ; 1127 BUSY
co &7 1788 9122
03 18B1 2123
39 O08 T7A4% 1128
F2 90 ne 1125
3C FP 7848 1126
35 Ci 1938. 1127 |
36 01 18A7 4428
CO 8& 17P7 7129
3D PF 18A8 1730
FP? 81 10 2131
CO '87 O27a 1132
C6 De 1133
25 18DS 1134
1939 VED? 17235
ao0s9 18D9 1136
cO 87 9222 - 9137
a089 18DP 1138
CO 87 TADE 1139 TCVD
OA03d 1825 7140
1914 18E7 1191
3c a0 1912 1142
cO 8&7 O21A 4143
C6 T8PO 11488
15 18P1 1785
1948 18P2 1146
aC8E 18P5 1147
CO 87 0222 1148
AOBE 18FB 117489
cO 87 OC0D 1150
E3ICIDUCSDELSERUO 1914 1151 TIAOUT
COLCSHODIDSRAEICS 1151
CSCSYOETE? 1751
D5SPDENOCIDSCUCSE? 1939 1152 MYNDEX
QOD7ESD3E2ZCSE280 1152
£2C5SDSE2CS5C8&40C2 1152
CSC6D6D9C540£3C93 1752
CUCSDEESE3 1152
0000 193B 1153 TISE
OA03 1158 RPPX
O6APR70 22mayv70 01A0G70
571516 571513 571531
ID Tes?
er
STATESE RST
BC. 3L1*90
*ac ZL7° 00°
BC =s-s XL.°00
*pc _XKL17° 006°
pe XL2‘Fre
pe aL 2 (#-8)
DC AL2 (WORK)
be XL2*0
*BC XL2‘Prrré
pe XL1°O
*ST TIGE, XRi SAVE COULTER
B SEaSZ ‘TO SESE DEVICE SATAUS
_ be XL7°O3°* . mg =
TBN STATUS-1,%*°08* TEST POR IBDEX BIT
JP 247 , :
avI ENDEPL,X*PP*. SET S¥ITCH TO SAT INDZ #CYD.
L TINE, IR? RELOAD TIAE YALUE
A NEG1,1B1 DECREBRNT DELAY COURTER
BSH WAIT RETURN TO TLIO LIP WOT TIRE OCT
cut INDIPL, X*P?P* CHECK POR INDEX RCYD. :
JE TC WD JOSP IF THERE @AS a8 INDEX
B PRIST TO PRINT AISSISG IWDEX PULSE
oc XL1*°C6* FLAGS :
DC IL1¢ 37° LESGTE
Bc AL2 (MI WDEZ) BESSAGE ADDEESS
bc. XIL2* A089* BESSAGE ID
8 ALT TO DCP ERROR HALT
ac XL2° a089° HALT ID
8B cvp TINE OUT GQCCURED, CORVERT ROUT. HO.
pc AL2 (8PFX) CORREST ROUTINE BO.
pc AL2 { TINODT) ADDRESS OF DESTIWATIOR
AVI TISOUT-2,C*
*B PRIST TO PRINT TISEGUT OCCURED
pc XL 1*C6* FLAGS
poe IL1*21° LERGTS
boc AL2 { TISOUT) BESSAGE ADDRESS
DC IL2'AQSE* HESSAGE ID
B HALT TO DCP ERROR RAL
pc IL2*AOBE* HALT ID
B 0
pc CL21*°*TISEOOT I8 ROUTIBE XX
*oc CL37°NO INDEX PULSES SEHSED BEPORE TIAEODT®
pc XL2*O"
EOU x*a03
*OTAPR71 1SHABR 72 PROG ID 0a09-48
571565 $7159% PAGE ata
tip
262 BOC
“ Pack 38
BISK FRETS FB VEST :
AOR STAT SOURCE STATESERT
$356 ¢° ; SUBROUTIER TO PRIST TRE CONTESTS GF DBVICE STATSS
*Vis? , 2 S
38 G8 7C2 4758 PETSES SY PRTEIT? 3, ARB SAVB ABB@ESS RECALL REGISTER
we . 3159 B SEESE TO PEEPORA SEESE
02 10s 1160 | BC ALVTESTATON GET DEVICE STATOS BYTES 9S 1.
m8 1161
cd CY e2tE 4462, B BWP ACK TO BEPACE STATIS BYTES
a9 02-2 S29 7163 BC ZL1°028 :
& F7AS WAS 7466 DC 0s AL 2 (STATES
soe TSR 7eED 4765 BC &L2 (HEXSTE~33
' +368 :
NE 3C OF 197E | 7167 AVI sTPsase1,87 SET POR COBPLETION OF FIBST BITE -
€2 Of 19P1 7168 LA STATED, XEY SET X#1 TO POIET TO PIRST BESSAGE r
©2 $2 7A082 1369 La STARSK, RB2 SET ER2 TO POIRT TO TEST #ASK
co BF o2%a - 4970 B PRINT TO BREST SES BITH BEADIAG -
ci W9SE T1713 - Be XLIC1? FLAGS :
eT. 19% 27°72 Bt IL?707° LENGTH
49F1 4962 7473 BO. ALZSTATHD) ADDRESS OF LAST PRINT CHARACTER
. 7963 7778 SESID DC ZL2*a060" HESSAGE IDEWTIFICATICES
2C 08 T98PF 00 . 9178 SOVEDT AVC TSTET<1£1),0 4,.xXR2} SET MASK BIT IB TEST BaTS IESTEDCT.
WC 12 1BGR 60 T1768 HVC STATPR(13) .0(, 287 SET BESSAGE IN FYIELD ‘
36 00 +748 2177 £STsT TSH STATUS-1,+%-+ TEST CUBREAT BIP FOR OF i
£2 90 s8 4178 3F STPSHS BzIPaSS PRIBT IP CPF
co 8? O2TR 3479 8 PRI RT TO PRIHT SHS FITHOCT READIEC
@1 1379 7486 oe KLi°ov ¥LAaGS ,
TZ 97a 2181 pc ELI°18* Leuct s-
1BaB 19% 1182 Bc AL 2 (STATPR) ADDRESS OF LAST PRIET CHARACTER
3D CD 196F 1163 STPSBS CLI TSTBT+1,%-2 TEST POR PENISHED
F2 81 Ca W188 Jz SEHSA JOMP IP FINISHED SITE THIS BYTE
#2 02 91 21185 Ba 1{ , ER2) ER STZP XR2 TO POLST TO BEIT #HASK BIT
*p2 87 12 4186 SENSB LA 18 ¢, 481) -XB% STEP XR1 TO POINT TO FEXT KESSAGE
CO 87 1964 1187 8 NOVEST GO TEST WET SENSE BIT
3B 80 TS7E 1788 SENSA CLI STPSKS+1,Z° 80° TEST POR COANPLETION OF 22D BYTE ©
P2 873 22 1189 SE PRTREX TO PRINT AED EXIT IP DOSE
3c 80 1972 1190 AVI STPSHS<1,x*8O* SET POR CHBCK OF 28D BYTE
38 01 1948 4191 ST SENSC+3,XRi SAVE X87 2
‘€O 8&7 1782 1792 B SENSE TO SENSE
03 ISAT 73193 pc ZL2°O3* BYTzs 26 3
CO 87 021E 7798 B OEPACK - TO URPACK STATES BYTES 2
02 1986 17195 pc EL1°92°
TIRS 4F9AS 7196 pCO s«ALL2 (STATUS)
tSDF- T9RA 7197 pe AL2 (REXST a) 2.
£2 07 0000 4198 SENSC La e—* X81 RELDAD x81 ~
? £2 02 1282 7199 ba STHASK,XE2 SET BIT POLET ER :
£0 €7 1987 4200 8B SENSB TG PROCESS 28D BrTzF =
7 €O0 87 621A 3201 PRT#EZ 8B PRINT TO PRIST STATUS IB BEx a
92 T9BB 4202 bc XL17*O02
*aD 39BC 2203 pe TL 1* 298 r
Toor T9BE 71208 Bc AL2 (HEXSTA) =
ce 87 0000 3205 PRTEIT B r+ SUBROUTINE EXIT
. 4206 =
E2E3C1P3ESE2Z80C2 19D7 1207 pc CL21*STATUS ETTES I8 BEX, * 2
ESP3CSP280C9D540 1207
C8CSE7EBS0. 1297 2
POCTCOCCONNOCCNNN WSDF 1208 HEXSTA PC XEe* of
DSESSODEDTECKORD 1974 1209 STATED DBC CLI8*#O OP s .
‘8080402080900080 1209 ¢
8080 - 1209
CSDSESCSDIESCSDS 1203 7270 i CL76*INTERVERTION REDD.
*E3C9D6D580N9CSD8 1210 e
C&sB 1210. a
DSCIEZE2CINSCIGO 1215 1271 pc CLIS*BISSING ADDR. SAEK
*CICSCHDIURSODECI 1211
D9D2 1211
CSDEESC9D7DACSDS WA2Z7_ 2212 BC CLI@*EQUIPHERT CHECK ¢
-EB380C3C8C5C3D280 1212
8080 2212
COCTEICIBOC3CECS5 1039 2213 pc CLI8*DATA CHECK s
O6APR70 2284Y70 0 7A0G70 OTAPR71 1SHAaR 72
571516 571533 571537 $7565 571591
eeo5eeeee eee
@..
Pant re.
5129635
en en mene (ORE OI me!
’ ‘ ee 1
OR ate ke A Lp tae eon rcbtlaanaminee ne DNA ORTH fa UE ALOR INR AL HOO COCA nant RI PRNONEBNAO TSS rs
ta
iy
we
>,
ec
2098
PRR ioc
7030
TA38
TAA
1AaZ
TASA
TARE
A532
‘tase
TRSE
1AabS
TAO?
1A70
+ATS
+a60
VRSQ
TASE
JASA
FABE
Va92
TASS
tHBR
TROE
VRAD
Tane
JAAD
ISAT
1aB3s
TABS
TABS
YRED
FACF
FACa
Vac?
TacB
TaACP
TADS
IAD
IAD]
IAD.
TADS
TABS
TADS
tad?
¥aDS
7aD9d
Fada
ads
Vapc
DATE
20.
DIS K
gar
FR
Stet
12793
22143
tats
4238
OSIec?T coODR ADDR
€3D28080408 60620
8085
DSLSSODSCSC IDEDY 44 3B
CRHOTEDS £4 DS CHS B
a8 5D
EIDPADCIDEDSCBCI TASD
F3C SPODSNOC WSs
C3Bz .
Ercecspesor 3cacs Mer
CINZ 404 608980 2G
B0ED
EXDSEZCVCHSCHWMOND MSF
GOLOSMAOAGHOsHAD
BOSC
3282
BOsG20tS TBaS
sone 2D kB?
3% OS FACE
35 Of Wace
35 02 WaACE
3% 02 1758
2% 82 TaRCE
3C OD WacP
cz 02 Wwbe
7S C1 03
2¢ 00 FABa 00
2c TO BABA DS
78 C8 02
2 ¢D GR
3a 08 Sacer
3D 80 WBeR
F2 874 69
22 02 93
CO B87 32a9
co 87 3000
90 qWacr
oa qaD0
o8 4aDI
29 TRDZ
20 TaD3
a0 TABS
o1 IRDS
o2 JADE
04 VADT
os FADS
70 12D9
26 WADA
26 IADB
B80 FADC
CGAPR7TO 27h a779
577516 571513
12748
4215
3245
1275
3216
4296
4246
1237
1297
1237
3248
1299
"TBH SAINTERANCE DIAGNOSTIC PROCRAR
22.
ttst
SOURCE STATERERT
STMESK
1226 °
. 41223
3222
1223
1224
4225
1226
1227
1228
9229
4230
7231
1232
71233
12348
1235
1236
32379
41238
1239
1240
4283
1282
7283
7288
2285
7286
1247
12728
4249
1250
1259
3282
1253
1258
SHIFT?
StCTSR
TER
$688
SaPEXT
CYLAo
SEPT SL
OIADGTO
971531
C£L18*RO RECORD POUND
sen, ag. siesese
. Za
2
SUSROUTI NE Te SHIFT BITS Tz cowr Ren FIELD
STORE ADDRESS RECLLL REGISTER
BOSD BAIF aBDRESS FE IRI
LOAD EIT ARBRESS Iz LR2
ZBCHEASE BY 2
STORE POR TRYS EXIT SSDEESS
ZERO TORE BREA
LOAB ADDRESS OF SHIFT TABLE iu ZB2
LOAD COBTEOL FIELD ADDRESS IR X84
XIHSERT CORRECT BASK FOR TEST BITS
IRSERP CORRECT BITS FOR SET BITS
TEST OBE BIT FOR O83
JES? IF OFF
SET ORE BIT EER ORCISAL FIELD
TZST POR LEST SIT
JUSP TO ELIT “xF ALS DORE
ROT DONE, STEP XEZ
TO TEST HEET BIT
Exiz
PROG iD GaGd-—6
ot
pc CLiI@t*ETK CONDITION CHuEcK
*pc CLIB*SEEK CHECE
BC CLt8* GUSAFE
209
*ac XLS* 80802070"
ac XLS DSSGSROTS -
Sf SHPEITSZ, ARR.
L SHPEAT+ 32S
L SHFEXT+3, 222
a TSO, XR2Z
st SHFEST+ 3 RZ
Vi CTFLNO,9
LA SEFTBL, X22
L 4(, R74) .XEt
atc THRO 7 (9) 04, IRZ}
aw SHH 1 (1) »D (, XH2)
TBE Z2{ .XR1) -F-2
a? se?
SHH CYLHO,*—
*CLI THA27,F°SO
*JE SHFEZT
La 4 4,%R2) XRZ
B SICTBA
B Dw
DC XL2°O?
pc XL 1° Ge?
ac XL1°038°
pc XL ¥* $99
oc IL7720
*- pc XL 7* @p
*oc XLY*Oee
ac XE 7* 02°
oe XL 2°OR
*oc XL 2° O3* :
BC XL7*190¢
pc IL 1° 20°
pc XL1¢s9°
pe EL 4° 80°
OTAPRT1 TSHART2
571565 $712597
PAGE 1238
—_— 7 $ te -. a
rH Hh. oS é = es aa =
—
“TBR RATWTERANCY DIAGHOSTIC PROGEAS -
i 2096
FRR. LOC
“VADD
FADE
VAEZ
. TAES
TAZA
AEE
TaAP2
TAPE
TAFA
7800
7806
tece
BY
PBIB
Las 1821
1827.
1B28
1B2F
1B 30
1B38
1B3a
1BAaC
icac
DATE
Ec wo.
a
pIseR
BRIT 2
1D
TES
Tt
ADDR STAT SOURCE STATEMERT
1256
1257
1258
1259
1260
1261
1262
1263
1268
1265
1266
1267
- 1268
OBJECT CODE
00 TADD
36 08 178D
34 O08 IAFF
36 OF 1758
38 C8 1TBO5
38 08 BOB
36 08 178D
3n OF TRIE
oc 01 18771 CO00
oc 01 1828 9000
OC 07 1875 C006
Gc 00 1ADD 0000
08 20 080G0 1839
OF CO TADD 178D
FP? €2 OA
06 270 0000 t82P
CO 67 1818
co 87 CC0D
Ft 1B2P
FIE2FP3PGPSPEPIPS 1839
P9FO
1845
TEAC
IC4B
1C48B
0003
CO76
0001
co02
0008
CCO2
0003
COA6
OOAS
ccso
0040
0208
O20A4
0212
0216
O2TA
O21E
0222
022A
00x
003F
0855
OGAPRTO 22m AY70
571516 571513
1269
1270
1271
1272
s
HX BYT
‘CYD
PRON
TYSOT
OTORZ
FROSTT
ZROTO
DECGAN
TOE TT
1273 .
1278
T2TS
1276
1276
12779
1278
1279
1280
1281
1282
1283
1288
3285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
TIZE
DECONE
GRITS
STATPR
WORK
01a0G70
571531
5129636
13.
PAST HO. |
PAGE
-
SUBROUTINE TO CONVERT A WOABER TO DECIMAL
oe. ZL7°O?
*A ONE, ARR
st PROR¢5, ARR
a TWO,ARR
ST TY BOT+5, ARR
ST. OTORZ*5S , ARR
A ONE, ARR.
st TI XEO3 ARB
a7C PROBYT*5 { 2}, -
*aYCc TOB ITs 3 (2) , e-F
“vc SROTSH+* 3 (2) oF
aywc BX BYT{ 1) . *-¢
ZAZ e-*% (3) ,ORITS (1)
sie¢ HXBIT (1) GE
JL TIZE
Az &—-t (3) , DECONE (3)
8B DECGAR
p Buns
BC CL i# 2
pe CL 10 ° 1234567890"
Ds C118
ECU. 2
DBs CL256
ds CL 256
E00 x*a38
roU0 xX* 76
*E£o0 at
£0u 02
£00 08
200 xX*oO2
*rou x* 038
EQU x*a6
*Eou X° age
£00 x*6e0°
rou x* aoe
EQU x*208°
EOD x*20a°
EQU z*212¢
EQU xX*216¢
EoD Z*2Q tae
£Qoo0 X°21E°
*EQU xX*222°
EQU xX*22a¢
£Q0 x*3c°¢
Zou x* 3F¢
ERsD BEGIR
OTAPR71 TS5H8AB 72
571565 571591
STORE EXIT
ADD ONE TO GET FIRST PARASETER
INSERT THE FROM ADDRESS
aDD THO TO GET TRE SECO™D PARABETEG
INSERT THE TO ADDR
ADD ONE POR BXIT ADDRESS
ADDRESS
POT BYTE IN WORK AREA
ZERO THE TO ABEA
DECRESERT THE HEX BYTE
JUNP IF BZLO¥ 1 ,
FECRENENT THE DECIBAL COUNT
£xIT
HALT DISPLAY 1
HALT DISPLAY 2
HALT DISPLAY P
HALT DISPLAY A
PROG ID 0009-8
PAGE 13
t-
es
t>
ey
ia
dre
>
““n090
-
SYMBOL
ADREXT
ARR -
AQ9
BEGIN
BITO
PITT.
BUSY
BYPAS6
CKSEPK
CTRL
cup.
CYLRO
DATA
DECGAR
DPCONE
DFCR
CEC3S¥
DPDR
DISKTP
pobpo
EPRORG
FRROSE
EPROGA
EPPO 2B -
ERRO2ZC
FRRO2D
PRPRO2E:
EPROSA
PRROGA
EPPRO6P
FRRVA
ETABLE
PROP YT
FRO"
PRSTPS
FWDS 2K
RA
RALT
REXSTA
of
OO»
» > wy Dm em em ow OL ee ee 710
AAs » ww yp >» yw»
oe wt - Benen mek)
prPrs > rrr wr
LEW
ong
001
004
608
001
C01
00%
036
003
601
0G8
001
007
006
C02
002
C1
C02
CC2
025
C06
017°
0a3
042
089
037
027
013
031
027
021
001
006
006
001
C03
001
001
ocs
001
001
001
001
001
001
008
Coa
004
C01
co
037
005
005
002
cog
003
C26
002
002
006
O6APR?7
5715 16
DIS Kk
ALUE DEFR
1895 1109
0008 12285
0000 0002
0855 0191
6080 1290
0080 1291
BAD 11924
16D2 0991
17DD —- 1058
COAG 1288
TADE 61258
TACP (1201
COAN 1289
1818 1270
1B2F 1275
TBA? 1116
189C «1113
18A3 1127
189P 1115
1739 1006
OCAd 0218
1335 0714
T6AE 0990
OE2c 0325
OESD 0326
0282 0327
OFCF 0329
12P3 0712
18BD 9839
1506 0841
OCE? 0216
17A8 1001
1BOC 1268
AFA 1265
189A 1191
1674 ©1101
CO3F 1301
0222 1298
19DF 1208
003c 1300
ADD 1257
0003 1281
0C76 1282
18A8 1120
1A9B 1112
17E8 1060
17E8 1061
1808 1070
0216 1295
022A 1299
1939 1152
1968 1175
1AAQ 1231
TBAT 1119
167F 088
18AS) «1105
CBOE 0090
178D 1029
175D 1023
1806 1267
0 228A 170
571513
IBM MAINTENARCE DIAGNOSTIC PROGRAM
@#reivte xD
REFERENCES
1077* 1106
0023 0997
1263* 1268
1302
1065
0857
1655
0199 0311
0200 0312
_ 1273
1272 2
1050* 1060
1068 1083
*0165 0279
0118* 02308
0988
0129 0242
0706
0972
0158 0272
0181 0293
0171 0285
0196% 0201
0547 0556s
0615 0655
0761
0790
0138* 0149
0013
1265®
12598
0087* 10188
1096
0130 0150
0360 0381
0592 0616
C8627 0875
1165 1197
1268* 1270
*1062* 1126%
1090* 1098
0050* 005ue
0062
1067
0118 0210
0575 0710
0988:
1135
1187
1239
1128
0981
1095
0979
1258 1263
0211 0323
1262
O1A0G70
571531
PRR? wo.
| 5129636
PAGE 13a
TEST
CROSS- REFERENCE
1032 1085 1077 1158 1223 1258 1259 1260* 1261 1262
0830 0585 1139
0831 0596 1228¢ 1235€
1091
0396 0511 0600* 0683* 0883 0951° 1061
0386* 0861* 0576* 0619% 0659* 0729* 0859® 1051
0359 0878 0591 0634 0678 0780 0807 0878 0945
0389 0508
0812 0527
0802 0517
0205 0308* 0313 U314* 0318 0827* 0832 0833* 0837 OSS2°
0552 .
0697 0897 0927 0968
0251* 0263 0368 0360 0883* 0495 0750¢ 0762 0815* U826
1080* 1085 10576
0160 0173 0183 02C6 0243 0268 0278 0287 0296 0319
0391 0804 0418 0438 0475 0896 0506 0519 0529 0553
0635 0656 0675 0698 0708 0741 0763 0783 0792 0808
0898 0908 0928 0986 0965 0978 0986 1019 1137 1108
1204
1130
1098 1103 1106
0062 0063 006% 0065 0066 0067 0068 0069 0070
0227 0322 0391 0343 0442 0856 0858 0557 0571 0573
0725 0830 0836
1270
0453 0558
O1APRT71 1SHAaR72 PROG ID 0209-¢
571565 571591 PAGE 13a
RLS pee ba
& Z
a
LE TEE AOS FET IN PIED OE OLED LO LEE. EE TE REL ee Ren or UN a WN Re 7 GST RS RO LCE Bt Rc
S é : ‘ * i i , a
IBA SAISTEMANCE DIAGNCSTIC PROGRES :
“A998
. SYMBOL
~ oPASS
PRIEXT
©. peTHex
PETSNS
PRTSPR
RENVDS
RLPFCR
RPPX
RSQ
RTNI
RTWIA
RTWB
RTN IC
RTHID
RINE
RTNIP
RTHIG
RTR2
RTN2A
RTNZB
RT HOC
RTR2D
RTW2E
RTNZP
RTN2G
RIN3
RTNZA
~ RTNIB
PTR3C
RTN3D
RTH3E
RTN3F
RTN3G
RTNG
RTRGA
RTNGB
RT NSC
RIND
RTKVE
RINGF
RT NRG.
RTRS:
PTRSA
RTXSB
RTNSC
RINSD
BTRSE
RTNSP
RINSG
RING.
RTREA
RTREB
RTR6C
RINGD
RTROE
RTKOF
RTN6SW
RINT
RTNS
DATE
FC NO.
oe
ae ee ee ed ee ee ee ee ee ee ee ee ee ee eee ee ee ee 2 2 oe ee
LEW
BISK WRITE ID TEST.
VALUE
oO1 oBtTs
001 O24A
064. T95F
oo8w 19:57
608 793¢C
0048 GATER
007 O64
004 4D
001 dOAOQZ
Q03 185%
001 6851
ots 6399
004 OBCF
CoB UOBE6
008 OCOds
60a 0O0C1B
008 OCIF
006 ocss
004 OCFE2
00u OD2ZA
008 oOD69
06a cp7?
oon 0D95
OCR ODAC
ocu opBOo
0048 ODFO
007 OEDO
004 OF20
cos oFfss
OOS OF6D
OCH OP8B
60% OFA?2
008 OFAG6
008 OFES6
001 OFFS
00s 10488
004 107£
e¢o0a8 1095
008 1083
00% TOCA
00’ I0CE
008 1108
001 1120
004 1178
oo4N 1188
008 ‘11EC
0048 12248
00a 1258
008 - 1298
00a: 12AP
001 1336
C08 T37E
008 14358
008 13EF
0058 13FF
008 14029
C04 1858
015 1708
001 185P
001 1507
O6APR7O
571516
DEFN
cte9
4296
1205
1201
1158
Cc78
0093
7091
11546
4092
0107
0133
0153
0163
9176
0786
0787
0209
0220
0246
0267
0277
0289
9296.
0299
0321
0338
0363
0368
039%
0607
0417
0418
0481
0439
0878
0499
0509
0522
0532
0533
0556
0564
0595
0619
0638
0659
0678
0701
6710
C718
C7aa
07€6
0787
0795
0811
0830
0993
0832
0246
22M AY70
$71513
0887
REPERENCES |
10169
co7s8
0291
05248
0787
6982
V15S8
*7-189
0125
0083
o315
0549
080%
1015
0745
0611
0923. 0987
0075
0034"
00680
12200
0069+
0012
o0ss
1054
‘31423
0183
0158
0167
0177
0212
0192
0109
0236
0256
0268
0281
0290
0328
.6308 “
0222
0353
0373
0385
0398
os08
Oaaa
0823
0336
0668
0488
0500
' 9513
0523
0559
0538
0451
0585
0608
0628
0649
0668
0691
0702
0566
0738
0755
0772
0777
0801
0820
0908
0720
0838
0785
O1ADG70
571531
r
_CROSS-BEPER ENCE
0726 0786 0155 0168
0356 0377 0386 06399
0588 0612 0631 0652
0823 0858 0871 O89%
1132 19783 «2179 023179
0795 0238 9259 0307
6630 0657 0670 0533
9960
0380 0855 98570
1057
*O01APR71 I5HAR72
571565 571591
3
t
& i
“Se
ay
ee =
0178
9809
0671
0301
4203
0355
0736
. 9202
69345
0694
0924
9376
0758
0239
0871
0783
93982
0926
6863
0260
0892
0737
03963
0470
0822
- Pace
0269 0282
6501 9523
0759 0778
0969 0976
0293 0581
8870 0893—
PROG ID
PAGE
Part nO. 5129636
3
0a09-8
18
toa
2098
SYMBOL T LE VALUE
RTNSA
RTNSE
RTRBC
RTKSD
RINBE
RTNOF
RTNEGO
” PTRBR
RYATT
SAVSE
SBN
SCPRCAH
SECHSG
SECT3u
SEEK PP
SEKER?
SEKERT
SPNSA
SERSB
SENST
SENSE
SETA
SPTADA
SPTADB
SETADR
SITR
SETBTR
SETDSK
SETE IT
SETPI2Z
SETS#
SPTXB2
SHFF AT
SHPTBL
SHIFT
sto
SKTSTA
SWS
SNSTD
SHSXR2
SPRDLA
SPNDLB
SPNASG
STATPR
STATUS
STATED
STATC1
STAT 23
STHaSS
STPSHS
STRTIO
SB@ITCH
TBH
TCVD
TEST
TISE
TIAOUT
TI XE
TORYT
TRACKS
TSTET
DATE
Ec NO.
Pp Fr wprrPrear rr Pr Pre rP eye eye ew YyryeDP DOH Pe www Dw le ww
my ot
wrPnaAn »
prepara > op»
IBA MAINTENANCE DIAGHOSTIC PeocRAR
“DISK WRITE FD TEST.
6805 155A
COu 459;
008 1522
004 1612
008 1688
008 465FP
008. 1573
004 1526
008 18548
001 89D
008 =1AB9
607% 1899
032. OBS9
00% O2DA
008 173A
082 1787
00& 171D
oce 1982
002 1987
CO8 I9AaB
004 1788
006 0a6sd
0905 1858
00S 1888
0cu 1818
006 0A76
003 OASA
008 OAacD
008 OAPI
C08 1705
001 OnI2
CO2 17A3
008 ACB
004 ADD
004 ASA
003 17F%
C08 1705
004 1798
062 1963
C92 47A7
001 08518
002 OBS
028 0830
018 Bas
002 17Aa5
018 1971.
001 0f02—
001 0003
001 1a82
00a 197D
COS 1748
00T 0208
003 1AB3
008 18£0
001 0212
002 1938
021 19148
008 1828
006 1821
O01 08B13
008 1968
O6APRTO
571516
“x
DEFR
0878 -—
0907
0931
0946
0967
0976
0852
OF5S
1093
4719
1235
1110
9101
1293
7010
102%
1005
4188
1126
1198
1032
205C
1098
1107
1077
0055
0060
0023
0088
1056
0098
1037
1280
1282
1223
1068
osg8
1035
1178
1039
0096
cc9?
0100
1277
1038
1209
1286
1287
1218
1183
1085
1292
1233
1139
1298
1153
1151
1274
1272
0095
1177
_ 22maY70
571513
REPERENCES
0868
0891
0921
0939
' 9958
0026 0858
0048
0853
007 0e
108 7# 1066
1232¢
1098% 10999
0081
C028 0113
1008
1013
0997
*1168
1200
11919
0071 0163
0038
1086
1100 11708
1059
C082
0052 0057
0112 0225
0023
*1052
0027* 00N6s
1085* 1046
1223* 1228
1229
0197 0309
0063* 1048
1002
0067* 1039
0115* 0137%
0579* 0602
*O91Ge 09340e
1032® 1033
0050
0059
0051* 0055
*1176* 11682
00745 0165
1196
1168 1173
"0999 1160
1169 1199
11678 1178
0119 0139
0587 0608
0887 0917
0035 0039
1233 1236
_ 9434
112%* 1127
1187 11428
3268¢ 1271
12668
0073* 0076
1175* 1183
O1AUG70
571531
“CROSS-REPERBACE.
0968
108%.
11028 1103¢ 1107
0226 0382 0857 0572
0272 0393 05099 077%
0339 0454 0569 0723
07111 #02248 0338 06853
1070
1225 1227* 1237
0828 0583
10497 1053¢ 1056
*0194% 0231% 92097 0306
0622* 0643% 0662* 0685
*0952¢
0086
0279 0396 0511 0776
1188 11908
0188 0232 0252 0300
0624 0685 0668 0687
0935 0958 :
0852 0980
1186
0116. 0228 0388 09859
O1APR71 1SHAR72
571565
571591
0578
0338
6851
0568
0347
0726+
7001
0389 ©
0730
0577
= + oe daast ene : .
ie: ‘
07248
1122
0722
0366
*o7ags
1003
0369
0751
0620
1139 17192
0835* 6850
04n25
*0796
0462
*03192
3428
1035
0819 0468
0768 0797
0660 0727
0862* 088Ss
1168 «1177
0488 0534
0816 0868
0860
PROG ID
PAGE
Pak? #0. 5129636
BaGE ee
1017¢
0s81* 05¢0s
0a09-8 %
4:45
oa ote tee Se <a ——_
sere’ ~~ cee . cep -
m a ty : es . Bid ape! J Bt : 2 Pog Fee os : a os . - ag oe ; re as 7 . : ee ay > oe pe fog ree a ; oa ‘ "
cep et empire cee om ee Steet we
ies wee RE tae. leielscad aigeets Saat! =e: ee
| IBM BAINTEMANCE DIAGHCSTIC PROGREN _ a ae ee oe . PART BOL $129636. _ IBN AARINTENANCTE DIAGNOSTIC PROGRAR. |
gS ee aati, te Ct Behe a8 Pee 8 PAGE - 98 ee fas le PAGE
eG DISK WRITE FD TEST. - A098 DISK WRITE ILD TEST
5 | OP. CROSS- REPERERCE | | OBJECT CARD LISTING
Be. ot - Se gs pen ere
@. SYMBCL T LEN VALUE DEFR REFERENCES * een tn et
b- nas ae OS GR cat _ TRE CHARACTER XTHDECATES A BLANK COLGHH AND THE CHARACTERS D BE H YEDICATE NUMERIC SHIPT.
é TSTERR A 003 180P 1074 0065* ’ a
: TSTSCH A 003 1812 1072 0066¢ ; - CL 1 THROUGH 16 CL 97 TAROUGH 32 CL 33 THROUGH 48 CL &9 THROUGH 63 CL 65 THROUGH G0 CL 81 THROUGH 96
e TSTSER A OD@ 1705 6997 0133 0286 0363 0378 6595 0638 0678 O788 $871 O878 O949
|. 80 a2 002 175B 1022 1226 1260 : ,
A ° _TROZR A 002 ORY? 0098 6047 : i % , - sc af —? © 2 - | 7 ae . s @ ee e ee >
TYBOT A 006 1800 1266 1261% 6 Te-¥:YI& & BSD PDR & COHB?7ES OH .H2 DOH*OP33"BIH © ZEa-DHO-DECTS ABI 5 525) -DL- 8B -% *D0R0980001 ©
ODTPTR 2 002 OB1O0 9091 0029 0032* 0033 O047s D061s 7
UWPIRD? & 00% OA2P 0033. $030 ‘ we kere ° eo ° . ae oe . Je
OPIND? A OOe OAZR 7032 C85 T#-Z58/ P=E @7D V+ DEF“HBAXGO JH AIP-& | HA @BEBSSR BS BKC D.D BPOE* RDO- BH. ECIIBSC 2/1718 ) 1980980002
USITS A 070 1839 7276 1269 ae :
_ BEPACE £ 664 O21E 1297 7162 47198 : : ° om ae 2 wm 2 e en ae ee ‘ ae =e eee é
BYAB € HOT 0232 0092 £031 . T+-DOB POEINI GR .<G-A PHGACI"BIG K E<8 EXEB Pr3~ YR PI'GMTR PHk> YB QDEWTB OD1I~ FEB IRGAOSHOGG3
Bait A 008 TIF7 7065 668" 1129 . . -
WORK a 001 BSC 1278 6735 0248. 0365* O480* 0597 OS9B O5986* 0599 6680" 06821 06517 06865 . < : « * «oe Se
. - 0681 0687* 0682 070% O746* O880* 0861 039812 0882 0912% 0972 O9126 Te-,,EIOP9E- PDE PSE~- FERPOE~ FER Pe*BGESBHB}<R.D3- HEP2U0 GARORLOR* BFUD~BSC* <BG YY FF & 719a0980005
O93%* 0932 0932% 0950 0967 1117
QRTPPC A C97 1788 1025 07267 0177% 0122 0156* 0142 07153 0776 0186% 0187% 0791 6196 6209 ee ee < satan s,. Sear es
eae so G271* 0226* 0229% 0235 0250* 0255 0267 0289 0298% 02997 0303 931¢ Te-KH<CO FI, /0 0) (LECLE2SESECT AQ*N OSPESHCTI;. TFS HBO Sj SWS 6 | ES> | 15%) 1<U 7L8A0980005
ig 0321 0323¢ 0348* 0385% 0352 0367 6372 036% 0807 O417* O418% 94922
a 0829 0597 0463* 0459s 0460* G867 O882* 0487 0999 0522 0532% 0533« 5 ‘ . 8 ‘ ee a « we :
0537. 0548 0556 0558% 0577% O578¢ 0584 0603* 0607 0620" 06212 0627 Te-_/8_I U(XI9*N BO.EVARRE*+SR2;1 ES<XDE<SUS*]T2)S NEtPES>( Ow~CS & <OTG BY. -EY{ (+ & BBR 62820980006
* 0684* 06048 0660* 0661* 0667 0686° 0690 0727 0728 0733 0747% O74Be .
f 0758 0766* 0767% 0771 0795% 0800 0813* 0819 0860*% 0861* 0867 oO8séEe ‘ ‘ é s ‘ r uivels A 2 ae -
. 0890- 0915* 0916* 0920° 0938 9953* 0957 ‘ Te->*D HOF BROOD F8U.D30 BBY AS <-OH*PD E8T /C> ROR*https://archive.org/stream/bitsavers_ibmsystem3_47662652/@BGFL3 /OH EATECY*BG SE-B®B GEOM BHI620900007
i xR1 ¢ 0C? 000% 1283 0031% 06032 0033* 0037 0041 0083 0044 O044* 0056 9060 0050* 0061 ;
Ze 1033* 1038 1036 1963% 1127 1127* 1128¢ 1168* 1176 1186 17867 1791 3 ae ‘ é a * < °
a 1198* 1228¢ 1230 1230* 1233 T¢-2P] SLCOPESK SXAVT}] <S*BGE:- B J;HOH*.3ABGBE7 /1UG0H*BP-R C+G /O0RSTIO*"1;.9YD GOH* ;TYAOC9RONOS
IRZ ¢ 001 0002 1284 0599* 0600 0682% 0683 0882* 0883 0950° 0951 10866 4048 1049 1050 oO , :
1058 1068 1069 070% 1071 1072 1073 10768 41081 1082% 1083 1088 a oye e : . Z * ‘ tS °
1089 109% 7097 1099 1101 1702 1105 1107 1108 1169% 1175 4185 T+-OK /, PHOSSYAS /OHSTAS /15+¢A & AESMOY°HADXBG /, PIE2BYC# /OHSICS SPA;H@y GOR*BPEQ ICT4H *,B840960069 © -~
1765* 1199% 1225¢ 1226* 1227) 1229* 1232 1232 1238 12388 = S Feta cre
e ER2WK A 002 18AS5 3118 1081* 1082 | . z da a ‘ Pt. 8 ee Md OO
* ZROTO A 006 1812 1269 12674 Te-1(Y8S8 /OHSYSQ @ ASH} PS@BGE:-— A 71;HOH*®<OGBGCC<K AH/VTOH*RICIOCRP /IDHEST /1,;F%3 ¢33 E2DAR09R0019
TOTAL STATEMENTS FLAGGED IS THIS ASSEMBLY = 0 : 7a = a, ee sia : . : ie ps 7
se T+-2H/0HEAUS¢3€3 G SH-HTS*ES8, -SH OC- PS/))OH*<G=] HIRCPG&*PV2)SUBUC £6) 16651 SKICI(X 81*6 8920980011
Te-3CE¢SH2) FEE*. &1).15*) BAaTEE<] BEC|YS=]HINCPOSP V2)SUSUCFE)XO6;I SHICI(XRI*I ORT 183s LESL0980012
T+-3=E¢L0?) PGECE S_XTfaN 2%3 94. I5*) 2<PAIDCX - ¢8CH Bi. -EY(+ & BBE 5 /O< ASIBIK BAe 83800980013
u - .
T+-49STO PI@]BIV TOH*PD EST /09 DOH*(P<BGFL3 /OH EATS<Y*BG SH-B*B GEOS@ &_<{ 10RQ30 PES ) €UA0980018
i o ° o o Oven . .
Te-SPLD<S8*BGE:- 8B JSHOF*(C<BGCHS /1TUG0H*BP-R C#G /OHSYIO°"15.aYD 6&OH*BP%Q,CS2-ES8 G SH RD-AO940015
; £
a T*-G2YAS /1;4A 4 AE: MOY"HAD<SG /, PIG:BYC# /OHSYCS S7A;H@s SOH*BPZQ ICV6-I4BG SH-IT2 E8Y = DA0980016
_ 7
2 = - se = eo —_ e oe es - eae is
= T+-7D) PS@BGE:- A 1;HOR*(@<BGC*S AB@IIVTOH*R{ C3ICRP 8 /IDHEST /1,;F%8 +331 C27 sOREAUS +¢38@ 6,000980017
we © . s : ee
a T+-8V/0HSYB** 7A; HOHDBE-@ ESYPP*B GCSCSI*{ TS_V O°S US;JEORCISNCCS P T6)SLE<SI1)1DE(P O88 *8920980018
tt
; :
: T¢-I-BOPES*mE1¢. EO=|COMCAICLR1;. SE(POSYCSEAPPSAP DE+{ OE;PCE<GF8aP REXE 9_XISaN 2*L DO;< QENA09800I9
he ~ e e : e - e
ie Te-2SOMCAICLA15. SE*.T1)+P1%J OFS T1)V OMNCHE*XTIBNC I1¢}HTSCP6*PY2)$ USUCEG) XO6;1% 58} C9(D Ja*R0980020
. . e = = eo ee oe :
H T+-806*PDE*SH2)} EE<LO2)PGE<E 9*P R2*SYECLASAE 9+. I5%) 2<PAIDCXE¢. EO=JOGMCI9OK C*¥= * & |@-KA0980021
DATE OG APRTO 22MAY70 OUAPR71 1S5HAR72 PROG ID CATE O6APRT70 22mMAY70 O1A0G70 O1APR71 15 8A872 PROG ID 009-8
2C WO. 571516 571513 571565 571591 PAGE > EC NO. 571516 571513 571533 571565 571591 PAGE 15a
AMON. ERE:
t.
Me BAYWTERANCE DIAGROSTIC PROGRAN
€E
. M-"BHD =+E0PS?H
goon. -
1 THROUGH 16.
J+-BITIDEBAR~-G EROS
" $e-teeHeBe-OSCHS
T+-=GE 3/0 RF BHDB
5 Pen 9-2 FORFESS;
* Te / 381.
: oR,
carte See
pee SS
3 Stee ae
SBOW Lag
WT Ma TR aS.
ALE OAT
Te/ABI<BG /TF(E2
T+/B>AD <8*BG SH
34/C2 SH-|TT#ES,
T+/DVl1<*1* BGPYY
T+/EsSKORDACLT
TesPEDPT /1PWOH
*T+/GN A;HOR*®D<B
T+/HEOK #3 6%BGPL3
14/1. DKBGFL3 /0#
T¢/HP /YF(52/08
*T4/. A/WUBOH* BP-R
T+ /.203| AE<PR6) §
T+/< 75H CA B=] ES (>
T+/(2PEQ* KORD
T+/+_F-OSCHG /0H
T+] YAU <8*BG SH
PaTzZ
EC WO.
O6APR70
571516
“EYED
DISK WRITE.
CL 17 THROUGH 32
* » °°
JOHDEET-P ~, D
o »
fOHSY X /1*E]
*|-OPS"HADCBG /,
EDCPG /,F<59) YBS
ROHTE7/,|CRaae &
-oDOBA /O8 -HHOA
/OR*BRD IOH*PALO
~XC7"E872-3C /08
2DAC /OBEITDOPE.
PS<BGF_BE308}1D-
"BIG -GHOt EBBS.
RI<BG /YF (&2/0H
*GDES /10a0H*BF-R
” JOREATE<Y#3G SH
EavDKaaec Si-pTo
BAD IOH*PALO GA%
AD?} /ORSYDH* 635
RKGCC2< ECAUCHO) |
T2) PGE+ 06+. E8aP
ficL-D -, D HO} OB
SY X /1*E) $LC2
-XC2 ~ESY@Fa;.0H
*22M AT70
571513
O1A0G70
571531
Ip TES
OBJFCT CARD LISTING
CL 33 THROUGE 4&8
OC PSESL] PSTO
SLC2*PO<BE15.4 18
PHOSSYAS /OHSTAS
“/ORsSYBQa AzHt
(OH*BP-RICS" 708
BE-0 E80. D32 ESY
Peers’
E1ss+. 8 oOm*BaD
woH*BRD wyH PSTO
¢38BG /YFLES108
*& /08 -HHOA BETO
ean rodeo tae us
AD?} /ORSYAR@BAS
-B*BGEOK@1/1.C]8
“Plat A;IBI<a A;
<"/SHGH?B /1<( B
- 8YDE0H*BFERBD3O
TECXDKYECUDUCIBOC
C84CE2;{ H1) V 8aT
RQO0 E8U.D30 EeY
” BBY@E1;~4 10RQ33
PD DCE8T /1170H
*OTAPR71
571565
CL 8&9 TREOUGE 66
HPI@aBIVTON*PD |
<8*BGE:~B 3; HOR
*” /ipea SABSBOY°H
PS@BGE:~A 1;508
*SYBH"P a; HOSDBE-8
@BAS~} CROBBGE:-
3006 /137 -DPS<B
oonset-e( a:¥FRI
"pe? 1s¥ E<PSCB
BHD X4) OPSSBA 70
"Ppiac asIBi<a a;
<"/VHGDTB /_<( 8
nc" PseRui”” PsTo
*K/1. | AHRQ30 287
Hi] URQ@BGE:- a;
OY¥31BFO<a@ A;.0Hn
*-V<BG SH-V<BG /$
R1*GDESC1aUCIBUC
BEC STIAPDE (SEE (X
@ AS-OR*PD = EBT
OC#G /13Y¥ -DPS<B
L4&<BGEBBB+¢B PZ-8
IS BABT2
571591
PART #0.
5129636
PAGE . 46
CL 65 THROUGH #89
EST /08-0H*1CEB
[3RBGCOL /10a0He
AD<BG /,Fi6: BCE
‘;9RBGCST BH/ TTOH®
ESYPP*BGCsOD Ad
A ROH*EK<BGDCS
GDGE / 1TAR0H*R I<B
2-3C sOHEISHE-D
Gpse /1CS}B*ROaS
@ AS:RES7 s1ceas
By) urgasce:-
QYI0KPO<@ A;.08®
Troy /1;% PS<B
/1'3Y -- PS<BGDSL
BOR*KOCBGDOS s10
PD D EST /1HQOH®.
B1I*GDE (SRE+SR25 §
WO*XT 18 7E6) LOGKC
BS ($S¥O®. LISCD23.
"/1(20R*®LSCBGPL3
GDeT /1¢NOH RIC
SHOBG /,FAIK*YB3
PROG ID
PAGE 16
CL 8% THROUGH 96
SFLO Ge a09%0022
BF-O 5.080940023
/OB BYBA0980028
RICO 2:#QA09800725
-}& 32880980026
719 74Y80980027°
G /¥ "9820960028
SOH® 69040980029
GPLO £8aa 0920030
LqrTe 150a0980031
ROR® 82920980032
PD H R98A0990033
GD;0 82820980038
"71a *"aK0980035
done aDTA0980036
K/% _3:D80980037
EG<& =$840980038
u2cn Aanc9e0039
Ka- %S 40980080
G /T Q9MA0980082
OH O, 1780980083
OA09-8
7OR CERA09S00T
(a
£
a09a
CL 1 THROUGH 16
SiyexaD aerstone
+/a:s0KST X19:
T+/KRAO HA30 Bi.
Te/LASCLASSE BER
T¢/HES<, RO) PCZDC
T+/NA-6Y q+! BRYH
TS/ORIKBG /YF(E2
Te/P BOT /1Ua0n
*T+/POs1sY - PSCB
1+/060H*0 <BGFL3
T¢+/R1/1980H*BP-R
T¢/PRPONRESW-=<B
T¢/S1S.R5>LT2) P
T+/*S8aN 8>STBAI
To) 6) 8 SW IER
T+/s01PKRS_V S84
Te/aLX 0 A; VURE
Te/-¢PCYHE*4: BA/
T¢//TBE <AEEHBRE
Te/SD ASSCECOT++
» 2
Te/S"?2 CaYetT
T+ /TI¢30APH~ /A>
DATF OGAPRTO
EC WOW 571516
DISK
“TBA SATRTEWANCE DIAGNCSTIC PROGEAR
@reivrtez.
CL 17 TRROUGR 32
RFZRIEGE-.%BG SH
ELA*PS32°PO0<aa 3
/OHO1) EDE { SFE<4
” BATES (OTA XCD) {
AU>PEGMCR I*#GC2<X
”
ECKBG /YFIASKOR® -
/OH*BHD IOH*PAL3
BF-RAD?} /OHSYA
GE;. /1PE0K*R{ <B
" /OHEATH<Y*BG SH
AD?] /ORSYDR*"15
g atisdee ey tak
EE}/ O>TP0;.Si*J
HECGNIDCR1;.E£88C
LINCHE *XTINCSIRE
CO(XR183 MFTTOAN
A { -PY3a
K26 OHDOFCFWFHD
D( -OW.9A ~HAACO
oe
- <FSFEK( DOQW"H
ip test
OBJECT CARD LISTING
CL 33 THROUGH 4S CL 4&9 THROUGH 64
-of) ESTSBITTOA
*/OH*®PD HAEST /13
TOEN1CPRES. 253.
” 4) poe (sre<j sax
BTACTZCK BE SGZeI
Huse vtec Saas
"GDEC"/IHGDIB /_
/O HEILHP? RCBO BS
G6 /YPEI.30H*BAD
-B*BGEOPB /1<( 5
- @YDE0H*BPRO,ED:
LIMCW6*xZT IACSIRX
9RTIGAN S>.WEIT
T2<N 2<GLBARGBAS
TOaT /OBKEISYP/:
SLPELXHISCT2Z<H
BE:<@ AS) H <P°s
VZAST| QD<HAP®T
PIYS JSV 38BPHS
AI~ADD$SA -O FID
CPIU& ASS *BG c* SL
71~2CDIHAK BG /, PLIOIYAX /OBSYAX
22mAY70 01A0G70 OTAPR72
571513 571531 571565
oe
PD pees abaeus
SOH*AK*BGFL3 /08
z6<. T8aCHS> ("55
wicPRORCT2)R 1S
RGSCES*] SER O=T
a a;Ht oRgascz:-
<( BOY 30KFO<a A;
BRDC8] *KO3=GDY
K{ HY) KO3=GAY} K30
OY31BFO<a A;.0H
*-W2BG SH-WKBG /Y
T0a/ 1KGT SaPDEe}
“osn'S_proams(s
-OH*PT-RBDA;YOA
a) -PCO Bina AS
“oan Btxaoex.
% a~6 KOAFHDC+ -
3Y CAY/SZ4~a0x
*%& AS* 33° FIG" AS
ow2a PIvAay*P>p
"=a ( DR+aBGESS
/1¢3B-<REC1 PJ.
SHAR TZ
571591
Fs
CL 65 THROUGH 80
MEaBGFL3 /OSEATS
San <oene si-xee
“oesriyv onc) x
RE<PEG) SES<LIIDC
12)PD1) 0H 1°15.
*” a HOR*NOSRBGENT
-Ou*PD H EST /10
*KIOKPO<S A;.)
IFO} /1;¥ PSB
PD D EST /1RHOR
*PP-%¢45 BBC EEX"
OS<xM2<xB23 ( 9_X
FIUCT2CH ISXLIAC
PBL-AE:L2DA7 0°
Zou*BaD acne
°°" pC -pzzmaese
OX"AEBISHE*HOBAS
AP >< <Qx.8A TH
Za-pe} DOe,sa ,3
B. QUED| ASRPI?
Ce -PzyHCac3"Fra-
” /OHE1/BR £RBCON®
' PAGE
PRoG 1d
PaGE
ee ee ne NR ne mt
51296 36
68
cL 61 THROBSR 96
-
<%s FE 920980086
G /Q 76920980085
Ii>- */a00980086
HS>< SLOAN9EOO87T
-DS 12080980088
/10 $68R0980069
ECH* #8Z0a0980050
PS% *0H80980051
GE/H 43J8A0980052
O(% aTya0980053
"08 EOxA0Sa00SS
180 "7240980055
acon’ cr 220980056
ese a eabsauess
B & 37620980058:
Q 1* =7220980059
Kare =9n20980060
BE:< "1620980061
="30 Bsya0960062
2700 PIDA0980063
5 30 72500980068
BaD POeA0ss0065
Os09-s8:
TOA
‘
“IBA WAINTERANCE DIAGHOSTIC PROGHAG
2098 (its DISK URAC EE UID TEST
CL. 1 THROUGH 16
7+ /O5STSBG CT2)L
eo
Te/VOIVSSEBO { -
T+ /¥ZIREBCBG /T
T+/1U & 0-HE-SB
T+/DPH>. 21) I Oat
T+/,KESES fot
CL 17 tTRROUGH 32
ESPLTECINE { 7094}
ROSBGEBSBOR*BG-H
AD/_.16 RS"HABA
GPO~ s0RE /BRTIB
EO'l ELA EDA +L
E3aneF_aS SD% ad
OBIBCT CARD LISTING
CL 33 THRODGH 4B
IS*N G=-"5SUCTS*L
PZIXS$}] DE~RRAP-G
+ y .
B ) HADR BGFOG*-ayV
G CS8aGTIAI OT
NS&GFISA EDA SDA
*»
8 BO P,YE; Baz
CL 89 THROGEE 64
EVUCPI (351; 8kP
B /DBOR*B FSDAF~P
=SYDS}H R~TCAFES
TIsI 2)u 2<PxES.
EDA GHA HA HA H
Be- £335 F,1L2-6-
Part wo. siz0e% |
8aCR Pe
CL 65 Taxesca se
NSRP DE<. B1_ SR INC
~ BO Poa GADSKO
/13* ape sepecs
Sse eeeeeeane
(Pos (s
AC -E3TSAPSZ85 7,
S -G /1Dz0H
*€L-31 THROBGH 90 - --
£2)6 3,-a20920066
8 a* €9520940987
27aH EDDacescess
PED 35020940069
e T¢/T/EDA ELA SDA EDCIS;1F6;PES;1 IS_W 6*PQIDPAZ;. S2)PCECGDI(V.6(L 26). 26+LIS°LES;( 08- 67520940070
- T+/Z*1S}KEDA 1G TOMCC2CPCRUA EDA EDA 5)B 6*PCS_X DECSOI(PDEDA B*I O° SHIKXT2)SNE<] BIS< #,620980071
@(-8 52840990072
DBA 8 DA0940073
4 T+/R(RD A -EHDBA - E8Az(( -E"3Q0 RESE&SBASE( -SB3Q BESSHBARDC DESDE C DSI C DSEE C OKYR0980078
: THIZOP_& 86 E- $468 P_QPT-HBB-0 - $.aBGPIT /0 = 8-G28*L5*2~8=~ | =3<A0980075
ees eee e ae aeoee sea s see seeeeoeoecvesn & @2eene ous
EBSRSET@¢=.DC"PHS ="THEFY fC PR asc fa SO Q | 13390501700 31872~Db0a0980076
}
LLLP LLL LS LES mma LASP PACR q< an eee ww ow eee eee eww eee we ewe wee oe oe www we mewn
DATE OGAPFT70
EC KO. 571516
22mAY70
571513
07a0G70
571531
OVAaPR71
ISBART2 PROG ID 0A 09-8 wee
$71565
571591 PAGE ! Ww
emma areal aN a in Tn EF eS a z_L__ _ ______ Sg, sy eT dNNTNy|)|YTS_ Sa Mt _.[ItL] BT 8s _—i8nsrer'r’myrm™*xcrp”!ltctrs!”!_ V!YI!]!]) ee VV TT TYVYTVTS@MaV#*amlMUVHYVVVVT="]‘>_—. = __~,_ _~__~__"
~
r ° QO
IBA AAINTEBAWCE DIAGROSTIC PROGRAS PART NO. 5129638 IBM NAINTEWANCE DIAGNOSTIC PROGRAB Saae nO. aera
PAGE 1
0°
aoa2— SC AS EQUAL aQaz2 SC AF 6FQUAL
i ERR LOC OBJECT CODE ADDB STHYT SOURCE STATENERT Cc QO ERR LOC OBJECT CODE ADDR STSRT SOURCE STATENERT
’
0000 2 AOA START 0 OaAAS O08 0O 1aF5 1ACC 70 MZZ TSTSCH¢1,LDPCR¢1 SET FOR CUOKRENT SPINDLE
P 3 DECK & Oo. 2 OAAE 08 00 1a72 1ACC 71 MZZ = SNS#1,LDPCR¢1 SET FOR CURRENT SPINDLE
oa00 8 ORG xX*Caoo® OABS O08 00 1B2C 1aCC 72 HZZ RLOPCR4+1,LDPCR¢1 SET FOR CURRENT SPINDLE
5 SCOSSERSSHEHEHEHETESH EEE EEE SEES EEESESESEERESHESSESESEESESESSSESSESESESE SEE OS OABA 08 00 1830 1ACC 73 HZZ BSI0¢1,LDFCR¢1 SET FOR CURRENT SPINDLE
6 SECTION PREFACE * oO oO OacO CO 87 1268 78 B SZNSE
7° 6 Oaca 02 Oace 75 pc XL1°02° ASK FOR DEVICE STATUS BYTES 9 & 1,
OA0O 20A2 0A01 8 DC XL2*AOA2! PROGRAB ID 76
Oa02 00 Oa02 9 pc xXL1*00° SECTION FLAGS Oo 60 OacsS 3c CB OBOA 77 AVI TRACK #, 203 SET FOR FULL CAPACITY DISK
OA03 01 0a03 10 pc X1L1¢°018 CURRENT ROUTINE NOSBER OaACS 38 08 1A7B 78 TBN STATUS, X*08° TEST CYL 100 BIT
0a0&% 0000 OA0S 11 pc XL2°008 RESERVED OaCcD F2 90 O8&8& 79 JF PRTS PN JUNP IF OPP
OAO6 OBF2 oaoy) = 12 pc AL2(BTH1) ADDRESS OF PIRST ROUTINE PREFEX o Oo OADO 3C 67 OBOA 80 AVI TBACK#,103 SET FOR estoy ctibiaa.
OAO8 IA7E oa0d9 «33 DC AL2(ETABLE) ADDRESS OF ERROR RECORDING TABLE OaD4 CO 87 O2TA 81 PRTSPH B PRINT TO PRINT SECTIO
OAOA 401000 Oadc = 18 DC = XL3*a010008 OAD8 01 OADs = 82 pe XLT°01° FEaGS
15 8 * Oo G&G OAD 22 OADS) 83s «883 pc IL1*34¢ LENGTH
16 FUSSHSHSHSEHSHSSSEEHSERESEEES SESSSHHSE SHES SSSSSSSSES SHEESH STS SSSHE SESS SSESESEE OADA OBSE OA DB Ba DC AL2(SECHSG) MESSAGE ADDRESS
17 : OADC CO 87 O21A 85 B PRIET TO PRINT SPINDLE
* N ron ° o © OAEO 06 OAEO 86 pc XL1°06¢ FLAGS
; be * Ponta eon ne heres e OAE1 18 OAE1 87 pc IL1*24° LENGTA | ee
C ESSAGE ADDRES
20 * 1. SET SWITCH 15 TO BYPASS RUNNING OB THE REMOVABLE DISK OAP2 UB3C OAE3 88 Dc AL2 (SPNMSG) A
S 21 2. SET SWITCH 16 TO BYPASS RUNNING ON THE FIXED DISK * GO c: OAES 3C 00 1B78& 89 avI PRSTPS,0 SET SWITCH FOR RECALI BRATE
22 * 3. SET SWITCH %% TO YEVER RUN OH DISK DRIVE 1 ° OaEB CO 87 0000 2. SETEXT B 7% EXIT
5 8 &. SET SWITCH 1F TO N2OVER RUN ON DISK DRIVE 2
*Q oa ac , 7 oO a OAZC C1D3D330E4D05C923 OBO0S 92 NOUPIT DC CL26*ALL UNITS HAVE BEEN TESTED®
OAOD 3&8 08 OAZB 25 SETDSK ST SETEIT+3,ARR SAVE EXIT ADDRESS OAPS E240C8CIESCSYOC2 92
}° + OA11 3c FF 0809 26 AVI SETSW,X'PP* SET SETUP SWITCH OAPC CSCSD54O0E3CSEZE3 92
. 27 Co Oo Ob04 CS5C4 92 oA
: 0415 3D 00 0807 28 CLI UDTPTR,O HAS POINTER BEEN INITILIZPD? 0B06 0000 OBO? 93 UDTPTR DC eroa3%
: OA19 F2 01 08 29 JNE OPIND1 JUNP iF YES : 0232 98 UTAB EQU Xx ae.
OAIC C2 01 0232 30 LA ‘OTA, XR1 LORD IP NO oO O OB08 00 OO ee ee ee EL
Ca20 3&8 01 0BO7 31 UFIND2 St UDTPTR,XR1 0809 00 0B09 96 SETSW DC XL1"0 ;
7 OA2%4 35 01 0807 32 UPIND1 L- UDTPTR, XR? OBOA 00 OBOA 97 TRACK# DC IL1'008
a 0428 3C 00 OBOS 33 MVI REMVDS,O ZERO SWITCH POR REMOVABLE DISK Gc © OBOB AO . OBOB 98 SPRDLA DC ee
OA2C 38 02 0208 34 TBN SWITCH*+3,X'02° TEST SSW iE ; 9BOC BO OBOC 99 SPNDLB DC arr
0230 F2 10 06 35 JT #49 JUMP ‘F ON, NEVER ROd DISK DRIVE 1 ea OB0D 00 OB0D 100 ROWRAY DC meee
S 0433 7D. A0 00 36 CLI O(,XBR1),X"A0* TEST POR A UNUT ADDRESS OF ‘a! . = OBOE 00 OBOE 101 RUNFIX DC er aeon
OA36 P2 81 2P 37 JE SETA JUMP IF THERE IS ONE peat sa oa tna ee oe a
OA39 38 01 0208 38 TBN SWITCH+3,I*U1" TEST SSW 1P ; “J
OA3D F2 10 O06 39 JT £49 JUS P IP ON, NEVER RUN DISK DRIVE 2 Cc oe OB12 CS9DSESCIDICICHKHO OB246 108 INVPLG DC CLI9* INVALID SS@Y SETTING®
OA30 7D BO 00 &O CLI 0O(,XR1),X"BO! TEST POR A UNIT ADDREAA OF ‘Bt as a ede aoe
OAS3 F2 81 2F 41 JE SETB JU" P IF THERE IS ONE
OAS6 78 10 01 a2 TBN 1(,XR1) ,X°108 TeST FOR LAST ENTRY C OB25 DSDE6E64IVE3CSE2E3 OB3C 105 SPKMNSG DC CL24*NOW TESTING DISK DRIVE Xx
*OQa&9 D2 01 03 a3 LA 3(,XBR1) ,XR1 STEP POINTER TO NEXT. ENTRY meee oct pecoscccages ice
OANC CO 90 0a20 Bu BP UPIND2 CONTINUE IP NOT THE LAST ENTRY :
0aS5O CO 87 O2TA as B PRINT TO PPINT ALL URITS SELECTED < OB3D C2CSCTICIDSLOE2ZC3 OBSE 106 SECMNSG DC CL34"* BEGIN SCAR EQUAL FUNCTION TEST AOA®
OASB O6 OAS8 46 pc XL1°06? FLAGS OBNS CIDSYOCSDSEUCID3 106
OASS 1A OASS a? DC IL1°26° LEXGTH = OBUD XOCG6EYXLDSC3E3CSD6 106
OAS6 0BO0S OAS?) = B DC AL2(NOUNIT) MESSAGE ADDRESS C! OB55 DSAOEICSE2ZE340C1 106
0a58:°3C 00 O09 a9 MVI SETSW,O OBSD FO0C1 106
OASC OC 01 0BO7 0B10 50 - MVC UDTPTR(2) ,TWOZR 2
OA62 CO 87 022A 51 B LOAD TO PRINT NO ENTRIES LEFT C
0a66 0090 0a67) = 552 DC XL2*80* FLAGS
53
OA68 08 OO 1aCC OBOB 54 SETA MZ2Z LDPCR*1,SFNDLA SET TO RUN ON SPINDLE *a? Cc oO
OA6E 3C FY OBIC 55 BVI SPNSSG,C'1* SET MESSAGZ FOR SPINDLE '1°
OA72 F2 87 14 56 J. SETBTH PROCEED Be
57 Oo 9
0a75 08 OO tacCc OB0C 58 SETB 48Z2Z LDPCR+1,SPNDLB SET POR SPINDLE B.
OA7B 3C F2 0B3C 59 RVI SENBSG,C*2* SET MESAAGE POR SPINDLE ‘2°
OA7P 78 01 02 60 TBN 2(,XR1),X"01! TEST OPTION BIT PCR REMOVABLE ONLY Oo 9
OA82 F2 90 04 61 JF SETBTA JUMP IP OFF
OA8S 3C FPF O0B08 62 NVI REMVDS,X'PPS SET TO RUN REMOVABLE DISK ONLY oO
63
OA89 D2 01 03 64 SETBTH LA 3(,XR81),XR1 STEP POINTER TO NEXT ENTRY
OA8C 3&4 01 0807 65 ST UDTPTR,XR1
0A90 08 00 1AD0 1aCC 66 MZZ LDFDR¢1,LDPCR41 SET POR CURKENT SPINDLE c oO
OA96 O08 OO 1AD8 1aCC 67 MZZ SIO+#¢1,LDFCR¢1 SET FOR CURRENT SPINDLE
Oa9C 08 00 1ADB 1ACC 68 MZZ WAIT¢1,LDFCR¢1 SET FOR CURRENT SPINDLE ~
OAA2 08 OO 1AP2 iACC 69 MZZ = =TSTERR¢1,LDFCR¢1 SET FOR CURRENT SPINDLE Go ©
DATE 13HAR70 06AP870 2ZNAY70 0140670 PROG ID OAOA-2 Ca 6 DATE 13MAR7O O6APR70 22RAY70 01A0G70 ay XD aha
EC WO. 571512 571516 571513 571531 PAGE 1 EC KO. 571512 571516 571513 571531 P
Oo
~ om dow
©: oOo
IBQ GAINTESANCE DIAGNOSTIC PROGRAB PART HO. 5129638 IBS BAINTEMANCE DIAGNOSTIC PROGRAN PART NO. 5129€36
PAGE 2 PAGE 2a
0 @
a0a2 SCAB EZ£QOAL AOA2 SCAB EQUAL
, ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT .. ERR LOC OBJECT CODE ADDR STST SOURCE STATERENT
OBSP 34 O08 OBDD 108 TSTSPN ST TSTEXIT+¢3,ARB STORE EXIT ADDRESS 158 © BOUTINE WO. 01, CHECK FONCTION OF WO RECORD PouND ®
0863 3D OC 0B11 109 CLI Pass,0 IS THIS THE FIRST TISE THROUGH ? 0 °0O 159 * SENSE BIT, (BYTE 0, BIT 5) e
0B67 F2 01 07 110 INE SETSPR JUMP IP NO 160 © USING THE SCAW EQUAL COMSAND e
OB6A 3C FF 0811 111 AVI PASS,X*PP® SET SWITCR 161
OB6E F2 87 OC 112 J TSTS® PROCEED TO TEST SWITCHES Oo °9o 162 * ROUTINE PREPACE ®
0B71 OD 01 OBOE 0OB10 113 SETSPH CLC RUNFIX(2),TWOZR HAVE ALL DISKS BEEN RUN? 163
0B77 F2 81 68 118 Jz ZROCTR JOAP IP YES OBF2 01 OBP2 164 RTN1 3 DC XL1°018 ROUTIBE BO.
i OB7A F2 37 3c 115 J SETRAY JUMP IP HO 0 Oo OBF3 00 OBF3 165 DC XL1°00° ROUTINE PLAGS
116 OBF& OD3A OBFS 166 DC AL2 (RT#2) ADDRESS OP WEXT ROUTINE
} OB7D 38 06 0208 137 TSTSW TBM SECTSW,X'06* TEST POR BOTH SSW*S 15 & 16 OB 167
| 0881 F2 90 18 118 JF TSTRAV JUMP IP BOTH NOT OD oO G6 OBP6 3D 00 OBO9 168 BEGIN CLI SETSW,0 HAVE PARAMETERS BEEW ENTERED?
OB88 CO 87 021A 119 B PRINT TO PRINT INVALID SSW SETTING OBFA CO 81 OAOD 169 BE SETDSK BRANCH IF #O
OB88 Cb 0688 120 DC XL1*C6° FLAGS OBPE CO 87 OBSF 170 RTNIA B TSTSPS
0889 13 0B89 121 DC IL1°19# LENCTH Cc oC OCO2 3C 00 1A7~A 171 AVI STATOS-1,0 ZERO SENSE AREA
* _OBBA 0B24 OB8B 122 DC AL2 (INVPLG) MESSAGE ADDRESS OcO6 3C 09 1BE8 172 NVI SNSID,09 INSERT ID IN PSIWT
OB8C AOFA OB8D 123 DC XL2*AOPA? MESSAGE ID OCOA OC 00 1860 OBOA 173 MVC RDDFC+1(1),TRACKE - SET TO SEEK THE CE TRACK
124 CG << 0C10 CO 87 1493 174 B STETIO TO I/0 SUBROUTINE
OBRE CO 87 0222 125 B HALT TO DCP ERROR RALT 0c1a 39 oc14 175 DC XL1°008 PUNCTION CODE (CONTROL)
OB92 AOFA 0B93 126 pc XL2°AOPA* HALT ID 0c 15 00 0c15 176 DC XL1°09° CONTROL CODE (SEEK)
OB94 CO 87 0212 127 8 TEST TO BEAD CONSOLE SWITCHES CS 0C16 125F OC17 177 BC AL2(RDDPC) CONTROL FIELD 2DDRESS
OB98 CO 87 OB7D 128 B TSTSH 0c18 CO 87 0C32 178 B RINTtA? GOOD RETURN
129 Oc1c CO 87 0c20 179 B +8
OB9C 38 O48 020A 130 TSTRAV TBH SECTSW,x*0u! TEST FOR SWITCH 15 OF Ci (es) 0c20 CO 87 %8BC1 4180 B PRTSNS TO DECODE ERROR
OBAO P2 10 08 131 JT TSTPIX JUMP IP om Oc28 CO 87 O21A 181 B PRINT TO PRINT
OBA3 3C PF OBOD 132 BVI RUNRAV, X'FPF® IP NOT ON, SET TO RUM RZHOVABLE DISK 0c28 06 Fi 0c28 182 Dc IL1°06* FLAGS
‘ 133 Cc Oa 0C29 35 0c29 183 pc IL1*53° LENGTH
OBA? 38 02 020A 134 TSTPIX TBN SECTSW,X*02° TEST POR SWITCI 16 OF OC2A OCB8 OC2B 184 DC AL2 (ERROB9) MESSAGE ADDRESS
OBAB F2 10 OB 135 JT SETRSV JUMP IF OW OC2C CO 87 0222 - 185 B HALT TO DCP HALT
OBAE 3D FF 0B08 136 CLI REMVDS,X'FP? TEST FOR RUN ON REMOVABLE DISK ONLY © an @) 0C30 A009 0c31 186 DC XL2"*a009# SALT ID
OBB2 P2 81 O88 137 JE SETRSY JUMP IP ON : , 187
OBBS 3c FFP OBOE 138 EVI RUNPIX,X*PF? IF NOT ON, SET TO RUN FPIXED DISK OcC32 CO 87 194F 188 RTNIA1? B TSTSEK TO TEST FOR GOOD SFEK
OBBY 3D 00 OBOD 139 SETREAVY CLY RUNRMV,0 DO WE WANT TO RUN ON REMOVABLE? c C 6C36 3C FFP 1A60 189 AVI RDDFC+1,X° FF? SET CYLINDER NO. TO FORCE A ERP.
OBBD F2 81 OB 160 JE FIXED TUS P IP NO OC3aA OC O01 1862 OBO 190 NVC RDDFPC+3 (2) ,TWOZB SET TO START AT TRACK O, SECT 6
OBCO 3C OO 1B79 141 BVI DISKT?,O SET TO RUN ON REMOVABLE : 191 , :
OBC’ 3c 00 OBOD 1&2 BYI RONRSYV,0 CLEAR RUN REMOVABLE SWITCH CO OQ Oc&8’0 cO 87 1493 - 192 B STR&TIO TO I/0 SUBROUTINE
OBCB F2 87 OF 143 J TSTEXT TO EXIT Ocu4y 03 Oc4y 193 pc XL12°03* FUNCTION CODE (SCAR)
Taya Ocxs 00 ocu5) 194 DC XL1°00' CONTROL CODE (EQUAL)
OBCB 3D 00 OBOE 145 FIXED CLI RUNFIX,0 DO WE WAKT TO RUN CN PIXED? cs OC4u6 1A5F OCc4u7 195 DC AL2(RDDPC) CONTROL FIELD ADDRESS
OBCF F2 81 OC 146 JE ZROCTR JUMP IP NO Oc48 CO 87 0Cc54a 196 B RTNWIA2 GOOD RETURN, { NOT EXPECTED)
OBD2 3c O08 1B79 T47 AVI . DISKTP, X*08! SET DISK TYPE TO FIXED Ooc&’c CO 87 O0CcS5O 197 B ey
OBD6 3C 00 OBOE 148 AVI BONPIYX,O CLEAR RON PIXED SWITCH eS c 0cSO cO 87 0c6a 198 B RTN1B NORMAL RETURN FROM EXPECTED ERROR
149 OcS4& CO B7 O21A 199 RTNIA2 B PRINT TO PRINT ROUTINE ERROR
OBDA CO 87 0000 150 TSTEXT B *-% EXIT OcCS8 C6 0cSB 200 DC XL1°C6! FLAGS
151 : c = 0c59 3c 0c59 =—-.201 DC IL1°60* LENGTH
OBDE 3D OB OAO3 152 ZROCTR CLI x*0A03*,08 CHZYCK FOR LAST SCUTINE OCSA OCFPS OCSB 202 dc AL2(ERRBIA) ADDRESS OF LAST PRINT CHARACTER
OBE2 3C 09 0B11 153 MVI PASS,0 ZERO SWITCH ocSc aQ250 OCSD 203 DC YL2*a0S0¢ MESSAGE ID
OBE6 CO 01 0216 154 BNE LINK Ces ae OCSE CO 87 0222 208 B HALT TO DCP HALT
OBEA 3c 00 OBO9 155 AVI SETSW,0 RESET SWITCH 0c62 A050 0c63 205 Dc x.2*a050° HALT ID
OBEE CO 87 0000 156 B 0 206
Cc C Oc64 CO 87 1A64& 207 RTRIB 8B SENSE TO SENSE I/0 SUBROUTINE
Oc6B 02 0c68 208 DC AL1(STATO1) DEVICE STATUS BYTES O & 1
209
Co xe Oc69 38 OW 1A7A 210 TBN STATUS-1,X'04' TEST BYTE 0, BIT 5 FOR O-
211 © THIS IS "NO RECORD POUND®
Oc6D F2 10 10 212 IT RTNIC JUMP IP ON
ce oe 213
0C70 CO 87 O21~A 214 B PRINT TO PRINT ERROR
OC74 C6 0c78 215 Dc XL1°C6é? FLAGS
Cc © Gc75 45 OC7S 216 DC IL1°69¢ LENGTH
0Cc76 0D39 0c77 217 DC AL2(EERR1B) AUDRESS OP LAST PRINT CHARACTER
Oc78 A051 0c79 218 DC XL2*a051# MESSAGE ID
Ce OC7A CO 87 0222 219 B HALT TO DCP HALT
Oc7E A051 OC7F 220 DC XL2*a051° HALT ID
221
CO OC80 CO 87 OBFE 222 RTNIC 2B RINIA ROUTINE EXIT
223
; OC84Y E3C8C540D7D9CSES OCB2 224 pc CL47"°THE PREVIOUS ERRORS OCCURRED WHILE SEEKING THE
*O ¢ OC8C CIDGEXE24CCS5D9D9 224
DATE 13MAR70 O6APR70 22H AY70 01A0G70 PROG ID Oa0A-2 <- DATE 13MAR70 O6APR70 22MAY70 O1ADGTC PROG ID OAOA-2 |
EC WO. . 571512 571516 571513 571531 PAGE 2 EC NO. 571512 571516 571513 571531 PAGE 2a
Q
eeoeoeeeeeeeeceeeeeeseCeeeeeeeeeeneees
.°
- Qo ¢
IBM MAINTENABCE DIAGNOSTIC PROGRAS PART WO. 5129638 IBS MAINTENANCE DIAGNOSTIC PROGRAE PART "NO. 5129638
PAGE 3 PAGE 3a
6 °9o
A0A2 SCARE EQUAL AOA2 SCAB EQUAL
ERR LOC OBJECT CODE ADDR STMT SOURCE STATESERT CGC eo ERR LOC OBJECT CODE ADDR STHT SOURCE STATERENT
0C94 DEDIE2ZKODECICIES 224 231 * ROUTINE WO. 02, TEST SETTING OF THE SCAN FOUND e
OC9C DIDICSCU“OESCBCI 228 Go 9s 232 «© CONDITION & BRANCHING OW & TIO ®
OCAS D3IC5SOE2C5C5D2C9 224 233 2 USING A SCAN EQUAL CONDITION %
OCAC DSC740E3C8C540 228 236
OCB3 C3CS5S40C3EBD3 OcBa 225 ERRORS DC CLO6°CE CYL* 2 od OD3A 02 OD3a 235 RTN2 v7C XL7°02¢ ROUTIBE WUMBER
OCB9 E2C3C1DS8OCSDSB4 OCEC 226 pc CL52°SCAR EQUAL USING A NON EXISTANT SECTOR ID DID HOT GI? OD35 00 OD3B 236 pc XLi*00° ROUTINE FLAGS
O0CC1 C1D380E4E2C9D5C7 226 OD3C OFEA OD3D 237 pe AL2 (RTE 3) ADDRESS OF NEXT ROUTINE PREFIE
OCC9 40C140D5D6D5480C5 226 oO G 238
OCD1 ETCIE2ZE3C1IDSE3480 226 OD3E 3D 00 0B09 239 CLI SETS#,0 HAVE PARAMETERS BEEN ENTERED?
OCD9 E2C5C3E3D6D940C9 226 OD42 CO 81 OAROD 240 BE SETDSE BRANCH I? NU
OCET C&LOCHCICKULODSDE 226 6 oOo OD46 CO 87 OBSF 281 RTN2A 8B TSTSPN
OCE9 E340C7C9 226 OD4SA OC 00 1A5C OBOR 242 MVC WRTDPC#+1(1), TRACKS SET SEEK ADDRESS TO CE TRACK
OCED ESCSZ0CSD9D9DGEDS OCPS 227 BRRIA o0C CLO8*VE ERRORS OD50 3c 00 125D 283 MVI WRTDFC+2,0 SET FOR HEAD 0, SECTOR O
OCFS DSD640D9C5C34B40 0D28 228 DC CL52*HO REC. FOUERD NOT SET BY A SCAN EQUAL COMMAND USING * GC G OD54 3C 0S 1BE6 244 MVI SNSID,09 INSERT ID IN PRINT
OCPD C6D6FE4D5C460D5D6 228 245
OD0S £380E2C52E340C2E8 228 7 OD58 CS 87 1a93 286 B STRTIO TO SEEK CE TRACK
UbOD 40C140E2C3C1D540 228 C CoC ODSc 00 ODSc «247 DC XL1°0# FUNCTION CODE (CONTROL)
OD15 CSD8E4C1D340C3D6 228 ODSD 00 ODSD 248 pc XL1°08 CONTROL CODE { SEEK)
ODID DUDYCIDSCBROESE? 228 OD5SE 1858 ODSF 249 DC AL2 (WRTDFC) CONTROL FIELD ADDRESS
0D25 C9D5C7480 228 f G6 ODb0 CO 87 OD7A 250 B RTN2A1 GOOD RETURN
0D29 C1BOE2C5C3E3D6D9 OD39 22) ERRIB pc CL17*& SECTOR ID OF FF? OD64 CO 87 OD6B 251 B £44
0D31 SOCICSRODECE40CE 229 0D68 CO 87 1BC1 252 B PRISNS -TO0 DECODE ERROR
0D39 C6 ‘ 229 a ¢ OD6C CO 87 O21A 253 B PRINT TO PRINT
OD70 06 OD70 2548 DC XL1°068 PLAGS
0D71 35 OD71 255 Dc TL1*53° LENGTH
Oo fC OD72 OCBS 0D73 256 DC AL2 (ERROR) MESSAGE ADDRESS
OD74 CO 87 0222 . 257 B HALT TO DCP HALT
O0D78 A009 0D79 258 DC XL2*a009* HALT ID
QoQ 9 259
OD7A CO 87 194F 260 RTN2A1 B TSTSEK TO CHECK FOR A GOOD SEEK
at ak 261 .
Co oO OD7E 3c 00 1£EC6 262 RTN2B AVI WORK+255,0 SET WRITE FIELD
i OL82 OC FE 1EC5 1EC6 . 263 MVC °‘WORK4+25% (255) , WORK+255
2648 . Sg ;
oO; ©o OD88 3c 12 1BE8 265, “MVI SNSID,X*°12¢° PUT MESSACE ID IN PRINT
! OD8C 3C 00 1ASE 266 BVI WRIDFC+3,0 SET TO WRITE ONE SECTOR
267
O:s OD90 C2 01 1DC7 268 LA WORK, XR1 SET WRITE DATA ADDRESS |
OD94 34 01 1B7D 269 ST DFDR,XR1 IN DATA CONTROL’ PIELD
270 ; pe os
oO: OD98 CO 87 1A93 271 B STRTIO TO I/O SUBROUTINE
op9Cc 02 oDp9c 272 Dc XL1*02° FUNCTION CODE (WRITE)
OD9D 00 OD9D 273 pe XL1"00: CONTROL CODE (DATA)
GC SO OD9E 1A58 ODS9F 2748 pc AL2(WRTDFC) CONTROL FIELD ADDRESS
ODAO CO 87 ODAC 275 B RTN2B1 GOOD RETURN
ODAS CO 87 ODA8 276 B +4
: Co Oo ODA8 CO 87 OESC 277 B WRTER2 ERROR RETURN.
278
GDAC 3C 52 1BE8 279 RTH2B1 MVI SNSID,xX'52° PUT ID IN PRINT
Go oO ODBO 3C 00 1A5E 280 NVI WRTDPC+3,0 SET TO SCAN EQUAL ON ONE SECTOR
281
ODBY CO 87 1493 282 B STRTIO TO SCAN EQUAL
oO oOo ODB8 03 ODB8 283 DC XL1*03* FUNCTION CODE (SCAN)
ODB9 00 ODB9 288 pc xL1°00¢ CONTROL CODE (EQUAL)
ODBA 1A5B ODBB 285 DC AL2(WRTDFC) CONTROL FIELD ADDRESS
QO oG ODBC CU 87 NDEC 286 2 RTN2B2 RETURN FOR NO SCAN FOUND
oDco CO 87 ODFC 287 B RTN2C1 RETURN FOR SCAK FOUND
288
9 @6 opc4 CO 87 1D08 289 RTN2C B SHIPT TO SHIFT BITS FOR DECIMAL NUMBER
ODC8 1A5B opcd 290 Dc AL2 (WRTDFC) ADDRESS OF SOURCE
: ODCA CO 87 1D59 291 B CVD TO CONVERT TO DECIMAL KUMBER
GS oe ODCE 1D4D ODCF 292 pc AL2 (CYLNQ) ADDRESS OF SOURCE.
ODDO OECE ODD1 293 DC AL2 (ERRO2A) ADDRESS OF DESTINATION
ODD2 3c 40 OECC 294 MVI ERRO2A-2,C* ° SET A BLANK IN PRINT IMAGE
c:.0 ODD6 CO 87 1BC1 295 3B PRTSNS TO PRIXT SENSE INFO.
| *ODDA CO 87 O21A 296 B PRINT TO PRINT THIRD LINE
| ODDE 06 ODDE 297 pc XL1°96° FLAGS
C1o ODDF 59 ODDF 298 Dc IL1*89¢ LENGTH
DATE 1382R70 O6APR70 22NAY70 01A0G70 PROG ID Oa0A-2 © 18 pate 13NAR70 O6APR7O 22maY70 01A0G70 PROG ID Oa0a-2
EC NO. 571512 571516 571513 §71531 PAGE 3 EC RO. 571512 571516 571513 571531 PAGE 3A
Go ' 0
Ge oO
‘IBM MAINTENANCE DIAGNOSTIC PROGRAR PART HO. 5129638 | IBS MAINTENANCE DIAGNOSTIC PROGRAE. PART WO. 5129638 z
oo PAGE 4 | PAGE an 4
+ a QO%
aAQa2 SCAB LEQUAL | a0a2 SCAN BQUAL |
ERR LOC OBJECT CODE ADDR STMT SOURCE STATENEST © | © _— ERR Loc OBJECT cope ADDR STHT SOURCE STATEMEET Q-
ODEO OECE ODE 299 pc AL2(ERRO2A) BESSAGE ADDRESS | 0E96 &0C1C6E3C5D980C4 363
ODE2 CO 87 0222 300 B HALT TO DCP HALT Cc. 86 OEIE DECSD5C740C180E2 363 QO
ODE6 A052 ODE? 301 BC XL2°2052° HALT ID OEAG6 C3CTDSSO 363
ODES CO 87 GpFC 302 B RTHE2C1 | OEAAR CSDSESCID38OCSLG CECE 364% ERROZA DC CL37*EQUAL CORNAND USING HEAD 0, SECTOR XE
*303 O'S OEB2 D&DECIDSCUROESEZ 368 a
ODEC CO 87 0212 30% RTH2B2 B PRINT TC PRIET NO SCAB FOUND OEBR CODSCTROCSCSC ICS 368
ODPO C6 ODPO 365 pc XL1°C6® FLAGS GEC2 SOF06B40E2C5C3 83 368 :
ODF4 2B ODF1 306 pc IL7°G3° LENGTA Oo oOo OECA LEDSYOETE? 364 O
ODP2 OPES ODF2 307 DC AL2 (ERRO2F) MESSAGE ADDRESS OECF B2CSCIE3D6D90C3 GEFS 365 ERROZB DC CLS3*SECTOR COUNTER IN CORTROL PIELD NOT STEPPED® .
ODF& A0S6 ODFS 308 DC XL2°A056° MESSAGE ID OED? DGEXDSE3IC5D940C9 365
ODP6 CO 87 6222 309 B HALT TO DCP ERROR HALT o © OEDP DSSOC3IDEDSE3D9DE6 365 op
ODFR 2056 ODPB 310 Dc ¥L2°2056° BELT ID OEE? D34OCKCSC5D3ICURO 365 i
3791 OEEF DSDEE380E2E3CS5D7 365 ;
ODPC 3D PR TA85E 372 RTN2C1 CLI WRTDPC*3,Z°PF? TEST SECTOR COUNTER FOR STEPPING. ao CG OEF7 D7C5c4a 365 a
O#O0 F2 81 40 313 JE RTH2C2 PROCEED IF OK. OEFA E2C3CIDSXCCECICS OF ZC 366 pC CLS1*SCAN PIELD WAS ALTERED APTER GIVING A SCAN EQUAL CO?
CEO3 CO 87 O21A 316 B PRINT TO PRINT SECTOR COUNTER HOT STEPPED OFO2 DICUSOESCIE240CI 366 :
GEO7 C6 O£07 315 ae XLI°C6S ; PLAGS 9 +O OFOA D3E3C5D9C5CR4INCI 366 a
Q208 23 CEOS 346 pc ILi°43e LERGTH OF 12 C6E3ICSD9YOCTICSES 366 me iy
CEOS GEFS OFOa 347 pc AL2 (ERRO2 85} MESSAGE ADDRESS : GPIA CSDSCTSLOCTINOE2ZC3 366 : :
OEOB a053 OZOC 318 pe XL2?*2053° MESSAGE IDENTIPICATIOR oO ¢ OF22 C1ID540CSDSESC1ID3 366 a
OZOD CO 87 0222 319 B HALT TO DCP HALT OF2A 80C3D6 . 266
OZ11 A053 0£12 320 DC XL2*A0053° HALT ID OF2D DSD4C1DS5SCY OF31 367 ERRO2C DC CLOS*MNAND® '
; 321 o,c GF32 CB8CSCICASOSOS0E2 OF6S 368 pc CL52*HEAD & SECTOR BYTE OF CONTROL FIELD CHANGED AFTER AB * Che
0£913 3D 00 7ASD 322 RTW2C2 CLI. wWRTDFC+2,0 _ CHECK HEAD & SECTOR HO. APTER ; OF3A CSCIEZDEDI“LOC2EB 368
Me 323 © SCAN IS COMPLETED | OF&2 E3C540D6C680C3D6 368 -
OE17 ¥2 81 10 324 JE RTN2D PRGCEED IP OK Oo eo OPGA DS5SE3D9D6D3480C6C9 368 oye
OEIA CO 87 O21R 325 B PRINT , TO PRINT ERROR OF52 C5D3C440C3CBC1IDS 368
ORIE C6. OE1E 326 pc XL1'C6¢ FLAGS OPSA C7C5C440C I1C6E3CS ' 368
OEIP 43 VEIP 327 pc IL167* | ‘LENGTH oO G OF 62 D940C140 368 o
OF20 CF7a 0£21 328 BC AL2(EZRRO2D) BHESSAGE ADDRESS OF66 D6D5CS80E2CSC3E3 OF7& 369 ERRO2D LC CLIS*ONE SECTOR SCAN®
OE22 aoss 0£23 329 pc XL2'a0S4" MESSAGE IDENTIFICATION ; OFGE D6D940E2C3C1D5 - 369 : :
. GE2& CO 87 0222 330 B 4HALT TO DCP HALT Co C¢ OP75 E3CB8CSHOD7DSCSES OFAS 370 pC CLUS'THE PREVIOUS ERPORS OCCURRED WHILE DOING & WRITE * oe
_Q0E2€ a05% OE29 331 pc KL2*A0S4? HALT ID OF7D CIDGESE240CSD9D9 370.
+332 a OF85 D6&DSE24056C3C3E4 370 —t:t—“‘<‘i‘CS a
OE2A C2 02 1DC7 333 RTRZD LA WORK, XR2 oi, SET XR2 TO. POINT TO WORK AREA oOo CO. OF8D DIDICSCS4OEGCBC9 370 2:
OEZE BD 00 006 : 33% RTN2F .CLI O0(,XR2),0 CHECK WORK AREA FOR RO CHANGE — OF95 D3C540C4D6C9D5C7 370 |
O£E31 F2 01 18 335 JNE RTN2E JUNP TO PRINT IP SCN. PLD. IS CHG. OFOD SOCISOE6D9C9EICS 370 > ;
OE34 E2 02 01 336 LA 1(,XR2) ,XR2 MOT DONE, INCREMENT XR2 Oo SG OFAS 40 370 - 5
0£37 34 02 1A7D 337 ST SNSXR2,XR2 HO CHG, SET TO CHECK NEXT BYTE OFA6 CHC1E3C180C3D6D4 OFBE 371 ERRO2E DC CL25"*DATA COMBAND USING HEAD 0° i
O£3B OD 01 1A7D 19C6. ' 338 “CLC SNSIR2(2) ,WORK2 CHECK XR2 FOR REACHED UPPER LIMIT. OFAE D&CIDSCR4OESE2ZC9 371 Z
OE&1 P2 81 18 339 JE RTN2G TO ROUTINE END. oO © OFB6& DSC7S%0C8C5C1IC440 371 OO
0244 CO. 87 OE2ZE -340 a: RTN2F CHECK NEXT BYTE OYBE FO _ 371 a
341 d OFBF E2C3C1D540C6D6E4 OPEI 372 ERRO2F DC. CLU3"SCAN FOUND NOT SET AND OR DETECTED BY A TIO* a
OE48 CO 87 O2TA 342 RTN2E B PRINT. TO PRINT SCAN FIELD KAS CHANGED Q © OFC? DSCE4ODSD6E340E2 372 : ou
OEKC C6 OfYC 343 pc XL1°C6? FLAGS OPCF C5E340C1D5C4&40D6 372 Zl
OF4D 38 OED 388 - pe IL1°56* LENGTH OFD7 D9SOC4CSE3C5SC3E3 372 4
OEVE OF31 OEP 385 Dc AL2(ERRO2C) NESSAGE ADDRESS o oOo OFDF C5C440C2Z840C140 372 9°.
0250 2055 OE51 346 DC XL2*a055? MESSAGE IDENTIPICATIO¥ OFE7 E3C9D6 372 i
OE52 CO 87 0222 3487 B . HALT TO DCP HALT us a
0E56 A055 0ES7 348 pc XL2'A055° HALT ID o 9 o
3489
OES58 CO 87 OD46 350 RTN2G B RTN2A ie
351 o ; 3 coud
OESC 3C 12 1BE8 352 WRTER2 MVI SNSID,X'12* PUT ID IN PRINT :
0E60 CO 87 1BC1 353 B PRTSNS TO PRINT STATUS ERRORS: i Sace
354 Oo 9s on
O£64 CO 87 021A 355 B PRINT TO PRIAT WRITE ERROR 4
OF68 06 0E68 356 DC —s-aXL1°068 FLAGS :
OE69 UA OZ69 357 DC IL1'748 LENGTH Oo ee So:
OE6A OFBE OE6B 358 DC AL2(ERRO2E) MESSAGE ADDRESS
OE6C CO 87 0222 359 B HALT TO DCP ERROR HALT “
0£70 A012 0£71 360 DC XL2*a012¢ HALT ID 9 oOo On
0E72 CO 87 ODN6 361 B RTN2A
362
OE76 E3C8CS4OD7D9CSES OEA9 363 Dc CL52*THE PREVIOUS ERRORS WERE PRESENT AFTER DOING A SCAN * 9 6 mo
OE7E C9D6EGE240CSD9D9 363
OE86 D6D9E240E6C599C5 363 >
OZ8E 40D7D9CSE2C5D5E3 363 Oo 9 oy
DATE 13MAR70 O6APR70 22MAY70 01A0G70 PROG ID 6a0a-2 QO © bate 13M ARTO O6APR70 22KHAY70 01AUG70 PROG ID OAOA-2 ok
EC WO. 571512 571516 571513 571531 PAGE & EC NO. 571512 571516 571513 571531 PAGE . ak .
0 Oo oe
@eaeaeaeaeeenoenaeneneeeeetsceeneenenvevee 8888 888 8 8 8:
sd tN tn ake Sates whee * 2 ee fe BAK boy dal dads Sony Baten cet Boke mae het ene came ei, ad tee ety Wn we Se a the ea Ta eat et nD ae a Be en a mk Jokes we ne ae gana eh zaeale
fate a a
Fete ee ee ee i ee
PR a Tae te ent tne Ste om Ee aH aa
RE RR ae mE oe ce ee Te ee cae ee eee ea a
QO.
‘< ISS ALISTERANCE DIRGHOSTIC PROGRAS PART HO. 5129636 IBA HAINTEHANCE DIAGNOSTIC PROGRAS PART NO. 5128638 s
ee PAGE 5 PAGE 5a
a a o s. o
-a0a2 Stan B2£OQBatL aoa2 SCAN EQUAL
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEREST © OO _ eae Loc ossecr cope ADDR STMT SOURCE STATESEST Q
374 * ROUTINE NO. 03, TEST SETTING OF THE * 1090 1177 1091 4&2 DC AL2 (EBRRO3A) HESSAGE ADDRESS i
375 * SCAN EQUAT. SENSE BIT * oO So 1092 CO 87 0222 843 B HALT TO DCP MALT 3
376 ¢ USING AN EQUAL CONDITION 1096 A052 1097 4Ra pe XL2*a052° HALT ID
377 1098 CO 87 10aC 845 B RTN3C1
orza 0 OPEA 378 8TN3 DC XL1903¢ ROUTINE NOSBER 0:9 8N6 CG
OFES 00 OFEB 37S oc XL1°00° ROUTINE FLAGS 109C CO 87 O21k 847 RTN3B2 B PRINT TO PRINT NO SCAN FOUND
OPEC 1178 OPED 380 c AL2 (RTNS) ADDRESS OF WEXT ROUTINE PREFIX 10a0 C6 4ORO 848 pc XLi*c6? FLAGS
381 0; 9 1041 2B 1OAT 489 pc sIL2*43¢ LENGTH Cs
OFEE 3D 00 0509 382 CLI SETSW,O HAVE PARAMETERS BEEX ENTERED? 10A2 OFE9 1083 450 DC AL2 (ERRO2F) MESSAGE ADDRESS
OFP2 CO 81 OADD 383 - BE SETDSK BRANCH IP NO ' 90a% A056 10a5 851 DC XL2"a056° MESSAGE IDENTIFICATION
OFF6 CO 87 OBSF 384 RTN3A OB TSTSPS Qe 1s 10a6 CO 87 0222 852 B HALT TO DCP ERROR HALT °
OFFA OC 00 1a5C OBOA 385 MVC WRTDFC+1(1) ,TRACKE SET WRITE ADDRESS TO CE TRACK 10AA 2056 10AB 453 DC XL2*°a056! HALT ID
1000 3c 00 1a5D 386 MYI - WETDPC+2,0 SET FOR HEAD 0, SFCTOR 0 asa
1004 3C 69 1BES 337 NVI SWSID,09 INSERT ID IM PRINT © o 10aC CO 87 1268 855 RTH3C1 B SENSE TO SENSE DEVICE STATUS oO
388 10B0 02 10B0 456 pc AL1(STATO1) ASK FOR SENSE BYTES 0 & 1.
1008 CO 87 1a93 389 8B STRTIO TO SEEK CE TRACK 4S7
100c 00 100C 390 pc XL1908 FUNCTION CODE (CONTROL) eo ¢ 1081 38 80 1A7B 858 TBN STATUS,X*80* TEST THE SCAN EQUAL BIT FOR OW o
100D 00 100D 391 DC XL1°0° CONTROL CODE (SEER) 10B5 ¥2 10 10 859 JT RTA3D PROCEED IF OK
100EB 1458 100F 392 pc AL2 (WRTDFC) CONTROL FIELD ADDRESS 10B8 CO 87 O27A 860 B PRINT TO PRINT SCAN EQUAL SENSE BIT NOT OF
1010 CO 87 102~ 393 B BRTN3A1 GOOD RETURN CG o 10BC C6 10BC 461 pc XL1°C6* FLAGS o
1014 CO B7 1018 394 B #48 10BD 50 10BD 462 Dc IL1*80° LENGTH
1018 CO 87 1BCI - 395 B PRTSNS TO DECODE ERROR 10BE 111B 10BF 463 DC =‘AL2(ERRO38B) MESSAGE ADDRESS
101C CO 87 O21A 396 B PRINT TO PRINT CGC Oo 10CO A057 10C1 468 DC. XL2*a057° MESSAGE IDENTIFICATION %
1020 06 1020 397 Dc XL1°06" FLAGS _ 10C2 CO 87 0222. 865 B HALT TO DCP HALT
1021 35 1021 398 pc IL1*53¢ LENGTH . _ 10C6 A057 10C7 466 pc XL2"A057# HALT ID
1022 ocB8 1023 399 pc AL2 (ERRORS) “MESSAGE ADDRESS Oo oOo 867 n
1024 CO 87 0222 400 B HALT TO DCP HALT 10C8 CO 87. OFF6 468 RTH3D 8B RTN3A
1028 A009 1029 401 pc XL2*A009* HALT ID 869
402. —«. . ee a . Oo Oo 10CC. E2C3C1DSYOCSDBES 10FF 470 DC CL52*SCAN EQUAL SENSE BIT, (BIT 0 BYTE 1), WOT OW AFTER D* Oo
102A CO 87 194F 803 RTN3A1 B TSTSEK TO CHECK POR A GOOD SEEK 19D& C1N340EB2C5D5E2C5 870 ; ;
. 408 ane 10DC.40C2C9E36B404DNC2 870 en
1022 3C GO 1EC6 405 RTN3B AVI wWORK*+255,0 SET WRITE FIELD OO 1OE4 CIE34OPO40C2E8E3 970 ao
1032 OC PE 1EC5 1EC6 “406 - BVC) —- WORK #254 (255) ,WORK*255 1GEC CS4OF1SD6B40D5D6 870
407 10F4 E340D6D540C 1C6E3 470 ‘
1038 3C 12 1BE8 808 BVI SNSID,X*12! POT ID IH PRINT Qo Oo 10FC cC5D940C4 -470 Te ie
103c 3c 00 1ASE 809 AVI WRTDFC+3,0 SET TO WRITE ONE SECTOR -, 1100 D6C9D5C74OC140D6 111B 471 ERRO3B DC CL28*OING A ONE SECTOR SCAN EQUAL?
810 ; 1108 D5C540E2C5C3E3D6 471 ;
1040 C2 01.1DC7 911 LA WORK, XR1 SET WRITE DATA ADDRESS Go| 0 1110 D940E2C3C 1D5a0cs: a71 a
1044 3% 01 1B7D 412 ST DFDR,ZR1 IN DATA CONTROL FIELD ! 1118 D8E4C1D3 971
813 po 111C E3C8C5S4YOD7DIC5SE5 124F 472 pc CL52°THE PREVIOUS ERRORS WHERE PRESENT AFTER DOING A SCAN*® ;
1048 CO 87 1A93 414 B STRTIO TO WRITE DATA oO 1124 C9ID6ESE240C5D9D9 472 o
104c 02 104C (415 DC XL1*02° FUNCTION CODE (WRITE) 112C D6D9E240zZ6C8CS5D9 972
104D 00 104D 416 pc XL1*00! CONTROL CODE (DATA) 1134 CS8OD7DICSE2C5D5 a72 “al
10GE 1A5B 104F 417 pc AL2 (WRTDFC) CONTROL PIELD ADDRESS CG 6 113C E340C1C6E3C5D980 972 2
1050 CO 87 105C 418 B RTW3B1 GOOD RETURN 1148 C&’D6C9DSC7480C140 872
1054 CO 87 1058 419 B +4 114 £2C3C1D5 472
1058 CO 87 OESC. 820 B WRTER2 ERROR RETURN Go G 1150 GOCSDSE4C1D340D6 1177 &73 ERRO3A DC CL40" EQUAL OPERATION WITH AN EQUAL CONDITION® -Q
421 1158 D7C5D9C1E3C9D6D5 - 473
105¢ 3c 52 1BE8 822 RTN3B1 MVI SNSID,X*52°* PUT ID IN PRINT 1160 4OE6CSE3C840C1D5 873
1060 3C 00 1A5E 423 BVI WRTDFC+3,0 SET TG SCAN EQUAL ON ONE SECTOR GC ¢ 1168 4OCSD8ENC 1D340C3 873 -)
924 1170 D6DSCUYCIE3CIDEDS 873
106% CO 87 1A93 425 B STRTIO TO SCAN EQUAL ”
1068 03 1068 426 Dc XL1*03° FONCTION CODE (SCAW) Oo oO “
1069 00 1069 427 pc XL1°00° CONTROL CODE (EQUAL)
106A 1A5B 106B 428 DC AL2 (WRTDFC) CONTROL FIELD _
106C CO 87 109C 429 B RTN3B2 RETURN FOR WO SCAN POUND © 6 vs
1070 CO 87 10aC 430 B RTH3C1 RETURH POR SCAN FOUND
431
1074 CO 87 1D08 432 RTN3C OB SHIPT TO SHIFT BITS POR DECIMAL HUMBER oOo 9 a
1078 1A5B 1079 433 Dc AL2 (WRTDPC) ADDRESS OF SOURCE
107A CO 87 1D59 934 B CVD TO CONVERT NUMBER TO DECIMAL ;
107E 1D4D 107F 435 Dc AL2(CYLNO) ADDRESS OF SOURCE* o oO 7)
1080 1177 1081 436 pc AL2 (ERRO 3A) ADDRESS OF DESTINATION
1082 3c 4G 1175 437 NVI ERRO3A-2,C' * SET A BLANK IN PRINT IMAGE 7
1086 CO 87 18BC1 438 B PRTSHNS TO PRINT SENSE INFO. Oo Oo fo
108A CO 87 O21A 439 B PRINT TO PRINT THIRD LINE
108E 06 108E 440 DC XL1°06° FLAGS
108F SC 108P 441 DC IL1"92° LENGTH 9 6 Oo.
DATE 13MAR70 O6APR70 22HAY70 01A0G70 PROG ID Oa0a-2 © © pare 13MAR70 O06APR70 22MAY70 01A0G70 PROG ID OAOA-2 i
EC WO. 571512 571516 571513 571531 PAGE 5 EC NO. 571512 571516 571513 571531 PAGE SA
Go Oo 3
a0a2
ERR LOC
1778
1179
T7A
VIC
4180
4188
1988
118E
4192
1196
T19k
1198
V19C
119E
VIA2
T1A6
JIAA
TIAE
TAP
1130
11B2
1136
11B8
11BC
110
V1C6
11Ca
TICE
11D2
11D6
T1IDA
11D
11Dbc
TIDE
TIE2
T1E6
TIEA
T1IEE
V1P4
ViFs
VRC
ViFD
1IFE
1200
1208
1208
120C
1210
1211
1212
1214
1218
DATE
Ec WO.
s can
EQOGATL
OBJECT CODE
04
FASB
co
co
co
co
06
35
37
87
87
87
OCcBB
co
87
A009
co
3c
oc
3c
3c
C2
34
co
92
87
0G
FE
12
00-
01
01
87
00 -
TASB
‘co
co
co.
3c
oc
3c
co
03
00
87
87
87
58
01
FE.
87
TA5B
co
co
co
co
06
5?
87
87
87
1248
co
87
A058
OBOS
Oa0D
OBSF
ta5C
1a5D
IBES
VA93
1188
T1A6
1BC1
O21A
0222
190F
1EC6
1ECS
1BE8
TASE
1Dc7
OBOA
1EC6
1B7D .
193
VIEA
T1E6
OESC
1BE8
YASE
TEZ2B
1A93
122A
127A
1BCc1
O21A
0222
V3IHARTO
571512
OB10 -
ADDR
7178
1179
11785
JVI9A
119B
119D
T1AE
11aF
11351
4137
VIDA
11DB
11DD
11FC
11FD
112F
1210
1211
1213
1219
O6APRT70O
571516
. BS SAINTEMANCE DIAGHOSTIC PROGRAS
PART 80.
5129638
PAGE 6
STHT SOURCE STATEMENT
a75 * ROUTINE NO. 04%, TEST PESET OF SCAN EQUAL SENSE BIT
*até @ ON A SCAN EQUAL OPERATION WHERE THERE
*a77 ¢ IS WOT AN EQUAL CONDITION
ats
979 RTNS DC XL1°048 ROUTINE BKUMBER
&80 pc XL1°008 ROUTINE FLAGS
881 DC AL2 (RTHS) ADDRESS OF NEXT ROUTINE PREFIX
482
&83 CLI SETSH,0 HAVE PARAMETERS BEEN ENTERED?
484 BE SETDSK BRANCH IF wO
485 RTNSA B TSTSPE
486 AVC WRTDPC+1(1), TRACKS SET WRITE ADDRESS TO CE TRACK
487 NVI WKTDPC+2,0 SET POR HEAD 0, SECTOR 0
888 BVI SNSID,09 INSERT ID IN PRINT
4B9
490 B STRTIO TO SEEK CE TRACK
4914 pc XL1°08 PUNCTION CODE (CONTROL)
ac2 pc XL1°O? CONTROL CODE (SEEK)
493 pc AL2(WRTDFC) CONTROL PIELD ADDRESS
a9u B RINGA1 GOOD RETURN
495 B |
496 B PRTSNS TO DECODE ERROR
897 B PRINT TO PRINT
498 pc. XL1"°06* PLAGS
499 pc IL1°53° _ LENGTH
500 pc AL2 (ERRORY) MESSAGE ADDRESS
501 B HALT TO DCP HALT
502 pc XL2*a009° HALT ID
503 .
504 RTNGA1 B. TSTSEK TO TEST FOR A GOOD SEEK
505 vb os 3
506 RTNUB MSVYI WORK*+255,0 SET WRITE PIELD
507 MVC WORK¢254(255) ,WORK*#255
508
509 MYVI SNSID,X°12° PUT ID IR PRINT.
510 BVI UWRTDFC+3,0 SET TO WRITE 1 SECTOR
511 a
512° LA WORK, XB1 SET WRITE DATA ADDRESS
513 ST DFDR, XB1 IN DATA CONTROL FIELD
518
515 B STRTIO TO WRITE DATA, (1 SECTOR)
516 pc XL1*02" FUNCTION CODE (WRITE)
517 pc XL1*°00° -CONTROL CODE (DATA)
§18 DC AL2 (WRTDPC) CONTROL FIELD ADDRESS
519 B RTN&B1 GOOD RETURN
520 B oy
521 B WETER2 ERROR RETURN
522 ;
523 RTNYB1 MVI SNSID,x'58* PUT ID IN ERINT
524 HVC) WRTDFC+3(2) ,TWOZR SET TO START AT TRACK 0, SECT. 0.
525
526 MVI WORK+100,X°FE? SET DATA PIELD FOR NON-COMPARE
527
528 B STRTIO TO READ DATA
529 be XxL1#03° FUNCTION CODE (SCAN)
530 pc XL1*°00° CONTROL CODE (EQUAL)
531 pc AL2 (WRTDFC) CONTROL FIELD ADDRESS
532 B RTNACI ‘RETURN FOR NO SCAN FOUND (EXPECTED)
33) B RINUB2 RETURN FOR SCAN FOUND (NOT EXPECTED)
34
535 RTNSC B PRTSNS TO PRINT SENSE INFO
536 B PRINT TO PRINT 3RD LINE
- §37 pc XL1°06° FLAGS
538 pc IL1*95! LENGTH
539 pc AL2 (ERROSA) MESSAGE ADDRESS
540 B HALT TO DCP HALT
541 pc XL2*a058° HALT ID
542
22NAY70 01A0G70 PROG ID OA0A-2
571513 571531 PAGE 6
O02 00 0 0
000000060000 006000000-000
°
6
oO Oo Oo Oo 9
b
‘
O
Eve (aD
‘>
QO
o Oo 89 6 8&8 O86 9
o O FG 0 9 8 G G0 8&8 6 8
IBA AAINTENANCE DIAGNOSTIC PROGRAS
AOA2
ERR LOC
W27A
1212
121P
1220
1222
1224
1228
122A
122E
122F
1233
1236
123A
123B
123C
1232
1240
1284
1246
1248
1252
125A
1262
126A
1272
127A
127E
1286
128E
1296
129E
12A6
12a9
1281
12B9
12C1
12C9
12D1
12D9
12DB
1253
12EB
12E3
12F5
12 FD
4305
139D
1315
131D
1325
1329
1331
1339
1341
1349
1351
DATE
EC KO.
sCcA NS
OBJECT CODE
CO 87 G21h
c6
ac
12F4
a0s9
co 87
AOSS
0222
co 87
Oz
38 80 1A7B
F2 90 10
co 87 O21;
C6 .
5D
1351
AOSA
co 87
AOSA
TA64
0222
co 87 1184
E3IC8C540D7DIC5SES
CIDGERE2ZHOCSD9DI
D6D9E240E6CSD9CS
40D7)9CSE2CSDSE3
&¥0C1C6E3C5D98CC8
D6C9D5CT4OC 140E2
C3C1D540
CSD8E4C1D340E6C8
C5DSC540E3C8C5D9
C540C9DS4ODSE6E3
&OCID540C5DBE4C1
D380C3D6D5C4&C9E3
C9IDEDS
E2C3C1D540C6D6E4
D5C44 0C3D6DSC4C9
E3C9D6D54 0C4CSE3
C5C3E3C5C440C2E8B
40C14023C 9D640E6
C8C5D540E3C8C5D9
C540
E6C1E240D5D6E340
C1DSYOCSDBESC1D3
4OC3D6DSC4CIE3C9
D6D5
E2C3C1D54 OCSDBEK
C1D340F2C5D5E2C5
4 0C2C9E36B404DC2
E8SE3C5SNOF140C2C9
E340F05D6B40D6D5
¥OCICKE3C5D940C4
D6C9D5C7
40C140E2C3C1D540
C5DBE4C1D34 OE6C8
C5D9C540F3C8C5D9
C540C9E240D5D6E3
4OCIDS4OCSDBENCI
D3
13HA870
571512
EQUAL
ADDR
121£
121P
1221
1223
1229
1222
1232.
123B
123D
123F
1245
127D
12A8.
12DA
12F4
1328
1351
O6APR70
571516
STAT
543
549
585
546
507
548
589
550
551
552
553
554
555
556
557
558
559
560
561
562
563
568
564
568
568
564
564
568
565
565
565
565
565
565
566
566
566
566
566
566
566
567
567
567
567
566
568
568
568
568
568
568
569 EBRROUC DC
569
569
569
569
563
SOURCE
RTNSB2
RTHSCI
RTN4D
ERROGA
ERROWB
22m at70
571513
STATENE ST
8 PRINT
Dc XL1°C6°
DC IL1°76°
pe AL2(ERROSB)
DC XL2*Aa059°
B HALT
pe XL2*a059°
B SENSE
DC Fs AL 1 (STATO 1)
JF RTRSD
B PRIRT
Dc XL1°C6® -
pc IL1°93?
bc AL2 (ERRO4SC)
DC XL2°a05a°
B HALT.
pc XL2°AOSA?
*8 RINSA
bc CLS2'TKE PREVIOUS ERRORS WERE PRESENT
Fe na ee a a
STATUS, X*80'_
PART WO. 5129638
PAGE 6a
TO PRINT SCAN FOUND @HEH ROT EXPECTE
PLAGS
LEXGTH
HESSAGE ADDRESS
BESSAGE IDENTIFICATION
TO DCP HALT
HALT ID
TO SENSE DEVICE STATUS
ASK FOR SENSE BYTES 0 & 1
TEST THE SCAN FOUND BIT
JUSP IF OFF
FLAGS
LENGTH
MESSAGE ADDRESS
MESSAGE IDENTIFICATION
TO DCP HALT
HALT ID
pc CL43* EQUAL WHERE THERE IN NOT AN EQUAL CONDITION®
bc CL50*SCAN FOUND CONDITION DETECTED BY A TIO WHEN THERE °
«
pe CL26*WAS NOT AN EQUAL CONDITION‘
DC CL52*SCAN EQUAL SENSE BIT, (BYTE 1 BIT 0), ON AFTER DOING®
01A0G70
571531
CL4i* A SCAN EQUAL WHERE THERES IS NOT AN EQUAL®
PROG ID OA0A-2
PAGE 6A
AFTER DOING A SCAN * |
0 0 0 @
oO
O .
Paes
Raat
£™,
Oo
: iy meek fe SBS WI es Paes “ a Psa lgee, EE eta Ae eae ee - PT A me ge RRS ee ee a ne lem ee oe RE tn eb eat wg Meg te Be gd . er em wheats be
TES ae Reet BEM shes Shy tae Ne ne Ri lee e ak ks rad Io Oa ae Dee ee? ahd yey pe se NR aia ee eh ial oe re Log a Bn ee ee me a ek eae ed ade ae P
; Co Ga.
IBA MAINTENANCE DIAGNOSTIC PROGHAS PART HO. 5129638 IBM MAINTEMAWCE DIAGROSTIC PROGRAS PART NO. 5129638 «
: PAGE 7 ee a7 4
a) , 6.
aoa2 SCAB EQUAL AOA2 Scauw EQUAL :
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT © © — ERR LOC OBJECT CODE BDDE STAT SOURCE STATEMENT Oo
571 * ROUTINE NO. 05, TEST SCAN EQUAL BY SCANNING MULTIPLE * 1801 CO 87 1405 639 B £44
572 © SECTORS WHERE 23 SECTORS HAVE BEEN + G 8 1805 CO 87 GESC 680 B WRTER2 ERROR ON DATA WRITE &
573 * WRITTEN WITH ZEPOS, AND THE 24'°TH SECTOR # ; 644
578 ¢ IS WRITTEN WITH ALL ZEROS WITH THE * | 1809 3C 18 1ASE 642 RTNSD SVI WRTDFC+3,2% SET TO SCAN 28% SECTORS
575 * EXCEPTION OF ONE BYTE WHICH IS -Aa- * Oo ,9 140D 3C 00 1A5D 643 BVI WRTDFC+2,0 SET TO START SCAN AT SECTOR 0 3
576 1411 3c 52 1BE8 644 BVI SKSID,X*52° PuT ID IM PPIET
1352 05 1352 577 RBTES vc XL1°05? ROUTINE NUMBER 645
1353 00 1353 578 pc KL1¢00° ROUTINE FLAGS © | Ss 1815 CO 87 1193 646 B STRTIO TO SCAH 28 SECTORS os
1354 1622 1355 579 DC AL2(RTH6) ADDRESS OP NEXT ROUTINE PREFIX 1419 03 1819 687 DC XL1°03* FUNCTION CODE (SCAB)
580 187A 00 181A 648 DC XKL1°00" | CONTROL CODE (EQUAL}
1356 3p 00 OBO9 561 CLI SETs#,0 HAVE PARANETERS BEEN EHTERED? o;?e 121B 1A5B 141c 0649 pc AL2 (WRTDFC) CONTROL FIELD ADDRESS 9
1358 CO 81 OAOD 582 BE SETDSK BRANCH IF KO | 141D CO 87 1438 650 B RTNSD1 RETURN FOR NO SCAN FOUED, (MOT EXP.}
135% CO 87 OBSF 583 RTBSA B TSTSPH 6 5 1421 CO 87 185D 651 B RTESE RETURN FOR SCAN FOUND, (EXPECTED)
588 3 652 : es
1362 OC 00 1A5C OBOR 585 BVC WRIDPC+1(1), TRACKS SET CYLINDER ADDRESS TO CE TRACK 1425 CO 87 1BC1 653 B PRTSES TO PRINT SENSE I#PO.
1368 3c 00 1ASD 5 86 BVI WRTIDPC#2,0 SET FOR BEAD 0, SECTOR 0 1429 CO 87 0217~A 654 B PRINT TC PRINT 3RD LINE
136C 3C 09 1BE8 587 EVI SBSID,09 INSERT ID EN PRIBT oO © 142D 06 1%2D 655 DC XL1*06? FLAGS 2
588 142B 4&7 1922 656 DC IL1°718 LENGTH
1370 CO 87 1A93 589 B STRTIO TO SEEK CE TEACK 142P 14F2 1430 657 DC AL2 (ERROSA) MESSAGE ADDRESS
1374 00 - 1374 $90 pc XL1NO® FUNCTION CODE (CONTROL) Qo oO 1431 CO 87 0222 658 B HALT TO DCP HALT Os
1375 00 1375 591 pc XL7*°98 CONTROL CODE (SEEK) 1435 A052 1436 659 DC XL2*2052° HALT ID
1376 1A5B 1377 $92 pc ALZ (WBTDPC) CONTROL PIELD ADDRESS 1437 CO 87 145D 660 B RTNSE PROCEED TO WEZT CHECK
1378 CO 87 1392 593 B RTN5a1 GOOD RETURN oO og 661 “
137C CO 87 1380 594 B ey ; 183B CO 87 1D08 662 RTNSD1 B SHIFT TO SHIFT BITS FROM SECTOR BYTE
1380 CO 87 1BC1 595 B PRTSHS TO DECODE ERROR 143F 157C 1440 663 pc AL2(TSTSEC-2) ADDRESS OF DATA
1384 CO 87 O21A 596 B PRINT TO PRINT oO 0 1441 CO 87 1D59 664 B CyD TO CONVERT TO DECIMAL
1388 06 1388 597 pc XL1*°06? PLAGS 1445 1DaD 1846 665 pc AL2 (CYLNO) ADDRESS OF SOURCE :
1389 35 1389 598 Dc IL1*53# LENGTH 1447 1530 "1848 666 DC AL2 (ZERROSB-10) ADDRESS OP DESTINATION
138A OCB8 1388 599 pe AL2 (ERRORS) MESSAGE ADDRESS Oo 14849 3C 4O 1522 667 BVI ERROSB-12,C* & :
' 138C CO 87 0222 600 B HALT TO DCP HALT ; . 668 -
1393 a009 1391 601 DC XL2"*A0098 HALT ID 14ND CO 87 O21~A 669 B PRINT TO PRINT NO SCAN FOUSD
< . 602 oO oO 1851 C6 1451 670 DC XL1°C6! FLAGS :
1392 CO 87 194P 603 RTNSA1 B TSTSEK TO CHECK FOR A GOOD SEEK 1452 48 1452 671 pc IL1°72° LENGTH
608 : . 1853 153A 1854 672 pc AL2 (ERROSB) MESSAGE’ ADDRESS
1396 3c 00 157E 605 ss SWI-s« TSTSEC,O SET TEST SECTOR NUMBER oO: oO 1455 A056 1456 673 pc XL2*2056" MESSAGE IDENTIFICATION
139A C2 01 1DC7 606 RTNSB LA WORK, XR1 SET WRITE DATA ADDRESS _ 1457 CO B7 0222 678 B FALT TO DCP HALT
139E 3&8 01 1B7D 607 ST° DPDR,XR1 IN DATA CONTROL FIELD 145m A056 W45C 675 pc XL2*a056° HALT ID .
os 608 O:.c 676 ~ r
13A2 3C 00 1FC6 609 BVI wWORK4+511,0 SET : 145D OD 00 1A5D 157E 677 RTNSE CLC W8RTDFC+2(1),TSTSEC DID SCAN EQCAL OCCUR OM
4326 OC FF 1FC5 1FC6 610 MYC WORK+510(256) ,WORK#511 DATR 678 * EXPECTED SECTOR ?
13AC OC FE 1EC5 1EC6 611 SVC WORK+254 (255) ,WORK+255 FIELD . 0 | OG 1463 F2 81 34 679 JE RT ESP JUMP IPF YES
13B2 3C 00 1A5D 612 NVI WRTDPC#2,0 SET TO START WRITE AT SECTOR 0 | 1466 CO 87 1D08 680 B SHIFT TO SHIFT SECTOR BITS
613 146A 1A5B 146B 681 DC AL2 (WRTDFC) CCNTROL PIELD ADDRESS
13B6 3c 00 1A5E 614 RTXSB1 AVI WRETDFC+3,0 SET TO WRITF ONE SECTOR Oar 146C CO 87 1D59 682 B CVD TO CONVERT TO DECINSAL
13BA CO 87 1493 615 B STRTIO TO I/O SUBROUTINE 1470 D&D 1471 683 DC AL2(CYLNO) ADDRESS OF SOURCE
13BE 02 13BE 676 pC . XL1"02? FUNCTION CODE (WRITE) 1472 155A 1473 684 DC AL2(ERRO5D) ADDRESS OF DESTINATION
13BF 00 13BP 617 pce XL1*0O8 CONTROL CODE (DATA) © 6 1874 3C 40 1558 685 M¥I ERROSD-2,C* °
13C0 1A5B 13C1 618 pe AL2 (WRTDFC) CONTROL FIELD ADDRESS 686
13C2 CO 87 13CE 619 B RTNS5S2 GOOD RETURN 1478 CO 87 1D08 687 B SHIPT TO SHIFT BITS FOR EXPECTED
13C6 CO 87 13CA 620 B ee4 oOo a 147C 157C 147D 688 pc AL2(TSTSEC-2) ADDRESS OF EXPECTED FIELD
13CA CO 87 OFSC 621 B WRTER2 ERROR RETURN 1&87E CO 87 1D59 689 B CVD . TO CONVERT FYPECTED TO DECIMAL
622 1482 1D4D 1483 690 DC AL2(CYLNC) - ADDRESS OF SOURCE
13CE 3D Sc 1A5D 623 RTNSB2 CLI W&RTDFC+#2,Xx'5C! TZST FOR SECTOR 23 O° oe 4484 157D 1485 691 DC AL2 (ERROSC) DESTINATION ADDRESS
13D2 F2 81 OA 624 JE RTNSC JUMP TO WRITE TEST SECTOR IF DOKE 1486 3C 40 1573 692 MVI ERROSC-2,C* °
13D5 O£ 00 1A5D 19C4 625 ALC WRTDFC+#2(1) ,ORNESEC NOT DONE,STEP TO NEXT SECTOR 693
13DB CO 87 13B6 626 B RTN5B1 TO WRITE NEXT SECTOR Go. << 146k CO B7 O2TA 694 B PRIKT TO PRINT SCAN EQUAL ON INCORRECT
627 695 * SECTOR
13DP 3c AA 1F2B 628 RTNSC MVI READ+100,X°AA! SET TEST SECTOR WRITE PIELD TNBE C& 14BE 696 DC XL1°C6t PLAGS =
13E3 C2 01 1EC7 629 LA READ, XR1 SET DATA FIELD ADDRESS oO oo 1U8P 43 148P 697 pc IL1°67? LENGTH O
1327 34 01 IB7D 630 T DFDR, XR1 IN DATA CONTROL FIELD 1490 157D 1491 698 pc AI.2(ERROSC) MESSAGE ADDRESS
13EB 3C 00 ASE 631 MVYI WRTDFC+3,0 SET TO WRITE ONE SECTOR 1492 AOSC 1493 699 DC XL2"a05c® MESSAGE IDENTIFICATION 7
13EF OC 00 1A5D 157E 632 MVC) WRTDFC+2(1),TSTSEC SET SECTOR NUMBER IN CONTROL FLD. Co 1494 CO 87 0222 700 B HALT TO DCP ERROR HALT o
633 1498 aA0SC 1499 701 BC XKL2*a0Sc? HALT ID
13F5 cO 87 1493 634 B STRTIO TO WRITE THE TEST SECTOR 702 a
13F9 02 13F9 635 c XL1"02! FUNCTION CODE (WRITE) Oo: 0 149A OE 00 157B 19C8 703 RTNSF ALC TSTSFC(1},ONESEC STEP TEST SECTOR NO. ¢1 aa
13FA 00 13FA 636 Dc XL1*'00°8 CONTROL CODE (DATA) 1540 3D 60 157E 704 CLI fTSTSEC,X*60° HAVE ALL SECTORS BEEN USED ?
13FB 1A5B 13FC 637 Dc AL2 (WRTDFC) CONTROL FIELD ADDRESS 14A4 CO 81 135E 705 RTNSG' BE RINSA ae
13FD CO 87 1809 638 B RTNSD GOOD RETURN O:9o 14A8 CO 87 139A 706 B RTNSB TO USE NEXT SECTOR IF NO 3
|
DATE. 13HAB70 O6APR70 22mAY70 01A0G70 PROG ID OAOA-2 G | C DATE 13HAR70 O6APR70 22m aY70 01A0G70 PROG ID OA0A-2 o
EC NO. 571512 571516 571513 571531 PAGE 7 EC BO. 571512 571516 571513 571531 PAGE 7A
© | © 9g
IBN SAINTE BANCE DIAGNOSTIC PROGRAS
AOA2
ZRR LOC
TAC
18B4
14BC
1608
14CC
THD
14DC
14E0
1HEB
14F0
1QF3
VOPR
1503
150B
1513
151B
ISIE
1526
IS2E
1536
1538
1543
154B
1553
155B
1563
156B
1573
157B
1572
IS7F
1587
158P
1597
159P
1SA7
15AF
15B3
15BB
1503
15CB
153
15D8
15E0
-15E8
15F0
15F8
1600
1608
160C
1614
161C
1624
162C
DATE
EC NO.
SCAR
OBJECT CODE
E3CBC58ONTDICSES
CIDEENE2NOCSDSDI
D6 DIEZ4O E6CSD9IC5
4ODTDICSE2ZC5SDSE3
SOC ICB6E3CSD9INNCS
D6CIDSCT&OC THOE2
C3C1D540
CSDBESC1D340D6C6
SOP2PUYN0E2CSCIE3
DED9IE2
E2C3ICIDSAOCSDBES
CIDIYODSDEEINO 2
CSEI4OC ICEEICSDIO
GOCILOP2ZP4KCE2CS
CIEIDEDISOE2CICI
D540480
E6C BCSD9ICSHOE2C5
CIEIDEDIVODSDE4B
SOETETXYOER6CIE29O
CSDBESC1ID3
E2C3CIDSSOCSDBEM
CIDILODEC3ICIESDYI
DICSCRROCTE3NOE2
CSCIE3ID6D94 OETET
6BYOE2ZCB8DEESD3ICY
§OC8CTESC540D6C3
CI EYDIDSC5SC&HOCI
E3J4OE2CSCIE3IDED9
SOETE7
00
E2ZCSCIE3DED940C3
D6 EXVD5E3C5D940C9
DSSOCIDEDSEIDIDES
D340CECICSD3ICHUO
DS D6E340E2E3C5D7
D7CSC4LOC3IDED9DI
CSC3E3D3
E84O0C 1C6E3CSD9ND
C7TYOE2C3C1IDS&0C5
DBESCID34ODICIE2
E340C5D5C440D6C6
4OC3IEBDI4B
CS8C5CICHNOSOSDE2
CSC3IEIDEDS40C2ZE8
E3C540D6C640C3D6
DSE3D9D6D340C6C9
CSDICKU4OC3C8C1D5
C7ICSCU&4OCIC6E3C5
D9 40C140
FPZ4O0E2CSC3E3D6D9
40 E2C3C1D540C5D8
EYCID3IXO0CTE340C5
DSCS4ODECELOCIESB
D34B
138AR70
571512
O6APR7
571516
EQuat.
ADDR
18DF
14F2
151D
1538
155A
157D
ISTE
15B2
15D7
160B
1625
0
STRT
707
708
708
708
708
708
708
708
709
709
709
710
710
710
710
710
710
741
711
711
711
712
- 712
712
712
713
713
713
713
713
T1&
715
715
- 715
715
715
715
715
716
716
716
716
716
717
717
717
717
717
717
717
718
718
718
718
718
SOURCE
ERROSA
ERROSB
ERROSD
ERROSC
TSTSEC
ERRO6C
ERRO6D
228AY70
571513
PART HO.
5129638
PAGE 8
STATEMENT
pc
pc
pc
pc
pe
Dc
pc
pc
Dc
O1A0G70
571531
CL52*THE PREVIOUS ERRORS WERE PRESENT APTER DOING A SCAN
*CLI9* EQUAL OF 24 SECTORS®
CL43°SCAWN EQUAL NOT SET AFTER A 2& SECTOR SCAB
*CL29° WHERE SECTOR NO. XX WAS EQUAL®
CL32'*SCAN EQUAL OCCURRED AT SECTOR XXx®
CL35*, SHOULD HAVE OCCURRED AT SECTOR XX
*XL1*08
CL52*SECTOR COUNTER IN CONTROL FIELD NOT STEPPED CORRECTL
*CL37*Y AFTER A SCAN EQUAL PAST END OF CYL.
*CLS2*HEAD & SECTOR BYTE OF CONTROL PIELD CHANGED AFTER A
*CL38"2 SECTOR SCAN EQUAL AT END OF CYL.!
PROG ID
OAOA-2
PAGE 8
)
Oo oO Qa OO Oo G0 98. Q@ ©
a
QO
©
¢)
Oo 989 90 9 89 080 8 6 09 9 0
Oo 808 0 6 0 0 09 0 0
oO 9 0 @ 60 9090 90 8%
oO
©
GO. “G:P46. <Oo 26* 36
IBA MAIMTEMANCE DIAGNOSTIC PROGRAS
AOA2
ERR LOC
1622
162P
1630
1632
1636
1632
163E
1644
1648
164C
1650
1651
1652
1654
1658
165C
1660
1664
1665
1666
1668
166C
166E
1672
1676
167C
1680
1684
1688
168C
168D
168E
169C
1694
1698
169C
16A0
16A4
1648
16aCc
164D
16 AE
16B0
16B4
16B8
16BC
16c0
16C1
16C2
16C4
DATE
EC KO.
SCAR
OBJECT CODE
06
00
17BE
3D
co
oc
3c
3c
co
00
00
00
81
87
00
pc
09
87
1A5B
co
ct
co
co
06
35
87
87
87
87
OCB8
co
87
A009
co
3c
Oc
87
00
FE
00
01
07
87
87
1779
AOSD
0B09
OAOD
OBSP
TASC
1A5D
1BE8
1493
166E
165C
1BC1
O2TA
0222
194P
1EC6
TECS
TASE
1DC7
1B7D
1493
169C
1698
OES5SC
1DCT
1ASE
1A5D
1A93
16BC
16B8
OBOA
1EC6-
16cCc
O21A
13MART7O
571512
EQUAL
16 2E
162F
1631
1650
16 51
1653
1664
1665
1667
166D
168C
16 8D
168F
16aC
16AD
16AF
16CO0
16C1
16¢3
16c5
O6APR70
571516
ADDR STST
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
7487
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764%
765
766
767
768
769
770
771
772
773
Ts
775
776
W717
778
779
780
781
782
783
184
785
786
787
SOURCE
*
*
*
*
RTR6
RTNGA
RTNG6AT
RTN6B
RTN6B1
RTN6B2
22MAY70
571513
STATEMENT
ROUTINE NO. 06, CHECK
SENSE
USING
ROUTINE PREFACE
PART HO.
5129638
PAGE Sa
FUNCTION OF EXD OF CYLINDER s
BIT, (BYTE 1, BIT 2) s
THE SCAN EQUAL COMRAKD s
pc XL1°O6* - ROUTIAE WOMBER
Dc XL1°00° ROUTINE FLAGS
Dc AL2 (RTN7) ADDRESS OF WEIT ROUTINE PREFIZ
CLI SETSH,0 HAVE PARAMETERS BEEN ENTERED?
RE SETDSK BRANCH IF WO.
B TSTSPE#
MVC) WRTDPC+1(1),TRACK# SET SEEK ADDRESS TO CE TRACK
AVI WRTDFC+2,x"DC* SET FOR HEAD 1, SECTOR 23
AVI SNSID,09 INSERT ID IN PRINT
B STRETIO TO SEEK CE TSACK
DC XL190° FUNCTION CODE (COBTROL)
Dc XL1°O°* CONTROL CODE (SEEK)
pc AL2 (WRTDFC) CONTROL PIELD ADDRESS
B RTNGA1 - GOOD RETURE
B +4
B PRTSNS ‘TO. DECODE ERROR
B PRINT TO PRINT
DC XL1*Q6* FLAGS
pc IL1*53° LENGTHS
DC AL2 (ERRORY) MESSAGE ADDRESS
B HALT TO DCP HALT
pc XL2*A009*. HALT ID
B TSTSEK TO TEST FOR A GOOD SEEK
NVI WORK*+255,0 | SET .
HVC WORK*254 (255) ,WORK4#255 WRITE FIELD
AVI WET DFC+3,09 SET TO WRITE 1 SECTOR
LA WORK ,XB1 SET WRITE DATA ADDRESS
- St DFDR, XB1 IN DATA CONTROL FIELD
B STRTIO - TO WRITE DATA
pe XL1°02° FUNCTION CODE (RITE)
pc XL1°00* CONTROL CODE (DATA) .
pc AL2 (WRTDFC) CONYROL FIELD ADDRESS
B RTKG6B1 GOOD RETURN
B +4
B KETER2 ERROR RETOUR
AVI WORK, X*AA® SET DATA FPIELD TO PREVENT SCAN FOUND
svVI WRTDFC+3,1 SET TO SCAN 2 SECTORS
MVI WRTDFC+2,X*DC! SET POR HEAD 1, SECTOR 23
B -TRTIO TO SCAN DATA, (EXPECT END OP CYL.}
pc XL1*°03° FUNCTION CODE (SCAN)
bc X¥L1°00° CONTROL CODE (EQUAL)
pc AL2 (HRTDFC) CONTROL FIELD ADDRESS
B RTNG6B2 GOOD RETURN, (NOT EXPECTED)
B 44 SCAN FOUND, (NOT EXPECTED)
B RTN6C ERROR RETURN, (EXPECTED)
B PRINT TO PRINT NO ERROR FROM TIO
pc XL1"°CS* FLAGS
pc IL1°81° LENGTH
Dc AL2 (ZRROGA) MESSAGE ADDRESS
pc XL2"aO5D* MESSAGE IDENTIFICATION
01AU0G70 PROG ID
571531 PAGE
G
a
C
OAOA-2 G
8A
: oo . : bee bad wectghta ss mv dis! Bian Stipe eee. TO gat ee SEE BESS. Boe 5 aR Robs, BR SERN ke ts nate ee a Se
IBM MAINTEMANCE DIAGHOSTIC PROGRAR
aQAa2
Pag Loc
16C6
16CA
16cC
16D90
16D1
16D5
1608
76DC
169D
16DE
16E0
16E2
16EZ6
16E8
16EC
16EE°
16F2
16F5
16F9
16FA
16FB
16FD
16FP
1703
1705
1709
170C
1710
1711
49712
1714
1716
V71A
Wic
1720
1728
1730
1738
1740
1748
1750
1754
175c
1764
176C
1771
1779
1781
1789
1791
1799
17A1
17a5
T7AD
17B5
17BD
DATE
EC NO.
SCARS
OBJECT CODE
co 87 0222
aosp
co 87
02
TAGS
38 20 1878
F2 10 10
co 87
C6
aD
17BD
AOSE
O21A
co 87
AOSE
0222
co 87
DCT
W9IA
3D 00 1A5E.
F2 81 10
CO-87 021A
c6
59
15D7
A053
co 87
A053
0222
3D DC 1A5D
F2 81 10
cO 87 O21A
C6
56
162D
AOQSF
co 87
AOSF
co 87
0222
163A
C1GOE3C5E2E3480C9
€1D640D6D540C5D9
D9IDEDIKOCACICHNO
DS5SD6E340C2D9C 1D5
C3C8NOCICE6E3C5D9
SOCTESE3CSDSDTE3
C9D5C740
E3D640E2C3C1D540
CSDS8E4C1D380D7C1
E2E380CSDSC&RODG
C640C3E8D3
CSD5C440D6C640C3
ESD34BYOE2ZC5DSE2
C540C2C9E34 0D5D6
EJ¥OE2CSE340C1C6
E3CSD9NOCTE3E3C5
D&D7TEICIDSCTYOEZ
D640E2C3
CIDSYOCSDBESC1D3
NOD7CIE2ZE380C5D5
CS4OD6CES0C3E8D3
&B
T3INARTO
571512
FEQouatL
ADDR
16CB
16 D0
16 DC
16D)
16 DPF
16 £1
16 BE?
16ED
16F9
16FA
16 FC
16 FE
17048
1710
UWA
17 13
1715
17
1753
1770
I7AG
17BD
OGAPR70
571516
STMT SOURCE
788
789
790
791
792
793
794
795 ¢
796 |
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
B12
813
*818
815
816
817
818
819
820
821
822
823
824
825
- 826
827
828
829
830
831
832
833
838
834
834
83a
834
834
8348
835
835
835
835
836.
836
836
836
836
836
836
837
837
837
837
RTW6C
RTN6D
RTNG6E
* .
ERROGA
ERRO6B
22NAY70
571513
RINGF .
STATESEST
B HALT
DC XL2*a05D
*B SENSE
DC Aud (STATO1)
TBH STATUS,X*20°
JT RTN6D
8 PRINT
DC XL1°C6!
DC IL1'77!
pc AL2 (2 RR06B)
pc XL2°A0SE?
B HALT
pc XL2*AOSE
*B TSTDAT
pc AL2 (WORK)
CLI wRTDPC+3,00
JE RTKGE
B PRINT
DC IL1°C6!
De IL1#89" |
pc AL2(ZRNOGC) ©
DC XL2*A053
*B HALT “
DC XL2"A053"
CLI WRTDFC*2,K°DC* -
JE RTXGP
B PRINT
DC XL1'c6
*DC IL1°86°
pec AL2(ZRROGD)
boc XL2*aOSP®
B HALT
DC XL2°AOSPF?
B RTNGA
DC
pc
pc
oc
TO PRINT
PART WO. 5129638
PAGE 9
- TO DCP HALT
HALT ID
TO SENSE DEVICE STATUS
BYTES 0 & 1,
TEST BYTE 1 BIT 2 FOR OR,
(THIS YS "END OF CYLINDER‘)
JUMP IP OF
TO PRINT SENSE BIT WOT OF
PLAGS
LENGTA
MESSAGE ADDRESS
BESSAGE IDENTIFICATION
TO DCP HALT
HALT IDENTIFICATION
TO T2ST DATA ADDRESS
EXPECTED ADDRESS
TEST SECTOR COUKTZR POR STEPPING
JUNP IP CORRECT
TO PRINT SECTOR COUNTER NOT
STEPPED CORRECTLY
PLAGS
LENGTH
MESSAGE ADDRESS :
MESSAGE IDENTIFICATION
TO DCP HALT
HALT ID
CHECK HEAD & SECTOR NO. AFTER .
WRITE IS COMPLETED, (SHOULD NOT STP)
JURP IF WO CHANGE
ERROR
FLAGS
LENGTH
MESSAGE ADDRESS
MESSAGE IDENTIPICATION
TO DCP HALT
HALT iD
CLS2*A TEST I/O OW ERROR DID MOT BRANCH AFTER ATTEMPTING
*CL29*TO SCAN EQUAL PAST END OF CYL®
CLS2* ERD OF CYL.
SZaSE BIT NOT SET AFTER
ATTESPTING TO SC
*CL25*AN EQUAL PAST ERD OF CYL. °
*01A0G70
571531
PROG ID
QaA0aA-2
PAGE 9
o 0 80 0 6 0 0 0 00 0 0 0 0 0 8 G
9 0 9 9 6 09 0 80 0 0 ©
>
> oO Oo Oo
oO oOo OO CG 8 080 8 8 8 @
0000000000000 0
oO
Tet ON BE we ee eee See es Tee es IK > : wee en x “te é A ae eo ; An Bo thm ®@ se |g
IBE MAINTERANCE DIAGNOSTIC PROGRAN
ada2
ERR LOC
17BE
17BF
17C¢0
17¢2
17C6
17CA
17CE
17D
17D8
17DC
17E0
17E1
17E2
1758
178
17EC
17F0
17P4
17¥F5
17F6
17F8
17FC
17FE
1802
1806
180C
1810
18148
' 1818
181C
181D
18 1E.
1820
18248
1828
182¢
1830
1834
1838
1839
183A
183C
1840
1884
18498
1849
164A
184C
1850
1852
1856
185A
185B
185¢
185E
1860
1864
1866
DATE
Ec 30.
‘3c 55
SCAR
OBJECT CODE
07
00
186A
3D GO
co 81
co 87
Oc 00
3c 00
3c 09
co 87
00
00
1A58
co 87
co 87
co 87
co 87
06
35
ocBs
cO 87
a009
co 87
0B09
Oa0D
OBSF
1TA5C
1A5D
1BE8
1493
I7FE
17EC
1BC1
O27Aa
0222
194F
1EC6
tECS
1ASE
Oc FE
3c 00
c2 01
34 01 1B7D
co 87
02
00
1ASB
co 87
co 87
cO 87
1493
482C
1828
OESC
3c 52
3c 00
co 87
03
00
1A5B
co 87
co 87
TBE8
TASE
1A93
1856
1866
co 87
06
5C
1177
co 87
A052
cO 87
1BC1
0222
1566
co 87
c6
2B
OFES
A056
co 87
A056
cO 87
O2Q1A
0222
T7CA
134AR70
571512
OBOA
1EC6-
1DC7
BQUAL.
ADDR
17BE
17 BE
171
170
1721
1723
17Fa
17F5
177
17FD
181C
181D
181P
1838
1839
18 3B
1848
1849
1845
1851
185A
185B
185D
185P
1865
O6APR70
571516
Se Th ee ee ae tee ee
STHT SOURCE STATEMENT
839
*840
841 ¢
842 ¢
883 RINT
8a4
8a5
886
847
898
849 RTN7A
850
851
852
853
854
855
856
857
858
859
860
861
862
863
865
865
866
667
868
869
870.
871
872
873
878%
875
876
877
878
879
880
881
882
883
8B4
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901%
902
903
904
905
906 RTNI7C1
RINTA1
RTN7B
RTN751
RIN7B2
22M AY70
571513
pc
pc
pc
CLI
AYI
Dc
B
01AUG70
571531
PAGE
ROUTINE HO. 07, CHECK PUNCTION OF SCAN EQUAL
ROUTINE PREPACE
XL1°07°
X1L1°00
*AL2 (8T"8)
SETSW,0
SETDSK
TSTSPW
WRTDPC+1(1) , TRACKE
WRIDFC+2,0
SUSID,09
STRTIO
XL1°0°
XL1°0°
*AL2 (WRTDPC)
RIN7AI
Soy
PRTSHS
PRIST
XL1°06
*IL1°53¢
*AL2 (ERROBY)
HALT
XL2*a009°
TSTSEK
WORK+¢255,X°55°
ROUTINE RUABER
ROUTIWE FLAGS
USING A DATA FIELD OF 256 BYTES
OF 55 BOTH IN AENORY AWD ON THE DISK
ADDafSS OF WEXT ROUTINE
is 2 Rinse gS Ae e 5 Me coe eecl S enone: e Do ha oe $
PART WO. 5129638
9a.
HAVE PABAMETPRS BEEN ENTERED ?
BRANCH IPF WO
SET SEEK ADDRESS TNO CE TRACK
SET FOR HEAD O SECTOR 0
PUT ID IN PRINT
SO SEEK CE TRACK
PUNCTION CODE
CONTROL CODE (s
(CONTROL)
22K)
CONTHOL FIELD ADDRESS
GOOD RETOUR
TO DECODE ERROR
TO PRI¥T ERROR
PLAGS
LENGTA
MESSAGE ADDRESS
TO DCP HALT
HALT ID
TO TEST POR A GOOD SEZK
Set
WORK*254 (255), WORK*255 DATA AREA .
@RTDPCe3,0
WORK, X81
DFOR, x1
“STRTIO
XL1°02°-
XL1°O?
AL2 (UBTDPC)
“RBTNTBI
eG
_ WRTER2
SWSID,X*52°
WRTOFC?e3,0
Static |
XIL1°O3°
XLU°OCc®
AL2(USTDPC)
RIN7B2
RTNIC1
PRTSUS
XL1°06°
“237°92¢
AL2(ERRO3A)
HALT
XL2*a0S2°
RTN7C1
XLi*c6
*IL1*43°
*AL2 (ERRO2PF)
XL2*a056°
HALT
XL2*a056°
RTS7A
_SET TO WRITE ONE
SECTOR
SET WRITE DATA ADDRESS
IM DATA CONTROL PIZLD
TO WRITE OWE SECTOR OF DATA
FUKCTION CODE (wR
CONTROL CODE
CONTROL PIELD ADD
GOOD RETORS
ERROR RETURN FOR WRITE DATA
POT ID IM PRINT
SET TO SCAM ONE S
TO SCAN EQUAL
FUNCTICH CODE (SC
CCHTROL CODE
CONTROL FIELD ADD
RETURN FOR NWO SCA
ITE)
(DATA)
Rz2ss
Ector
AX)
(EQUAL)
RESS
N POUND
RETURN POR SCAN FOUND
TO PRINT SENSE IN
FLAGS
LENGTE.
SESSAGE ADDRESS
TO DCP HALT
HALT ID
TO PRIKT NO SCAN
FLAGS
LENGTH
MESSAGE ADDRESS
MESSAGE ID
TO DCP ERROR HALT
HALT ID
FO
FOUND
PROG ID
PAGE
OAOA-2
9A
9 ts
5 o
3
O
er
. GC 6 O°
_XBA MAINTENANCE DIAGNOSTIC PROGRAR PART WO. 5129638 : IBA MAINTENANCE DIAGNOSTIC PROGRAS M. PART ¥O. 5129638 4
EO See ge PAGE 10 PAGE 10a ae
aoa2 SCAB EQUAL AOA2 SCAN EBQUAL oes
ZRR LOC OBJECT CODE ADDR STMT SOURCE STATERENT © © _— ese Loc opsect cope ADDR STHT SOURCE STATENEST O:
908 ® ROUTINE NO. O08, CHECK FUNCTION OF SCAW EQUAL * 977 © SUBROUTINE TO DETERMINE IF DATA ADDRESS ® as
909 WHERE OWE S5YTE IS COMPARED * 6.9 978 * IS NOT STEPPED ° Oo”
910 © AND 255 BYTES ARE MASKED OFF * ; 979 ,
186a 08 186A 911 BTNB DC XL1*°08¢ ROUTINE WOSBER 980 ‘
186B 00 186B 912 DC XL1*008 ROUTINE FLAGS G Oo 191A 38 08 1982 981 TSTDAT ST DATEXT+3, ARR SAVE RETORN ADDRESS a
186C FPP 186D 913 pc XL2‘PFRF!® LAST ROUTINE FLAG 191E 35 02 1982 982 L DATEXT#3,XR2 LOAD XE2 WITH PARAHBETER POINTER
918 1922 2c 01 19C0 01 983 HVC WORK1(2),1(,XR2) HOVE "XPECTED ADDRESS FOR COMPARE
186Z 3D 00 0B09 915 cur SETS#,0 HAVE PARAMETERS BEEN ENTERED ? 6 9 1927 OF 01 198E 19C2 984 ALC DATEXT+3(2),THO INCREASE EXIT ADDRESS Oo
1872 CO 81 OaOD 916 BE SETOSK BRASCH IF HO 192D CO 87 1A68 985 B SENSE TO STORE DATA ADDRESS
1876 CO 87 OBSF 917 RTHSA B TSTSPS 1931 Ag 1931 986 - pc AL1(DATA) ae
187a 3C 00 TA5D 918 AVI WRTDFC+2,0 SET FOR HEAD 0, SECTOR 0 CG oO 987 : os
187Z 3C 09 15E8 919 BYI 8 SNSID,09 PUT ID IM PRINT 1932 OD 01 1A7B 19CO0 988 CLC STATUS (2) ,WORK1 CHECK DATA ADDRESS
1882 CO 87 1493 920 B STRTIO — TO SEEK CE TRACK 1938 F2 81 10 989 JE DATEIT JUBP IF ADDRESS
1886 00 1886 921 Dc XL1°0! PUNCTION CODE (CONTROL) | O16 990 @ IS AT ORIGINAL VALUE
1887 00 1887 922 . pc XLito# CONTROL CODE (SEEK) 193B CO 87 021A 991 B PRINT TO PRINT DATA ADDRESS MOT CORRECT
1888 1A5B 1889 923 DC AL2(WRTDFC) CONTROL PIELD ADDRESS o 193F C6 193F 992 Dc XL1"c6* FLAGS
188A CO 87 78A8 924 B RTHBA1 GOOD RETURN VUlg 1980 2B 1940 993 .- pc IL1*43° LENGTH
188E CO 87 1892 925 B #48 1981 19F1 1942 998 Dc AL2{ DATPR1) ADDRESS OF #ESSAGE
1892 CC 87 1BCI 926 B PETSHS TO DECODE ERROR 1943 AQ3E 194% 995 DATID1 DC XL2"*AO3E® MESSAGE IDENTIFICATION
1896 CO 87 O21A 927 B PRINT TO PRINT ERROR oO:196 1985 CO 87 0222 996 B HALT TO DCP HALT
189A 96 189A 928 DC XL17068 FLAGS | 1989 AO03E 198A 997 DC XL2*a03E* HALT ID
189B 35 189B 929 pc IL1'53¢ LENGTH 194B CO 87 0000 998 DATEIT B +-* EXIT 7
189C OCBB 189D 930 Dc AL2 (ERRORS) MESSAGE ADDRESS © | GS 999 :
189E CO 87 0222 931 B HALT TO DCP HALT 1000 :
18A2 A009 18A3 932 DC XL2"A009* HALT ID | 1001 * CONE HERE TO TEST FOR A GOOD SZEK °
18A4 CO 87 194P 933 RTNSA1 B TSTSEK TO TEST FOR A GOOD SEEK ow @ @ 1002
18A8 3C 00 1EC6 934 RTHSB MMVI WORK+#255,0 SET . 194F 3% O08 1983 . 1003 TSTSEK ST SEKEXT+3, ABR - SAVE RETURE ADDRESS
18AC OC FE 1EC5S 1£EC6 935 MVC WORK+258 (255) ,WORK*#255 WRITE AREA 1953 CO 87 146% 1004 SKTSTA B SENSE TO SENSE DEVICE STATUS
18B2 3C 00 1ASE ; 936 MVI WRTDFC+3,0 SET TO WRITE ONE SECTOR - oO 98 1957 02 3957 1005 DC AL1(STATO1) BYTES 0 6& 1.
18B6 C2 01 1DC7 937 LA WORK,XR1 SET WRITE DATA ADDRESS 1006 . i
18BA 34 01 1B7D 938 ST DFDR,XB1 IN DATA CONTROL FIELD 1958 38 10 1A7B 1007 _ TBN STATUS,X*"10° TEST THE SEEK BUSY. SENSE EIT .
“ 18BE CO 87 1A93 _ 939 B STRTIO TO WRITE ONE SECTOR OF DATA oO G 195C CO 10 1953. “1008 ° BT §$SKTSTA IF ON DO ANOTHER SENSE wie
- 1802 02 18C2 940 pc XL1*02¢ FUNCTION CODE (WRITE) 1960 38 01 1A7A 1009 TBN STATUS-1,X°01" TEST FOR SEEK CHECK z
-18C3 00 18C3. 941 DC —_—«»xXL1°O0? CONTROL CODE (DATA) 19648 F2 10 29 1010, JT- SEEKER IF ON, GO- £0 SEEK ERROR PRINT -
18C4 1A5B - - 18CS 9482 DC AL2 (WRTDPC) CONTROL FIELD ADDRESS 2 oOo 1019400 c. 8 ; ee
18C6 CO 87 18D2 943 B —s- RT N8B1 GOOD RETURN ve . 1967 CO 87 1A93 1012 -. B STRTIO "" TO READ ID
18CA CO 87 18CE: 944 B *4+4 196B 01 196B 1073. DC XL1°0O18 é
18CE CO 87 O£SC 945 B WRTER2 ERROR RETURN FOR WRITE DATA oS Cc i96C 01. 196C 1014 DC. XL1901" 3
18D2 3C 52 1BE8 . 946 RTNSB1 NVI SNSID,X*52°* PUT ID IN PRINT 196D 1983. 196E 1015 DC AL2 (IDFLD-2)
Ou? 196F CO 87 1973 1016 B *4+4 oa <
48D6 3C FP 1EC5 " gus - MVI WORK+254&,X'FP? SET DATA AREA FOR SCAN CO C6 1973 CO 87 1977 1017 B +n a
18DA OC FD 1EC4& 1EC5 949 MVC WORK+253(254) ,WORK+254 % 1977 OD 00 1985 OBOA 1018 - CLC IDPLD-1(1),TRACK®
os . 950 / f 197D F2 01 07 1019 JNE SEEKER Co
18EO 3C 00 1A5E 951 MVI WRTDFC+3,0 SET TO SCAN ONE SECTOR 0:0 1020 : : e
18E8 CO 87 1A93 952 B STRTIO TO SCAN EQUAL 1980 CO 87 0000 1021 SEKEXT B *-2 EXIT
1BE8 03 . 18£8 953 DC XL1*03! FUNCTION CODE (SCAR) 1984 000000 | 1986 1022 IDFLD DC XL3"O
*18E9 00 18E9 954 pc XL1*00+ CONTROL CODE (EQUAL) o oC 1023
18EA 1A85B 18EB 955 DC AL2(WBTDFC) CONTROL PIELD ADDRESS 1028 ; :
18EC CO 87 1906 956 B RTNSB2 RETURN FOR NO SCAN FOUND | 1025 * COME HERE IP AN ERROR OCCURED .
18FO CO 87 1916 957 B RTN8C1 RETURN FOR SCAN FOUND G6O:1S6 1026 * WHILE SEEKING THE CE TRACK .
952 1927
18F4 CO 37 18BC1 959 B PRTSNS TO PRINT SENSE INFO | 1987 CO 87 1D59 1028 SEEKPR B CVD 2 SS
18F6 06 18F8 960 ; DC | ——s- EXL1° 06" PLAGS © 0 196B 1985 198C 1029 DC AL2 (IDFLD-1) ; 2
18F9 5c 18F9 961 DC IL1"92" LENGTH 198D 1A32 198E 1030 DC AL2(ARIVED)
VFA 1177 18FB 962 pc AL2 (ERRO3A) MESSAGE ADDRESS ‘i 198F CO 87 021A 1031 B PRINT . TO PRINT ERROR ON SEEK a
18FC CO 87 0222 963 B HALT - TO DCP HALT fo hg 1993 C1 1993 1032 DC Ruwtct - PLAGS M!
1900 A052 1901 964 DC XL2* A052! HALT ID 199% 2k 1994 1033 DC IL1*92° LENGTH
1902 CO 87 1916 965 B RTN8C1 1995 1A1B 1996 1038 pc AL2(SEKER1) ADDRESS OF MESSAGE 7
966 Oo © 1997 aQ3C 1998 1035 SEEKID pC XL2"a03C* MESSAGE IDENTIPICATION O
1906 CO 87 021A 967 RTNSB2 B PRINT TO PRINT NO SCAN FOUND 1036
190A C6 190A 968 DC XL1°C6° FLAGS 1999 CO 87 O21~A 1037 B PRINT - TO PRINT SECOND LIE wi
190B 2B 190B 969 pc IL1*4a3* LENGTH G 0 199D 01 199D 1038 Dc XL1°017¢ Ld
190C OFE9 190D 970 DC AL2 (ERRO2F) BESSAGE ADDRESS 199B 17 199E 1039 . Dc IL1*23#
190B A056 190F 971 DC XL2*a056° MESSAGE ADDRESS | 199F 1A32 19A0 7040 DC . AL2(ARIVED) re
191C CG 87 0222 972 B HALT TO DCP ERROR HALT o oO 1041 oO
1914 2056 1915 973 DC -——« XL2* a0S56° HALT ID 1941 CO 87 021A 10482 B PRINT TO PRINT SECOND LINE
974 1945 06 19A5 1043 pc XL1°06° FLAGS ‘a
1916 CO 87 1876 975 RTNSC1 B RTNSA oO oOo 19A6 28 1986 1048 Dc IL1*40* LENGTH a
DATE 13MA370 O06APR70 22HAY70 01A0G70 PROG ID OAOA-2 OG O pate 13HAR70 O6APR70 22m AaY70 01AUG70 PROG ID Oa0aA-2 co:
EC NOw 571512 571516 571543 571531 PAGE 10 EC NO. 571512 571516 571513 571531 PAGE 10a
oo 8
SCOCCOC CCC CCC HOO OOO KCK OO OSO ORO OO OBOE EOS
©)
tL
IBA AAINTERANCE DIAGNOSTIC PROGRAM
a0a2
BRR LOC
1947
1949
19AD
19B1
19B5
1989
19BB
JOBP
19¢1
19C3
19¢5
19C7
19CP
19D7
19DF
1S9E7
19EF
19¥F2
‘19PA
TA02
1AOA
WA1T2
TATA
AIC
TA24G
1A2C
1A33
TA3B
Taa3
TAUB
1A53
1A5B
IASC
IASD
1A5E
TASF
7A60
1A61
1A62
1A63
TA64
1A68
TA6C
TA71
1A75
TA78
TATA
TA7C
JATE
IA7P
1A80
1A82
TA84
SA893
TA8C
1ABE
1A90
192
DATE
EC KO.
SCAN EQUAL
OBJECT CODE ADDR
1aSAa 1948
3c 00 OBT1
3C 00 0809
3C 00 1878
cO 87 0222
a03c 19BA
CO 87 0000
0000 19¢0
0002 19¢2
0008 194
1EC6 1906
CUCTEICIUOCICUCS 19P1
DICSEZE2NOEGCIE2
40E2E3C5D7D7CS5C4
4OE3D640C9DSC3D6
DIDICSC3E340E5C1
D3EUC5
C5D9D9D6D940D6C3 1A1B
CIEGDIDICSCUUOES
C8C9D3ICS4O0E2C5C5
D2C9DSC74OFR3ICBCS
40C3C580E3D9CIC3
D26B
CIDIDICIESCSC4UO 1032
C1E340C3E8D34B90
USD64BUOETETET
DIESDS4OE2ZCSCSD2 1A5A
GOE3CSEZE340E2C5 -
C3E3C9D6D540C1F0
F348 0C6D6D940D4D6
DIC5S40C9 DSC6D64B
00 1358
00 1A5C
00 15D
00 1A5E
00 ASP
00 1460
00 1261
00 1262
01 1463
34 08 1A7D
35 01 1A7D
18 03 1472 00
30 00 1A7B
DO 87 01
0000 1479
0000 1A7B
0000 1A7D
{ ATE
00 1A7E
00 1A 7F
0000 1481
0000 1083
00000000 1287
00000000 1A8B
0000 1A8D
0000 1A8F
0000 1491
00 1092
13MAR70 O06APR70
571512 571516
STST
1085
SOURCE STATEREST
1086 .
1047
1048
1089
1050
1051
1052
1053
1058
1055
1056
1057
1058
1058
1058
- 1058
1058
1058
1059
1059
1059
1053
1059
1059
1060
1060
106)
1061
1061
1001
1061
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1075
1075
1076
1077
1078
1079
1030
1081
1082
1083
1084
1085
1086
1067
1088
1089
1090
1091
1092
1093
1094
1095
WORK1
THO
ONESEC
WORK2
DATPR1
SEKER1
ARIVED
SEKER2
WRIDFC
RDDFC
ONE
pc
AVI
AVI
AVI
ne
pc
DC
pc
AL2(SEKER2)
PASS,0
SFTSW,0
FPRSTPS,O
HALT
XL2*a03C
*0
AL2 (¢-8)
XL2*02°
XL2"04°
AL2 (WORK¢255)
PART NO. 5129638
PAGE 1
ADDRESS OF HSESSAGE
TO DCP HALT
HALT ID
CLA3"DATA ADDRESS WAS STEPPED TO INCORRECT VALUE?
CLU2* ERROR OCCURRED WHILE SEEKING THE CE TRACK,
*o
CL23*° ARRIVED AT CYL. WO. XXX
*CLU&O*RON SEEK TEST SECTION AO3 FOR MORE INFO.
*XL7*°00°
XL1*O00
*XL1°00°
XL1°00°
XL1°00°
XL1°00
*XL1*00°
*xXL1°00°
XL1*O1!8
FLAG -
CYLINDER
TRACK & SECTOR
WO. OF SECTORS OR NO. OF TRACKS
FLAG
CYLINDER
TRACK & SECTOR
NO. OF SECTORS OR NO. OF TRACKS
SSSHHSHSSESSSEE SSESESSESESSESTESE SESH SSEKESEKSE SEKESKSEKRSSEHKSEETKEESHSE SESE SRERESHEE
a
SERSE
SHS
SETXR2
STATOS
SNSXR2
s
ETABLE
QCODE
CCODE
SNSO1
SNS23
DCFI
DCFF
DFCRI
DFDRI
DFDRFP
ROUTNO
22m AY70
571513
ST
L
ANN
Sus
01AU0G70
571531
SEKSE I/0 ROUTIAE
SNSXR2, ARB
SNSXR2,XB1
SNS*#1,0(,X81)
STaTOS,0
1(,XR 1)
XL2"0
*XL2'OFf
XL2°0°
RECORDING TABLE
*
XL1°O®
XL17°O°
*XL2°O!
XL2*0
*XLG&‘O?
XL4*O?
XL2‘'0O°
XL2°O
*XL2‘0
*XL1°0O?
SAVE ADDRESS RECALL REGISTER
LOAD XR1 WITH VALUE FROM ARR.
MOVE IN FURCTION CODE
PERFORM SENSE
EXIT
*Q* CODE
CONTROL CODE
STATUS BYTES 0 & 1
STATUS BYTES 2 & 3
DISK CONTROL FIELD,
DISK CONTROL PIELD, (FIWAL)
CONTROL REGISTER ADDRESS
DATA REGISTER ADDRESS, (INITIAL)
DATA REGISTER ADDRESS, (FINAL)
CURRENT ROUTINE HO.
(INITIAL)
PROG ID OAOA-2
PAGE 11
Oo 0 @G 0 0 .&
i 7 root ty SNe or oe oP f
l ‘ PE BOSS UE ORS Ae Bs ance te
so oe
cet 1 oaks ete ee ee ee ee ee ae
Oo oO 9 9 0 0 909 090 8 ©@
Oo oO
0 0 GG oOo G&G 8 80 8 G
200000
(espana eon ip ember aca brates tae? be
2 00.00000000
ey
20000000
"a
GC
Te ee ee Ree Cea a er ce ee a nee eet ale ee ee
ISH NAISTENANCE DIAGHOSTIC PROGRAR
AOA2
ERR LOC
1493
4A97
1A9B
TA9PF
TAAS
AAG
IAAE
1AB2
1AB6
TABA
1ABD
1aci
Tacs
TACB
1aCcB
TAC?
TAD3
TAD7
TADA
TADE
-TAE2
TAES
1AEA
1AED
TAP1
TAPS
APT
TAPA
TAPD
1B00
1B08
1B09
1BOD
1B 12
1B 16
TIBIA
1B1ID
1B21
1824
1B27
1B2B
1B2P
1B32
1B37
1B3A
1B3D
1B40
1B4&6
1B48
TBUE
1B51
1B56
1B5C
1B5P
1B62
1B65
1B6A
1B6F
DATE
EC KO.
Ter Neale
em
PART HO. 5129638
PAGE
SAVE ADDRESS RECALL REGISTER.
LOAD XR2 WITH VALUE FROK ARR.
ZERO SWITCH
SET FINCTION CODE
SET CONTROL CODE Im” SIO
SET DATA ADDRESS POR DFCR
SET FOR REMOVABLE DISK
SET POR REMOVABLE DISK
TEST POR SON ON LOWER DISK
JUSP IP NO
SET FOR FIXED DISK
SET FOR FIXED DISK
TEST FOR SEEK
IP YES, GO SET ADDRESS
LOAD CONTROL REGISTER
LOAD DATA REGISTER
LOAD DELAY VALOE IN XR1
START I/O OPERATION
TEST FOR BUSY
TS SWITCH ON?
IF NO, SKIP RESTORE
RESTORE W BYTE
TURN OFF THE FPOR/ REV BIT
RESTORE PARABETER POINTER
BRANCH IF ERROR
BRANCH IF SCAN FOUND
EXIT
SUBROUTINE TO SET THE NUMBER OF TRACKS AND THE
" LOAD XR2 WITH CONTROL FLD.
IS TRIS A RECALIBRATE?
IF NO, BYPASS SWITCH RESET
RESET RECALIBRATE SWITCH
SAVE ADDR. OF CTL. FLD. ADDR.
ADDR.
SAVE MN BYTE IN CONTROL FIELD
SET SAVE SWITCH
IS THIS FIRST PASS
SKIP RECALIBRATE IF nO
SET FIRST PASS SWITCH
SET PWD/REV BIT TO REV.
SET MAXIMNOM TRACK CROSSIEG
SET. OLD ADDE TO 0
LOAD DATA CONTROL REGISTER
SEEK REVERSE
COMPARE PRESENT
EQUAL, SEEK IS NOT NECESSARY
NEW ADDR. HIGHER, DO FORWARD SZEK
NEW ADDR. LOWER, SET BIT FOR REV.
PLACY LAST ADDR IN WORKAREA
SUBTRACT WEW ADDR. FROM LAST
PROCEED
ADDR. WITH NEW ONE
ADDR.
SET BIT ON FOR FORWARD SEEK
PLACE NEW ADDR. IN WORKAREA
SUBTRACT LAST ADDR. FROM NEW
PROCEED
ADDR.
SET NO.
TO &xiT
OF TKS. CROSSED TO ZERO.
PLACE IN NO.
SAVE NEW
OF TRACKS CROSSED
ADDRESS
PROG ID Oa0A-2
SCas Booaoatu
OBJECT CODE ADDR STMT SOURCE STATESENT
1097 © START 1/0 SUBROUTINE
1098
34 08 1479 1099 STRTIO ST SETXR2, ARR
35 02 179 1100 L SETZR2,XR2
3c 00 1B77 1101 RYT SAVSW,00
28 03 1AD8 60 1102 ANN SI0+¢1,0(,XR2)
2C 00 1AD9 01 1103 HVC SI0#2(1),1(,XR2)
2C 01 1B7B 03 1108 MVC DFCR(2),3(,XR2)
3B O08 1AD8 1105 TSTTP SBP SI0¢1,X*08
*3B 08 1B30 1106 SBP RSIO+¢1,x'08° .
39 08 1B79 1107 TBF DISKTP,X*08!
F2 10 08 1108 IT CKSEEK
3a 08 1aD8 1109 SETPIX SBN SI0¢1,x°08
*3A 08 1830 1110 SB BSIO¢+1,z°08°
*BD 00 00 1111 CKSEEK CLI 0(,XR2),00
F2 81 2F 1112 JE SETADR
31 6 1B7B 1113 LDFCR LIO DFCR,X*A6®
31 aS 1B7D 1114 LDPDR LIO DFDR,xX*a~AG®
C2 01 19C8 4915 LA 6600, XR1
F3 ad 00 1116 SIO SIO x*00",x*~A0?
C1 A2 1B88 1117 WAIT TIO BUSY,X*A2
*3D FP 1B77 - 1118 CLI SAVSW,X'PF®
F2 01 0C 1119 JNE TSTERBR ’
8C 00 03 1B76 1120 BYC 3(1,XK2),DFC3S¥
BB 01 02 1121 SBP 2(,XR2),01
35 02 179 1122 L SETIR2, XR2
Z1 a0 OC 1123 TSTERR TIO 12(,XR2) ,X*A0?®
E1 a& 08 1124 TSTSCH TIO 8(,XR2),X°AG*.
ZO 87 08 1125 B 4 (,XR2)
1126
1127 ©
1128 ® DIRECTION (FORWARD OR REVERSE), TO SEEK
1129
BD 01 01 1130 SETADR CLI 1(,XR2),01 -
P2 01 08 1231 INE %¢47
3c 00 1878 1132 AVI PRSTPS,O
2C 01 1B7P 03 1133 MVC XR2HK (2) ,3(,XR2)
35 02 1B7F 1138 L XR2WK,XR2
2C 00 1B75 03 1135 HYC DPC3SV(1),3(,XR2)
3c FF 1B77 1136 AVI SAVSW,X'FP!
3D 00 1878 1137 CLI PRSTPS,00
F2 01 15 1138 JNE SETADA
3C 01 1B78 1139 AVI -PRSTPS,01
BB 01 02 1140 SBP 2(,XR2),01
BC FF 03 1161 NVI 3(,XR2),255
3C 00 1875 1142 AVI LASTAD,00
31 A6 1B7B 1183 RLDPCR LIO DFCR,X*A6
*F3 a0 00 1148 RSIO SIO 00,X'&~AO
*1145
8D 00 01 1875 1146 SETADA CLC 1(%,XR2),LASTAD
F2 81 25 1147 JE NOSEEK
F2 88 11 1198 4H FWDSEK
BB 01 02 1149 SBF 2(,XR2),01
OC 00 4873 1B75 1150 BYC SCRCH(1),LASTAD
2F 00 1873 01 1151 SLC SCRCH(1),1(,XR2)
F2 87 17 1152 J SETADB
1153
BA 01 02 115% PWDSEK SBN 2(,%R2),01
2C 00 1B73 0% 1155 BAVC SCRCH(1),1(,XR2)
OF 00 1B73 1B75 1156 SLC SCRCH(1),LASTAD
¥2 87 06 1157 J SETADB
1158
BC 00 03 1159 KOSEEK VI 3(,XR2),0
F2 87 OA 1160 J ADREXT
1161
8C 00 C3 1B73 1162 SETADB MVC 3(1,XR2),SCRCH
2C 00 1B75 01 1163 MVC LASTAD(1) .1(,XR2)
CO 87 1ACB 1164 ADREXT B LDFCR
13M2R70 O06APR70 22NAY70 01A0G70
571512 571516 571513 571531
PAGE Via
4
Va.
ee
ke ee Se et
fa earn a
mo BE Bee ee me
Be ee ate a a ite mete ee i a a ee eT ugk A kre tea Soe
. a e 2
IBS SAINTENANCE DIAGNOSTIC PROGRAN PART WO. 5129638 IBM AAINTEBANCE DIAGHOSTIC PROGRAS PART NO. 5129638 - D
. | oa " PAGE 12a “3
fe © .°3 ° |
aOa2 SCAB EQUAL aoa2 SCAN EBQ0 a4 a
ERR LOC OBJECT CODE ADDR STMT SOURCE STATESERT © © _ ERR Loc OBJECT CODE ADDR STMT SDURCE STATESENT Go
1B73 00 1B73 1165 SCRCH DC X1L1*00° 1193 © SUBROUTINE TO PRINT THE CONTENTS OF DEVICE STATUS e
1878 00 1B74 1166 FRSTPS DC XL1*00* o Oo 1198 QQ.
- 9875 00 1B75 1167 LASTAD DC XL1*00° 1BC1 38 08 1C4&0 1195 PRTSNS ST PRTEXT+3, ARB SAVE ADDRESS RECALL REGISTER
1B76 00 1B76 1168 DFC3SV DC XL1°00° 1BC5 CO 87 1268 1196 B SENSE TO PERFORA SENSE
1B77 00 1B77 1169 SAVSW DC xL1°00° o 98 1BC9 02 1BC9 1197 pc AL1(STATO1) GET DEVICE STATUS BYTES 0 & 1. Oo
1B78 0000 1B79 1170 DISKT2 DC XL2*08 1198
1B7a 0000 1B7B 3177 DFCR DC AL2 (*-*) 1BCcaA CO 87 O21E 1199 B UNPACK TO ONPACK STATUS BYTSS
1B7C 1DC7 1B7D 1172 DFDR DC AL2 (WORK) 8 OC 1BCE 02 1BCE 1200 pc XL1°02° ye:
1B7EZ 0000 1B7F 1173 XR2WK DC XL2°08 1BCF 1A7B 1BDO 1201 pc AL2 (STATUS)
1B80 FFPP 1B81 1174 REG? DC XL2°*PRFF® 1BD1 1¢59 IBD2 1202 Dc AL2 (HEXSTA-8)
1BB2 0298 1883 1175 SIXSIX DC IL2*0660° °o 9O 1203 s)
1B84 36 01 1881 1176 BUSY A NEG1,XB1 DECREMENT DELAY COUNTER 1BD3 3C 01 1c08& 1208 NVI STPSNS*¢1,01 SET POR COMPLETION OF FIRST BYTE
1B88 CO 64 ADA 1177 BH WAIT RETURN TO TIO IF WOT TIBE OUT 1BD7 C2 01 1C6F 1205 LA STATWD, XB1 SET XR1 TO POINT TO FIRST NESSAGE
1B8C CO 87 1D59 1178 B crD TINE OUT OCCURED, CONVERT ROUT. HO. 6:06 1BDB C2 02 1D00 1206 LA STMASK,XB2 SET XR2 TO POINT TO ‘TEST SASK i)
1890 003 1B91 1179 DC AL2 (BPFX) CURRENT ROUTINE WO. | 1207
1B92 1BCO 1893 1180 pc AL2 (TIHOST) ADDRESS OF DESTIBATION IBDF CO 87 O21A 1208 B PRINT TO PRINT SHS WITH HEADING
1898 3C 40 1BFE 1181 AVI TINOUT-2,C* * Gi e 1BE3 C1 1BE3 1209 pc KLV°c1! FLAGS A
1898 CO 87 O21A 1182 B PRIUT TO PRINT TIMEOUT- OCCURED 1BES 01 IBES 1210 Dc IL1°01° LERGTH
1B9C C6 tB9C 1183 pC XL1°C6* FLAGS 4BES 1C6P 1BE6 1211 pc AL2 (STATWD) ADDRESS OF LAST PRINT CHARACTER
1B9D 15 1B9D 1188 DC IL1°21° LENGTH O19 1BE7 4000 1BE8 1212 SNSID DC XL2*a000° MZSSAGE IDENTIFICATION o
1B9E 1BCO 1B9F 1185 DC AL2 (TINODT) MESSAGE ADDRESS 1BE9 2C 00 1BF8 00 1213 SOVEBT SVC TSTBT+1(1) ,0(,XR2) SET MASK BIT IW TEST Si7S INSTRUCT.
1BAO AOBE 1BA1 1186 DC XL2"AOEE? HESSAGE ID IBEE 1C 13 1DCS 00 1218 MVC . STATPR(18) ,0(,XR1) SET MESSAGE IN PIELD
1BA2 CO 87 0222 1187 THALT B HALT TO DCP ERROR HALT 0:10 : 1215 Oo
1BA6 AOSE 1BA7 1188 pc XL2*a0cz° HALT ID 1B¥3 38 00 1A7A~ 1216 TSTBT TBN STATUS-1,%-* TEST CURRENT BIT FOR OB
1Ba8 CO 87 0000 1189 B 0 | 1BP7 CO 90 1C03 1277 BF STPSNS BYPASS PRINT IF OFF
1BAC EICIDSCSDGENE3G9O 1BCO 1190 TIKOUT DC CL21* TIMEOUT IN ROUTINE XX* o:'c ' 4218 Go
1BB4Y C9D540D9D6ESE3CY 1190 1BFB CO 87 0212 1219 B PRIET TO PRINT SHS WITHOUT HEADIEG
BBC DSC5S40E7E7 1190 eee 1BPF 01 1BFF 1220 pc XL1°01° FLAGS
0A03 1191 RPFX EQU X*A03* 6 °@ 1C00 12 1¢00 1221 DC IL1*°1B¢ LENGTH . G
‘ : 7 1€01 1DC6 1002 1222 DC. AL2(STATPR) _ ADDRESS OF LAST PRINT CHARACTER
: 1223
2 o | ©Q 1C03 3D 01 1BF8. 122% STPSKS CLI ‘TSTBT+1,X*O1* “HAS THE LAST BIT BEEN CHECKED? Oo |
} 1C0O7 F2 81 OA 1225 JE SEWSA IF YES, JUMP
Ss 1226
. o oOo 1COA E2 02 01 1227 LA 1(,XR2) ,XR2 STEP XR2 TO POINT TO NEXT MASK BIT Oo. |
1COD D2 01 12 -1228 SENSB LA 18(,XR1) ,XR1 STEP XR1 TO POINT TO NEXT MESSAGE ‘
ee 1C10 CO 87 1BE9 1229, B ‘SOVEBT GO TEST NEXT SENSE BIT
Go'19 1230 oat Oo
| 1¢1% 3D 80 1C08 1231 SENSA CLI STPSHS+1,X*80° ees
1€18 F2 81 1A 1232 JE PRTHEX . a
6:6 1C1B 3C 80 1C08 1233 EVI STPSHS+1,X°80° a
1C1F CO 87 1A68 12348 B SENSE 2
1¢23 03 1€23 1235 pC —.:sda&X24&L 1:03" Pi
Co { 8 -1C28 CO 87 O21E 1236 B UNPACK o
1C28 02 1€28 1237 DC XL1*02° .
1¢29 1A7B 1C2A 1238 pc AL2 (STATUS) |
O'16 1C2B 1C5D 1c2c 1239 pc AL2 (HEZSTA) a
1C2D C2 02 1D00 1240 LA STHASK,IR2
1¢31 CO 87 1C0D 1241 3 SENSB ans
0.0 1242 a
1¢35 CO 87 O21A 1243 PRTHEX B PRINT :
1€39 02 1039 1294 DC XL1°02¢ |
a ©) 1C3A 1D 1c3A 1245 pC ——sCWdIL9°298 D.
1C3B 1C5D . 1C3C 1246 DC AL2 (HEXSTA) |
1C3D CO 87 0000 1247 PRTEXT B *-* SUBROUTINE EXIT |
° | 0 1288 Oo:
| 1C41 E2E3C1E3E4Z240C2 1€55 1289 DC CL21"STATUS BYTES IN HEX,
*1C49 EBE3ICSE240C9DS40 1249 |
Oo © 1051 C8CSE76B40 1249 Oi
1C56 0900000000000000 1C5D 1250 HEXSTA DC XL8*O?
IC5E DSD640D6D7404040 IC6F 1251 STATWD DC CL18°HO OP * eke
Oo Oo 1C66 8040404040404040 1251 oS
1C6E 4040 1251
1C70 C9DSE3C5D9ESC5DS 1C81 1252 DC CLiI8*INTERVENTION REQD.° |
oO oo 1C78 E3C9D6D540D9C5D8 1252 0:
. 1C60 C44B 1252
1C82 D&C9IEZEZC9DS5SC7T4O 1€93 1253 Dc CL18°MISSING ADDR. MARK* pe
eo oO 1CBA C1ICUC4D9SBSODSC1 1253 te
DATE 13MAR70 = O6APR70 = 22HAT70—- O.119G70 PROG ID OAOA-2 ©O © vavE (13MAR70 OG6APR7G $$22mAY70 01AUG70 PROG ID oaoa-2.
EC NO. 571512 571516 571513 571531 PAGE 12 EC NO. 571512 571516 571513 571531 PAGE 12a
Qa oOo
8 98
cao edhe 2 tun tas tas
wd
wie eth ene An ta NT one a
wee nae ee ne RC NEG REGRESS Sy
IBS MAINTENANCE DIAGNOSTIC PROGRAS
AQA2
BRR LOC
1092
1c94%
1C9C
1CAS
1Ca6
ICAE
1CBS
1CB8
icco
1Cc8
ICCA
1CD2
ICDA
1CDC
ICEY
IC EC
ICEE
1C P6
ICFE
1D00
IDO
1D08
~ 1p0c
1D10
1D18
1D 18
IDIC
1D 20
1D28
1D27
1D2Cc
1D 31
1D34
1D37
1D3B
1D3P
1D42
Das
1D49
1D4D
ID4&E
IDF
1D50
1D51
1D52
4D53
1D54
1D55
1D56
1D57
DATE
ec NO.
SCAR
OBJECT CODE
D9D2
C5DBE4C9IDTDaCSDS
E340C3CB8CS5C3D24N0
8060
C&8C1TE3C140C3C8CS
C3D29090804 04080
&040
DSD640D9C5C3D6 D9
CY4UOCODEESDSC&SO
8040
E3D240C3D6D5C4Cc9
£3C9D6D54 0C3c8c5
C3D2
E2CSC5D240C3C8C§
CIDZ4ON0K OR OGOKOD
4040
ESDSE2C1C6C54040
4§04040404G08048080
&0480
80802010
08040201
ID4C
aDEcC
1Dac
19C2
ipac
34 08
35 01
35 02
36 02
34 02
3c 00 1D4D
C2 02 1DUE
75 01 01
2c 00. 1D32 00
2c 00 1D38 05
78 00 02
F2 90 08
3A 00 1DaD
3D 40 1D32__
F2 81 07
E2 02 01
CO 87 1D27
cO 87 0000
00
o4
08
10
20
40
01
02
O44
08
10
T3NABRT70
371512
PBQuat
ADDR
1cas
1CB7
1CED
1Crr
1D00
1D03
1D07
STAT
1253
1258
1258
1258
1255
1255
1255
1256
1256
1256
1257
1257
1257
1258
1258
1258
1259
1259
1259
1260
1261
1262
1263 ©
1264 ¢
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
STATB2
STBASK
SHIFT
BYCTBR
1276 TBH
1pD4D
ID4E
1ip4ar
1D50
1D51
1D52
1D53
1D58
1D55
1D56
1D57
_ O6APR70
571516
1282
1277
1278
1279
1280
1281
SBN.
1283 SHFEXT
1288
1285 CYLWO
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
SHPTBL
22m AY70
571513
oc
oc
bc
pc
bc
DC
EQU
poe
pc
SUBROU
ST
L
L
A
ST
AVI
LA
L
AYC
HYC
TBR
JF
SBN
CLI
JE
LA
5
B
pc
O1AUG70
571531
SOURCE STATEAERT
CL18* ZQUIPHENT CHECK
CLIB* DATA CHECK
CL18°NO RECORD FOUND
pee a ee a tee ee ae
PART £O.
PAGE 13
CL18*TK CONDITION CHECK®
*CL18*SEEK CHECK
CLIB*ONSAPE
s
XL4*°80402010'
XL4°08040201°
TINE TO SHIFT
SHPEXT¢3,ABR
SHFEXT+¢3,XR1
SHFEXT+3,XR2
TWO, XR2
SHPEXT+3,XR2
CYLNO,0O
SHPTBL,XR2
1(,XR1) ,XR1
TBN¢1(1) ,0(,XR2)
SBN+1(1) ,5(,XR2)
ee
e¢7
CYLNO, *-®
TBN41,x*90!
SHPEXT
1(,XR2) ,XR2
AVCTBN
¢-—% .
XL1°O?
XL1"08°
XL1*08°
XL1°108
XL1"208
XL1°40!
XL1°01°
XL1'02°
XL1°04°
XL1°08°
XL1°10°
BITS IN. CONTROL
“LOAD EXIT
FIELD
STORE ADDEFSS RECALL REGISTER
LOAD EXIT ADDRESS IN XR1
ATDORESS IN xXR2
INCREASE BY 2
STORE POR TRUE EXIT
ADDRESS
ZERO WORK AREA
LOAD ADDRESS OF SHIFT TABLE IW XR2
LOAD CONTROL FIELD ADDRESS IN XR1
INSERT CORRECT MASK FOR TEST BITS
INSERT CORRECT BITS FOR SET BITS
TEST ONE BIT FOR OW ,
JUSP IF OPP
SET ONE BIT ON I¥8
TEST FOR LAST BIT
DECINAL FIELD
JUAP TO EXIT IF ALL DONE
_ NOT DONE, STEP XR2
TO TEST HEXT BIT
Exit
PROG ID OAOA-2
PAGE 13
5129638
°22020000000000000000000000000
So
°206000000000808000'00000000000
TBe ee i ee ce
SN ee ne me es oe
IBA MAINTESAUNCE DIAGBOSTIC PROGRAS
ack2
ERR LOC
1D58
1D59
4ID5D
1D61
- 1D65
1D69
1D6D
1D71
1D75
1D7B
1D81
1D87
1D8D
1D93
1D99
1D9C
1DaAl
1DA6
IDAA
IDAB
1DB3
1DBS
1DC7
1EC7
DATE
Ec NO.
SCAN EQUAL
OBJECT CODE ADDR
00 1D58
36 08 163
38 08 1D7A
36 08 19C¢2
34 08 1D80
34 08 1D86
36 08 1263
34% 08 1DA9
Oc 01 1D8C 0000
Oc 01 1D9F 0000
0c 01 1D90 0000
Oc 00 1D58 0000
0% 20 0000 1DBa
OF 00 1D58 1463
F2 82 OA
06 20 0000 1DAA
CO 87 1D93
cO 87 0000
P1 1DAA
PIF2F3F8FSF6F7F8 1DBY
P9FO
1DC6
1DC7
1EC6
1EC7
1FC6
0003
0076
0001
0002
. 0008
0002
0003
00A6
00 a4
0080
0040
0208
020A
0212
0216
021A
021
0222
022A
00 3c
00 3P
OBF6
138AR70 O6APR70
571512 571516
Jeane
me
SN et ane NO a ee cee ee a eve ne
PART WO.
PAGE 13a
SUSROUTINE TO CONVERT A WUSBER TO DECIRAL
STHT SOURCE STATESENT
1298 ©
1299
1300 HXBYT oC XL1"O8
1301 CVD a OWE, ARR
1302 ST FROA¢S, ARR
1303 a TWO, ABR
1308 ST TYBOT¢5, ARR
1305 ST OTORZ+5, ARB
1306 a ONE, ABR
1307 ST TIXE+3, ARR
1308 FROM HVC FROBYT#5(2),*%-©
1309 TYBOT AVC TOBYT#3(2),%-
*1310 OTORZ HVC ZROTO+3(2),#-
*1311 FROBYT AVC HXBYT(1) ,*-* |
1312 ZROTO ZAZ *%-#(3),0NITS (1)
1312 DECGAN SLC HXBYT(i),ONE
1314 JL TIXE
1315 TOBYT AZ -* 13), DECONE (1)
1316 B DECGAS
1317 TIXE B +-e
1318 DECONE pc CLieqe
1319 UNITS DC CL10* 1234567890#
1319
1320 STATPR DS CL18
1321 WORK EQU) ¢
1322 DS CL256
1323 READ E£EQU-) ®
1324 DS CL256
1325. ,
1326 #1 EQU) = x*03"
1327 H2 EQU) =X" 76"
1328 xXR1 EQU O01
1329 xR2 EQU 02
1330 ARR EQU 08
1331 STATO? EQD x*02®
1332 STAT23 EGU x*03
*1333 CTRL QU xX*A6
*1334 DATA EQU xX*AQe ~
1335 BITO £QU x80" ~
1336 BIT1 EQU = xX*KOQt-
1337 SWITCH EQU x*208°
1338 SECTSW EQU. x*20~A°
1339 TEST EQU x*212
1340 LINK QU) xXx*2168
1341 PRINT EQU x*27A~°
1342 UNPACK EQU X*21E®
1343 HALT EQU x*222°
1384 LoaD EQU x*22~°
1345 HF ZOU) 0 x*3c?
1346 BA EQU X°3F
*1387 EMD BEGIN
22maX70 01A0G70
571513 571531
HALT DISPLAY 1
- HALT DISPLAY 2
HALT DISP
HALT DISPLAY A
ADD ONE TO GET FIPST PARAMETER
INSERT THE PROM ADDRESS
ADD TWO TO GET THE SECOND PARASETER
THSERT TRE TO ADDR
ADD OWZ FOR EXIT ADDRESS
STORE EXIT ADDRESS
PUT BYTE IW FORK
ZERO THE TO AREA
DECRFEMNENT THZ HEX
JUMP IF BELOW 1
INCREMENT THE DECIMAL COUNT
AREA
BYTE
Exit
LAY F
PROG ID
PAGE
OA0OA-2
13a
5129638
Soe eles We Ree ee Re eo
so tale ee
IBA SAINTEMANCE DIAGNOSTIC PROGRAS
PART KO. 5129638
. PAGE 18
AOA2 SCAR EQUAL
. CROSS- REP ERESCE
SYMBOL T LEN VALUE DEF REFERENCES
ADREXT A 008 1B6P 11648 1160
ABIVED A 023 1832 1060 1930 1080
ARB C 001 0008 1330 0025 0108 0981 1003 1075 1099 1195 126€ 1301* 1302 1303 1308
1305 1306% 1307
AOA R001 0000 0002
BEGIER aA 00% OBF6 0168 1347
BITO C01 0080 1335
BIT? Cc 001 0040 1336
BUSY A 008 1B8u 1176 1117
CCODE aA 001 IA7F 1087
CKSEEK A 003 1ACS 1311 1108
CTRL C601 OO0OA6 1333
CVD A008 1059 1301 0291 0434 066% 0682 0689 1028 1178
CYLNO A001 ID4D 1285 0292 0435 0665 0683 0690 1271¢ 1278
DATA C001 OOAS 1338 0986
DATEXT &A 008 194B 0998 0981* 0982 0984 0989
DATID1 a 002 1944 0995
DATPR1 A 083 1971 1058 0994
DCPF a 008 1488 1091
DCPFIY a GOS 1A87 1090
DECGAN A 006 1D93 72313 1316 :
DECONZ A 001 DAA 1318 1315
DPCR aA 002 1B7B 1171 1108 1113 1183 -
DPCRI A 002 1A8D 1092 , .
DFC3SV A001 1B76 1168 1120 1135% ;
DFDR a 002. 1B7D 1172 0269% 0812* 0513* 0607* 0630* 0760* 0872* 0938% 11148
DFPDRF a 002 1291 1098 ‘
DPDRI A 002 1A8PF 1093 .
DISKTP A 002 1879 1170 0141* 0147% 1107 oS
ERRORS A 006 CCBS 0225 0184 0256 0399 0500 0599 0748 0863 0930
ERRO2ZA A O37 OEFCE 0368 0293 0294* 0299
ERRO2B A 083 OFFS 0365 0317
ERRO2ZC A 005 OF31 0367 0345 7
ERRO2D a 015 OF74 0369 0328
ERRG2E A025 OFBE 0371 0358
ERRO2P A O83 OFES 0372 0307 0450 0902 0370
FRROJA A G40 1177 0473 0836 0837* 04842 0898 0962
ERRO3B A 028 1118 0471 0863
ERROSA A 083 1208 C6565 0539
ERROGB A 026 12F% 0567 05486
ERROAC A 081 135% 0569 0558
ERROSA A 019 #i&F2 0709 0657
ERROSB A 029 153A 0711 0666 0667* 0672
ERROSC A 035 157D 0713 0691. 0692* 0698
ERROSD A 032 155A 0712 0688 0685
EBROGA A 029 1770 0835 0785
ERRO6B A025 17BD 0837 0801
ERRO6C A 037 15D7 0716 0816
ERRO6D A 034% 162D 0718 0827 .
ERR1A A O08 OCF& 0227 0202
ERR1B A017 OD39 0229 0217
ETABLE A001 ‘4A7E 1085 0013
FIXED A 00% OBCB 0145 0180
FROBYT A 006 1D87 1311 73082
FROM A 006 1D75 1308 1302
FRSTPS A 001 1B7& 1166 0089* 10489* 1132 1137 11398
PEDSEK A003 BYE 11548 1148
HA C 001 O003F 1346
HALT C001 0222 1343 0125 0185 0208 0219 0257 0300 0309 0319 0330 0347 0359 04800
: 0443 O452 0465 0501 05480 0548 0560 0600 0658 067% 6700 0789
0788 O804 0818 0830 08648 6895 09048 0931 0963 0972 0996 1050
1187
HEXSTA A 008 1C5D 1250 1202 1239 12486
HF C 001 003C 1385
HXBYT A 007 1D58 1300 13131 13138
H1 C 00% 0003 1326
DATE 134 AR70 O6APR70 22NAY70 01AU0G70 PROG ID OAOA-2
EC KO. 571512 571516 571513 §71531 PAGE te
~ : 7 ? - : : os 7 28 3 nee os, s a a? tom ae of rate: Sates
~ +
Oo 68 9 O 0 oO 0 0 00 0 0 9 60 6 0 9 CG 9 8 09 89 89 8 8
©
Go Oo
-~
ere a ee ee ee a I ea te my ea ER Su tte ee
fee ee ess a ee
¢
IBM BAINTENANCE DIAGHOSTIC PROGRAM PART NO. 5129639
PAGE 148A
6
AOA2 SCAR EQUAL
| 9 CROSS- REP ERENCE
3° SYMBOL T LEW VALGE DEF REFERENCES
H2 C 001 0076 1327
IDFLD A 003 1986 1022 1015 1018 1029
© I8VFLG aA 019 0B24 0108 9122
LASTAD A 001 1375 1167 1182® 1146 1150 1156 11634
LDPFCR A008 ACB 1113 00548* 6058¢ 0066 0067 0068 0069 0070 0071 0072 0073 1168
© wprpk a 008’ ACF 1118 0066
*LINK C001 0216 1380 0 1>~
LOAD C001 022A 13846 0051
‘© MOVEBT A 005 1BE9 1213 1229
MVCTBH A005 1D27 1278 1282
NEG1 a 002 1881 1178 1176
© NOSEEK A 003 1B5F 1159 1147
NOUNIT A026 OBOS 0092 00468
ONE A001 1A63 1072 1301 1306 1313
© oONESEC A 002 19C& 1056 0625 0703
OTORZ A 006 1D81 1310 1305
*PASS 2&8 001 0B11 0103 0109 0111* 0153* 1047%
© priest C001 021A 1381 0045 0081 0085 0119 01817 0199 021% 0252 0296 .0308 ©6314 0325
0342 0355 0396 0439 04847 O860 0897 J536 0543 0555 0596 0658
0669 069% 0745 0782 0798 0812 0824 0860 0899 0927 0967 0991
° 1031 1037 1042 1182 1208 1219 1243
PRTEXT A008 1C3D 1247 1195# :
PRTHEX A 004 1€35 1243 1232
© PRTSNS a 008 18C1 1195 0180 0252 0295 0353 0395 0838 0896 0535 0595 0653 0788 0859
| 0891 0926 0959 :
PRTSPH A 00% OAD 0081 0079
i QO Qcope 2001 TA7E 1086
. RDDFC A001 ASF 1068 0173* 0177 0189* 0190* 0195
' READ A 001 EC? 1323 0628 0629
© REMVDS A 001 OBO0K 0095 —0033* 0062* 0136
| RLDFCR A 008% 1B2B 1143 0072
ROUTRO A 001° 1A92 17095
© eprx c¢ 001 Oa03 1191 1179
RSIO A003 1B2F 1148 0073* 1106* 1110%
RTN1 A901 OBF2 01648 0012
© RTN1A A008 OBFE 0170 0222
RTN1A1 A 008 0C32 0188 0178
RTNIA2 A 004% OC5& 0199 0196
© RTN1B A 00% OC68 0207 0198
RTRI1C A 00% OC80 0222 0212 .
-. BTN2 A001 OD3A 0235 0166
© RTN2A A008 ODS6 0241 0359 0361
RTN2A1 A 004 OD7A 0250 0250
RTN2B A 008 OD7E 0262
© ~~ atn2B1 4 004% ODAC 0279 0275 ee
| RTN2B2 A 004 ODEC 0304 ~ 0286
RTN2C A OCH’ ODCS 0289 .
© =e etN2C1 aA 004 ODFC 0312 0287 0302 we
RTN2C2 A 004 0£13 0322 0313 a :
RTN2D A 008% OE2A 0333 0328. a
© eRtTn2E aA 008 OELB 0342 0335 -
RTN2PF A003 OF2E 0334 0340 -
RTN2G A008 OFS5S8 0350 0339
© RTN3 A001 OFEA 0378 0237 3
RTN3A A OOU OFF6 0384 0468 :
RTN3A1 A 004 102A 0803 0393 2
© eTrx3B a 004% 102E 04805 oe
RTN3B1 A 008 105C 0822 0418
RTN3B2 A 00% 109C 0487 0829
€ RTN3C A008 1074 0832
RTN3C1 A 004. 70AC 0455 0430 O4845 2
RTNID A 008 10C8 0468 0459 ;
€& RING aA 001 1178 04879 0380 ©
RTNGA A 002 1188 0485 0563
RTNGA? A 00% 1188 0504 04948
© RTNSB A 008% 11BC 0506 Q
© DATE 13MAR70 O6 APR7O 22MAY70 01A0G70 PROG ID OAOA-2 ie
EC WO. 571512 571516 571513 571531 PAGE 14, ie
0 ‘OQ
SfiStnd Gaiam Seat GMs: Se, Seen Sie Ree Fane - 7 2 7 ae poe Sere Ge See ty FSP es le : se naoe, Siete J See ath ahead sh Bei tee Se -t's Ld z Ae be eee
a pcg ctly ee Bnet teat tee machen EB m sits Site Dost Bmeetiatts SEs Ce Re | a Raat aaa :
eeoeeeneveevoeenoeeeoeneee 8600066008888 8688 ®@
“~
cy
Go G
IBA HAINTENABCE DIAGNOSTIC PROGRAS PART BO. 5129638 IBM MAINTERANCE DIAGNOSTIC PROGRAR PART NO. 51429628
PAGE 15 PAGE 15a
GS oO
a0a2 SCAN EQODAL AOA2 SCAN EQUAL
CROSS- REF ERENCE o 6 CROSS-REFEREWCE .
SYMBOL -T LER VALUZ DEFS REFEREBCES S:-6 SYMBOL T LEN YALDE DEP REFERENCES
RTNSB1 A 00% 11EA 0523 0519 SETSPK A 006 0OB71 0113 0110
RTNGB2 & 008 +1218 0543 0533 SETSW A001 OBOS 0096 0026 0089% 0155* 0168 0239 0382 04883 0581 0730 0887 0915 10a88¢
RTNSC A 0048 1208 0535 © OG — serxr2 & 002 1479 1081 1099* 1100 1122
RTKSC1 A008 122A 0551 0532 SHFEXT A 004 1D&89 1283 1266*% 1267 1268 1270¢ 1280
RTRSD & 008 1246 0563 0554 SHPTBL A 001 DME 1287 1272
RTNS &€ 001 1352 0577 0481 © © _ sairt a 008 1D08 1266 0289 0832 0662 0680 0687
RTRSA A 008 1352 0583 0705 SIO kA 003 IAD? 11716 0067*% 1102* 1103% 1105¢ 11099
RTNSA1 &€ 008 1392 0603 0593 . SIXSIX A 002 1883 1175
RTNSB & 008 1398 0606 0706 oO: 6 SKTSTA A 008 1953 1008 1008
RTNSB1 A 008 13B6 0616 0626 ; SNS A008 1471 1078 0071¢ 1077%
RT"582 & 004 13CE 0623 0619 SESID A 002 BEB 1212 0172* 0284%% 0265% 0279% 0352*% 0387% O808* 0422% 0488* 0509 0523¢ 0587¢
RTHSC A008 13DP 0628 0624 Cc Cc 0644*% 0736* 0852% 0882* 0919 09469
RTHSD A&A 008 1809 06482 0638 SNSXR2 A 002 1A7D 1083 0337* 0338 1075* 1076
RTWSD1 BONN 183B 0662 0650 SNSO1 A 002 1481 1088
RTKSE A 006 185D 0677 0651 0660 © © sns23 aA 002 1383 1089
RTNSP aA 006 189R 0703 0679 SPHDLA A 001 OBOB 0098 0058
RTNSG &€ 0048 18A8 0705 ; SPNDLB A 001 OBOC 0099 0058
BTN& & 001 162B 0726 0579 O eo SPNMSG A024 O8B3C 0105 0055* 0059* 0088
RTKRGh & 004 163A 0732 0832 : STATB2 A018 ‘CFF 1259
RTX6A1 A 008 166B 07582 0742 STATPR A018 1DC& 1320 121&8* 1222
RTX6B A OOS 1672 0758: GS STATUS A 002 1A7B 14082 0078 0171% 0210 04858 0553 679% 0988 1007 1009 1078* 1201 1216
RTKS51 A 008 169C 0770 0766 : 1238
RTN652 2004 16BC 782° 0778 STATWD A018 1C6F 1251. 1205 121%
RTX5C £2008 16CC 0791 0780 QQ 6 STATO? C 001 0002 1331 0208 0456 0552 0792 1005 11979
RTN6D A 00G 16£8 0807 0796 STAT23 C 001 0603 1332 :
BTK6R A O00OG 1708S 0821 0871 STHASK A001 1D00 1260 1206 1280
RTS6P A& 004 171C 0832 0823 Go a STPSNS A 004% 1C03 1226 1204* 1217 1231 12338
RTS7 .2 001 178E 08483 0728 ~ STRTIO A 008 14393 1099 017% 0192 0246 0271 0282 0389 041% 0425 0890 0515 0528 0589
RTK7A AGO& 17CA 0849 0906 0615 0638 0686 0738 0762 0778 0853 0874 0884 0920 0939 0952
BTR7A1 A 008: 17FE 0866 0857 9 Oo 1012 :
RTX7B A O08 1802 0867 SWITCH C 001 0208 1337 00348 0038
ETX7B1 A 00%. 182cC 0882 0878 TBE A 003 1031 1276 1274* 1279
[TTNTB2 A 004 1856 0899 0888 : “OO © west C001 0212 1339 0127
RTR7C1 A 00% 1866 0906 0889 0897 THALT a 008 1BA2 1187
RTNS A O01 186A 0911 084s TIMOUT A021 1BCO 1196 1180 1181* 1185
RTXS8A A008 1876 0917 0975 Oo ¢ TIXE aA O0O&8 1DA6 1317 1307® 1314
RTN8A1 A 00S 18A4 0933 0928 TOBYT A 006 1D9C 1315. 1309%
RTKSB A 09% 18A8 0938 TRACK# A001 OBOA 0097 0077* 0080* 0173 0242 0385 0886 0585 0734 0850 1018
BTN€R1 A 00% 18D2 0946 0983 Cc Cc TSTBT A004 IBF3 1216 1213* 1228
RTNAB2 A 004 1906 0967 0956 TSTDAT A 00% 191A 0981 0807
RT¥8C1 A 00% 1916 0975 0957 0965 TSTERR A 003 AF 1123 0069* 1119
RUNFIX A 001 OBOE 0101 0113 0138* 0185 01488) GQ © TSTExt A008 OBDA 0150 0108* 0143
RUXRAV A001 OBOD 0100 0132* 0139 0142¢ TSTPIa2 A 008 OBA? 01348 0131
SAVS¥ A 001 1B77 1169 1101* 11718 11358% 7 TSTHAV A008 OB9C 0130 0118
SBE A 904 1D27 1278 1275* © G TSTSCN 2 003 IAPS 1128 0070* :
SCRCH A 901 1B73 1165 1150% 1151% 1155% 1156% 1162 _$STSEC A001 157E 0714 0695* 0632 O0€52 0677 0688 0703* 0708
SECNSG A 038 OBSE 0106 0084 TSTSEK A008 194F 1003 0188 0260 0803 0508 06603 0752 0866 0933
SECTSW C 001 O20A 1338 0117 0130 0134 G oOo TSTSPN A COU OBSF 0108 0170 0291 0384 0885 0583 0732 0849 0917
SEEKER hk 003 1987 1028 1010 1019 TSTSZ A OOS OB7D 0117 0112 0128
SEEXID h 002 1998 1035 TSTTP A OOS AAE 1105
SEKER1 A 042 1A1B 1059 1034: eC ¢ TWO A002 19¢2 1055 0984 1269 1303
SEX=R2 A O40 ASA 1061 1085 TWOZB A002 OB10 0102 0050 0113 0190 0528
SEKEXT A 008 1980 1021 1003% TYBUT A006 1D7B 1309 130u¢
SENSA A 0O& 1014 1231 1225 Cc © UDTPTR A 002 OBO? 0093 0028 0031* 0032 00507 0065
*SEXSB A 003 COD 1228 1241 OPIND? A 00% OA28 0C32 0029
SENSE aA 00% J¢A6& 1075 007% 0207 0455 0551 0791 0985 1008 1196 12348 UPIND2 A 008 OA20 0031 0038
SETA a 006 OCA68 0058 0037 oO 8 UNITS A010 DBS 1319 1312
SETADA A 005 1B32 1146 1138 UNPACK C 001 O21E 1382 1199 1236
SETADB A O0GS 1B65 1162 1152 1157 UTAB C001 0232 0094 0030
SETADR A 003 AFA 1130 1112 C @G WAIT A 008 JADA 1117 0068* 1177
SETB A006 OA7S 0058 0041 WORK A001 DC? 1321 0262* 0263 0263* 0268 0333 O8CS* 0406 O406* 0411 0506¢ 0507 0507%
SETBTH A 003 OA89 0064 0056 0061 0512 ©526* 0606 0609% 06170 0610* 0611 0611* 0758* 0755 0755* 6759
SETDSK & 004 OAOD 0025 0169 02480 0383 O884 0582 0731 0888 0916 © oO 0770* 0808 0867* 0868 0868* 0871 0934* 0935 0935* 0937 0948+ 0949
SETEXT a2 004 OAE8 0090 0025* 0949* 1057 1172
SETPIX A 008 ABD 1109 WORK? a 002 19C0 1054 0983* 0988
SETRAVY A 008% OBB9 0139 0115 0135 0137 CG O WORK2 A 002 19C6 1057 0338
DATE 13MAR70 O6APR70 22MAY70 01A0G70 PROG ID OA0A-2 oe 66 DATE 138ABR70 O6APR70 22mAY70 01A0G70 PROG ID OAOA-2
EC WO. 571512 571516 571513 571531 PAGE 15 EC NO. 571512 571516 571513 571531 PAGE 15a
Qo 9g
ISS SAINTENANCE DIAGNOSTIC PROGRAS
AOa2
SYMBOL T
WRTDSC A
WRTERZ A
mi
xR2 OC
XRQ2WK A
ZROCTR A
ZROTO A
SCAN
LEN VALUE
001 1a5B
003 OESC
001 0001
001 0002
002 1B7F
00% OBDE
006 1D8D
ZQuatl
DEFER
1063
0352
1328
1329
1173
0152
1312
REPEREECES
02426
0392
0531
06424
0777
0936
0277
0030
0268%
oB71¢
1228
0333
1120
1146
12408
4133
0178
13308
02438
o409¢
0585
0643
0810
0942
0420
0031
0269
0872
1267
*0334
1721
1149
1268
1134
0146
CROSS~REFEREICE
TOTAL STATEMENTS FLAGGED IN THIS ASSESBLY =
DATE
b
13MNAB70
571512
O6APR70
571516
22NAY70
571513
02469 0266*% 0278
0817 O823¢ 0428
0586* 0592 0612%
0649 0677 0681
0821 0850¢ 0851%
09512 0955
0521 0621 0640
0032¢ 0036 0C40
0411% 0412 05126
0937¢ 0938 1076%
1273 1273% 1276
0336 0336% 0337
1122 1123 11248
7154 #7158 1155
1269* 1270 1272
*01AUG70
571531
0280«
04833
0614%
073 4
*C856
0768
0042
0513
1077
098 2%
4125
1159
1274
0285
042864
0618
0735%
0869
0880
0043
0606
*1079
0983
1130
1162
1275
0290
O487
*0623
0741
0877
0945
00438
0607
1115
*1100#
1133
1163
1281
0312
0493
0625
C757
*0883
0060
06296
1176%
1102
11344
1206
12814%
0322
0510
*0631
0765
0887
0064
0630
1205%
1103
1135
1213
PART HO.
PAGE
0385* 03864
0518 05248
0632* 0637
O771* O772¢
0918* 0923
0064* 0065
0759* 0760
1274 1228
1708 11711
1140 «61141
1227 1227
*PROG ID
PAGE
5129638
16
OADA-2
16
Oo 9 89 080 8 8 6
QO
O @8 ©
QO Oo
O 8 9 ©
t
2 0 0 0 000
2 0° 080 G6 60 6 9 9 9 © 808 86 8 0 6G 8G
ne TY A ST NRE cette cetera <n se oe ens een omen
°o 00 0Q-
Oo G&G @
oO
e2 02 0 0 90 83 9
TIEN EAINTERANCE DIAGNOSTIC PROGRAR
AOA2 SCAR
THE CHARECTE2
CL 1 THROUGH 16
T+-Y:YHR & B"H
19-25 -22D RX C
T+-DO a,<B008a-%
T+-,,%/,<B_ $.A,
T+-ZH0) [LE+LN23 |
T+-_/99CT1;.72) P
T+->*7L4 B1G2 &
*T+-2PA Has DIL
T#+-OKBO# /O0 { &-
T+-1(00 FY" 00
T+-2HCEC /01D0H
*T¢-3C6*P¥2) SUBUC
T+-3=9+.15%) ONC
T+-499 (PDE (POBSC
aeseu S iGae BOs
T+-62/0HSY X/1¥
T+-7D] EPSBGFZ<
T+-8V"<BG /, PHO"
T+-9- SH-N<HBS*;
T+-:$/17A0H*BF-R
T+-#06<1L02) PGE<E
DATE
EC WO.
+ 3HAR70
571512
EQUAL
OBJECT CARD LISTING
PART HO.
PAGE
INDICATES BA BLANK COLUMN AED THE CHARACTERS D E B INDICATE NUMERIC SHIFT.
CL 17 THROUGH 32 CL 33 THROUGH && CL 49 THROUGH 68 CL 65 THROUGH 30
BAD 6 CeHB> Ra" 0%
2-K'8D GK 6] UY
@; DBaZ DI1a.B(R
<B $<A,<OH*ER B
SECTAS*E OS PESAC
GECLI8_I 1(X19#H
a" O%IaY *<cE D.C-%
-CL-B -,2D %*"0%
B 30 BIG SHO}
20H*<H<BGFaG /0H
BF&Q@C} K-M<BG SH
E6) XO6;I 5%1C9(X
N5_N 1;>I8>1A53 (
S13( 0>/ ONCcS0aG
-&Y(O0H*. P00 FVO
i} 3 1-3=G2M31TO
C AZSOE* (#<BGC~3
ZYES /OHSYEQ*"1Z
* ¢€2 JLS -Da /2Z
HC#*# /OHSYA. /05
8%; ASMCEG6+LAG4&C
O6APR70
571516
22mAY70
571513
T/6 .AMHABCHA TH
-OH*BF-QEBONa &
A 36AB0*H A,SPXO
@20%H+ -E;"HEACI
T1;.TI*E HB
"98. E1aINE+.C0) N
& aYEUaY*a+ OBB?E
HaYDD| }@.CTS BO?
-B*BG A 4:46
EATHC><BG SH-B*B
~HCBGPWEB+ SE; 7H
R1*3 ORTINAN BXP
” BRPC8* SRE<XDECL
NE<PQ9<GLE<j05 (L
.BTO FY4aBJ7Y0H
*KP=-a@ AZ;0-D) 136
pasneue Asien
; @YDE0H*BP&O,C2W
*CEDE+JXF@YDH OH
*FB@TEG (~R1;PI5>L
C5_LMO0) PD&+LS 2) P
01A0G70
571531
4 &%G(ED.A30 BO-
IC D.AOSE0H*BH-A
H A,QFSOH A,SPXO
X80, /OHE KH.PSB
0 CI5; PAGAX
1) TUO) ( 1>LNO=}
GP<BG /,FDOXUY],
2-6%@ A_9| .C>H
-B*BAB-7 /0_~|
grag" 1z-c’ DEQ-s
ED<BG /,FIENSYEG
EGSXNIGCT2CN OON
I1DCNS> ( 1axV1NC
AS*3 94.15%) ONC
sae eas’ pekeous
AF77 /1DL - £0@B
+371 C%3 /12A0H®
-N@BG SH-N34 FV7
+.2BG /,F+ O1YEP
SE<PR6) $SRBOCH1I) X
GE<TEO*J @F_ 8%P
8 -H.as PAE ayD
"BES S.14D.858
HA, 2PSOH A, SPRO
G /YFP %8} $)<B
D&+.S9UCS1;3 172) P
15_§ 8aPSB4CAa<D
/OHSY], /OHKOH*®
GC34 BO#2-50aBA__
- E;TOIF=-< Az-BO,
&0R*EUO< FY" /01
/OHSYEG /02=8aT
O=TL8S| ASMCEG64L
E6) X06) POS (XE04
S1#|T5_V 23 S&B
(E<BGFaG /OHEATH
GCE3 /06YOR*+PC1
BP-RRCS# /OHSYE.
2-JC /OHE1U<{ ) BA
" /OHSYEP /O5F{ AH
EG (-R13-E5;( 0*S
C8*$RE+-XBRPCB°S
312963
168
CL 81 THROUGH 96
2?¢ DBD ~1CA0KR 20001
GE - 2/6€80820062
H AY *3HAOA20003
G 83R8AGA20008
65)Q 92000820005
3B % 9H A0A20006
e7L- 9C*A0A20007
9} SYBALA200GB
7VT LIOAOA2Z0GO9
HOH® JTHAOA20010
EE(* OB AOAZ0011
YT
“4_Q@ 31DA0A20013
”4%0 @-HA0A200148
<>< "1400820015
KF=- $06A0A20016
"70% E9¢A0A20017
HOH® *00A0A20018
$:< $,&A0A20019
T1)0 0-4a0a20020
RE<< ":DA0A20021
PROG ID OaoA-2
PAGE
16a
NZ AOA20012
Me, ae
= © & . & @ re oe wei @ S ® vom @ eo ee. o- eo inthe e@ ra @ « _@ Pe e@ sscits & es @ ve @ via tae @ a e oe @ _|g mee S | : bee e : St ee Rl me ER ei ae ke et a eo tes ee
: 7 : s
uw | @
IBA MAISTEMANCE DIAGNOSTIC PROGRAS ~ PART HO. 5129638 IBA SAINTEWANCE DIAGNOSTIC PROGRAS PART NO. 5129638
35 PAGE 17 PAGE T7A
ee o ea ‘
ada2 SCAN EQUAL AOA2 SCAN EQUAL
S OBJECT CARD LISTING Qo Oo OBJECT CARD LISTING
_ CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 4 es CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL %9 THROUGH 6&4 CL 65 THROUGH 80 CL &1 THROUGH 96
e
: T+-BIS>LNSOPRECX NE<JOSs{ RS_( 18X E49I 5) $TE+.T1)> PI*LSOA@GHE<S$I1) | DECSABUCAS=|E6*P DECD RK*A0A20022 C G_ tevetr74¥a az3c EPSH=OH*EDOH FV? /16IOH*MA*BGCVO @FAZ;|_ EPLIKP=T /1DL 0 EO@BGEC? "18 7Z%A0K20088
Te¢-"<1D>P EGNCG2;P 15%) ONCSO@GNS<P Q9<GLE<jO5S(LA5*L HI*GDEEA SSPCB'$ REX.YSaN SkR O'S WE'D 71 AOA2Z0023 © © +/3;P*BGFaG /OH EAU*HAZBG SH-M%B GEE7 /14HEP3 /15 RGRUNCC1 EX@ /OH F10-N+DAOOH®BADA OC& *$820K25085
:
T¢-=G5_( IRXE49I O@TAS*>£1DCA1>$ EGACAG(SHIACS1*] TS _V SKIAS;}HIBC P6*PY2)SUSUCE6)X 06;H 4QUA0A20028 © © Te/KRPV4N-7HA(<B GGE-EO@BGGHU)LIW ED NO<BUGE-N~<R GGNU)LIN*{ D N3@B G /,P618°YE3 /OH SYEO 63MA0A20046
!
T+-"BE(SCO=LR6%P DE+$H2) [EE<LO2)P GE<E 9_XISBON 1<G TONCCS_LNO)PDE+L $2) PGE<TEO*J |+. CO)M 4:¥A0A20025 © © Te/Lec- H~/XD]0 N-SBADS# /14EB89T EE(+R1;PIS>LS&<P R6)SRBUCWI) XEG(+> R1IZ-£5;( 0*$T1)¥ 1(Q @XUAOA20007
Te-"*6¢$09 (PDE(P O84CS1;( 0) PDE(S RBE<XLES@PCBIPDE<. YE<E BAXO 0 J;C& BOX -SY(OH*.P00 FVO RIE&A0A20026 © © Tem, 2) PGE<E 8%) ASHCEG+LAGUCOIDC 2°DCS1#]T5_XS8%] ASMCEG+LAGUCNS>( SNPTEXGFB8APREXE a76 |RQAOA20088
T+/ SBOYa AZ)j U $:<BGFZ< AZSOH® GHABGDAT /17A0H* BP-O5C.T /OHSY X /1V]] ;1-3=GSM 3170 BAYAOA20027 C CC T+/NHE+. B0=]06NC SOSGNEDCW2<PRINC S1*{ TS_V 5)R.&+> XE+SASUCE6+LAY=. CO)N 1)TUC)( SK} C9(D 08-A0K20089
T¢/A3D/7Y] EPSH, AGS*4 J "OH*EUOH FV? /1A*0H*60<B GCVO@N/?7Y{ EP%B GPZ<C AZSOH*EX<B GDHO ;.MA0A20028 CG © = T+/0E6*PDE<GTE+. EO=|O6NCIS6_ BKT O9(1DE<XTAI*N 5K] CI(XRI*JT 0; ( BRP CB'SRESX ¢.20=} O6N PECAOA20050
T+/B>OH*) BAZSOH® )OJS(DP*aGAESOH*® S$O*BG /YFPAE7OH*® BHDAKOH*E,<BG /, FHO"ZYES /OHSYr$ /1Y :C-A0A20029 © © %+/P 0*$US5;,E6NC I5MCC5S_PT6) SLEC$ 11)1DE(POBUCSBAP PS@PDE<{ 0O6) XEO=} L:DCA1>JE6MCAE+. CO)M 2$2A0A20051
T+/CZR H8-AZ@9/ 9 GOH*BFSBEDI>-NAB G SH-N@BGC"$S0@G NE<PQSXGLE+.E5;. EE<.186_ L*.184C O&<H 73840420030 © O _ TesPpe&<PQ9<GLE(~ A8>( 1) PDE(SFE<| Y4S?HI*GDEEA BSP CB'SRE<X.YSAN SSR O'SNB*XOUUCF2*P LID J1MA0A20052
T+/DUZ+}EE{ E) ESC NS>( S_N O*ST1)V 1($I5*) OMCOS*N BEPCB'SRE+.CO)H 1)TU0)|T2<N S*X E9*0 3,DA0A20031 © OO T47Q60aTAS*+EIDC AI>PEGMCAE}]I BNP CB'$RE*+.CO)N 1)T U0) ( O3( 1) PDE(S FE<{ YSSSF AS=]E ~.B* "“I*A0A20053
: 3 , . « . x _ ee ° . e . &
T+/E+5>LSE<SPR6)$ RBUCW2Z<PRINCP6*P S1)PTEXGFS8@PRE<L 02) PGE<E SKJASMC EG+LASUCCS@PRO;} I5_M =--A0A20032 QO © +/R1-6Y(0H*.P00 FVO.BT3*FVS9BJ? YOH*E00 FV? /1R >OH*OP<BGFA@G /OH EATA<><BG SH-B*B GYMS 00420420058
T+/PEE*#$I83/ 0O)N 1)TUO)( O'SNIKX 1T2)S$NA LMTS BOX -EY(OH*.POO FVYO .BTO PY4@BI?7YOH* EDO )9DA0A20033 © © _ T4+/ES} 31-3=GKM 3170 FV#B J7G( D $~*BGFZ<B AZSOH* OX<BGEZT /09*}HY ) 130APV8@7AZ) OH® EUO< :H6&A0A20055
T+/GN AZSOH®J><B GDES /1?AQH*BF-Q SC.T /OHSY X /1¥ |] 3¢1-3=GEN;1T0 KP=-a AZ;0-D)13& AF74 BE. AO0A20034 © © Te/$x az$OH*0?7<B GE,T /1S<OH*BFR&R JE7B-P*BG SH-P*B GFWEB¢B E;"HED<B G /,FLI;"YE@ /OH SYE8 0Z3A0A20056
T¢/HEOH*EUOH PY? /1GDOH*J9RBGCVO @OA?7YC DEP-%6&118 ;H@BGFZ<C AZ$OH* KHXBGD/, /127A0H* BP-Q 386A0A20035 © © T+/*SOH*RP/7G{ & EP?HAD<BG /,POJP PYE}] /OHSYE<'7AZ )@YDSOH*BF&ROES6 -P@OBG SH-P@BGET, AE*< 20 ADA20057
T¢/I-PIHYOH*BHDA QOH*BPR&R<CD?K-O%B G SH-O*BGFWEB+OH Es"HED<BG /,FPJ( JYE, /OHSYE, /1F D8a- 6.0A0A20036 O © _ tes)) 13.76<¥/50C OSHCE6) XOSNCD2*J 5) STE<.RO)PCZDC AI>|EGHCAB=[E5(~> 12) PGE*{ OE+.CO)H 1)- ¢,DA0A20058
T+/HFIMCP6*PV2)$ UOSUCE6) X06;I 9%&P RISCP6*PS1)PTE<G FSAPRE<XLO2) PGEXE Bh, A5SMCE6+LASUC W2<H KH%A0A20037 G CC re73Q9<GLe(.a8>( 1) PDE (SFEC{ YSGP KIDCOWCC?((.6+. E5;.EE<.IB8UCNS>( SNPTE<GP8APRE<G TB8AM 9:-A0A20059
T¢+/.A69N SOTEG*N 2) HN 5) STEXGNEXP Q9<GLE<}OS*LIBAX 05;.C0)N 1_$U5*J O°'$H1<KXT2)$NEXL ESM ETXAOA2N038B O Co resat5 (+72) PGE+] 08+.CO)¥ 1700) ( SaGS84CE5*3 S%R O=TLKO* FPY* %& IOHDHC*8GB5a< AZ *BOY @YEA0A20060
T¢/.a0={ EIDCB:DC AG+|ISUCH2CPNE¢] H1)XEE*SABUCNHS>( 0)N 1)TU0) ( O'S B1XXT2)SNBS{ 25NC E6+E MOBA0A20039 QO G res-+; EpLorr=T /1DL YEO@BGE"@ /1>0H*SO*BG /Y F(S280H*BHD IOH* RL31NGZO<"/#EGKQ @ AY 88YA0A20061
T+/<70) ( BRPNSEN ONITEGALO>TTIMC 16<.IB4COPO. S_N O*$T1)V 1(SI5*) ONCSUAGNE<PQ9<G LE+Q "K AOA20040 QO © T4//IPSHAG**4 J_ ‘OH*EUOH FV? /1- SOH*QH<BGCVOaN/? Y{ EPKBGPZ<C AZ SOH*QNSBGFPS /12 AAVO 7BHAQA20062
T¢/(22<PRIMCT2<P RIMCISUCNS>( 0)N 1)TU0)<E AQ>IG ~B*BAB-7 /0_-~C EP SH] EPLOIF=T /1¥ JAYAOA20041 © © teysppp> /OHSYE. /1/WOH*BP%Q,C=W -N%BG SH-NXBGEQY #H I""|& .B*BAB-7 /0_~] EPLOIF=T /1Y 1 DAOA20063
T¢/+_00 FV? /1# KOH*L-<BGP@G /OH EATN<><BG SH-B*B GFN@@ AN=0-D)136 AP7S@ A" PFCJA-10" FC}S ;YYA0A20042 © © tess"u0 Fv? /1S UOH*QUKBGF@G /OH EATM<><BG SH-B*B GPM@3 ASPC18;19@ P| EPSHAG#*8 J_ ‘OR* ;Q@A0A20068
T¢/|YGRN;1T0 FVS @ AZ;OH*EUOH PV? /1)+0H*L2RBGCVG 'PAZ)@YDEC- EPJX DOH*L_T2DG273 J# G( D *T4A0A20043 © ©) TeysT:PZ<B AZSOH*® QUKBGF<# .09*{ EH $:C3"SGEN<"J#DGEM @ AZ;OH*EUO<K PV? /1UPOH*REXBGF@D PPAD "&*A0A20065
~ DATE 13NAR70 O6APR70 22MAY70 01A0G70 PROG ID OAQA-2 © €) pare 138AR70 O6APR70 22MAY70 01A0G70 PROG ID OAOA-2
EC NO. 571512 571516 §71513 571531 PAGE 17 EC WO. 571512 571516 571513 571531 PAGE 17—
‘ 0 )}9°
IBM MAINTENANCE DIAGHOSTIC PROGRAS
AOA2 SCaus
CL 1 THROUGH 16
1+/05) @BG SH-ASB
oanesesde Joe
T+/8,FP] /1V7CE.
T+/XWDLO BGUa A_
1+/Y/6) XE0=( 9%G
T+/Z* 1DCABUCC: ((
t+ybettS*«CU
T+/,K /Z9|_ $)2-
Deine
T+/_H A_6 33"P7
*T+/>C*0G2/1;: EH
T+/>= (-D$-*BDF_,
T+/799=*4BA1 OH
*T+/04 @BG /YAD/7
T+/ 170H*BF-H) GE?
T+/2D2) PT1) XV1)P
T+/3VO@TEO'I &DA
T+/4-6DA EDA EDC
T+/5$ /5+) EDA.
T+/60Q36HGPY6BAX
TGJ 64FR] 2--YFH
EBV R* E7*=~DC"PH$
— eS OS wm we we oe ee em oe ee oe ew ee ee ee ew wo
DATE
EC NO.
13MAR70
571512
BQOGUatlL
Cl. 17 THROUGH 32
GPJS /OHE1S%{ :EA
E1S&R3E =OH*BRD
R/E%H@-DGOH®
eeeoe
SOH*BHD sOH®
L9<PE6) xO6#CO0a]
o& (POKYCX9= 729 (N
HPXS5 JZ'F <Es-
CF_- . E6ED% J_
SFOE'™1_7a-D<T
' A_&a-DN] DS).
% A_3 6a FICS) =H
“/15RB~<$0C1 FHS
ER . /OH: /Z#GEU
FIEDS*|HAB>HB )H
"70 8>|AB=LSEC.
T2) SNE (XE6<I.5<x
"EDA &(POE(XEO'S
US;.A1KN SDA EDA
)<- § AUBAP- 27H
B( -)-C&HGQQ6BAZ
*
GE, /16L0H* 46
O6APR70
571516
22RAY79
571513
ee Net ee ee ae ee wre ee ieee Lee eee ai wee ee SE tein eye Ree ee
OBJTCT CARD LISTING
CL 33 THROUGH 48
OOH*BuPAOOH*Q) TE
=OH® CEHFQ] /12
<BGG BUR/JY20H®
H AAFP 1<GTOBC
U6) XEIDCW2<XL18C
B2ZPEVUCT1; .TE&+.
eseneece
O AZ#4HA
# 3%HP_-@BAR9+5-
-CF7E@ &HS /Z98E
A 3" 30 PTNIZ/_
GA,O. “HGBYO 1_
” /oxe1/ns ols one
2" s000-pesausccc
ADSBGF=U'-aCDayD
Y8SOPSECXNECTEIG_
S8RXNTECAICLEKSC
RIDCFS>LNIDA 64}
“SDA EDB EB EB E
EACY GN4*EAN2AYD
T( -) DEOAGQO 0
19? | 4*~$7=|4 x0
01A0G70
571531
CL 49 THROUGH 64
HPSB85 /V¥+. DRO D
U T-GPX? DAVL* D
BF&DD?/>-|<BG /Y
A1<LB1;.SE6¢$A8UC
S1®PK2) PG&+ | HIAC
E0=|15_ 03C38<$
$3 ~HEBCYHF_—-: BAS
<eZenanenze paa-p
»
3. $)EG /1,-
‘BHDBCOH® 44 I5<P
eo e8¢
/OHEOED*$S: .
EJH *A<BGFWECOH
*CN5UC
MOQ) XK1) TU2) ~M1) P
KE< { OS*LIB2@XOSNC
B LEHGNOS J5< (EH
ee
G8-HACH®) IaBG
AGRO
O. GR 0
@eeeeeseeseooan eeeaene
eeo e@eeeeveeeee
T& AP7P2-KP.
CL 65 THROUGH 80
¢ JVere. 71202 8
E;7HEH<BGFZ<A JW
AE1Y20H*BF-OYFVY
S8OPPSaPDE+ { | OB<X
C1NCT6*GC4M7A6) X
O6HNCMS_XEGE<KXN1I_R
@eeeenenonoeae seoanedn es
( -
026 a@YD?<EQ$;3P
DI $) BOAF7ac(éH
-
2/AF# GHC A_3F78
Gee yn
09+( 2)N 6) $U8 ax
$* ¢*DpJ7P C- PX,
BG-HE;11) 0-H) <B
e e
OSUA EDA EDA EDA
TECHIE] KEDA 1<G
C2<PCS>.EI)I 0@T
)LCQBFSHY /5<]
A -&HD A
~&HD
GN- 6- )_ 2
11410818700
ste ee ee
PART KO.
PAGE 18
PROG ID
PAGE 18
eee ee
5129638
CL 81 THROUGE 96
APX% 90040820066
DOH* KZ*A0A20067
@ % 8D<A0A20068
N0'Q W #4020069
I9*8 1 4A0A20070
. #8 AOA20071
Ficw sguxousooyy
UP74 J1¥A0A20073
gan suaanideens
2" ax” 5na0a20075
" Z& :H@A0A20076
N18
UAO JDUAOA20078
GG & )8DA0A20079
&D O3QA0A20080
TOM 1D*A0A20081
EO'H @D8A0A20082
) L*H# JY AOA20083
6BAY 7H@A0A20084
GN- )D<A0A20085
"S AOAZ20086
819702EDA0A20087
OAOA~2
: |
@eeoeoeoveo0d00ed20e208080808080e8e888886 8 @ ®@
7 OAOA20077 -
©
ao oo oO. Oo fF O OG 0 42 0 6 9 08 89
i ate net 1 1 Hallo SBA ECE CIT ESA ECLA CCCP ELAINE tn se fs NOTTS AC CA Ne A A ARATE A NR IR AA YY A Neer en
fy
a Bee oc ree
CARR A in trlbinasinbite sO nim oe
eeeeeeeveveeseeoeoeeeoeeeeeneneneueeeoseeoeneneen
T8h MAINTENANCE DIAGNOSTIC PROGRAA
acs2
ZRR Loc
9000
QA00
0a00
0202
GA03
Oagu
OA06
0a 08
OAOA
Ox0D
OA11
GCA15
OA 19
Oa ic
9420
OA ZY
GA28
GA2C
OA30
OA33
OA 36
6a 39
®A3D
OAD
OAG3
SAE
OAg9
OASC
0asc
Oa 54
Oa55
CA56
Oa58
@asc
Ca62
OAS6
OA68
OAGE
OA72
Oa75
OA7B
OATF
OA82
OA85
OA89
oasC
0a90
0A 96
GA9C
OAA2
DATE
Ec HO.
SCA
OBJECT CODE
AO B2
00
01
0000
OBFS
19AF
A0171060
08
3c
F2
G8
3c
78
F2
3c
D2
38
08
08
08
08
00
Fi
87
00
F2
01
90
FF
01
01
00
00
00
00
0B09
0507
022A
19FD
0B3C
14
19FD
OB3C
02
04
OBOS
03
OBO?
1A01
TA2A
WA2D
TAT74&
T3HARIO
571512
PART HO. 5129640
PAGE 1
Low OR EQUAL
ADDR STNT SOUPCE STATEMERT
2 AOB START 0
3 DECK &
4 ORG x*OA00
*F SCHSKSTSEKSEKEKSES SHESSSEKSEKREKS SSERKEKSKSESEEKKEKRESHESKSETLESSEREKSEKKEEEKEKESEEREE
6 * SECTION PREFACE
*7*
*0a01 8 DC XL2*AOB2Z* PROGRAH ID
0a02 9 pc XL1°008 SECTION FLAGS
OA03 10 Dc Xi1°01# CURRENT ROUTINE NUMBER
0A0S 11 Dc XL2"008 RESERVID
OKO7 12 Dt AL2 (RT¥1) ADDRESS OF FIRST ROUTINE PREPEX
OA09 13 pc AL2 (ETABLE) ADDRESS OF ERROR RECORDING TABLE
OaOC 18 Dc XL3*201000?
15 *
*TG SEXES HEKEESEKEKREEEREKEKESEE SEEKS KSEKEKKSKKSERSKESEKSEESEEKESREECKRESEKEREEEKESKEEKEKE EE
17
18 * OPERATING INSTRUCTIONS
*19 *#
*20 * 1. SET SWITCH 15 TO BYPASS RUNNING OW THE REMOVABLE DISK
27 * 2. SET SWITCH 16 TO BYPASS RUNNING ON THE FIXED DISK
*22 * 3. SET SWITCH 1E TO NEVER RUN ON DISK DRIVE 1
*23 * 4. SET SWITCH 1F TO NEVER ROW ON DISK DRIVE 2
*24
25 SETDSK ST SETEXT+3, ARR SAVE EXIT ADDRESS
26 MVI SETSW,X'FF® SET SETUP SWITCH
27
28 CLI UDTPTR,0 HAS POINTER BEEN INITILIZED?
29 ONE UPIND1 JUMP IF YES
30 LA UTAB,XB1 LOAD IF NO
31 UFIND2 ST UDTPTR, XR1
32 DPIND? L UDTPTR, XR1
33 AVI RERVDS,0 ZERO SWITCH FOR RUN REMOVABLE DISK
34 TBN SWITCH+3,xX'02! TEST SSW 1E
35 IT *4+9 JUMP IF ON, NEVER RUN DISK DRIVE 1
36 CLI O(,XR1),X"A0® TEST POR A UNIT ADDRESS OF ‘A®
*37 JE SETA JUSP IF THERE IS ONE
38 TBN SWITCH+3,X'01° TEST SSW 1F
39 JT *4+9 JOMP IF ON, NEVER RUN DISK DRIVE 2
480 CLI 0(,XR1) ,X*BO! TEST POR A UNIT ADDREAA OF 'B?
44 JE SETB JUMP IF THERE IS ONE
&2 TBN 1(,XR1),X*108 TEST FOR LAST ENTRY
43 LA 3(,XR1) ,XB1 STEP POINTER TO NEXT ENTRY
ay BF UFIND2 CONTIWDE IF NOT THE LAST ENTRY
as B PRINT TO PRINT ALL UNITS SELECTED
OA5& 46 pc XL1°06°* FLAGS
0a55 a7 DC IL1'26% LENGTH
OAS? 48 oc AL2 (NOUNIT) MESSAGE ADDRESS
&9 aVI SETSW,0
0B10 50 NYC UDTPTR(2) , TWOZR
51 B LOAD TO PRINT NO ENTRIES LEFT
OA67 52 pc XL2°a08 FLAGS
53
OBOB 5& SETA BZZ LDPCR+1,SPNDLA SET TO RUN ON SPINDLE ‘a?
55 HVI SPNSSG,C'1°* SET MESSAGE FOR SPINDLE *1'
56 J SETBTH FROCEED
57
OBOC 58 SETB MZZ LDPCR+1,SPNDLB SET FOR SPINDLE B.
59 AVI SPNMSG,C'2! SET MESAAGE FOR SPINDLE '2!
60 TBN 2 (X81) ,x*018 TEST OPTION BIT FOR REMOVALILE ONLY
61 JF SETBTH JCP IF OFF
62 HVI RESVDS,X*FF!# SET SWITCH TO RON REBOVABLE ONLY
63
64 SETBTH LA 3(,XR1) ,XR1 STEP POINTER TO REXT ENTRY
65 S% UDTPTR, XR1
19FD 66 NZZ LDPDR+1, LDFCR1 SET FOR CURRENT SPINDLE
19FD 67 MZZ SIO+1,LDFPCR+1 SET FOR CURRENT SPINDLE
19 FD 68 HZZ WAIT+1,LDPCR¢1 SET FOR CURRENT SPINDLE
19FD 69 NZZ TSTERR+1,LDPCR+1 SET POR CURRENT SPINDLE
O6APR70 22M AY70 O1A0G70 PROG ID OA0B-2
571516 $71513 §71531 PAGE 1
Oo Oo 8 0 089 9 9 9 oO
©
Oo Oo O92 8 9 8 OO 92
0 Oo 8 6 8 8 8 6 9
oO Oo 9 Oo OO 9
° 000006 8 © OO
ty
,
Oo Oo 90 9 9 9 9 8 @
G
IBN MAINTENANCE DIAGNOSTIC PROGRAS
AO0B2
ERR LOC
OAAS
OAAE
OABS
OABA
oaco
OaACS
0acs
oacg
OACD
OADO
OAD4S
OADS
OADS
OADA
oaDc
OAEO
OAE1
OAE2
OAES
OAES
GAEC
OAP4
OAFC
OBO4
0B06
0B 08
OBO09
OBOA
OBOB
0B0C
OBOD
OBOE
OBOF
OBT4
OB12
OBTA
0B22
0B25
OB2D
0335
0B3D
OBu5
OBAD
0B55
OB5D
O0B65S
DATE
EC WO.
SCAN
OBJECT CODE
08
08
00
06
08 00
08 00
CG 87
02
3c
38
F2
3c
co
01
29
OB65
co 87
06
18
OBSC
CB
08
90
67
87
1A77
19A3
TAAE
1AB2
1995
OBOA
T9aCc
04
OBOA
O21A
O21A
Low
19FD
I9FD
19FD
19PD
3c 00 1AF6
cO 87 0000
C1ID3D340Z4DSC 9E3
E249C8C1E5C5&0C2
CSCSDS40E3C5SE2E3
c5c4
0000
00
00
00
AO
BO
00
00
0600
00
CODSESCIDICICRYO
E2E2E640E2C5E3E3
c3DSCc7
D5D6E640 EIC5SE2ZE3
CIDSCTHOCHCIE2DZ
YOCEDSCIESCSLOET
C2CS5CICIDSHOE2ZC3
CIDSYON3DS E64 ODE
DYSOCSDBEYCID3&8O
C6ESDSC3IE3ICIDEDS
& O0EICSE2 E34 0C1F0
C2
T3BAR7T
571512
0
O6APR7
5717516
OR
ADDR
oacy
OADS
OADS
OADB
OAEO
OAE1
OAE3
CBOS
0B07
0232
OBOS
OB09
OBOA
OBCB
OBO0C
OBOD
OBGE
0510
OB11
OB24
OB3C
0B65
0
PART FO. $129680
PAGE 1A
a
EQOQAL
STMT SOURCE STATEMENT
70 MZZ TSTSCN+1,LDFCR+t1 SET FOR CURRENT SPINDLE
71 ZZ SNS*+1,LDPCR¢1 SET FOR CURRENT SPIWDLE
72 NZzZ RLDFCR+1,LDFC241 SET FOR CURRENT SPIRDLE
73 N2Z RS10+1,LDFCR+1 SET FOR CURRENT SPINDLE
74 B SENSE
75 DC XL1°O02* ASK FOR DEVICE STATUS RAYTES 0 6 1,
76
77 SVI TRACK#, 203 SET FOR FOLL CAPACITY DISK
78 TBR STATUS, X'08! TEST 1/2 CAPACITY BIT
79 JF PRTSPN JUS? IF OFF
80 AVI TRACK#, 103 SET FOR 1/2 CAPACITY DISK
81 PRTSPN B PRINT TO PRINT SECTION HEADING
82 pc XL7"°OT® FLAGS
83 DC IL? LENGTH
8& oe AL2 (SECHSG) MESSAGE ADDRESS
$5 B PRINT TO PRINT SPINDLE
86 ye XL1°06° FLAGS
87 pe IL1*2a¢ LENGTA
88 pe AL2(SPNSSG) MESS&GE ADDRESS
89 avr FRSTPS,0 SET SWITCH FCR RECALI BRATE
90 SETEXT B s—* EXI7T
91
92 NOUNIT DC CL26'ALL UNITS HAVE BEEN TESTED
*92
92
92
$3 JDTPTR DC XL2°0'
$4 UTAB Fou X*232¢
*95 RESYDS DC IL1*°O
*96 SETSW DC XL7*oO
*97 TRACK# DC XL1'00* sb
98 SPNDLA DC IL1'AO0* “a
99 SPNDLB DC XL1'BO®
100 RONESV DC XL1*°O* sf
101 RONFIZX DC XLi*Oo°* wt
102 TWOZR DC XL2*O
*103 PASS oc XL1°O?
104 INVFLG DC CLI9* INVALID SSW SETTING
104
108 .
105 SPNASG DC CL24"' NOM TESTIEG DISK DRIVE x* ae
305
105
106 SECHSG DC CL41* BEGIN SCAN LOW OR EQUAL FUNCTION TEST AOB‘
106
106 P
106 :
106
7106
3
fe
o
22HAY70 6140670 PROG ID OaAO0B-2 ee
§71513 571531 PAGE 1A
IBA SAINTENANCE DIAGNOSTIC PROGRAN
' ADB2
SCAR Log OR RFQoOoAtL
ERR LOC OBJECT CODE ADDER STMT SOURCE STATESENT
0OB66 34 08 OBES 108 TSTSPR ST TSTEXT+3,ARR
OB6A 3D 00 0511 109 cui PASS,0
OB6E F2 01 07 17C JNE SETS PS
0571 3C FF 0811 111 aVI PASS, X'PF®
OB7S F2 87 OC 112 J TSTS#
0B78 OD OT OBOE OB10 113 SETSPH CLC RONPIX(2) ,TWOZRE
OB7E F2 81 64 718 JE ZROCTR
0B81 F2 87 3C 115 J SETRAMY
116
OB84 38 06 O20A 117 TSTSY TER SECTSY, X* 06°
9B88 F2 90 16 178 JF TSTEAY
OBBB CO 8&7 O27A 119 BE PRINT
OBSF Cé OBBF 120 bc XLI°C6®
0B990 43 0B90 «121 pe ILi*7g9¢
OB94 OB24 OB92 122 be AL2 (INVUPLSG}
OB93 AOPS OB98 123 bc XL2* ROPAt
, 125
OB35 CO 8&7 0222 125 B HALT
OBS9 AOFA CBSA 426 be XL2'BOPA®
OB9B CO 8&7 0212 $27? B TEST
OB9P CO 8&7 OBS8& 128 B TSTSe
123
OBA3 36 08 02048 130 TSTRAY TREK SEC1S#, ¥* Ok?
OBA? F2 10 OW 731 JT TSTPIE
OBAA 3C FF OBOD 132 aVE ROUKRAV, X°PF
*133
OBAE 38 02 O20A 134 TSTPIX TSN SECTS#,X*02
*OBB2 F2 10 OB 135 JT SETRAV.
OBBS 3D PF OB0B 136 cLI RENVDS, X°PF¢
OBB9 F2 81 OG 137 JE SETEASY
OBBC 3C FF OBE 138 BVI RUNFIX,X*FF'®
OBCO 3D 00 OBOD 133 SETRMY CLI RONREV,0
OBCS F2 81 OB 140 JE PIXED
OBC? 3C 00 AFB Thi AVE DISKTP,6
OBCB 3C 00 OBOD 142 HET SUNRAY,0
OBCP F2 87 OF 183 J TSTEXT
44a -
OBD2 3D 00: OBOE 145 FIXED CLI .RONFIX,0
CBD6 F2 81 OC 186 JE ZROCTR
OBD9 3c O08 1AFB 147 AVI DISKTP, xX*08
*CBDD 3C 00 OBOE 148 AVI RUNPFIX,9
. 149
OBE1 CO 87 0000 150 TSTEXT B +-%
151
OBES 3D O08 OA03 152 ZROCTR CLI X*0A03*,08
OBE9 3C 00 OB11 153 BVI PASS,0
OBED CO 01 0216 15% BNE LINK
OBF1 3C 00 OBOS 455 AVI SETSW,0
OBFS CO 87 0000 156 B 0
DATE TIMARTO O6APR70 228 AY70 01A0G70
EC NO. 571512 571516 571513 5371531
@®eeoeeoeeoeeeaoeseeoeseseaosnaeanaeasesoneeaeeeneneeneeeneneeeee @
PART HO. 51296480
PAGE 2
STORE EXIT ADDRESS
IS THIS THE FIRST TIME THROUGH 7
JUMP IF NO
SET SWITCH
PROCEED TO TEST SWITCHES
HAVE ALL DISKS BEEN RUN?
JUMP IF YES
JOMP IF Ko
TEST FOR BOTH SS¥*S 15 & 16 GR
JUBP LIP BOTH ROT OR
TO PRINT £NVALID SSH SETTING
FLAGS
LERGTE
BESS&GE RDDRESS
EESSAGE IB
TO DCP ERROR dAaLt
HALT ID
TO READ CONSOLE SWITCHES
TEST FOR SWITCH 15 OF
JUMP IF O8
IF NOT OB, SET TO RUN REMOVABLE DISK
TEST FOR SWITCH 16 ON
JUNP IP ON
TEST FOR RUN REMOVABLE ONLY |
JUMP TO BYPASS RUNNING FIXED
IP NOT ON, SET TO RUN FIXED DISK
DO WE WANT TO RUN ON RESOVABLE?
JUSP IF NO
SET TO RUN ON REMOVABLE a
CLEAR RUN REMOVABLE SWITCH
TO EXIT :
DC WE WANT TO RUN OW FIXED?
JUSP IPF NO
SET DISK TYPE TO PIXED
CLEAR RON FIXED SWITCH
EXIT
CHECK FOR LAST ROUTINE
ZERO SWITCH
RESET SWITCH
PROG ID OA0B-2
PAGE 2
Qa 0 9 9 9 8 8 989 6 9
MD OO G
O
oO 0
oO O 9
©
ey
O
Oo 9 Oo ©
a 0 9
f= ee een aah ARAN acegeNGRNNPNRAT ee esate mare
oO oO 9 9 @ 8 9 @
'
4
“
6
oO
OQ
Oo
Oo
OQ
Oo oO
oO oO
Be eee? ee sae a ae ae EDS
IBA SAINTENANCE DIAGNOSTIC PROGRAN
A0B2
ERR LOC
OBFS
OBF2
OBFB
OBFD
ocot
ocos
0cos
OcoD
OCc11
0ci15
ocis
ociD
0c23
0c 27
0c28
0c29
0C2B
0C2F
0c33
0037
0C3B
0c 3c
OC3D.
Oc3F
OCc4&l
ocRsS”
0c47
oc4s
oc4éc
ocso
0c53
0C57
0c58
ocs9
OCSB
OcSD
0c61
0c63
0Cc67
OCEF
Oc?7
OC7F
0c87
OCc8F
0C96
ocgc
OCAS
OCAC
OCBS
OCBC
Occ4s
occc
ocDoO
OcD8
DATE
Ec no.
SCAN LOW OR BQGAL
OBJECT CCD¥ ADDE STN? SOURCE
158 ©
159 @
160 ¢
161
162
*163
07 OBF9 164% RTHi
09 OBFA 1765
OcDP OBPC 166
167
3p 00 OBCS 468 BEGIK
CO 81 OAOD 159
CO 87 OB66 170 RTH
3c 60 19A8 175
3C 00 198E 172
CO 87 1817 173
178
co 87 1880 175 RTW1A1
3c FF 1991 176
Oc 01 1993 OBIC 177
178
cO 87 19C4 179
03 0c27 180
01 oc28 181
1990 . OC2a 182
cO 87 0cC37 183
co 87 0c33 184
CO 87 0c4a7 185
cO 87 0212 186 RTWIA2
C6 OC3EB 187
43 oc3c 60188
OCDE OC3E 189
A060 ocs0 6190
CO 87 9222 194
A060 COCKE 192
193
CO 87 1995 194 RTWIEB
02 OC4B 195
38 O08 19AB 196
197
*F2 10 10. 198
fe 199
CO 87 O21A 200
cé 0c57 201
uc 0c58 202
OFBF OC5A 203
A061 ocsc 2048
CO 87 0222 205
A061 0C62 206
207
cO 87 ocos 208 RTNIC
209
E3C8C54OD7TDICSES OC9S5 210
‘CIDGEXE2ZSO0CSD9D9S - 210
D6D9E240D6C3C3E4 210
DIDSCSC&YUOE6CBC9 210
D3ICS&OE2ZCSCS5D2C3 210
D5C740 Z3C8C540 230
C3C5ROC3E8D3 Oc9B 211 ERRORS
E2C3C1IDSYOD3D6E6 OCCP 212
BODEDINOCSD8ENC1 212
D34OP8E2C9DSC74HO 212
C140D5D6D54 0C5E7 212
CIEZE3ICIDSE34O0E2 212
C5CIEZDED980CICK 212
¥OCHCICL 212
KOCTCSESC540C5D9 OCDE 213 ERRIA
D9ID6D940404040 213
13MAR70 O6APR70 22MAY70
571512 571516 571513
PART #8O. 51296480
PAGE 2a
STATEMENT
ROUTINE NO. 01, CHECK PUNCTION OF HO RECORD FOUND e
SENSE BIT, (BYTE 0, BIT 5) ¢
USING THE SCAE LOW OR EQUAL COANAND €
ROUTINE PREFACE 8
pe XLiIfO1 KRCUTINE WO.
DC XL1*°00¢ ROUTINE FLAGS
DC AL2 (RTR2} ADDRESS OF NKEXT ROUTINE
CLI SETSH,0 HAVE PARAMETERS BEER ERTERZD?
BE SETDSK BRAWCH IP HO
B TSTSPH
HYI STATUS-1,0 ZERO SENSE AREA
AVI WETDFC+2,0 SET FOR HEAD 0, SECTOR C
B SEEKCE TO SEEK THE CE TRACK
B TSTSEK TO TEST POR GOOD SEEK
avi BDDPC+1,X°PP* SET CYLINDER NG. TO PORCE & BRF.
BVC RDDFC+3(2) ,THOZE SET TO START AT TRACK O,SECT. 0
B STRTIO TO I/O SUBROUTINE
DC XL1°03° FUNCTION CODE (SCAR)
Dc XL7"O18 CONTROL CODE (LOW OB EQUAL)
re AL2 (RDDFC) CONTROL FIELD ADDRESS
B RTN1R2 GOOD RETURN, (NOT EXPECTED)
B eeg ‘
B RTNTB NORMAL RETURN FROM EXPECTED ERROR
B PRINT - TO PRINT ROUTINE ERROR
pe XL1*c6* FLAGS
DC IL1*67¢ - LENGTE
DC AL2 (ERR1A} ADDRESS OF LAST PRIWT CHARACTER
pc XL2*a0608 MESSAGE ID |
B HALT TO DCP HALT
Dc XL2°2060° HALT ID
5 SENSE TO SENSE 1/0 SUBROUTINE
pC AL1(STATO1) DEVICE STATUS BYTES 0 & 1
TBR STATUS-1,X'04° TEST BYTE 0, BIT S FOR OF
THIS IS *NO RECORD FOUND®
JT RTNIC JUMP IF ON
B PRINT TO PRINT ERROR
pc XL1"°C6* FLAGS
pe IL1*76# LENGTH
pc AL2 (EBR1B) ADDRESS OF LAST PRINT CHARACTER
DC XL2*a061° MESSAGE ID
B HALT TO DCP HALT
DC XL2*a061° . HALT ID
B RTNTA ROUTINE EXIT
DC CL&7*THE PREVIOUS ERRORS OCCURRED WHILE SEEKING THE °
pc CLO6*CE CYL
*Dc CL52*SCAN LOW OR EQUAL USING A NOW EXISTANT SECTOR ID DID
*4
pc CL15° GIVE ERROR®
4
01AUG70 PHOG ID OaA0B-2 4
571531 PAGE 2a
So ae ne or de mens A ne ne cee Deve sae, She Rey WISP 8? y casa Cae le eaege o 4 eects. Basel,” og Nem’ SRY SA. me ee" 8 oe" sat Gee Glee it aS Ger ag lite Leite etca tate? agats gets
n is sec orate Ne me ee ee ~ i i eet en Rane act : =4 & - fo egars io : 5 Sea Hee OS 5 Buceiid :
aA “Ve . o
IBS MAINTEHARCE DIAGNOSTIC PROGRAB PART ¥O. 5129680 IBS MAINTENANCE DIAGNOSTIC PROGRAS PART HO. 5129680
PAGE 3 PAGE 3a
ci9o °
A0B2 SCAREF LOW OR EQUAL A0B2 SCAER LOW OR EOUAL
ERR LOC OBJECT CODE ADDR STMT SOURCE STATENENT Cc | 0 ERR LOC OBJECT CODE ADDR STMT SOURCE STATESERT °
215 © ROUTINE WO. 02, TEST SETTING OF THE SCAN FOUND * 0D79 3D FF 198F 283 RBTR2C1 CLI W&RTDFC+3,X'FF* TEST SECTOR COUNTER FOR STEPPIEG.
216 © CONDITION 6& BRANCHING ON A TIO * Oo; 0 OD7D F2 81 10 288 JE RTN2C2 PROCEED IP OK. | €:
217 © USING THE SCAN LOW OR EQUAL COMSNAND * . OD80 CO 87 O21A 285 B PRINT TO PRINT SECTOR COUNTER NWOT STEPPED
218 # WITH AN EQUAL CONDITIO¥ * ODB4& C6 OD8& 286 Dc XL1°C6! FLAGS
219 o;1eC OD85 2B 0D85 287 DC IL1*43¢ LENGTH g
OcDF 02 OCDP 220 RTN2 pc XL1*02° ROUTINE NUMBER OD86 OET7C OD87 288 DC AL2 (ERRO2B) MESSAGE ADDRESS
OCEO 00 OCEC 221 pc XL7*00° ROUTINE FLAGS OD88 2063 ops? 289 nc XL2*a063° MES: AGE IDENTIFICATION
OCE1 OFCO OCE2 222 DC AL2 (RTH3) ADDRESS OF NEXT ROUTINE PREFIX OG ODBA CO 87 0222 290 B HALT TO DCP HALT a
223 ODBE A063 ODSF 291 pc XL2* 2063! HALT ID
OCE3 3D 00 OBOS9 224 CLI SETSH,0 HAVE PARAMETERS BEEN ENTERED? 292
-OCE7 CO 81 OAOD 225 BE SETDSK BRANCH IF NO O10 OD90 3D 00 198E 293 RTN2C2 CLI wWRTDFC+2,0 CHECK HEAD & SECTOR HO. APTER
OCEB CO 87 OB66 226 RTN2A B TSTSPH 294 * SCAN IS COMPLETED
OCEF 3C 90 198E 227 AVI WRIDFC+2,0 SET POR HEAD 0, SECTOR O OD94& P2 81 10 295 JE RTR2D PROCEED IF OK
OCF3 CO 87 1817 228 B SEEKCE TO SEEF THE CE TRACK Cas 0D97 CO 87 O21A 296 B - PRINT TO PRIBT ERROR
229 OD9B C6 OD9B 297 pc XL1°C6* FLAGS
OCF? CO 87 1880 230 RTN2A1 B TSTSEK _TO CHECK POR A GOOD SEEK OD9C 43 ODp9C 298 DC IL1*67! LENGTH
231 CTS ON9D OEFE OD9E 299 DC AL2 (ERRO2D) MESSAGE ADDRESS
OCPB 3C 00 1247 23Z RTN2B BVI WORK+255,0 SET WRITE PIELD OD9F A068 OpaAO 300 pc XL2*A064* MESSAGE IDENTIFICATION
OCFF OC FE 1E46 1E47 233 HV¥YC WORK4+255 (255) ,WORK4¢255 ; 0Da1 CG 37 0222 301 B HALT TO DCP HALT
234 Cee ODAS A064 ODA6 302 DC XL2* A064? HALT ID
OD05 3C 12 1B6A 235 NVI SNSID,xX*12° PUT MESSAGE ID IN PRINT 303
0D09 3C 00 198F 236 AVI WRETDFC+3,0 SET TO WRITE ONE SECTOR ODA7 C2 02 1D48 304 LA WORK, XR2 SET XR2 TO POINT TO WORK AREA
237 Cc ODAB BD 00 00 305 CLI 0(,XR2),0 CHECK WORK AREA FOR WO CHANGE
ODOD C2 01 1D4B 238 LA WORK,XR1 SET WRITE DATA ADDRESS ODAE F2 01 148 306 INE RTN2ZE JUMP TO PRINT IF SCH. FLD. IS CHG.
OD11 34 01 APP 239 ST DFDR,XR1 IN DATA CONTROL FIELD ODB1 E2 02 01 307 LA 1(,XR2) ,XR2 NOT DONE, INCREMEKT XR2
240 CS OOBY 34 02 19AE 308 ST SNSXB2, XR2 NO CHG, SET TO CHECK NEXT BYTE -
0D15 CO 87 19Cc4 ; 241 B STRTIO TO I/O SUBROUTINE _ODB8 OD 01 19AE 18F7 309 CLC SNSXR2(2) ,WORK2 CHECK XR2 POR REACHED UPPER LIMIT.
0D19 02 OD19 242 pc XL1902# FUNCTION CODE (W3ITE) _ ODBE F2 81 14 310 JE RTN2G TO ROUTINE END. |
ODiA 00 ODIA 283 pc XL1*008 CONTROL CODE (DATA) | O0Dc1 CO 87 ODAB 311 B RIN2P CHECK WEXT BYTE ‘.
OD1B 198C ODIC 244 _de AL2(WRTDFC) CONTROL FIELD ADDRESS 312 ;
OD1D CO 87 0D29 285 B RITN2B1 GOOD RETURN ODc5 CO 87 O2TA 313 B PRINT TO PRINT SCAN FIELD WAS CHANGED
0D21 CO 87 OD25 246 5 ey oO ODC9 C6 Opc9 3148 DC XL1*C6* FLAGS
0D25 CO 87 ODDS 267 B WRTER2 ERROR RETURN ODCA SF ODCA 315 pc IL1*63* LENGTH |
: 248 . ODCB O=ZBB . Opcc 316 DC AL2 (ERRO2C) MESSAGE ADDRESS
0D29 3C 62 1B6A 249 BVI SNSID,X"'62¢ PUT ID IN PRINT wo ODCD R065 ODCE 317 pc XL2*°A065! MESSAGE IDENTIFICATION
OD2D 3C 00 198P 250 MYI. WRTDPC+3,0 SET TO SCAN LOW OR EQUAL ON ODCF CO 8&7 0222 318 B HALT TO DCP HALT
251 ONE SECTOR CDD3 A06S- ODDS 319 DC XL2*A065* HALT ID
252 oO 320 ’
0D31 CO 87 19C4 253 B STRTIO TO SCAN EQUAL ObpDS CO 87 OCEB 321 BD RTN2A
0D35 03 0D35 25a DC XL1*03° FUNCTION CODE (SCAR) . 322 :
0D36 01 0D36 «255 pc XL1*018 CONTROL CODE (LOW OR EQUAL) C CpD9 3C 12 1B6A 323 MVI SNSID,x*12¢ PUT ID IN PRINT
0D37 198C OD38 256 pc AL2 (WRTDPC) CONTROL FIELD ADDRESS ’ CDDD CO 87 1B43 324 B PRTSNS TO PRINT STATUS ERRORS
0D39 CO 87 0D69 257 ‘B. RTN2B2 RPIURN FOR NO SCAN POUND 325
OD3D CO 87 0D79 258 B RTN2C1 RETURN FOR SCAN FOUND vee ODE1 CO 87 O21A 326 B PRINT TO PRINT WRITE ERROR
259 CDES 06 ODE5 327 Dc XL1°06! FLAGS
0D41 CO 87 1C89 260 B SHIPT TO SHIFT BITS FOR DECIMAL NUMBER CDE6 SA ODE6 328 DC IL1¢*7a" LENGTH
ODas 198C OD46 261 Dc AL2{ WRTDFC) ADDRESS OF SOURCE C ODE7 OF48 ODE8 329 Dc AL2 (ERRO2E) RESSAGE ADDRESS
OD&7 CO 87 ICDA 262 B CVD TO CONVERT TO DECIMAL NUMBER ODES CO 87 0222 330 B RALT TO DCP ERROR HALT
ODUB 1CCE OD&C 8263 pc AL2 (CYLNO) ADDRESS OF SOURCE . CDED aG12 ODEE 331 DC XL2*a012° HALT ID
OD&D OFS1 ODSE 264 pc AL2 (ERRO2 A} ADDRESS OP DESTINATION J ee ODEF CO 87 OCEB 332 B RTN2A
ODGF 3C 4O OEUP 265 BVI ERRO2a-2,C? SET A BLANK IN PRINT INAGE 333
0D53 CO 87 1B&3 266 B PRTSNS TO PRINT SENSE INFO, a CDF3 ESCB8CS4UODTDICS5SES OF 334 pc CL52'THE PREVIOUS ERRORS WERE PRESENT AFTER DOING A SCAN ° :
0D57 “2 87 O21A 267 B PRINT TO PRINT THIRD LINE Ce ODFB COD6BESE2ZH0CSD9D9 3348 ‘
OD5B 06 ODSB 268 pce XL1°06° FLAGS CEO3 D6D9E2Z4OEEC5SD9ICS 334
ODSC 5F OD5C 269 pc TL1°95# LEXGTA CEOB 4OD7D9CSE2CSD5E3 334
- ODSD O0EF51 ODSE 270 pc AL2(ERRO2A) MESSAGE ADDRESS Ce CE13 4OCIC6E3C5D940C4 334
ODSF CO 87 0222 271 B HALT TO DCP HALT CE1B D6C9ODSC74OCI“OE2 334
0D63 A062 OD68 272 DC XL2*A0€2° HALT ID CE23 C3CID540 33a
0D65 CO 87 0D79 273 B RTN2C1 © CE27 D3IDGEGSODED94NCS OE51 335 ERRO2ZA DC CL&3"*LOW OR EQUAL COMND. USING HEAD 0, SECTOR xx
*274 QE2F DSEXCID34OC3D6D4 335 }
OD69 CO 87 O21A 275 B PRINT TO PRINT NO SCAN FOUND = OE37 DSC&YBYOESE2C9DS 335
OD6D C6 OP6D 276 DC XL1'C6? FLAGS ue OE3F C74OCBCSCICUROFO 335
OD6E 2B OD6E 277 pc IL1*93* LENGTH CES7 6BYDE2ZCSC3E3DE6D9 335
OD6P OF73 0D70 278 Dc AL2(ERRO2F) MESSAGE ADDRESS CE4F 4OE7E7 335 ‘
OD71 A066 0D72 279 pc XL2"A0668 MESSAGE ID O OE52 E2C5C3E3D6D940C3 OE7TC 336 ERRO2B DC CL4Y3* SECTOR COUNTER IN CONTROL FIELD NOT STEPPED® Q
0D73 CO 87 0222 280 B HALT TO DCP ERROR HALT OESA D6EXD5SE3C5D940C9 336
0D77 A066 Op78 281 Dc XL2*A066* HALT ID 0E62 D540C3D6D5E3DSD6 336 ‘
282 © QZ6A D340C6C9C5D3C440 336 ‘
DATE | 13MAR70 O6APR70 22MAY70 0 1AUG70 PROG ID OaAOR-2 O C pate 13MAR70 C6APRT7O 22MAY70 01AUG70 PROG ID OA0B-2
EC NO. 571512 571516 571513 571531 PAGE 3 EC NO. 571512 571516 571513 571531 PAGE 3A
eo oO
IBM MAINTENANCE DIAGNOSTIC PROGRAB
A0B2 SCA RS LOW
ERR LOC OBJECT CODE
OE7T2
O£7A
OE7D
O£EBS
OE8D
0295
OE9D
OEAS
OFAD
OEAP
OEB?
OEBC
OFECH
OECC
OED4&
QEDC
OEEY
OEEC
OEFO
CEFS8
CEFF
OFO7
OF OP
OF17
DSD6E3ROEZE3CSD7
D7C5C4
E2C3C 1D54 OC6C9C5
D3C&4OE6CIE240CI
DIEICSDICSCHU ICI
C6E3CSD9INOCTCIES
CIDSC74OC 180E2C3
C1D540D3D6E640D6
D940
CSBBEYC1D340C3 D6
DYDSCIDSCS
CBC5C IC4U4OSON0E2
CSCIE3ID6D940C2EB
E3C540D6C640C 3D6
DSE3D9D6D 38 0C6CS
C5D3CKHOCICBC IDS
C7C5C440C 1C6E3C5
DIGOC TRC
D6D5CS4O0E2CSCIE3
D6D940E2C3ICIDS
£3C8C5UODTDICSES
CIDEESE2UOCSD9DS
D6ODIE2ZLODEC IC IEW
DIDIC SCUKOEECHCS
OP 1F D3CSYOCHL6EC9DSC7
OF27 40C140E6D9C9E3C5
OF2P 40
OF30 CUCTEICINOCIDEDS
OF 38 DACIDSCA4OESE2CS
OF4O DSC7TNOCBC5CICK4O
OFUS FO
OFS9 B2C3ICIDSSOCEDSES
OF 51 DSCUYODSDEEILOE2
OP 59 CSE340C1DSC4UOD6
OF61 DIYOCHCSE3ICSCIE3
~ OF69 CSCUNOC2EBR0C 140
OP71 -E3C9D6
OF74 DSD640D9CSCI“B4O
OFTC C6D6ESDSC44ODSD6
OFB4Y E34OE2CSE3I4UOC2E8
OFB8C 4OC140E2C3C1D540
OF94 DIDGE6UODED94OCS
OF9C DBEYC1D3INOC3DED4
OFAS D4CIDSC
OFA8 WOENE2C9DSC74U0CI
OFBO “OE2C5C3E3D6D940
CFBS C9IC4UODECENNCECE
DATE
EC NO.
T3MART7O
571512
O6APE7
571516
se =>» =, ____—__ — +. ________. >» =.
oR
ADDE
OEAE
OEBB
OES?
OZVE
OF 2P
Or4us
OF73
Ora?
0
FQOUAL
STMT SOURCE
336
336
337
337
337
337
337
337
337
338
338
339
339
339
339
339
339
339
3&8
340
361
381
341
341
344
341
341
342
342
‘342
382
343
343
343
343
343
343
344
348
3448
384
388
344
348
345
385.
345
ERROZC
ERRO2D
ERRO2ZE
ERRO2F
ERR1B
22mAY70
571513
PART ¥O.
5129680
PAGE 4
STATEAEXT
Dc
BC
oc
DC
be
pe
bc
be
DC
OTA0G70
571531
CL5O*SCAN FIELD WAS ALTERED AFTER GIVING A SCAN LOW OR
*CLI3* EQUAL COMBAND®
CL5S2°HEAD & SECTOR BYTE OF CONTROL FIELD CHANGED AFTER A
CLIS*CNE SECTOR SCARH®
CLUS'THE PREVIOUS ERRORS OCCURRED WHILE DOING A WRITE $
CL2S5*DATA COMMAND USING HEAD O°
CLU3'SCAN POUND KOT SET AND OR DETECTED BY A TIO
CL52°NO REC. FOUND NOT SET BY A SCAN LOW OR EQUAL COMMAND!
*CL24* USING A SECTOR ID OF PF®
PROG ID Oa0B-2
PAGE 4
7 9 © CG 606 0 6G O
Q 0
©. 6
o 989 9 Oo
CD
Oo
i
Q
oOo oOo 9 O
t
oO
Oo 9 9 8 8 9
o
Oo OO 8 ©
oO
O
G
IBS MAINTENANCE DIAGNCSTIC PROGRAS
a0B2
ERR LOC
oFcO
OPC?
OFC2
OFC
orcs
OFCC
OFDO
OFD4
OFDSs
OFDC
OF FO
OF E6
OPERA
OFEE
OFF2
OFF6
OFFA
OFFB
OFFC
OFFE
1002
1006
TOOR
100E
1012
1016
1917
3018
iO1k
1O1E
1622
1026
1028
10 2c
102E
1030
1034
1038
103c
103D
103£
1040
1044
1086
TOUR
TOGE
10&P
1050
1052
VOSS
1058
DATE
EC NO.
SCA RH
OBJECT CODE
63
Go
1428
sr 06
c. 81
CO 87
3c 00
87
co 87
00
FE
3C 12
3c 90
c2 01
34 01
co 87
02
00
198C
co 87
co 87
cO 87
3¢ 62
3c 06
co 87
03
01
198¢
co 87
co 87
co 87
198C
co 87
ICCE
TT2a
3c 40
co 87
co 87
06
59
VI2A
co 87
AC62
co 87
co 87
c&
2B
OF73
A066
co 87
aAG66
13MAR7
571512
Low Of
ADDR
OFCO
OFC1
OFrCc3
CBOS
OAOD
OBG66
198E
1817
1880
1ES7
1E86 1E&7
1B6R
198F
1D4s8
AFF
19c4
OFFA
OPFB
OFFD
100A
1006
ODDS
1B6R
1S8F
19C4
1016
1017
1015S
704A
TO5SA
1c89
1027
ICDA
102D
102P
1128
1Bu3
O21A
103¢
10 3D
10 3F
0222
1045
105a
O27a
1042
104uF
1051
7053
0222
1059
0 O6APR70
571516
TEST
SCAR
WITH
PART WO.
5129680
PAGE aa
SETTING OF THE s
EQUAL SENSE SIT s
A SCAN LOW OR EQUAL COMMAND s
USING AN EQUAL COKRDITION
ROUTTRE NUMBER
ROUTINE FLAGS
ADDRESS OF NEXT ROUTINE PREFIX
HAVE PARAMETERS BEES EXTERED?
BRANCH IF NO
SET FORK HEAN 0, SECTOR 0
TO SEEK THE CE TRACK
TO CHECK FOR A GOOD SEEF
SET WRITE PIELD
PUT ID IN PRINT
SET TO WRITE ORE SECTOR
SET WRITE DATA ADDRESS
IN DATA CONTROL FIELD
TO WRITE DATA
FUNCTION CODE (WRITE).
CONTROL CODE { DATA)
CONTROL FIELD ADDRESS
GCOD RETURN
ERROR RETURN
iN PRINT.
SCAN LOW OR EQUAL
SECTOR
PUT I?
SET TO
OK ONE
TO SCAN EQUAL
FUNCTION CODE (SCAN)
CONTROL CODE (LOW OR EQUAL}
CONTROL FIELD
RETURN FOR NO SCAN FOGND
RETURN FOR SCAN FOUND
TO SHIPT BITS FOR DECIMAL NUMBER
ADDRESS OF SOURCE
TO CONVERT NUMBER TO DECISAL
ADORESS OF SOURCE
*ADDRESS OP DESTINATION
SET A BLANK IN PRINT IRAGE
TO PRINT SENSE INFO.
TO PRINT THIRD JINE-
FLAGS
LENGTR
MESSAGE ADDRESS
TO DCP HALT
HALT ID
TO PRINT NO SCAN FOUND
PLAGS
LENGTH
MESSAGE ADDRESS
MESSAGE IDENTIFICATION
TO DCP ERROR HALT
HALT ID
PROG ID
EQUAL
STHT SOURCE STATENEST
347 « ROUTINE NO. 03,
348
*3a9 9
350
*351
352 RTW3 390 DE XL1°03°
353 DC KL1°00#
358 DC AL2 (RTR4)
355
356 CLI SETSW,0
357 BE SETDSK
358 RTN3A B TSTSPU
3383 BVI WRTDFC+2,0
360 B S EEKCE
361
362 RTN3A1 B TSTSEK
363
36% RTN3B MVI WORK+255,0
365 M¥C WORK4+254 (255) ,WORK#255
366
367 NVI SNSID,X*12¢
368 AVI WRTDFC+3,0
369
370 LA WORK, XR1
371 sT DFDR,XR1
372
373 B STRTIO
374 pc XL1*02°
375 pc* XL1°00"
376 DC AL2 (WRTDFC)
377 B RTN3BI
378 B +8
379 B WRTER2
380 :
381 RTN3B1 S¥YI SNSID,X*62
*382 NVI WRIDFC+3,0
383
*384
385 B STRTIO
386 DC XL1*03°
387 pc XL1*01
*388 pc AL2 (@RTD?FC)
389 B RTN3B2
390 B RTN3C1
391
392 RTN3C OB SHIFT
393 pc AL2 (WRTDFC)
394 B CVD
395 Dc AL2(CYLNO)
396 pc AL2 (ERRO 3A)
397 nVI ERRO3A-2,C
*398 3 PRTSNS
399 B PRINT
&00 pc XL1°06
*801 DC IL1*89°
402 pc AL2 (EPRO3A)
4803 B HALT
408 pc XL2*A062°
805 B RTN3C1
406
407 RTN3B2 B PRINT
408 Dc XL1°C6#
&09 pc IL1*G3°
810 BC AL2(ZRRO2P)
431 Dc ¥L2*A066"
412 B HALT
413 Dc XL2*A066
*414
22m AY70 01A0G70
571513 571531
PAGE
OAOB-2
SA
os & ©
{ 3
C%
IBM MAINTOMANCE DIAGHOSTIC PROGRAS
A0B2
ERR LOC
105A
1052
105
1063
1066
iO6A
1068
VEC
1O6E
TO7G
107%
10 76
TO7A
1082
708A
1092
1O9A
WAZ
1ORA
TORE
10B6
1OBE
10C6
VOCE
10D2
10DA
10E2
1OEA
1OF2
TOFA
1102
1106
1IOE
1116
VIVE
Vi2e
DATE
Ec NO.
SCAM LO
OBJECT CODE
co 67
02
1995
32 80 19AC
F2 10 10
CO 87 O21:
cS
58
10D9
a067
co 8?
A067?
6222
cO 87 OFcc
EB2C3C 1054 UCSDBE&
CID38OE2C5SDSE2CS
& OC 2C9E36B464DC2
CIE3&OFOSOC2ESE3
C5S4OF 45D6BYODSDE
E340D6D540C IC6E3
CS5D940Cu
DECSDSCTHOCINODS
DSC54 0E2C5CIEIDS
DIGOE2ZC3IC1D5400D3
D6ZEYODED980CSD8
E&C1D340
E3IC8CSYOD7DICSES
CODEENE2UOC5SD9D9
D6D9E240E6CBCSD9
C5¥0D7DICSE2C5D5
E340C 1C6E3CSD9NN
C4¥DECIDSC7T40C140
E2C3C1DS
4¥ODIDEEGY ODED9LO
C5D8E9C1D340D6D7
CSDICTEICSDEDSNO
ESC9E3CB40CIDSNO
CSDSEGC1D3
TIMARTO
STUSt2 571516
oR
ADDR
105E
TO06B
TO6B
106D
T06P
1075
IOAD
10D4
7108S
112A
OGAPR70
FBQuat
STHT SOURCE STATENERT
81S RTN3C1
16
a17
948
419
%20
3279
822
&23
828
825
426
827
428
&29
&30
430
430
&30
836
830
$30
831
434
Q31
931
831
&32
832
432
432
832
432
432
433
&33
433
433
433
RTH3D
ERROSB
ERROZA
22M AY70
571513
8
DC
dC
bc
Dc
' O1A0G70
$71531
SENSE
ALi (STATO1)
STATOS, X* 80°
RTN3D
XL1°C6
*IL1°8e
*AL2 (ERRO3B}
XL2°RO67®
HALT
XL2°AGE7®
RTHSA
CLS2°SCAN EQUAL SENSE EIT,
PART WO. 51296406
PAGE 5
TO SENSE DEVICE STATUS
ASK FOR SENSE BYTES 0 & 1.
TEST THE SCAN EQURL BIT FOR OF
PROCEED IF OK
TO PRINT SCAN EQUAL SENSE BIT ROT OF
FLAGS
LENGTH
MESSAGE ADDRESS
MESSAGE IDENTIFICATIO“
TO DCP HALT
HALT ID
(BIT G BYTE 1), NOT ON AFTER D*‘
CL36"OING A ONE SECTOR SCAN LOW OR EQUAL®
CL52'THE PREVIOUS ERRORS WHERE PRESENT AFTER DOING A SCAB
*CL37* LOW OR EQUAL OPERATION WITH AN EQUAL
*PROG ID OAOB-2
PAGE =. 5
0 000000006000 06
oO
oO 9 O98 © 9 0 9
Oo
Oo oO CG 6
rk)
é
roe
e
QO
OQ
Cy
oy
©
ce)
0
&
Or
OS
Oo ¢
IBH BHAINTEBANCE DIAGROSTIC PROGRAB
AOB2
ZRR LOC
1128
it2c
1132p
112E
1733
4437
113B
113F
4143
T1487
1445
1151
1155
1159
115D
1161
1165
1166
1167
1169
116D
1171
4175
1179
T1i7F
1183
1187
1188
3189
118B
118P
1193
1197
1198
119¢
119D
119F
TIA3
11A5
V1A9
TIAA
T1AB
11AD
11AP
11B3
11B5
11B9
T1BA
11BE
¥1C1
11¢5
DATE
EC NO.
SCa yn
OBJECT CODE
0%
00
12B7
co
co
3c
co
co
3c
oc
3c
3c
C2
34
co
02
00
00
81
87
00
87
8&7
00
FE
12
00
01
87
198C
co
co
co
3c
oc
3c
co
02
38
F2
co
C6
OBOS
OOD
OBEE
198f
1847
1889
1287
TES6
1B6A
198F
1Da88
APF
19c4
1175
Lor
1ES7
1171 -
opp9
TB6AR
198P
IDAC
19C8
11a5
T1B5
1Ba3
O27A
0222
O21A
0222
1995
19AaC
O21A
T3MART7C
571512
0B10
OR
ADDR
17%2B
Ti2c
V12E
1165
1166
1168
1787
7188
118A
1198
119¢
1192
TTA4
11A9
T1AA
17aC
TTAE
i134
11B9
11¢5
O6APE7O
S7151€&
PART WO. 5729680
PAGE SA
EQUAL
STHT SOURCE STATENEYT
435 @ ROUTINZ RO. O4 TEST RESET OF SCAN EQUAL SENSE BIT e
436 & ON A SCAN LO¥ OR EQUAL OPERATION 2
837 * WHERE THERE IS NOT AW BOQOUAL CONDITION
*a3e + BUT THERE IS A LOW CONDITIOS ¢
839
8EO RINE pe XLI*OG? ROUTTNE RUBBER
&u4 pe EL1°008 ROUTINE FLAGS
2GZ pc RL2 (ETHS} ADDRESS OF NEET ROUTIRE PREFIZ
B43
&BE CLI SETSH,C HAVE PARASETERS BEEX EXTERED?
B&5 BE SETDSK BRANCH IF RO
8&6 RTRSA B TSTSPB
837 AVI WRIDFPC+2,0 SET FOR HEAD 0, SECTOR 0
U4g B S EEKCE TO SEEK THE CE TRACK ,
4&9
850 RTSGAT B TSTSEK TOC TEST FOR &A GOOD SEEK
451
452 RTNGB HVT WORK+255,0 SET WRITE FIELD
853 AVC WORK#254 (255) ,WORK*255
asa
855 HVI SNSID,Z*12* POT ID IN PRINT
456 NVI HRTDFC+ 3,0 SET TO WRITE 1 SECTOR
457
4u58 La WORK, XR1 SET WRITE DATA ADDRESS
459 ST DFDR,XR1 IN DATA CONTROL PIELD
460
861— B ’ STRTIO TO WRITE DATA, (1 SECTOR)
462 pc XL1°025 FUNCTION CODE (¥RITE)
863 pc XL1*008 CONTROL CODE (DATA)
Lou pe AL2 (WRTDFC} CONTROL FIELD ADDRESS
465 B RTNSB1I. GOOD RETURN
£656 B 248
&67 B WRTER2 ERROR RETORN
a68 .
869 RTNUB1 NVI SNSID,X*68°* PUT ID IN PRINT .
470 MVC WRTIDFC+3(2),TWOZR SEI TO START AT TERACK 0, SECT 0
474 NVI WORK* 100, X'"FE* SEY DATA FIELD FCR WO SCA®
472 * EQUAL GN A LOW Of EQUAL
473 :
478 B STRTIC TO READ DATA
875 pc XL1*03* FUYCTIOK CODE (SCAR)
R76 pc XL1°01° CONTROL CODE (LOW OR EQUAL)
&77 Dc AL2 (9RTDFC) CONTROL FIELD ADDRESS
478 B RTRYB2 RETURN FOR NO SCAN FOUND (NOT EXP.)
479 B RTNSC1 RETURN FOR SCAN FOUND (EXPECTED)
480
881 RTRSC 8B PRTSKS TO PRINT SENSE INFO:
482 B PRIKT TO PRINT 3RD LIBE
483 pc XL1°06* FLAGS
484 pc IL1*64# LENGTH
485 pc AL2{ ERROSA) MESSAGE ADDRESS
486 B HALT TO DCP HALT
487 DC XL2*a068! HALT 1D
488
489 RTNYBZ B PRINT TO PRINT NO SCAN FOUND WHEN EXPECTED
490 DC XLi*cé? FLAGS
491 pc IL1°73¢ LENGTH
492 pc AL2 (EERROS 8B) MESSAGE ADDRESS
4993 DC KL2*2069! MESSAGE IDENTIPICATION
B94 B HALT TO DCP HALT
¥95 Dc XL2*a069* HALT ID
896
497 RTNSC1 B SENSE TO SENSE DEVICE STATUS
a98 pc AL1{ STRTO1) ASK FOR SENSE BYTES 0 & 1
499 TBN STRTUS, 1°80? TEST THE SCAN FOUKD BIT
500 JF RTRSD JUMP IF OFF
501 B PRIKI
502 pc XL1°C6é! FLAGS
22 AY70 01AUG70 PROG ID OAOB-2
571813 571531 PAGE SA
IBM HAINTENANCE DIAGNOSTIC PROGRAS
&0B2
ERR LOC
416
11C7
T1c9
T1CB
Vicr
ViDi
13D5
TDD
TES
TIED
ViF5
ViFoD
12905
1209
T2494
3215
1270
1225
T22D
4235
123D
t2u5
Y2ND
1255
125D
1252
1266
1262
1276
I27E
1286
1289
1291
1299
12a]
W249
1281
DATE
Ec WO.
SCANS Low
OBJECT CODE
$9
12B6
AOGA
cO 87 0222
AOGA
cO 87 41137
E3C8CS4&OD7TDICSES
CIDBEYE2Z40C5D9DI
DEDIEZUOE6CSDICS
¥OD7DICSE2CSD5E3
ROC IC6E3C5D 94 OCY
DOECIDSCTYOC THOE2
CICiD540
DIDGEGLODEDIKOCS
DBE&CiDS
E2C3CiDSSOC6D6EL
D5C44 OC3DED5CUCI
E3C9IDSED540D5D6E3
HOCUCSESCSCIE3CS
CHLOC2ZEB4OCTYOE3
C9D64 OFS6CBT5DS4O
E3C8C5D SC 540E6C1
E24U0C1T4O0D3DEE640
CIDENSC&CIEICSDES
D5
E2C3CIDSHOCEDSYB
SOE2DSE24B40C2C9
EJ6SROMDC2ZEBE3CS
NGPIGOC2ZC9IE3L0FO
SD6B4OD6D540C1C6
E3C5D9
SOC TYOE2C3CIDS4O
DIDSEG64 ODEDSLOCS
DEXBYOEGCEC5DICS
KOEICBCSD9CSHOCY
E240 DSD6E3U0C1D5
LOCSDSESC1D3
T3MAR70
571512
O6APR7
571516
OR
ADDR
11C6
11C8
TICA
174D0
12 08
¥2174
F244
125D
1288
12B6
0
FQU AL
STMT
503
504
505
506
507
5¢8
509
510
510
579
570
510
570
510
5171
541
512
512
542
512
572
512
513
$13
513
513
574
S14
514
514
574
544
515
515
515
515
515
515
RTN&D
ERROGA
ERROB
ERROUC
22M AY70
571513
SOURCE
pc
DC
BC
B
DC
B
bc
DC
be
bc
be
DC
0140670
571531
PART NO. 51296480
PAGE 6
STATEMENT
IL1*89?
AL2 (ERRO4C)
XL2"AO6A?
HALT
XL2°A06A"
LENGTH
FESSAGE ADDRESS
RESSAGE IDENTIFICATION
TC DCP HALT
RALT ID
RTNSA
CLS2°*THE PREVIOUS EREORS BERE PRESENT AFTER DOING A SCAN
*CLi2'*LOW GR EQUAL'
CLYSB'SCAN FOUND CONDITION NOT DETECTED BY A TIO WHER
*CL25'THERE WAS A LOW CONDITION?®
CLU3'*SCAN EQ. SNS. BIT, (BYTE 1 BIT 0), ON AFTER!
CLU6* A SCAN LOW OR EQ. WHERE THERE IS NOT AN EQUAL
*PROG ID
OAOB-2
PAGE 6
©
O oO
oO Oo 89 G6 8
©
o 0 @ 6 8G 8 6 6G 8 86 8 0 090 0 9 0 O89 ODO 8
OM aie nue ar
O
Oo 09 0 09 9 8 0 9
O
QO
o 8 8 8 8 9
oO 92 ©
@Q
IBS MAINTESRANCE DIAGROSTIC PROGRAS
AOB2
ERR LOC
12B7
1258
12B9
i2BB
12BF
12C3
12C7
12CB
12CF
12D3
12D7
12DB
12DF
12E3
12E9
12ED
12F3
12F7
12FB
12FFP
1300
1301
1303
1307
1308
130F
1313
1316
131C
4320
1324
1328
132C
1332
1336
1337
1338
i33A
1335
1342
1346
T342R
T3RE
4352
1356
1357
3358
135A
135E
1362
1366
I36A
DATE
EC NO.
SCAR
“BIJECT CODE
05
00
iS2c
3D
co
co
3c
co
co
co
co
06
co
81
87
00
87
87
00
01
01
00
FE
01
FE
oo
OBOS
OAOD
0B66
198E
1817
1880
1SCE
1D4B
IAFF
1F&7
1F46
1ES7
TEG6
198E
198F
19c8
130F
1308
ODDS
198E
OA
198E
12F7
1E48
1AFF
198F
198E
19C4
1346
1342
opns
1967
198E
iB6A
19C4
1378
1392
1B43
O21A
138AB70
571512
Low
1FU7
1E4?
18F5
1aceE
OR
ADDR
4257
12B8
42 BR
12¥FF
1306
1302
1336
1337
1339
1356
1357
1359
136A
O6APR70
571516
EQUAL
STST
517
518
519
520
$21
522
523
528
525
526
$27
528
523
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
558
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
$72
573
578
$75
576
577
578
57S
580
581
582
583
584
SOURCE STATESENT
oe
RTRS
RTWSA
RTN5SA1
RTNSB
RTNSB1
RTN5B2
RTNSC
RTNSD
228LY79
571513
bc
pe
cLrI
AVI
LA
sT
NVI
BYC
AVI
sYC
BVI
CLI
LA
NVI
SVI
BVI
oc
ROUTINE NO. 05,
PRET WO. 5129680
PAGE 6h
TEST SCAN LOW OR EQUAL BY SCANNING ®
MULTIPLE SECTORS WHERE 23 SECTORS HAVE e
REER WRITTEN WITH -O1-, AND THE 24TH s
SECTOR 1S WRITTEN WITH ALL ZEROS &
XL1°05#
XL1"00#
AL2 (BTN6)
SETSW,0
SETDSK
TSTSPR
WETDFC#2,0
SEEKCE
TSTSEK
TSTSEC,0
WORK, XR1
DFDR, XR1
WORK+5177,0
ROUTINE WUABER
ROUTINE PLAGS
ADDRESS OF NEXT ROUTINE PREFIX
HAVE PARAMETERS BEER EXTERED?
BRANCH IF RO
SET POR HEAD 9, SECTOR @
TO SEEK THE CE TRACK
TO CHECK POR & GOOD SEEK
SET TEST SECTOR RURBER
SET WRITE DATA ADDRESS
IN DATA CONTROL FIELD
SET
WORK+510 (255) ,WORK4511 DATA
BRORK+ 255,01
WORK+254 (255) ,WORK+255 FIELD
SERTDFC+2,0
HRTDFC4+3,0
STRTIO
XL1°028
XL17008
AL2 (WRTDFC)
RTN5SB2
een
WETER2
WRTDFC+2,X"SC
*RTNSC
WRT DFC+2(1) ,OWESEC
RTNSB1
READ, XR1
DFDR,XR1
WRIDFC+3,0
WRTDFC#2 (1) ,TSTSEC
STRTIO
XL1"02°
XL1'00°
AL2 (WRTDFC)
BTNSD
44
WRTER2
WRIDFC+3,28
WRIDFC+2,0
SNSID,X'62°
STRTIO
XL1*038
XL1"'O18
RL2 (WRTDFC)
aTRSD1
RTNSE
PETSWS
X27°06°
01AUG70
571531
SET TO START AT SECTOR 0
SET TO WRITE ONE SECTOR
TO IvO SUBROUTINE
FUNCTION CODE (WRITE)
CONTROL CODE (DATA)
CONTROL FIELD ADDRESS
GOOD RETURE
ERROR RETORE
TEST POR SECTOR 23
JUNP TO WRITE TEST SECTOR IF
NOT DONE,STEP TO WECT SECTOR
TO ®RITE NEXT SECTOR
DONE
SET DATA FIELD ADDRESS
IB DATA CONTROL FIELD
SET TO WRITE ONE SECTOR
SET SECTCR NUMBER IN CONTROL FLD.
TO BRITE THE TEST SECTOR
FONCTION CODE (WRITE
CONTROL CODE (DATA)
CONTROL FIELD ADDRESS
GOOD RETURN
ERROR OW DATA WRITE
SET TO SCAN 2& SECTORS
SET TO START SCAN AT SECTOR 0
PUT ID IN PRINT
TO SCAN 28 SECTORS
FUNCTION CODE (SCAR)
CONTROL CODE (LOW OR EQUAL)
CONTROL PIELD ADDRESS
RETORN FOB KO SCAN FOUND, (NOT EXP.)
RETURN FOR SCAN POUND, (EXPECTED)
TO PBINT SENSE INFO.
TO PRINT 3RD LIBE .
FLAGS
PROG ID OAOB-2
PAGE 6A
it
QO ©
Of
mri i i "8 5 8 > oe ee
y
a : : . : : 4
@eoeoeo od@eogeeeqeee@eeeqeeeesds ®@
i
~
w Lue
IBA MAINTENANCE DIAGNOSTIC PROGRAB PART NO. 5129640 IBS MAINTEMANCE DIAGNOSTIC PROGRAS PART WO. 5129680
PAGE 7 PAGE 7a
| Oo 9
a0B2 SCAN LOW OB EQDAL AOB2 SCAW LOW OR EQUAL
ERR LOC OBJECT CODE ADDR STBHT SOURCE STATEMENT © , G& ERR LOC OBJECT CODE ADDR STBT SOURCE STATEMENT
1368 4E 136B 585 DC IL1°78* LENGTH 1467 80 638
136c 1436 136D 586 pc AL2 (ERROSA) MESSAGE ADDRESS GS 6 1868 CSDBELCID340E6CS 748A 639 ERROSB DC CL35" EQUAL WHERE SECTOR WO. XX WAS EQUAL®
136E CO 87 0222 587 B HALT TO DCP HALT 44870 CS5SD9CS4OE2CS5C3E3 639
1372 2062 1373 588 pc XL2*A062' HALT ID 1478 D6DSSODSDE4BU0E7 639
1374 CO 87 1392 589 B RTNSE PROCEED TO NEXT CHECK Go © 1480 E74OCE6C1E240C5D8 639
590 1488 E4C1D3 633
1378 cO 87 1089 591 RTNSD1 B SHIFT TO SHIFT BITS IN SECTOR HC. 148B E2C2"1DS8OCSD8E4 714AR 640 ERROSD DC CL32'*SCAN EQUAL OCCURRED AT SECTOR Xx?
137¢ 16CC 137D 592 pc AL2 (TSTSEC-2) ADDRESS OF SECTOR BYTE 9.0 1493 CID34OD6C3C3EKD9 640
V37E CO 87 ICDA 593 3 cvD TO CONVERT TO DECIMAL 189B DOCSCHSOCTE340E2 640
1382 1CCE 1383 594 DC AL2{ (CYLNO) ADDRESS OF SOURCE 14A3 CSC3E3DED94 CETEF 640
1384 1480 1385 $95 be AL2 (ERROSB-10) ADDRESS OF DESTINATION to Pea 1WAB 6BYOEZCBSD6ESD3C4K 474CD 641 ERROSC DC CL35', SHOULD HAVE OCCURRED AT SECTOR XX
*1386 3C 4O T47E 596 MVI ERROSB-12,c' * | 14B3 GOC8C1E5C540D6C3 641
138A CO B87 OZTA 597 B PRINT TO PRINT NC SCAN FOUND : 14BB CI EMDIDICSCUROCI 681
138E C6 138E 598 pc XL7°C6! FLAGS © G 14C3 E340E2CSC3E3D6D9 641
1387 54 138F 599 pc TL1*64u! LENGTH 18CB YOETE7 631
1396 1482 1391 600 c AL2 (ERRO5SB) MESSAGE ADDRESS 14CE 00 14CE 642 TSTSEC DC XL1i"0°
1382 1066 1393 601 DC XL2*A066! MESSAGE IDENTIFICATION Cc Cc IUCP C8CSCICS4OSONOE2 1502 643 pc CL52"*HEAD & SECTOR BYTE OP CONTROL FIELD CHARGED AFTER A °
139% CO 87 0222 602 B HALT TO DCP HALT 14D7 CSC3E3DED940C2ZEB 643
1398 A066 1399 603 pc XL2* A066" HALT ID 1UDP E3CSYODECE6S0C3D6 6493
604 GG 1WE7 DSE3D9LS6D340C6C9 683
13SA 0D 09 198E 14CE 605 RTNSE CLC WETDFC4+2(1),TSTSEC DID SCAN EQUAL OCCUR ON VHEF CSD3CHULOC3ICB8C1IDS 643
606 * EXPECTED SECTOR ? 44F7 C7C5C480C1C623C5 643
1300 P2 81 34 607 JE RTNSP JUMP IF YES 0 0o 1WFF D940C140 643
1343 CO 87 1C89 608 B SHIFT TO SHIFT SECTOR BITS 1503 F24N0E2CSC3E3D6D9 1528 644 ERROGD DC CL&i'2 SECTOR SCAB LOW OR EQUAL AT END OF CYL.
*13A7 198c 13A8 609 DC AL2 (WRT DFC) COXTROL FIELD ADDRESS 150B 80E2C3C1D540D3D6 644
13a9 CO 87 ICDA 610 B cvD TO CONVERT TO DECIMAL a6 1513 E64 0D6D9K0C5SD8ES 699
{ 34D 1CCE W3AE 611 pc AL2 (CYLNO) ADDRESS OF SOURCE 181B CID3XCCTE34XOCSLS 648
13QAF GAA 1330 612 DC AL2 (ERROSD) ADDRESS OF DESTINATION 1523 C44ODECE4NDC3E8BD3 644
13E1 3¢ 40 14:8 613 MVI ERROSD-2,C* * CG Cs 152B 4&B 6a4
614
1335 CO 87 1¢89 615 B SHIFT TO SHIFT BITS FOR EXPECTED :
13BS 14CC 13BA 616 pc AL2 (TSTSEC-2) ADDRESS OF EXPECTED FIELD So oe s
13BB CO 87 1CDA 617 B cvD TO CONVERT EXPECTED TO DECIMAL
13BF 1CCE 13CO0 618 pc AL2(CYLNO) ADDRESS OF SOURCE
13C1 T4CD 13C2. 619 pc AL2 (ERRO5C) DESTINATION ADDRESS oO oO
13€3 3c 80 14CB 620 MVI ERROSC-2,C* * |
621
13C7 CO 87 O21A 622 B PRINT TO PRINT SCAN EQUAL ON INCORRECT @ |e -
623 * SECTOR
13CB C6 13CB 624 pe XL7°C6# FLAGS 7
13CC 43 13cC 40625 pc IL1°67! LENGTH © | CS 7
13CD 14CD 13CE 626 pc AL2(ERROSC) MESSAGE ADDRESS “
13CF A06C 13D0 627 pc XL2*aA06C! MESSAGE IDENTIFICATION
13D1 CO 87 0222 628 B HALT TO DCP ERROR HALT G/1e
13D5 acéc 13D6 6293 DC XL2*a06C? HALT ID
630
13D7 OF 00 18CE 18F5 631 RTNSF ALC TSTSEC(1) ,ONESEC STEP TEST SECTOR NO. +1 O10 ae
13DD 3D 60 14CE 632 CLI TSTSEC,X'60! HAVE ALL SECTORS BEEN USED ?
13E1 CO 81 12C3 633 RTNSG BE RTNSA |
13£5 CO 87 12D7 634 B RTNSB TO USE NEXT SECTOR IF NO 8019
635
13E9 E3C8C54OD7TDIC5ES 141C 636 pc CL52'THE PREVIOUS ERRORS WERE PRESENT AFTER DOING A SCAN
*1371 CIDGEVE2ROCSD9DY 636 CGC Oa
13P9 D6DIEZ4OE6CSDICS 636
1401 SOD7D9CSE2C5D5E3 636 .
1409 4OCIC6E3C5D94 0C4 636 Cc °8o 3
1411 D6ECIDSC74HOC1INOE2 636
1819 C3C1D540 636
1W1D DIDE6EGSODE6D940CS5 1436 637 ERROSA DC CL26*LOW OR EQUAL OF 24 SECTORS* o 9
1825 D8EYC1D340D6C640 637
142D F2F4GOE2C5C3E3D6 637 ;
1835 D9E2 637 Oo oOo fo
1437 E2C3C1D540C5D8E4 1467 638 pc CL49*SCAN EQUAL NOT SET AFTER A 24 SECTOR SCAN LOY OR
*183F C1D34 ODSDEEIUOE2 638
1867 CSE34N0CIC6E3C5D9 638 o 98 7
TEP SOC1ROF2F4U4N0E2CS. 638
1857 C3E3D6D940E2C3C1 638
185PF DSSOD3D6E64 ODED9 638 © oe o
|
DATE 13MAR70 O06 APR70 22mAY70 01A0G70 PROG ID OAOB-2 © lo DATE 138AB70 O6APR70 22mAY70 0140670 PROG ID OaA0B-2 os
EC WO. 571512 571516 571513 571531 PAGE 7 EC NO. 571512 571516 571513 $71531 PAGE 7A
G:o :
IBM MAINTENANCE DIAGNOSTIC PROGRAN PART NO. 51296480 IBM MAINTENANCE DIAGNOSTIC PROGRAB PART FQ. = 5129680
PAGE 8 PAGE 8A |
oO e | -— o é " . -~ ca
AOB2 SCAR LoOo#® oR EQUAL AOB2 SCAR Low Oo 8 Foo atL
ERR LOC OBJECT CODE ADDR STST SOURCE STATEMENT S GS ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMEST fe
646 * ROUTINE NO. 06, CHECK FUNCTION OF END OF CYLINDER * 714 3,
647 © SENSE BIT, (BYTE 1, BIT 2) * QO oOo 15B8 CO 87 0222 715 B HALT TO DCP HALT i
683 + USING THE SCAN LOW OR Eg. COMMAND * 15BC ANSE 1SBD 776 pc XIL2° AOQGE® HALT IDENTIFICATION
689 717
650 * ROUTINE PREFACE Go 8s 15BE CO 87 1848 718 RTK6D B TSTDAT TO TEST DATA ADDRESS o
651 15C2 1D48 45C3 719 Dc AL2 (WORK) EXPECTED ADDRESS
152¢c 06 152¢ 652 RTN6 DC XL1"06! ROUTINE NUMBER 720
152D 00 152D 653 pc XL7i*00° ROUTINE FLAGS Q o iSc4& 3D OC 198F 721 CLI WETDFC+3,00 TEST SECTOR COUNTER FOR STEPPING
152E 1701 152F 658 pc AL2(RTN7) ADDRESS OF NEXT ROUTINE PREFIX 15CB8 F2 81 10 722 JE RTNGE JUMP IF CORRECT
655 1SCB CO 87 O21z 723 B PRINT TO PRINT SECTOR COUNTER WOT
1530 3D 00 03809 656 CLI SETS#,0 HAVE PARASETERS BEEN ENTERED? o SG 724 3 STEPPED CORRECTLY
1534 CO 81 OADD 657 BE SETDSK BRANCH IP WO. 1ISCF C6 i5CF 725 Dc KL1°7C6? PLAGS
1538 CO 87 OB6E 658 BTNSA B TSTSPN 15D0 60 15D0 726 DC IL1°96? LENGTH
153C 3c DC 198E 659 NVI WRTDPC+2,xX'DC? SET FOR READ 1, SECTOR 23 o G 15D1 1700 iSD2 727 pc AL2 (ERRO6C) MESSAGE ADDRESS
15490 cO 87 1817 360 B SEEKCE TO SEEK THE CE TRACK 15D3 A063 15D&u 728 DC XL2*2063° MESSAGE IDENTIFICATION
667 729
1544 CO 87 7880 662 RTN6A1 B TSTSEK TG TEST FOR A GOOD SEEK Co 86 15D5 CO 87 0222 730 B HALT TO DCP HALT
643 15D9 A063 i5DA 731 DC XL2'A063° HALT ID
1588 3¢ 07 1E47 668 RTNGB MMVI WORK+255,01 SET 732
156C OC FE 7E&6 1E47 665 MVC WORK#254 (255) ,WORK+255 WRITE PIELD Cc 98 iSDB 3D DC 198E 733 RTN6GE CLI WRTOFC+2,x*DC* CHECK HEAD & SECTOR RO. AFTER
666 734 ® WRITE IS COMPLETED, (SHOULD NOT STP)
1552 3c 00 196F 667 NVI WRTDPC+3,00 SET TO WRITE 1 SECTOR 1SDP F2 81 10 735 JE RTRGF JUSP IF KO CHANGE
668 Gc © 15E2 CO 87 021% 736 B PRINT TO PRINT ERROR
1556 C2 01 1D4a8 669 La WORK, XR1 SET WRITE DATA ADDRESS 15E6 C6 15& 737 Dc XLi'c6! FLAGS
155A 34 01 IAFF 670 ST DFDR,XR1 IN DATA CONTROL FIELD 15E7 5D 15E7 738 c ILi*#93¢ LENSTH
671 Gc Cf 15E8 152B 15E9 739 Dc AL2 (ERRO6D) MESSAGE ADDRESS
155E CO 87 19C4 672 B STRTIO TO WRITE DATA 15EA AOG6F ISEB 740 pe XL2'*A06F* MESSAGE IDENTIFICATION
1562 02 1562 673 Dc XL1*02¢ FUNCTION CODE (WRITE) 744
1563 00 1563 674 pc XL1'00? CONTROL CODE (DATA) CGC 15SEC CO 87 0222 742 B HALT TO DCP HALT
1564 198C 1565 675 Dc AL2 (WRTDFC) CONTROL FIELD ADDRESS 15FO AO6P ISF1 743 DC XL2*a06F* HALT ID
1566 CO 87 1572 676 B RTN6B1 GOOD RETURK 15FP2 CO 87 1538 744 RTK6F B RTH6A
156A CO 87 156E 677 B +44 o 8 745
156E CO 87 ODDI 678 B WRTER2 ERROR RETURN 15F6 CISOE3CSE2ZE340C9 1629 746 pc CL52*A TEST I/O ON ERROR DID NOT BRANCH APTER ATTEMPTING
*679 . ISFE 61D640DED540C5D9 786
1572 3c 00 1D48 680 RIKGB1 MVI wWORK,O SET DATA FIELD TO PREVENT Oo 8 1606 DSDEDI4OCUCSCHEO 746
681 * A SCAN FOUND ON LOW OR EQUAL 160E DSD6E340C2D9C1D5 746
1876 3c 01 198F 682 HVI WRTDFC+3,1 SET TO SCAN 2 SECTORS 1616 C3C840C 1C6EICSDY 746
IS7TA 3C DC 198E 683 BVI WRIDFC+2,x'DC* SET FOR HEAD 1, SECTOR 23 o oO IG1E BOCTEZEICSD4D7TE3 7456
688 1626 CSD5C740 746 f
157E cO 87 19C4 685 B STRTIO TO SCAN DATA, (EXPECT END OF CYL.) 162A E3D640E2C3C1D540 164D 747 ZRROGA DC CL35*TO SCAN LOW ORF EQUAL PAST END OF CYL
*1582 03 1582 686 pc KL1"03° FUNCTION CODE (SCAN) e Cs 1632 DIDEESLODSD9ROCS 787
1583 01 1583 687 pC XLYIO48 CONTROL CODE (LOW OR EQUAL) 163A DBE4CID3HODIC1E2 747
1584 198C 1585 688 DC AL2 (W@RTDFC) CONTROL FIELD ADDRESS 1642 E34OCSDS5SCH4ODECE 747
1586 CO 87 1592 689 B RTN6B2 GOOD RETURN, (NOT EXPECTED) Go oO 164A SOCZE8D3 74u7
158A CO 87 158E 690 B 44 SCAN FOUND, (NOT EXPECTED) 164E CSDSC4YODECE40C3 1681 748 DC CL52"* ERD OF CYL. SENSE BIT KOT SET AFTER ATTEMPTING TO SC
*158E CO 87 15A2 691 B RTN6C ERROR RETURN, (EXPECTED) 1656 ESD34BU0E2CSDSE2 788
692 Co @ 165E C540C2C9E340D5D6 748
1592 CO 87 O21A 693 RTN6B2 B PRINT TO PRINT NO ERROR FROM TIO 1665S E34OER2CSE3480C1C6 748
1596 C6 1596 698 Dc XL1°C6* FLAGS 166E E3CSD940C1E3E3C5 748
1597 58 1597 695 DC —-«xIL1"88 LENGTH Go 8S 1676 D4YDTE3CIDSCTHOES 748
1598 164D 1599 696 Dc AL2 (ERRO6A) MESSAGE ADDRESS 167E D64S0E2C3 748
15SA AO6D 159B 697 pc XL2*a06D!" MESSAGE IDENTIFICATION 1682 CiDS8OD3D6E640D6 1640 749 ERP B NC CL31°AN LOW OR EQUAL PAST END OF CYL"
698 CG © 168A DIXOCSDBESC1D380 749
159C CO 87 0222 699 B HALT TO DCP HALT ' 1632 DICIZZE340C5D5ca 789
1540 AO6D 15a1 700 DC XL2*a06D* HALT ID 1698 SODECE4OC3IE8D3 749
701 Go ¢ 16A1 E2C5C3Z3D6D940C3 16D4 750 ve CL52"*SECTOR COUNTER IN CONTROL FIELD NOT STEPPED CORRECTL®
15Aa2 CO 87 1995 702 RTN6C B SENSE TO SENSE DEVICE STATUS 16A9 DG6EYDSEICSD94OCS 750
1546 02 1546 703 pc AL1(STATO1) BYTES 0 & 1. 16B1 D54OC3D6D5E3D9D6 750
708 0.90 16B9 D340C6CICSD3C84O 750
15a7 38 20 19aCc 705 TBN STATUS,X'20° TEST BYTE 1 BIT 2 FOR OX, 16C1 DSDEEZ4OE2E3CSD7 750
706 * (THIS IS "END OF CYLINDER‘) 16C9 D7CSCUXOC3IDEDEDY 750
15AB F2 10 10 707 JT RTR6D JUMP IF ON 6 | 9 16D1 C5C3E3D3 750
708 16D5 ES¥OCICS6E3C5D940 1700 751 ERROGC DC CL4G'Y AFTER A SCAN LOW OR EQUAL PAST END OF CYL
*15AE CO 87 021A 709 B PRINT TO PRINT SENSE BIT NOT OF 16DD C140E2C3C 1D5480D3 751
15B2 C6 15B2. 710 De XL1°C6? FLAGS o 9 16E5 D6E640D6D980C5D8 751
15B3 53 15B3 711 pe IL1*'63* LENGTH 16ED EXC ID38OD7IC1E2E3 751
1SB4 16A0 15B5 712 pc AL2 (ERRO6B) NESSAGE ADDRESS 16P5 GOCSD5C44 0D6CH40 751
15B6 AO6E 1537 «+713 pc XL2'*a06E* MESSAGE IDENTIFICATION Qo ¢ * 16FD C3ESD340 751
DATE 138AR70 06APR70 22MAY70 8 8=6.0 10670 PROG ID 0a0B-2 G@ CG ovate 138AR70 O6APR70 228aY70 0140670 PROG ID OA0B-2
EC NO. 571512 571516 571513 571531 PAGE 8 EC HO. 571512 571516 571513 571531 PAGE 8a
ns t . “ee cere ee tw aS me ee Wi! Tee ela a eA . ~ 2
es
“y
ae
I
| | C
“IBM MAINTENANCE DIAGNOSTIC PROGRAS PART NO. 5129640 { IBS MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 51296480
PAGE 9 | PAGE 9A ;
aQB2 SCAR LOW OR EQUAL | AOB2 SCAN LOW OR EQUAL
ERR LOC OBJECT CODE ADDR STNT SOURCE STATEMENT Co lO ERR LOC OBJECT CODE ADDR STHT SOURCE STATEHENT te
753 * ROUTINE NO. 07, CHECK FUNCTION OF SCAN LOW OR EQUAL 815 * ROUTINE NO. 08, CHECK FUNCTION OF SCAM LOW OR EQUAL * =
758 * USING A DATA FIELD OF 286 BYTES eo 98 816 * WHERE ONE BYTZ IS COMPARED * o
755 * OF 5S BOTH IN MEMORY AND ON THE DISK 817 = AHD 255 BYTES ARE MASKED OFF
*756 818 7
757 * ROUTINE PREFACE Co So 1785 08 1785 819 RTN@ pC XL1#08° ROUTIKE KUMBER O
758 ' 1786 00 1786 820 pc XL7°008 ROUTINE FLAGS
17014 07 1707 759 RTWH7 vc XL1° 07? ROUTINE RUSBER 1787 FFFF 788 821 pc XL2°*FFFP* LAST ROUTINE PLAS as
1702 00 1702 760 DC XL7°008 ROUTINE FLAGS Oo:s 822 ‘
1703 1785 1708 76% DC AL2 (RTNB) ADDRESS OF NEXT ROUTINE . 1789 3D GO CBOS 823 CLI SETSH,0 HAVE PARANETERS BEEN ENTERED ?
162 178D CO 81 OAOD 824 BE SETDSK BRAWCH IF NO s
1705 3D CO OBOS 763 CEL SETS#,0 HAVE PRRAMETERS BEEN ENTERED 7? + i 1791 CO 87 OB6E 825 RTHSA B TSTSPE a
1709 CO 8? OAOD 768 BE SETDSK BRANCH IF NC 1795 3c 00 iS8E 826 HVT WRIDPC+2,0 SET FOR HEAD 0, SECTOR 6
170D CO 87 B66 765 RTX7A B TSTSPR 1799 CO 87 1817 827 B SEEKCE TO SEEK THE CE TRACK
1711 3C 00 198 766 BVI BETDFC+2,0 SET FOR HEAD 0, SECTOR 0 © © 828
1715 CO 87 1817 767 B SEEKCE TO SEEK THE CE TRACK 179D cO 67 1880 829 RTNSAl B TSTSEK TO TEST FOR A GOOD SEEX
768 830
1719 cO 87 186C 76S RTH7A1 B TSTSEK TO TEST FOR A GOGD SEEK Oo 17A1 3C OO 1E4&7 831 RTHSB YI WORK+255,0 SET
770 17A5 OC FE 1E46 1E47 832 BYC WORK+254(255) ,WORK*255 WRITE AREA
i71D 3C 55 iBu7 771 RTRTB NVI WORK#255,x'°558 SET 833
1721 OC FE 4246 1TEG7 772 AC JORK+254 (255) ,WORK4+255 DATA AREA Oo .@ 17AB 3c 00 198F 836 AVI BRTDFC+3,0 SET TO WRITE OXE SECTOR
773 V7AF C2 01 1D48B 835 LA WORK, XR1 SET WRITE DATA ADDRESS
1727 3c 00 198F 7748 BYI WRTDFC+3,9 SET TO WEITE ONE SECTOR 6 0 17B3 38 01 AFF 836 St DFDR, XB1 IN DATA CONTROL FIELD
375 837
172B C2 04 1D88 776 La FORK, XR1 SET WRITE DATA ADDRESS 1737 CO 87 719C4% 838 B STRTIO TO WRITE ONE SECTOR OF DATA
172F 34 O% 1AFP 777 ST DFDR, XR1 IN DATA CORTROL FIELD 17BB 02 17BB 839 pc XL1°02? FUNCTION CODE (WRITE)
778 Oo 6 17BC 00 17BC 880 pc XL7°O? CONTROL CODE (DATA)
1733 CO 87 19CX 779 B STRTIO TO WRITE ONE SECTOR OF DATA 17BD 198C 17BE 841 Dc AL2 (WRTDFC) CONTROL FIELD ADDRESS
1737 02 1737 780 Dc XL1°02" FUNCTION CODE (WRITE) 17BF CO 87 i7CB 842 B RTNSB1 GOOD RETURE
1738 00 1738 4781 pc XL1'O# CONTROL CODE (DATA) oO ¢ 17C3 CO 87 17C7 843 B &4+8
1739 196¢ 1738 782 pc AL2 (WET DFC) CONTROL FIELD ADDRESS 17C7 CG 87 ODDS B44 B WRTERZ ERROR RETURN FOR WRITE DATA
173B CO 87 1747 783 B RTN7BY GOOD RETURN 17CB 3C 62 1B6A 845 RTNSBI YI SESID,X'62* PUT ID IN PRINT
173F CO BF 1743 784 B e+ Oo Ss 17CF 3C 01 1£87 B46 HVE WORK+255,01 :
1743 CO 87 ODDE 785 B WRTER2 ERROR RETURN FOR WRITE DATA 17D3 3C FF 1546 847 AVI WORK+254,X'FF* SET DATA AREA FOR SCAY
786 17D7 OC FD 1E&85 1E46 848 NYC WORK?253 (25%) ,WORK4+258 .
4747 3C 62 1B6A 787 RTN7S1 RVI SHSID,X'62* PUT ID IN PRINT co e& 849 i
1748 3c OO i98P 788 SYI WRTDFC+3,9 SET TO SCAN ONE SECTOR 17DD 3c 00 198F 850 HVI BRTDPC+3,0 SET TC SCAN ONE SECTOR
1/4P CO 87 49C4 789 B STRETIO TO SCAN EQUAL 17E1 CO &7 79C4 851 B STRTIO TO SCAN ZQUAL :
1753 03 1753 790 DC XL1703°* FUNCTION CODE (SCAR) G CS 17E5 03 i7E5 852 pc XL1'03* FUNCTIOR CODE (SCAR) “se
. 9755 04 1758 «(791 DC XL1°01? CONTROL CODE { LOW OR EQUAL) T7E6 O14 I7E6 6853 pc XL1°O1# CONTROL CODE (LOW OR EQUAL)
1755 198C 1756 792 pc AL2 (WRTDFC) CONTROL FIELD ADDRESS. IEF 198C 17E8 858 DC AL2 (W@RTDPC) CONTROL FIELD ADDRESS 7
1757 CO 87 1771 733 B RTN7B2 RETURN FOR NO SCAN FOUND o °so W7E9 CO 87 1803 855 B RTNBBZ RETURN POR NO SCAR FOUND i
175B CO 8&7 1781 798 B ~RTN7C1 RETURN FOR SCAN FOUND WED CO 87 1813 856 B RTNSC1 RETURR FOR SCAN FOURD
795 857 4
1757 CO 87 1Bu3 796 B PRTSNS TO PRINT SENSE INFO Go CS 17F1 CO 87 1Bu3 858 B PRTSRS TO PRINT SENSE INFO Le
1763 06 1763 797 DC XL1°06" FLAGS 17F5 06 17F5 859 DC XL1° 06? PLAGS
1764 69 1764 798 DC IL1*96! LENGTH 17F6 60 17F6 860 DC IL1* 96! LENGTH -
1765 1128 1766 4799 DC AL2 (ERRO3A) MESSAGE ADDRESS Go 9 V7F7 112A 17F8 861 pc AL2 (ERR03A) MESSAGE ADDRESS we
1767 CO 87 0222 800 B HALT TO DCP HALT 17F9 CO 87 0222 862 B HALT TO DCP HALT
176B A062 176C 4801 DC XL2*a062° HALT ID 17FD A062 17FE 863 Dc XL2*a062¢ HALT ID 2
176D CO 87 1781 ae B RIN7TC1 oO GC 17FF CO 87 1813 B64 B RTRSC1
*865
1771 CO 87 O27A 804 RTN7B2 B PRINT TO PRINT NO SCAN FOURD 1803 CO 87 O21~A 866 RTHS"™? B PRINT TO PRINT NO SCAN FOUND :
1775 C6 1775 805 DBC XL1*°C6! FLAGS oO 1807 C6 1807 867 DC XL1°C6" FLAGS tae
1776 28 1776 806 DC IL1'43* LENGTH 1808 2B 1808 868 DC IL1* 438 LENGTH
4777 OFT3 1778 807 pc AL2{ ERRO2F) MESSAGE ADDRESS 1809 OF73 180A 869 DC AL2 (ERRO2P) MESSAGE ADDRESS =
1779 A066 177A «6808 pc XL2*aG66" MESSAGE ID eo ¢ 180B A065 180C 870 pe XL2* A066°* MESSAGE ADDRESS Ce
177B CO 87 0222 809 B HALT TO DCP ERROR HALT 180D CO 87 6222 8714 B HALT TO DCP ERROR HALT
177F A066 1780 810 pc XL2* 066° HALT ID 1811 A066 1812 872 Dc XL2* 2066" HALT ID
811 ° 8 873 C
1781 CO 87 170D 812 RTN7C1 B RINTA 1813 CO 87 1791 874% RTNSC1 B RTNSA
813 i |
o 9° &
9 8 CG
4 "
So ©
DATE 13NAR70 O6APR70 22HAY70 0 1A0G70 PROG ID OAOB-2 @ © oate 13HAR70 O6APR70 22mAY70 01A0G70 PROG ID OA0B-2 o
EC RnOw 571512 571516 571513 571531 PAGE 9 EC NO. 571512 571516 571513 571531 PAGE OB
rh a
: YL
OGRAB PART WO. §1296380
EBS MAINTENANCE DIAGKCSTIC PROGRAS PART WO. 5129680 IBM SAINTENANCE DIAGNOSTIC PR ee Sak
a os
sao SCAN LOS OR 2FDDAL AOB2 SCAN LOW OR EQUAL
So. N
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ef / ERR LOC OBJECT CODE ADDR START SOURCE STATERENT
& FP RE ERROR OCCURED =
876 ¢ SUBROUTINE TO SEEK THE CE TRACK i lo a x Gop ecee se SGECCE fnick .
877
946
1817 34 O08 184A 878 SEEKCE ST SEEKEI+3, ARR SAVE RETURN ADDRESS
v
181B OC 00 198D OBOA 873 MVC WRIDPC+1(1),TRACK# SET SEEK ADDRESS TO CE TRACK 0 vee oa ICDA seas ae SEEKER Be ee
1821 3c 09 1B6A 880 AVI SNSID,09 PUT ID IN PRINT © Sees ages wage 1GEG ae AL2 (ARIVED)
881 F
In TO PRINT ERROR OW SEEK
1825 CO 87 19C4 882 B STRTIO TO SEEK CZ TRACK lo ps oy 87 O21 wees bes re ae Pike
1829 00 1829 883 DC XL4*0# FUNCTION CODE (CONTROL) o es aa are. gee ee: av aoe Tenced
e200 oe Bae ne iis DFC} ead ele eaeee 1808 194C 4807 953 Dc AL2(SEKEE1) ADDRESS OF HESSRGE
182B 198C 18 2c c EPES aoe - i8C *ROaCe MESSAGE IDENTIFICATIOS®
482D CO B87 1847 886 B SEEKEX GOOD RETURK Gg | 18C8 AO3C 18c9 are SEEKID DC KL2*a03C
1831 CO 87 4835 887 3 wel TO PRINT SECOND LIRE
4835 CO 87 1B43 888 B PRTSNS TO DECCDE ERROR | 48CR CO 87 027K 956 B PRINT
? NT ERROR Gi e 18CE 61 18CE 957 DC XL1701
1839 CO 87 O2TA 885 B PRINT TO PRINT ER | Gary 47 i8cr 958 pc IL1*23
*r . 9 3 > G&G
183D 06 1B83D 890 De KL1°O6 FLAGS | oes Saas ogee a aaa)
183E 35 183E 691 DC ILi*S3 LENGTH oO ee
183F OC9B 1880 892 DC AL2 (EREORS} RESSAGE ADDRESS a Bee hae cana aca ‘ sacar TO PRINT SECOND LINE
1844 CO B7 0222 893 B HALT TO DCP HALT eign Sanh. bes a pe rikce
696 SUBROUTINE TO DETERMINE IF DATA ADDRESS * pa
x ;
aoe ones tener oO os 78DA 3c 00 0B11 966 BVI PASS,O
899 1BDZ 3C 00 0B09 967 HVI SETSW,O
184B 34 08 187F 900 TSTDAT ST DATEXT+3,ARR SAVE RETURN ADDRESS 3 18B2 3¢ od aoe as — on ao ce: PERO E: BARE
184F 35 02 187F 901 L DATEXT+3,XR2 LOAD XR2 WITH PARAMETER POINTER C- 18E6 ae wiiee-"670 ne ES KOget HALT ID
1853 2C 01 18F1 01 902 MVC WORK1(2),1(,XR2) MOVE EXPECTED ADDRESS FOR COMPARE 18EA AO sien a = -
1858 CE 01 187F 18P3 903 ALC DATEXT+3{ (2),TWO INCREASE LXIT ADDRESS 6 18EC CO B an
185k CO 87 1995 9048 B SENSE TO STORE DATA ADDRESS Co earecoune aSWi G79 Ones .e AL2 (*-#)
1862 Au 1862 505 DC AL1{ DATA) | seocenes Shae. G45: S65 ae ee oenne
8 G
1863 OD 01 19AC 18F1 907 CLC STATUS (2) , WORK1 CHECK DATA ADDRESS GO aes ee ane eee Tes aosteoes)
1869 F2 87 10 908 JE DATEXT JUMP IF ADDRESS i8F6 124 si
209 °* pet Cetera) Veuue TEPPED TO INCORRECT VALUE?
186C CO 87 O24 916 B PRINT TO PRINT DATA ADDRESS NOT CORRECT o | CG 188 ee 1922 a. DATPRY DC CL43*DATA ADDRESS WAS S
1870 C6 1870 914 DC XL1°C6! FLAGS 1900 Be eese ce ‘ S45
1871 25 1871 912 DC IL1#43# LENGTH O ace SOE2E3C5D Be Sap
1872 1922 1873 913 Dc AL2(DATPR1) ADDRESS OF MESSAGE © ye KOE3D680C9IDSCIDE aoe
187% AO3E 1875 914% DATID1 DC XL2* A032? MESSAGE IDENTIFICATION too ue se
1876 CO 87 0222 915 3 HALT TO DCP HALT WHILE SEEKING THE CE TRACK,?
487A AODBZE 187B 916 pc XL2*2C3E? HALT ID Cc © 1923 CSDSDSDEDSAGDEC3S 194C led SEKER? DBC CLU2*ERROR OCCURRED 9
187c cO 87 0000 917 DATEXT B *-¢ EXIT teas Parente a a eoccee aoe
918 :
919 ao | Cc 193B D2C9D5C740E3C8C5 979
920 * COME HERE TO TEST FOR A GOOD SEEK * seas Soe ooG
921 ‘ L. WO. XXX¢
1880 34 08 18Bu 922 TSTSEK ST SEKEXT+3, ARR SAVE RETURN ADDRESS oi °c 198D CIDODICIESCSCKAO 1963 a. ABIVED DC CL23°ARRIVED AT CY
1884 CO 87 1995 923 SKTSTA B SENSE TO SENSE DEVICE STATUS oe se pte tae aah
NESE 08 1288 eee ue BENT EON BERS 0 eds Co oO 1964 DIEGDSUOE2C5SC5D2 198B 981 SEKER2 DC CLUO*RUN SEEK TEST SECTION AO3 FOR MORE IWFO.
*1889 38 10 19aC 926 TBE STATUS,X'10! TEST THE SEEK BUSY SENSE BIT 196C 40E3CSE2ZE340E2C5 981
188D CO 10 1884 927 BT SKTSTA IP ON DO ANOTHER SENSE 1974 C3E3CIDEDSYOCIFO 981
1891 38 01 19aB 928 TBN STATUS-1,X'01' TEST FOR SEEK CHECK Go SC 197C FP34OCEDEDI“ODUDE 961
1895 F2 10 20 929 IT SEEKER IF ON, GO TO SEZK ERROR PRINT 1984 DICSSOCIDSCEDEUB 981
1898 CO 87 19c4 930 B STRTIO TO READ ID
189C 01 189C 931 DC XL1°01° o 9
189D 01 189) 932 DC XL1'O18
189E 1885 189F 933 DC AL2(IDFLD-2)
1840 CO 87 18a8 938 B 248 eo ¢
18A4 CO 87 18A8 935 B +4
18A8 OD 00 18B6 OBOA 936 CLC IDFLD-1(1) ,TRACK#
18AE F2 01 07 937 INE SEEKER. 9 ¢
938
939 |
18B1 CO 87 0000 9480 SEKEXT B a8 EXIT eG
18B5 000000 18B7 941 IDFLD DC . XL3*O?
982
943 °o @
PROG ID OAOB-2
DATE 138aR70 OGAPR70 22maY70 01A0G70 PROG ID OA0B-2 2) | G6 pate 138AR70 06APR70 22mAY70 caaee PAGE TOA
EC NO. 571512 571516 571513 571531 PAGE 10 EC NO. 571512 571516 571513 57153
} e | @
b 8 |e
ee
Le
i , ;
: es ss
{ ,
ae
Ce 7 2
IB MAINTENANCE DIAGNOSTIC PROGRAB PART NO. 51296480 IBM BRAINTENANCE DIAGHOSTIC PROGRAMS PART %0. 3129680
PAGE 11 PAGE TTA
Oo © 3
A0B2 SCAN LOB® OR EQUAL AOB2 scAN LOW OB EQUBAL
ERR LOC OBJECT CODE ADDR STMT SOURCE STATERERT CG © — eRR Loc ossEcTr cope ARDR STHT SCURCE STATENENT oe
198C 09 198C $83 wWRTDFC DC XL1"00° FLAG 1079 * START I/O SUBROUTIE? 7
198D 00 198D 984 DC XLI068 CYLINDER o @G 1020 }
198EB 00 198E 3985 pc XLI#O08 TRACK & SECTOR 19C4 38 O8 19K8 1021 STRTIO ST SETKR2, ARR SAVE ADDRESS RECALL REGISTER.
198F 00 198F 985 pc XL7*°0G? HO. OF SECTORS OR NO. OF TRACKS 19C8 35 02 i9a28 1022 L SETAR2,XR2Z LOAD ER2 WITH VALUE PROE ARE.
587 em 18CC 3C 00 iaFS 1023 RVI SAVYS¥,0G ZERO SWITCB
1990 00 1996 SBS RDDFC oC KLito0? FLAG 19D0 28 02 4A2K 00 162% BNR SI0+1,0(,X22) SET FONCTION CODE
1991 09 1991 989 DC XLI'008 CYLINDER 19D5 2C GS TAZB 01 1025 B¥C SI0+2(1)-1{ ,2R2} SET CONTROL CODE IK SI0
1992 65 1992 999 pc XL7°00" TRACK & SECTOR CG 49DA 2C O07 AFD 03 1626 HYC DFCR(2),3(,XR2) SET DATA ADDRESS FOR DFCR
19593 06 1933 $974 DC ZXLTO9C8 NO. OF SECTORS (CH NO. OF TRACKS T9DF 38 O68 TAZR 4027 TSTTE SBP SIG+1,x'068 SZT FOR RESOVABLE DISE#
1994 04 1994 $92 OE pc ELI‘Git . 1923 3B 08 4AB2 1028 SBF 8Si0+1,%'09% SET FOR REMOVABLE DISK
$93 Ce AS 19E7 39 08 1APB 1029 TBF DISKTP,£*08! TEST FOR BUN ON LOWER DISE
VSG SRA EE SEHR SEES EATERS ST CREAR ERE KEKE KEKE AREARAS HEAL SKRERESSEELEKES EER 19EB F2 16 08 3636 oT CKSEER JOSP IF RO
$95 = SENSE I/O ROUTINE 19EE 32 O08 1A2A 1031 SETPIX SBR SIO+1,x°08? SET POR FIZED DISE
1995 38 GB 19AE 396 SENSE ST SNSXR2,ARR SAYE ADDRESS RECALL REGISTER a © W9F2 32 O8 TAB2 1032 SBR RSIO+1, x08! SET FOR FISEO DISK
1999 35 07 46AE $3 L “SNSXE2,ER1 LOAD XR1 ITH YALUE PRON ARR. i9F6 BD OO 00 1033 CKSEEK CLI G{ ,XR2),00 TEST FOR SEER
1¢9p 18 63 1583 CO 938 MER SNS#1,0/,X81} HOVE IN FUNCTION CODE : 19P3 F2 81 80 1039 JE SETADRE f¥ TES, GO SET ADDRESS
1982 30 00 19aC 99% SKS SNS STATUS, & PERFORM SENSE Cc iSFC 31 AG TAFD 1035 LDFCR LIO DFCR, ¥* a6? LOAD CORTESL REGISTER
19A6 DO 87 G4 1000 5 1{ ,XR1} EXiT 1200 31 AW 1AFF 1036 LDFDR LIO DPDR,X?AR?! LOAD DATE REGISTER
10014 7 3A0&8 OC O00 19AF 182A 1037 HVC QCODE (1) ,SIG+i
V9A9 0000 1SAR 1602 SETXR2 pC XL25G8 (oe: TACA OC 00 1980 1A2B 1038 MYC CCODE(1},SYo+#2
19AB 0000 WAC 1903 STATUS DC XL2°*G* TA1G OC 01 19BE IAFD 1039 HVC DPFCRI(2},DPCR
19AD O00CS IGRE 700% SNSXRZ2 DC YLZ'G! a 5A16 OC 01 19C0 14PF 1040 HYC D¥FDRI (2}),DFDE
1005 on YA1C 35 01 TAFD 1004 L DFCR, EB1
1006 = EBRROR RECORDING TABLE * 4A20 1C 03 1988 G3 1082 HYC DCFI(8} ,3{ ,284
IGAF 1607 ETABLE EQD * 1A25 C2 01 1928 1043 LA 6600, £R1 LOAD DELAY VALUE IN ZRBi
SAF 90 19AF 1068 QCORE DC XL1*O8 *Q* CODE Cc. | 1A29 F3 AO 00 7044 SIC SIO ¥'00*, xf ag? START I/O OPERATICS
i9B0 00 19B5 1009 CCGDE pec XL1°O# CONTROL CODE 1A2C C1 A2 1B06 4Ou5 WAT TIO BUSY, K*a2?* TEST FOR BUSY
1957 0000 19B2 1070 SNSO1 c ELZ‘O? STATOS BYTES 0 §& 1 1A30 CO 87 1995 1086 B SENSE
1933 9060 19BK 7077 SNS23 DC XL2°C? STATUS BYTES 2 & 3 C JA3a 04 4k 34 1047 pc ELi¢gae
1985 00000000 19BB 1612 BDCFY pc KL&FOF DISK CONTROL FIELD, (INITIAL} JA35 OC 01 1902 1928C TOuS EYC DFDRF (2},STETOS
1939 o00n0006 19BC 1073 DCFF pc XLEtOs DISK CONTROL FIELD, (FINAL) 1A38 35 01 4AFD 10489 L DPCB, ER?
19BD 0600 19BE 1044 BrYCRI pC ¥LZ°O? CONTROL REGISTER ADDRESS Go WA3F iC 03 295C 03 16506 AVC DCFF (4) ,3{ ,%B 4)
1SBF 0006 19C0 4015 DFDRI pC X¥L2°9? DATA REGISTER ADDRESS, (INITIAL) ; A848 CO B7 3995 1054 5 SERSE
19C4 9000 19C2Z 1016 DFDRF pbc XL2*0* DATA REGISTER ADDRESS, (FINAL) 3ASB 02 TB4B 1652 BC XLi'G2
*19C3 00 19C3 1017 ROUTHG pc XL7*08 CURRENT ROUTINE WO. a oO TA4S CC 01 1982 i9AC 1053 BVC 8 =—-SRSO1 (2) ,, STATUS
TAUF CO 87 1995 1054 B SENSE
1853 03 1853 1055 pe XLi'O3* be
o SG 1454 0C 01 1988 19aCc 1056 HVC SNS23(2),STATUS
*VASA OC 00 19¢3 0A03 1057 RVC ROUTNO‘ST: ,BPPX
1A60 3D FF 1AF9 1058 CLI SAVSH,X*?P# IS SWITCH OF? Pe
© JA68 F2 01 OC 1059 JNE TSTERR IP KO, SKIP RESTORE a
1A67 SC 00 63 1APS8 1060 HVC 3(1,XR82) ,DPC3SV RESTORE W BYTE
1A6C BB C1 02 1061 SBF 2{ ,XR2),91 TORN OFF THE FOR/ REV BIT .
Ge 82D JA6P 35 02 79AaR 4062 L SETER2, X82 RESTORE PARAMETER POINTER =
1A73 £1 AO OC 1063 TSTEBR TIO 12{ ,XB2),X*AO* BRAXCH IF ERROR
1A76 E1 AG O08 106% TSTSCN TIO 8(,XR2),X°AS* BRANCH IF SCAN FOUND os
Ooic 1A79 EC 87 64 1065 B 4 (,XR2) EXIT i
1066
| 1067 * SUBROUTINE TO SET THE RUMBER OF TRACKS AND THE :
oO; e 1068 * DIRECTION (FORWARD OR REVERSE), TO SEEK 3
1069
| TA7C BD 01 01 1070 SETADR CLI 1(,XR2),0% IS THIS A RECALIBRATE? a
O44 1A7F F2 01 68 1071 IEE #47 IF NO, BYPASS SWITCH RESET io
1A82 3C O00 1aF6 1072 AVI FRESTPS,0 RESET RECALIBRATE SWITCH
1A86 2C 01 1B01 03 1673 HVC XR2WK(2},3(,X82) SAVE ADDR. OF CTL. PLD. ADDR. "as
Qo 6 ABB 35 O62 71B01 1074 L XR2WK,XR2 LOAD XR2 WITH CONTROL FLD. ADDR. ae
VASP 2C 00 IRFB 03 1075 BVC DFC3SV{ 1),3{ ,XR2) SAVE N BYTE IN CONTROL FIELD
1A94 3C PF APS 1076 HVI SAYSR,X?FF* SET SAVE SWITCH 7
2 e@ JA98 3D 00 1AF6 1077 CLI FRSTPS,00 IS THIS FIRST PASS a
1ASC F2 04 15 1078 INE SETADA SKIP RECALIBRATE IF wo
IAGP 3C 01 1AF6 1079 KVI FRSTPS,01 SET FIRST PASS SWITCH oa
Qo Ss 1AA3 BB 01 02 1080 SEF 2{ (,X82},01 SET FYD/REV BIT TO REV. 2
1AR6 BC FF 03 108% BVI 3(,XR2),255 SET MAXIMUM TRACK CROSSING
WAAS 3C 00 4AF? 1082 BVI LASTAD,CO SET OLD ADDER TO 0 m
Qo JAAD 31 AG AFD 1083 RLDFCR LIO DPCR,X*A6# LOAD DATA CONTROL REGISTER Oo
1AB1 F3 AO 00 108 RSIO SIO 00,X*AG* SEEK REVERSE
1085
Qo 8 1AB4Y 8D 00 01 1277 1086 SETADA CLC 1(1,XB2),LASTAD CONPARE PRESENT ADDR. WITH WEW OKE be
DATE TINARTO O6 APR70 22mAY70 01A0G70 PROG ID CA0B-2 @ G bate 13MAR70 O6APR70 22BAY70 O1A0G70 PROG ID OACB-2 <
EC KO. 571512 571516 571513 571531 PAGE 11 EC NO. 571512 571516 571513 571531 PAGE TTA
no G
| e)
ny
o
IBM MAINTENANCE DIAGNOSTIC PROGRAS
AOB2
ERE LOC
TABS
VABC
TABF
TAC2
TACB
JACD
TADG
VAD
TADB
TADE
TAEBY
TARY
VAET
TAEC
TAPI
VAPS
TREO
VRE?
TAFB
JAF9
WAFA
VAFC
WAFE
1B00
1302
1BOS
1B06
TBOA
iBOE
1B12
IBie
1B 16
1BIA
IBIE
1B IF
1820
1B22
1324
1328
1B2h
1B2E
1B36
1B3E
DATE
EC RO.
SCARS Low OR
OBJECT CODE ADDR
F2 81 25
F2 84 11
BB 07 62
OC O00 1AFPS 1APF7
2F 00 TAPS 01
F2 87 17
BA OF 02
2C O00 WAFS 01
OF 00 TAPS AF?
F2 87 06
BC 80 93
F2 67 OA
8C 00 03 IAF5
2C 00 TAF7 91
CO 8? i9FC
00 TAFS
00 TAP6
00 TAFT
00 TAF8
00 TAFS
0000 1A FB
0000 AFD
Das IAFF
0000 1B01
FPF 1B03
0294 1505
36 61 18B03
CO 84 TA2C
CO 87 ICDA
OAD3 1B 43
1Ba2 1815
3C 40 TBuO
CO 87 O21:
cé 1B 1E
15 13 FP
TB42 1B21
ROSE 1B23
CQ 87 0222
AOSE 1B29
co 87 0000
E3C9DUCSDEEYEINO 1B42
CIDSYXODIDEEXE3CY9
DS5C54 OETE7
OA03
T3NaR70 O6 APR70
571512 571516
EQUAL
STAT
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1709S
1700
110%
1102
1103
4708
1105
1106
1107
1108
1109
1149
1111
1112
1113
1174
1115
1116
1117
1118
11179
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1130
1130
1131
SOURCE
FRDSEK
NOSEER
SETADB
ADREXT
SCRCH
FRSTPS ©
LASTAD
DFC3S¥V
SAVS®
DISKTP
DFCR
DFDR
XR2WK
NEG1
SIXSIX
BUSY
THALT
TINOUT
RPFX
228 AY70
$71513
PART
PAGE
NO. 5129640
12
STATEMENT
JE NOSEEK EQUAL, SEEK IS NOT NECESSARY
JH FWDSEK NER ADDR. HIGHER, DO FORWARD SEEK
SBF 2(,XR2),01 NEW ADDR. LOWER, SET BIT FOR REY.
BVC SCRCH(1),LASTAD PLACE LAST ADDR IN WORKAREA
SLC SCRCH(1),1{ (,X82) SUBTRACT NE® ADDR. FROM LAST ADDR.
3 SETADB PROCEED
SBN 2{ ,XR2),01 SET BIT OX FOR FORRARD SEEK
SVC SCRCH(1),1(,XR2) PLACE NEW ADDR. IN WORKAREA
SLC SCRCH(1),LASTAD SUBTRACT LAST ADDR. FROH NEW ADDR.
J SETADB PROCEED
BYE 3(,XR2},0 SET NO. OF TKS. CROSSED TO ZERO.
3 ADREXT TO EXIT
HVC 3(1,%R2},SCRCH PLACE IN NO. OF TRACKS CROSSED
MYC LASTAD(1) ,1(,XR2) SAVE BE® ADDRESS
B LDFCR EXIT
DC XL1*00"
DC XL17*008
pc XL1*00"
DC XL1*00
pc XL1*008
pc XL2°08
pc AL2 (*-#)
Dc AL2 (WORK)
DC XL2*08
DC XL2"*TFFF
*pc IL2*0660°
R HEG1, XR1 DECRENENT DELAY COUNTER
BH WAIT RETURN TO TIO IF NOT TIME OUT
B cvD TINE OUT OCCURED, CONVERT ROUT. NO.
DC AL2 (RPFX) CURRENT ROUTINE NO.
DC AL2 (TINOUT) ADDRESS OF DESTINATION
MVI TIMOUT-2,C*
*B PRINT TO PRINT TIMEOUT OCCURED
pc XL1°C6" FLAGS
DC IL1*21! LENGTH
pc AL2 (TIMODT) MESSAGE ADDRESS
pc XL2*A08E* MESSAGE ID
B HALT TO DCP ERROR RALT
Dc XL2*AQBE* HALT ID
B 0
DC CL21'TIMEOUT IN ROUTINE Xxx!
EQU) xX*A03
0140670 PROG ID OA0B-2
571531 PAGE 12
¢}
Oo @®@ @ 6 @ 0 0 09 0 0 0 060 0 0 86
6
Corer eran casey pt te
eo 80 606 9 0 0 6 80 808 8 09 6&6 0 G0 6 0 090 06 86 8 8 6 6 CG 8 5 8 4
|
IBM MAINTERANCE DIAGNOSTIC PROGRANS
AOB2
ERR Loc
TBA3
TBa7
B&B
Bac
1B50
1351
1853
1B55
1B59
1B5D
1B61
1365
1866
1B67
1B69
1BeOB
1B79
1B75
13879
1B7C
1B80
1381
1B82
1BB4
15688
1B8B
1BBE
1B91
1B95
B99
1B9C
TBAO
IBA
TBA5
1BAg
IBAA
BAC
1BAE
1BB2
BBS
IBBA
BBB
TBBC
IBBE
1BC2
iBCA
1BD2
IBDT
1BDF
TBE?
IBEF
1BF1
1BF9
1c01
1c03
1COB
1013
DATE
EC
HO.
SCAH Low
OBJECT CODE
34
co
02
cG a7
62
19ac
BDA
08
87
1BCi
1995
O21E
3C 07 1885
TBPO
icsi
O27A
1B76
1Da7T
00
00
19AB
OB
co
01
12
1DS7
87 O2iA
3D 01
F2 81
1876
OA
E2 02 01
D2 07 12
CO 87 1B6B
3D 80
F2 81
3c 80
CO 87
03
1B85
1B85
1995
co
02
19aCc
1BDE
C2 02
co 87
co 87
02
1D
TBDE
cO 87 0000
87 O21E
1€81
1BSE
O21A
E2E3C1E3EXE280C2
E8E3CSE2& 0CSD540
C8CSE76B40
0000000000000000
DSD640DED740N 0400
8040404805 08080480
43040
CODSE3SCSD9ES5C5D5
E3CSD6D54 Op9Cc5D8
C&4B
DUC IEZ 22C9D5C74H0
CICACUD9KSeOD4IC}
D9D2
13H AR7O
371572
OGAPR?
571516
OR
ADDR
FESR
1550
1BS2
TBSu
1B65
1B66
iB68
TB6A
1380
1B81
1B83
TBA&
TBA9
1BAB
TBAD
BBA
BBB
BBD
1BD6
TBDE
TBFO
1002
C18
a
EQUAL
STEHT SOURCE
1433
*1138
1435
17136
4437
4138
1139
7780
1147
17482
1183
T1UsH
17145
T186
7187
17188
1149
1150
1151
1152
1153
7158
4155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
4166
4167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1381
1182
1183
1188
1185
1186
1187
1188
41188
1188
1189
1190
1190
3190
1791
1191
1191
1192
1192 =
1192
PRISHS
SRSID
ROVEBT
TSTBT
STPSKES
SENSB
SENSA
PRTHEX
PRETEXT
HEXSTA
STATED
22HAY70
571513
PART #0. $71296480
PAGE 12a
STATEMEST
SUBROUTIBRE TO PRINT THE CONTERTS OF DEVICE STATUS s
ST PRIEXT*3 ,ABR SAVE ADDRESS RECALL REGISTER
B SENSE TO PERFORM SENSE
pe AL1(STATO1) GET DEVICE STATUS BYTES 0 & 4.
B UNPACK TO UNPACK STATUS BYTES
DC XL1°02#
DC RL2(STATUS)
DC AL2 (HEXSTA-4)
BVI STPSNS+1,01 SET FOR CONPLETION OF FIRST 3YTE
LA STATWD,XR1 SET EZR TO POIRT TO PIRST RESSAGE
LA STBASK, ZR2 SET XR2 TO POLKT TO TEST NASK
B PRINT TO PRIBT SES SITH HEADING
pC KL1*c1°® FLAGS
DC ILV*04° LENGTH
DC AL2 (STATED) ADDRESS OF LAST PRINT CHARACTER
pc KL2*A0008 MESSAGE IDENTIFICATION
MYC TSTBT¢7(1) ,0(,XB2) SET SASK BIT IB TEST BITS IWSTRUCT.
BVC STATPR(18),0(,XB1) SET HESSAGE IN FIELD
TBN STATUS-1,%-# TEST CURRENT SIT FOR ON
IF STPSES BYPASS PRINT IF OFF
8B PRINT TO PRINT SNS WITHOUT HEADING
DC XL1"01? FLAGS
DC IL1*18* LENGTH
DC AL2 (STATPR) ADDRESS OF LAST PRINT CHARACTER
CLI TSTBT4+1,X'O1* HAS THE LAST BIT BEEN CHECKED?
JE SENSA IP YES, GO TO EXIT
LA 1(,XR2) ,XR2 STEP XR2 TO POINT TO NEXT MASK BIT
LA 48(,XE1) ,XR1 STEP XR1 TO POIKT TO NEXT SESSAGE
B HOVEBT GO TEST NEXT SEKSE BIT
CLI SIPSNS+1,X*80°
JE PRTHEX
MVI STPSNS+1,X*80°
B SENSE
DC XL1°03
*B UNPACK
DC XL1°02"
DC AL2 (STATUS)
DC AL2 (HEXSTA)
LA STHASK, XR2
B SENSB
B PRINT
DC XL1°02°
DC IL1*29¢
DC AL2 (BEXSTA)
B e+ SUBROUTINE EXIT
DC CL21'STATUS BYTES IN HEX, °
DC XL8"0
*DC CL18*BO OP ‘
pc CLI8*INTERVENTION BEOQD.
*DC CLIB*NISSING ADDR. MARK®
010670 PROG ID Oa0B-2
PAGE
571531
CCOOTC CC CC COCO EO OOS ECCS
i2a
Bel vec neti alae teearen Lo Oh ays
.. IBM MAINTENANCE DIAGNOSTIC PROGRAE
. aOB2
. BRR LOC
1c15
CID
125
1027
IC2F
1037
1039
1c44
1049
1cus
1053
ICSB
iC 5D
1c65
7C6D
ic6F
177
CTP
1c81
1c85
189
1C8D
1¢91
1c95
1099
1CSD
CRY
1CAS
ICA
ICAD
TCB2
WCBS
CBS
ICBC
icc0
1CC3
1oC6
1CCA
ICCE
1CCF
ICDO
1CD1
1CD2
1CD3
ICDA
icps
IcD6
1CD7
1cD8
DATE
EC WO.
sCcAwW LOW
OBJECT CODE
CSDBESCID7TDACSDS
EIVOCICBECSC3ID24D
8080
CHCTEICWOC3ICBCS
C3D24N 0404 OU O4OR0
&U40
DSD64ODICSC3IDELI
CUHOCEDEERSDSC44D
BOLO
E3D240C3D6EN5C4C9
E3C9D6D54O0C3CBC5
C3D2
E2CSCS5D28 0C3C8C5
CIDZNO4ORORONOND
4040
E&DSE2CIC6C540N0
4040808 040804040
8040
80402010
08040201
34
35
35
36
34
3c
c2
75
2c
2c
78
F2
3A
3D
F2
E2
co
co
08
01
02
02
02
90
02
01
00
00
090
90
00
80
81
02
87
87
iccD
iccD
iccD
18F3
1ccD
ICCE
ICCF
01
1CB3
1CB9
02
04
iCCE
1CB3
07
01
CAB
06000
00
05
00
08
08
10
20
uo
01
02
0a
08
10
13MAR70
571512
oR
ADDR
3026
IC 38
ICA
1cSc
1C6E
iC 80
1ic81
1c 84
1C 88
ICCE
1CCF
10D6
1cD1
1C D2
1CD3
1cDa
1cD5
1036
1CD7
1cD8
O6APRT70
571516
EOQUATL
STST SOURCE STATES
4193 bc
41193
4193
11948 DC
T1948
4198
4195 bc
1195
1495
1796 DC
3196
1196
1197 DC
1197
1797
3198 STATB2 BC
1198
4198
1199 STMASK EQU
1209 pe
4201 pc
1202 * SUBROU
1203
120% SHIFT ST
1205 L
3206 -L
1207 A
1208 ST
1209 mV
12170 LA
271 L
1272 MVCTBN BYC
1243 RYC
1274 TBR TSN
1215 J
1216 SER SBN
1217 CLI
1218 JE
1279 LA
1220 B
1221 SHFEXT B
1222
1223 CYLNO DC
1228
1225 SHFTBL DC
1226 pc
41227 pc
1228 Dc
1229 pc
1230 pe
1231 pc
1232 bec
1233 pc
1234 oc
228 aY70 01A0G70
571513 571531
States 2 abe, woe EST G la OS, eS eter ee RT te hile ates a Rog: eo ene a ee eee oer ed a aoa Gy es eae sw
PART WO.
PAGE
51296460
13
ENT
CLIS'EQUIPMENT CHECK bd
CL18*DATA CHECK :
CLi8'NO RECORD FOUND .
CLi8'*TK CONDITION CHECK®
CLI8*SEEK CHECK '
CLIB' ONSAFE ‘
*
XL4*804920105
XL8*080480201
*TINE TO SHIFT BITS IN CONTROL FIELD
SHFEXT+3,ABR STORE ADDRESS RECALL REGISTER
SHFEXT+3,XR1 LOAD EXIT ADDRESS IN XR1
SHFEXT+3,XR2 LOAD EXIT ADDRESS IN XR2
TWO, XR2 INCREASE BY 2
SHFEXT+3,XR2 STORE FOR TRUE EXIT ADDRESS
CYLNO,0 ZERO WORK AREA
SHFTBL, XR2 LOAD ADDRESS OF SHIFT TABLE IN XR2
1(,XR1) ,XR1.
TBN+1 (1) ,0(,XR2)
SBN41(1) ,5(,XR 2}
2(,XR1) ,*#-
*“+7
CYLNO,*-
*TBN+1,X*40?
SHFEXT
1(,XR2) ,XR2
S¥YCT BH
*—
*LOAD CGNTROL FIELD ADDRESS IK XR1
INSERT CORRECT MASK FOR TEST BITS
INSERT CORRECT BITS FOR SET BITS
TEST ONE BIT FOR ON
JUMP IF OFF
SET ONE BIT ON IN DECIMAL FIELD
TEST FOR LAST BIT
SUBP TO EXIT IPF ALL DONE
NOT DONE, STEP XR2
TO TEST NEXT BIT
EXIT
xLi70°
*XL1"0g'
XL1*08
*XL1*10°
XL1*20
*XL1*80¢
XL1°01°
XL1'02¢
XL1*08¢
X1L1*08
*XL1*10
*PROG ID
PAGE
OA0B-2
13
o 9 606 02 6 8 8 ©
©
O
a
Q
© © 6 @6©@ 8 8 6 8 8 O88 lO LG
benniemc
0 008808 @lOeOUCeBelhlUCOlCUCOUCUCUCOUCUCUCOUCUCOWUCUCOOWUUCOWUCUCOCLUCOOUUCUO
0 0 9 90 @ @ 0 9 O
O
Q
Fw Bee ee
Be ee ess Kh,
IBM MAINTENANCE DIAGNOSTIC PROGRAB
AOB2
ERR LOC
1CD9
ICDA
1CDE
ICE2
1CE6
ICEA
1CEE
1CF2
1CF6
CFC
1b02
1D08
IDOE
1D14
ID1A
1DiID
1D23
1D27
ID2B
1D2C
1ID34&
1D36
1D458
1E48S
DATE
Ec wo.
scan Lo#® Ok
OBJECT CODE ADDR
00 1cD9
36 08 1998
34 08 1CFB
36 08 18F3
34% 08 1D01
34 08 1D07
36 08 1994
34 08 1D2A
oc 01 1D0D 0000
OC 01 1D2C 00056
oc 07 1D11 0000
oc 00 1CD9 0000
04 20 0000 1D35
OF 00 1CD9 1994
F2 82 OA
06 20 0000 1D2B
cO 87 1D18
cO 87 0000
Fi 1D 2B
PIF2F3F4F5F6F7FB8 1D35
F9FO
D4?
1D4as
TEUT
1E48
TP 47
0003
0076
0001
0002
0008
0002
0003
00 a6
OOAN
0080
0040
0208
020A
0212
*02 16
021A
N21E
0222
O22Aa
003c
003F
OBFD
13H AR70 O6APR7O0
571512 571516
EQUAL
STNT SOURCE
1236
*1237
1238
1239
1240
1244
1242
1243
1246
1285
1246
12487
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1278
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
1285
HXBYT
cvD
PRON
TYBOT
OTORZ
PROBYT
ZROTO
DECGAR
TOBYT
TIXE
DECORE
UNITS
STATPR
WORK
READ
1
H2
zRi
XR2
ARR
STATO1
STAT23
CTRL
DATA
BiTO
BIT!
SWITCH
SECTSW
TEST
LINK
UONPACK
HALT
LOAD
EP
HA
22HAY70
571513
PART HO. 5129620
PAGE 3a
STATEMENT
SUBROUTINE TO CONVERT A NUMBER TO DECIMAL
pc XL1"0°
A ONE, ARB ADD ONE TO GET FIRST PARAMETER
ST FRON¢S, ARR INSERT THE FROM ADDRESS
A TWO, ARB ADD TKO TO GET THE SECOND PARANETER
ST TYBOT+5, ARR INSERT THE TO ADDR
ST OTORZ+5, ARR
A OWE, ARR ADD ONE POR EXIT ADDRESS
ST TIXE+3,ABR STORE EXIT ADDRESS
MVC FROBYT+5(2),%-
*MYC TOBYT+3(2) ,*-
*MVC ZROTO+3(2) ,*-
*MVC HXBYT(1),*-* PUT BYTE IK WORK AREA
ZAZ *-#*(3),0NITS (1) ZERO THE TO AREA
SLC HZBYT(1),ONE DECREMENT THE HEX BYTE
JL TIXE JUMP IP BELO® 1
AZ *-* (3) , DECONE (1) INCREMENT THE DECIMAL COURT
B DECGAN
B -* ExIT
DC cLitt?
Dc CL10* 12346567890"
Ds CL18
EQU. ®
DS CL256
EOU)
*DS CL256
EQU = X03" HALT DISPLAY 1
EQU X*76 HALT DISPLAY 2
EQU 01
EQU. 02
EQU 6:08
EQU. x*02?
EQU -x*03
*EQU X*A6?
EQU) xXx*A~g?
EQU) 8 0x*80"
EQD) x*HOF
EQU X*20B
*EQU x*'20a!
EQU X*212°
EQU X*216
*EQU xX*21~®
EQU) X'21E
*EQD) Xx'222
*EQU) Xx*22a°
EQU. x*3C* HALT DISPLAY F
EQU) x'3P* HALT DISPLAY A
END BEGIN
01A0G70 PROG ID OA0B-2
571531 PAGE 13a
aa
“ea?
c 6C
IBS MAINTENANCE DIAGNOSTIC PROGRAN PART NO. 5129680 IBN MAINTENANCE DIAGNOSTIC PROGRAR PART NO. 5129680
PAGE 14 PAGE TQA
oe. 6U6S
A0B2 SCAN LOW OR EQUAL AOB2 SCAN LOW OR EQUAL
CROSS~REP ERENCE a SC CROSS-REF ERENCE
SYMBOL T LEN VALUE DEFN REFERENCES “6 SYMBOL T LEN VALUE DEP REYERERCES
ADREXT A 00% AF1 7108 7100 eC IDPLD A 003 1887 098% 0933 0936 90988
ARIVED A 223 1963 0980 09489 0959 INVPLG A 019 OB24 0764 6122
ARR C 001 0008 1268 0025 0108 0878 6900 0922 0996 1021 1135 120% 1239 1240 12418 CG | G LASTAD A 001 1AP7 14107 1082* 1086 1090 1096 1703
*41242 1243 1244* 1245 LDFCR & 008 19FC 1035 0058* 0058* 0066 0667 0068 0069 0670 0071 OO72 0073 1108
AOb kh 007 0000 0002 | LDFDR & 004 1A00 1036 0066#
BEGIN & 004 OBFD 0168 4285 @ | G Link c 001 06216 1278 0158
BITO Cc 001 0080 1273 | LOAD COG? 022A 1282 0051
BIT? C 004 0080 1274 MOVEBT A 065 1B6B 1152 4168
BUSY A 004% 4806 4116 10485 oC | © nvcrBR A005 1CA8 1212 1220
CCODE A&A 00% 1980 1009 10338 NEG1 A 062 <1B03 11748 1716
CKSEEK A 003 19FP6 1033 1936 | HOSEEK A 003 1AE1 1099 1087
CTRL C 067 0086 1271 © | G wNounrT A 026 GBOS 0092 0048
CVD A 00% CDA 1239 0262 0394 0593 0610 0617 O987 1118 ONE A 001 1994 0992 4239 1288 1251
CYLWO A OG4 CCE 1223 0263 0395 05948 061% 0618 1209% 12168 | ONESEC A 002 18F5 0975 6555 0631
DATA Cc O01 OCOAN 1272 0905 GQ | @ oTrorz aA 006 iDO2 1268 1243%
DATEXT A 0O& 187C 0917 o090o* 090% 0903* 0908 PASS A 004 OBi7 6103 07109 0111% 0153% 0966%
DATID1 A 002 1875 0914 | PRINT C001 O217A 1279 0045 0081 0085 0119 0186 0200 0267 0275 0285 06296 9313 0326
DATPR1 A 043 1922 0978 0913 Qo .S 0399 O807 O4820 oO882 O889 0507 0583 0597 0622 0693 3705 6723
DCPF A 008 19BC 1013 1050* 0736 0808 0866 0889 0919 0956 0956 0961 1122 147 3358 1782
DCFI A 004 19B8 1012 10402 PRTEXT 2 008 ‘BBE 1186 41352
DECGAN A 006 %D18 1251 1258 © GCG PRTHEX A 004 1BB6 1182 1171
DECONE A 007 1D2B 1256 1253 PRTSNS A 008 18483 1135 0266 0324 0398 0881 0582 0796 0858 0883
DPCR A 002 ‘AFD 1111 1026* 1035 1039 1081 1089 1083 PRTSPN A OO4 OADS 0081 0079
DFCRI A 002 19BE 1018 1039* Cc © QcopDE aA 001 19AF 1008 1037%
DFC3SV A 0C1 1AF8 1108 1060 1075* RDDFC A 001 1890 0988 0176% 01775 O182
DFDR & 002 AFF 14112 0239*% 0371% 0459* 0536* 0559* 0670* 0777% 0836* 1036 1040 READ A 001 TE&B 1261 0558
DFDRF aA 002 19C2 10616 1048% CG © — RERVDS A 001 0808 0095 0033* 0062* 0136
DFDRI A 002 19c0 1015 1080*% RLDFCR A OOS ‘AAD 1083 0072
*DISKTP A 002 ‘AFB 1110 0141* 0147% 1029 , ROUTNO A 001 19C3 1017 1057#
ERRORS A CO6 OC9B 0211 0892 Cc GG — RPFX C001 OA03 1131 1057. 1119
ERROZA A 043 OES1 0335 0264 0265* 027¢ RSIO A003 1AB1 1084 0073* 1628* 1032%
ERRO2B A 043 GE7C 0336 9288 RTN1 A001 OBFS 0164 0012
ERRO2C A 013 OEBB 0338 0316 @ jG eTnia a 004 OcOS 0170 0208
ERRO2D A 015 OEFE 0340 0299 RTN1A1 A 00% OC15 0175
ERROTE A 025 OPSB 0342 0329 RTNIA2 A004 0C37 0186 0183
ERRO2ZP A O43 OFT73 0343 0278 0410 0807 0869 O CG RTNIB A008 OCc47 0194 0185
ERRO3A A 037 112A 0433 0396 0397* 0802 0799 0861 RTNIC A 004 OC63 0208 0198
ERRO3B A 036 10D1 0431 0423 RTN2 A001 GCDF 0220 0166
ERROSA A 072 1274 0511 0485 OG ' CG Retr2a A 008 OCEB 0226 0321 0332
ERROUWB A 025 125D 0513 0492 ETN2A1 A 00% OCF7 0230
ERROUC A 046 12B6 0515 0504 RTN2B A 00% OCFB 0232
ERROSA A 026 1436 0637 0586 CG © — RTN281 Rk 004 OD29 0249 0245
ERROSB A 035 788A 0639 0595 0596* 0600 RTN2B2 2 008 OD69 0275 0257
ERROSC A 035 18CD 0641 0619 0620* 0626 RTN2C A 00% OD41 0260
ERROSD A 032 14AA 0640 0612 06134 OQ . GCG — ein2c1 a 004% 0D79 0283 0258 0273
ERRO6GA A 036 164D 0747 0696 RTN2C2 A 00% OD90 0293 0284
ERRO6B A 031 1680 0749 0712 RTN2D A 904 ODA7 0304 02¢5
ERRO6C A ONN 1700 0751 0727 © © — RTN2E aA 004 ODCS5S 0313 0306
ERRO6D A 041 152B 0644 0739 RTN2PF A 063 ODAB 0305 0311
ERR1A A015 OCDE 0213 0189 RTN2G A008 ODDS 0321 0310
ERR1B A 028 OFBF 0345 0203 © © etx3 A 001 OFCO 0352 0222
ETABLE A 001 19AF 1007 0013 RTN3A A 004 OFCC 0358 0428
FIXED A 004 OBD2 01485 0140 RTN3A1 A 004 OFDS 0362
FROBYT A 006 1D08 1249 1246% © G eRry3B A008 OFDC 0364
PROM A 006 1CF6 1246 1280* RTN3B7 A 00% 100A 0381 0377
FRSTPS A 001 1AF6 1106 0089* 0968* 1072* 1077 1079 RTN3B2 A 0O& 104A 0407 0389
FRDSEK A 003 1AD0 10948 1088 QO @G — RTN3C A 004 1022 0392
HA Cc 001 O03F 1284 RTNW3C1 A 004 105A 0415 0390 0405
HALT C001 0222 1281 0125 0191 0205 0271 0280 0290 0301 0318 0330 0403 0412 0825 RTN3D A GOK 1076 0828 6419
0886 0494 0506 0587 0602 0628 0699 0715 0730 06742 0800 0809 @ ©G Retro 2 09% 112B 0480 0358
0862 0871 0893 0975. 89969. 1127 RTNSA A O04 1137 0846 0509
HEXSTA A 008 ‘1BDE 1189 1141 1179 1185 RTN4YAT A 008 1143 0850
uF C001 003c 1283 G@ CG RTN4B A 008 4187 0452
HXBYT A007 1CD9 1238 1209 1251% STNSB1 A OO% 14775 0869 0465
H1 C 001 0003 1268 RTNSB2 A O08 1185 0489 0478 ao
y H2 C 001 0076 1265 @ @G etysc 2 008 1193 04881
[DATE 13MAR70 O6APRT7O 22mAY70 01A0G670 PROG ID OA0B-2 G SO ovate 13MAR70 06 APR70 22HAY70 01A0670 PROG ID OA0B-2
EC WO. 571512 571516 571513 571531 PAGE 14 EC RO. $71512 571516 571513 571531 PAGE 13a
> e@ @
B eo Se
©®CCOCHCHCHCOHOSCCHOHOHOC OAS OOOOH OOOOCOOOEEOSE
IBM MAINTENANCE DIAGNOSTIC PROGRAB PART HO. 5129640 IBM MAINTENANCE DIAGNOSTIC PROGRAS PART NO. 5129680
PAGE 15 PAGE ISA 7
C18 a
AOB2 SCAE LOW OR EQUAL AOB2 SCAB LOW OR EQUAL
CROSS~REFERENCE Gis CROSS-REFEREWLE
SYMBOL T LEW VALUE DEFN REFEREKCES cle SYMBOL T LER VALUE DEFE REFERENCES +
RTNGC1 A 008 1185 0897 0479 SETSW A 001 O809 0096 O026* 0049s 0155 0168 0224 0356 C&&R 0526 0656 0763 0823 0967%
RTNSD & 004 1151 0509 0560 SETXR2 28 002 1942 1902 1621 1022 1062 ‘<
RTHS A 001 1287 0522 0482 G @G sarext a cos icca 1221 1208* 1205 1206 1208% 1278 we
RTNSA & 004 12C3 0528 0633 SHPTBL A O04 CCF 14225 1240
RTNSA1 A 004 42CF 0532 SHIFT A O04 %4C89 1208 0260 0392 059% o608 0615 x“
RTW5B A& 00% 12D7 0535 0638 CG CG sro A003 iA29 1083 OO67* 162% 4025% 7027% 1037% 1637 1938 a
RTNSBT A O04 42F7 0504 0556 © SIZSIX aA 0902 TBOS iVis
RTNSB2 A 00% 130P 0553 C549 SKTSTA A 002 7886 9923 0927 7
BTXSC & 0O& 14326 0558 0558 © © — sss A O0& 922 6999 OG7is o9Sas ”
RTNSD A 00K 1386 0571 0567 SRSID A OCZ 1B6R 115% 0235* 02459% 0323* 0367% 63816 O455" 0469% 0573* 0787% 08459 08864
RTN5D7 A 008 1378 0593 0579 SHSX¥R2 A 002 SKE 7004 0308% 0309 0oS96* 0997 : =
STNSE A&A COG 139A 0605 6580 0589 © € $ns01 A 002 1982 1016 1053* -
RTNSP A O06 %33D7 0631 0607 SNS23. A COZ 19BR 1011 10562
ETN5S & 008 3381 0633 SPNDLA A 001 CBGR 0098 GO54a
KTS A GOi 1520 06652 0524 Gc © SPNDLB A O01 OBOC 0099 0058
RTNGA £ 004 %538 0658 O78% SPNSSG A528 OB3C 0105 0055* 0059*% o088
RTN6GAT A OCU 1588 0662 STATB2 &2 018 iC80 1198
RTH6B A 0OS 1588 0668 C G statpr A 018 De? 1258 4153* 1161 :
RTHS5B1 A 008 1572 0680 0676 STATUS A 002 79AC 7003 GO78 0771* 0196 0818 0499 O705 $997 9926 0928 09973 1988 4053
RTNGB2 A 004 1592 0693 6689 4056 1140 1155 1178
RTN6C A OOK’ 5R2 0702 069% Oo. 6 STATED A 018 BPG 1190 7188 1750
BTN6D & 004 SBE 0718 0707 STATO? C 002 9002 1269 0795 0816 6898 9703 06828 1137
RTN6GE A 0OS 15DB 6733 0722 STAT23 C 001 0003 1279
RTNGF A COU 15F2 O7MG 0735 CG oo STHASK Bh 001 108% 1189 1185 47186
RTN7 & 001 1701 0759 0654 STPSNS A 008 188% 1163 1183* 4156 1170 1172¢ :
RIN7A A CO4& 170D 0765 0812 STRTIO A 008 19C4 1021 0179 028% 0253 0373 0385 0861 O878 0535 0563 9575 O872 0685
RIN7TA1 A 008 17179 0769 oO CG 0779 0789 0838 0851 0882 0930
RTN7B A 004 1471D 0771 SWITCH C 001 0208 1275 0038 0038
RTN7B? & 00% 1747 0787 0783 TBN A 003 %CB2 1274 12712® 1217 ;
RTN7B2 a 004 1771 0804 0793 QO GQ TEst c 001 0212 1277 0127 “
RTN7C1 A 004 1781 0812 0795 0862 THALT A 008 1824 1127
RTNS a GOl 1785 0819 0761 TIMOUT A 021 B82 1130 1120 41278 1125
RTNSA 8A COU 1794 0825 0874 GO © TIxEe a 008 iDp27 1255 4265* 1252
RTNSA? 8 008 179D 0829 TOBYT A 006 DID 1253 12478
ETN8B A O08 47A1 = 0831 TRACKS A 001 OBOR 0097 0077* 0080* 0879 9936
ETNBB1 A 004 17CB 0845 9842 oO © TSTBT A 004 14875 1155 1152* 1163
RTN8SB2 A 004 1803 0866 0855 TSTDAT A 004 18458 09006 0718
BINSC? A 005 1813 O878 0856 0868 TSTERP 2 O03 A732 1063 0069% 1059
RUNPIX A 00% OBOE 0101 0113 0138* 0185 0188= . G © wTSTEXT & 904 OBEi 0156 0108* 0183
RUWRMV A 00% OBOD 0100 0132* 0139 0142% TSTFIX A 004% OBAR 60134 6131
SAVS€ A 001 TAF9 1109 1023* 1058 1076% TSTREY A OOK OBA3 0130 60118 A
SBN A 00% CBB 1216 1213% @C CC os rstscr a 003 1076 1068 0070* “
SCRCH A OO1 AFS 7105 1090* 1091* 1095* 1096% 1102 TSTSEC A 001 18CE 06582 0538* 0561 0592 0605 0616 0631*% 0632
SECNSG A 041 CB65 0106 oo88 TSTSEL A 00% 1886 0922 O17E 0230 0362 0450 0532 0662 0769 0829 x
SECTSW C 007 O20A 1276 04177 0130 0138 ©& G Tstspxr a 004 O866 0108 0170 0226 0358 06846 06528 0658 0765 0825 J
SEEKCE A 004% 1817 vU878 0173 0228 0360 0448 0530 0660 ©7657 0827 TSTSH A OCS OBBE 0417 0712 0128
SEEKER A 008 18BB 0987 0929 0937 TSTTP A OCH 19DF 1027
SEEKEX A 004 1847 0895 0878* 0886 Oo CS two R002 1873 0974 0903 1207 1241
SEEKID A 092 18C9 0954 TWOZR A002 OBIG 0102 0050 0113 0177 0470
SEKER?1 A 082 198C 0979 0953 TYBOT A 006 CFC 1247 1242
*SEXER2 A 040 198B 0981 0968 CG G&G uprprr a 002 oOB07 0093 0028 0031* 0032 9050 0065%
SEKEXT A 008 1881 0940 09226 UFIND? A 00% CA28 0032 0029
SENSA & 004 1895 1170 1168 UFIND2 A 00% OA20 0031 0084 2
SENSB A 003 ‘BSE 1167 1181 6 .CG UNITS a 010 14D35 1257 4250 ~
SENSE A 008 1995 0996 0078 0198 0415 0897 0702 0908 0923 1086 1051 1058 1136 1173 | UNPACK C 001 O24E 1280 1138 1176
SETA A 006 O0A68 0054 0037 UTAB C 001 0232 90094 0030 o
SETADA A 005 1AB4 1086 1078 ©O G wart a2 008 ta2c 1645 0068* 1147 ~
SETADB A 005 WAE7T 1102 1092 1097 : WORK A CO? IDLE 1259 0232* 0233 0233* 0238 030% 03645* 0365 0365* 0370 0452* 0453 0453
*SETADR A 003 1A7C 1070 1038 C858 O471* 0535 0538* 0539 0539% 0540* 0541 0541* 3664*% 0665 0665¢
SETB A 006 OA75 0058 0041 So 0 0669 0680* 0719 0771* 0772 0772* 0776 0831* 0832 0832* 0835 0846
*SETBTH A 003 OA8S 0064 0056 0061 O847* UBBB 08N8* 0976 1112
SETDSK &2 004 OAOD 0025 0169 0225 0357 0485 0527 0657 0768 0828 YORK1 8&8 002 18F1 C973 0902* 0907 ‘A
SETEXY A 00% OAES8 0090 0025* GS @Q work2 a oc2 isr7 0976 0309 ‘
SETFIX 2 008 19EE 1031 WRIDFC A 001 798cC 9983 0172* 0227% 0236* 0244 0©250* 0256 0261 0283 0293 0359* 0368* 0376
SETREY A OS% 9OBCO 0139 0115 0135 0137 0382* 0368 06393 O847* GU5E* 0864 08706 O04877 0529% 0542% O544* 0598
SETSPNH A 006 0B78 0113 0110 8 °o 0553 0555 0560* 0561* 0566 0571*% 0572* 0578 0605 0609 0659 0667% £
DATE 13HAR70 O6APRT7O 22mAY70 01a0670 PROG ID OA0B-2 @ C oatez 138AR70 O6APRT7O 22HAY70 01a0G70 PROG ID OL0B~2 ‘
EC WO. 571512 571516 571513 571531 ' ~‘PAGE j 15 ; EC WO. 571512 571516 571513 571531 PAGE 153
ae) ‘
eo ¢ .
uF
&.
IBM SAINTENANCE DIAGNOSTIC PROGRAS
A0B2 SCAR
SYMBOL T LEN VALUE
WRTER2 A COU ODD9
xR1 C 00% 9001
XR2 C O01 0002
RR2WK aA 002 1801
ZROCTR A OOK OBES
ZROTO A O06 IDOE
Low
DEFN
0323
1266
1267
1113
0152
1250
R EQUAL
REFERENCES
0675
08342
0247
0030
*0238
*0776
*1716%
C304e
1066
1086
11808
1073%
0774
12484
0682
*0841
03793
0031
0239
0777
1144s
03065
1061
1089
1206*%
1074
0146
CRCSS- REFERENCE
0683
*0850#
0467
0032#
0370
*0835
*1153
0307
1062
*1091
1207
*TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY =
DATE
EC nO. 571512
13BAR70
OG APR70
571516
22m AY70
571513
0688
0854
0551
0036
0371
0836
1167
0307#
1063
1098
1208
O1AUG70
571531
0721
0879
*0569
0040
045 8%
0997
*1167*%
0308
1068
1095
1210
*0733
0885
0678
0042
0459
0998
1205
*090%
1065
1099
1212
0766
*0785
0043
0535
1000
12171
0902
1070
1102
1213
O77 4%
O844
0043
0536
104 1%
231%
1022
*1073
1103
1219
0782
0060
055 8%
1042
1274
1024
VOT
T745*%
12198
07884
0064
0559
TOuUZs
7025
1075
1152
PART NO.
PAGE
0792 0826
*0064* 0065
0669* 0670
1049* 1050
1026 1033
1080 1081
1166 1766
PROG ID
PAGE
5129640
16
OAOB-2
16
Or
©
© oeo0 0 00000 0
Oo Oo O80 8@ 0 Oo
© © 0000600 O Oo oO oO Oo oO Oo Oo
Oo O88 8 OO 8 ©
O
QO
©
*
IBS MAINTENANCE DIAGNOSTIC PROGRAN
A0B2 SCA S
THE CHARACTER
CL 4% THROUGH 16
oe ee
T+-Y:Y.H & BD
T+-Z5 -72D R°R C
T+-DO aX*BO0@a-S
T+~,,Y1X"B. E,/X
T+-RHO} | LE+LN2; |
T+-_/9UCT 15.72) P
T+->*5<GOOTEHB=5
T+-?P /. /0>D+ &
T+-OKCCOHF?%@ &
T+-1(FA4 71S { 12
T+-2HFE?2DAC /0H8
T+- 3CS+.E1).15*)
T+-3=1#1T5_V 20g
T+-29C] 833/9G] AH
T+- 54/052 08* (;4B
T+-6?7 SH-RT7"FOQ"
T+-7DEtHB LEBFES
T+-8V SH-DX&BGC+?
T+-9-& (] O9UCCERC
T+-:$2)N O'SNBtX
T+-#09*XN14CAS+.
DATE
EC NO.
13MAR70
571512
Low Oo 8
EQUAL
OBJECT CARD LISTING
CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64
2
R,: & CEHB> Sa" 0%
2-K*°SD GK &] UY
@; DBZ DI}a.B(B
'B ES/X'OH*RVEH
SECTA9*N OKPESKC
GE<LI8_I 1(X19#H
* $38-DG]] a. D-H
BB? HEAC3"BOG8 -#F
+0H* CUHB-<a &
RUE OAFR<. D< BGF*S
E100} 2?:a/0H*BHDA
BOTEE<} EEX | Yu=.
" 1<XDE<I9*N 1)
SETO FO"B J5H( D
GGHURT<BGG(Y*3-9
2-JC /OHE1S%+—HA
( JW>F]+2-3L 706
T2<H S*XES*XO94I
E6+LAQUCCS_LW1D_
O44CF2*PL IDCHS> (
CO)N 4*S$wWE(SRE<P
06APR70
571516
22m AY70
571513
I}& oA"HABCHA TH
-OH*BF-QEBOMa &
Ak 36AB0¢H AYAP=4
@20%H+ -R,|HEACT
T1;.T1*E HB
"98. E1@XN5+.C0) ¥
GC 4ABOS.D} HARIB
Hay .17a. By HAAC3
30 DBETO BOX 70
C SWE0H*< (@BGCC}
/OH*<A; JH IMCP6*P
CO) N &* Swe (SRE<P
RSV EDA - ,0Cu
E"apcr*sB AW<OH
*J|D +LaBGFay sox
TOH*BHDAT|E RT?H
, OH*BPRO"C,>-R*B
” 4) xR5S_XS8+3E6H
"94.15*) 2<€PAIDC
” 8>] E5"+E14.C0) W
09<GLE<}05 (La5*L
01280670
571531
& &%G(ED.A30 BO-
IC D. AOSSOH*BH-A
H AYDP=GH AY_F~G
XBO, /OHE KU.R®B
0 CIS;PAuax
"bY SWE (SRE<PO9KG
GIC-F -,2UAT 04
"BOS" &(@YD.}
& <73% BOX -EY
” /01GOH*BF&RCC(:
V2) SUSUCE6) XO6;1
Q9<GLE+LS2) PGEXE
"BOX -GY(OH*.RT0
(H*BGCKP /078| FH
EAVa+n*BG SB-O%B
AD<BG /,FE0#=YPL
G SH-R*BGC+%aD/_
” S*xE8%PRBUCA1>|
OBsCS1*|T5_V 9=-
IZXECAI YACSE<G
H1I*GDEEA SEZPC8'$
PART NO.
PAGE
INDICATES A BLANK COLUEN AND THE CHARACTERS D E H INDICATE MUNERIC SHIFT.
CL 65 THROUGH 80
& ~H.@/ PRE @YD
B R"ES.41D.118
H AZGP-0H AZ7P-8
G /YFP Sa} E'SB
D6+.S9CCS13|T2)P
LE<SO5*}T2) $KES]
£1/<.1HC:0H*BHDC
E=30 BO72/0a" &
(OH*. RTO FEXa AB
-Q<BG SH-0<BGFRN
"S¥)C9(XR1*I ORT
” 5) $NE<PX2;.70) P
“Poe /1-POH*Q-CO
SETO FO" /1xD OD
GCPX /OHE1S%1*:A
” /OHSYFLB /SH2?8
DOH*$EaBG /YFK-'
5129640
TOA
CL 81 THROUGH 96
7* DW BA0B20001
GE - 02-a0B20002
H AU 6LBAOB20003
c”"*" gaopz0008
G5) Q 9RQA0B20005
E8>< 138A0B20006
:0H* "Haa0B20007
¢aYD 32DA0B20008
+0H* ECEA0B20009
B+ & B-@A0520010
14am 6YDA0B20011
T5+H RLEAOB20012
"gue 92600820013
RT< WAUAOB20018
wOH* =2%a0B20015
“a-p 8EQA0B20016
HOB® $O0HA0B20017
E6MCDSSXNISCAG+. CO) 7#0A0B20018
Si*|75_V 0'SU5;} E68 89DA0B20019
L8aPR1*3 0*$T1)¥ “sau RO A0B20020
RE<.Y89N SSR O'$ NB*O 2E a0B20021
PROG ID OAOB-2
PAGE 162
seinen i s_ '>p —____~—___ = 4, ________ &—_ > _—
*ae
ee
b
a
vo.
Ge.
eee
“BF:
.
S58 MAINTENANCE DIAGHOSTIC PROGRAS
aop2 SCAB
cL
T+-395_
*me-9€5 CSCOSLRSOP
T+~=GE<$U9 (PDE (P
Te~-" BSSCB: DCAE+.
i. FRE £45 OE .
*fBSYPa SGP CES &
?
oo
T+/CZ2)EGE<E SP
Te /OGtRCPE" PSI) P
T+ SPE"2 BSE
© a
T+ /GRARG RECAG $%
.
Te fHE 2H Stepoeyz
T3/Lo Gthas=. CO}
T+/BPO:1 GECLSDR
T/.17) 7 oncscac
27
6
24 /.OT#EZGBSEQA
TH /CTPA 3 AL MO Re
a
LA/f (PPOs fe Pors
: . °
Tesi _OUECEY, 42
| Fos FAC ey HUE
yom
DATE 13x.87a
BORD. SS693
1 THROUGH 16
ISXKEGBI
*ER BG
SGHEASLB
Loge oR
BQOUAL
OBJECT CARD LISTING
CL. 17 THROUGH 32 CL 33 THROUGH 68 CL 49 THROUGH 64
selisedeeais
DE+SH2) | 2E<L02) P
OB4CS1; (0) PDE (S
CO)" 4°SHE(SRE<P
(Ok*.RTO Foe 7 1-
o
/OVRPPESETS PO”
<
& SH-QEBCDE. son
BSNCES<LAGSECSIS P
E+, EQ=}O60CSOaG
TS<GFSBPLS<1LO2) P
K_3% BOX -5Y (OHS
<O8¢3)*ESDPG ¢OT
-E<ag” fF RIT) IPE
0941 7} xe5_ E8648
"4 $uS8c 6° SuieE
"pe sHic EU Z) SHER
NS (] OOUCHOSEC ESD
*OHAQE@G3GYE @ AL
LEBSADOY SOTETHO
LEKHGC) UAPE RS f
LEC]. fds
a
v
OBR PRIG 22S ay
SVS Ue 27154
EGACAL (SNTNCS 19;
GE<E 9_xreaN 1<G
RECLESePC8aPDEX<.
09<G1s<joS (Lases
POHSO-CO Guecn/g
a
“IED OPRTCBGDD,
NE (1 OFSCOGRCEG+L
GECE 8S7RSNCLS>eB
-ETOG PQS /7-POH?
Ri P-SE-OaTOS. DC?
SETEESS BBLES#K
40-D)KCSAP?O3 AS
RTPEAR- 5 FOSGISy
GD
(iO B2BBG 4, PS
38 STAIG7O
z 531539
T5_¥ 8K1Aa5; | HISC
TOMCCS_LHO) PDECL |
YECE BOOS) BR 64P
$+.15¢) OnCS19]
FOU*AD/_D} ETeH
«
f/f TAEQHSSSOR<C ORS
WOHSAYEHB-ARGB/
BDCB:+ 1B; Zz) Eac
ABSCT2CN S*XESSY
"s_¥ 43730) ( 5_~
Ds<" /OFCOS
“s4XD ODRT<B
FEIZUAC /OKE1¥S
AT> i EOHCDSAXNITRC
£O0=} ETDCB:DCAG+ |
ae
D?P-B SOE BEX39
Q
“ a oy eo. mA
RPCEED TT ST+EOEY
RORY BEDAECS RT SL
pip teks ities ea pylets (5
IFS /GESFPRs £2
PRYDE OSSaS3
CL 65 THROUGH 80
P6*PV2) SUBSDCES) x
$2) PGE<TEOGS) De..
CKSCF5>LB1DCNS> {
T5_¥ 2*3 SER 2K0
AGH-U S,*OH*R1 8
*6/3+ DRY READY OR=
NS>{ SN O8STINF
039+I 1) XR5_ES6+S
Z6*GT2) $NE+SIBR7
aps_D! RTasacH-
GDEP /1FSONSSEaR og
R_DADOH* BADADON
*AES. CO}N ef swecs
ISUCR2<ERE+E RI) X
“og XTE La} ESCOSHC
°
OS<GLAS R.C4 BOR
FOAC AB#E<S stk
“
SS@sc /EFL/SESOR
*PART HO.
' PASE
v
17
CL 81 THROUGH 96
06;H 1H4A0520022
G0) PDSaGB20023...
BE" P.DAOB20028
C AD 38aa0B20025
FOO 26 aNB20026
G& SE BRRLOB2Z3GZ2E
{ GQ REOKOB20029
BY a ES-20B20030
-~ -
0)H =PDROBZOO34
4 JY SHGAGRZEG32
& /¥ t118a0329033
e
Jf=< FEMAOBZOOSe
RGECH $- AOR?
F669 S/MACEZOORZ
SB_Y PQ-ERGRIOS
oG xn CROE~2
ow a2
5129680
0 0 0060600600 ®-
@
o 8@ 6 © «0 6
fa
oS
os
cme ee ett ere inte nn ae
hay
Be
a
4
:
3
1
3
NON TS ea ener te de Get Rone ines een Naan ee aed teal eee tae veh +
.ee 25.4 S 5
Cem erne UN LE RENCE oe AA AR NT RIN eG A
Le OT ear Atm at mn Do ate
fon Re ree
oO
a
Cc)
@
My
x : ind $
SMe Rie ah ee ear
aboed “ ae at
PS :) | RAINTERANCE DIAGHOSTIC aeeeee
a £2
aoB2 SCAN
CL 1 THROUGH 16°
T+/ETBSTEE { ~R1;P
- M/IeWTEO) (SRR
T+/KBSHCLS>R 5_¥
T+/LH6) XEIDCRERC
T+/B16+.E0=/O6HC
T2/ ERS CE O9NCO6RC
Tt /OLI63=690253
©
T+/P ORXEDSAGEO?
T+/PERISHIE RT RT" H
T+ /Q6E< 8 /S55CO5SHC
TH/FS5_E 1pPTTN) ¢
£+/}}G650;330 FOF
T+ /7O-*BGFACFORD
T-s~L CH*QUAESTE
Tess 19PC LM SIEY
re/fse, CtR® oF, £3 BEX
PosePe GSv eegotes 2
DATE THELETG
BC BO. S31S32
ew
Los
c
oR
CL 17 THROUGH 32
I5>LSE<PRE) SREIC
“wPa BERCS* SROD.,
1) TOO) € 9STEGSH
$1*#}75_V 9) ,b4.
Bret ES (SPSS 10534
RS-LEELCRBLCES#S
”- « w
FOPS ISEE B
Eva
m
det
&
°
/ TOS B¥BPs ROEUGS
a -
AD<BGS /,F QR YF}
ES) EO6MCD2*C 5S
ny
©
ee
TECPRIDCODS
BPRCTSUCSOSGHE £5
BS *XORLIOF2= PLIST
SEESSGCES*3 SER
fF OS a a Dt LEE ENG a ag ks ime Ait A nk NO CONE i AN Ne te me ee os
: oe : :
EFBOQouA 1
aa tie te,” mete Ne int ms +e Pianyacse an: Na “tle haat ata integra ane 07 “tare SNR tin minitige! * ai at mf
PAPT #0.
PAGE
5129680
47
rewn
OBJECT carp LISTING
CL 33 THROUGH 8&8 CL 89 THROUGH 6& CL 65 TAROUGH 80 CL 81 THROUGH 96
ONCSOAGHE { JO9UC 06H HSOAOB200&q |
BI) XEG(-R15.E53( _0*$T1)V 1($15*%)
CO}H- 1) ROO} 4-895... TE+-EBGCAIP FEGBC. ABI. GE*-E0=1 OBC, ., SOAD_LO-ADR2Q0RS_
” SRPCB* SRE (POKSC X9SCHO;I 1) TUDO)? SOBGNE<CPQOSCGLE (S$ COs SZMAOBZ00&6 |
A oe |
ES>LLIDCHO; PES (S$ CO=LRG*PDE<CETE+. ES=fQ6AMCXSOCH1*G DEE 6,DA0B20087
B25 f WEXEEI aT AS#-ETDCAT>{ ESSC AEX BRPCE*SRE+. COPHR BLEANBTZOOLS |
= e ° aw . ” “wb > ,
SER O=TLKOO EOD 7 RIOHDHC#BGRSS QTARSGESOLOSSSPH @ JE JSBaSB26089
CFSER ABCOHMNeRB 3036
AFQC “STHRO Be
-S*5G SE-S*BGCFRE BtB &,;5ED<BC ~, FRIE-YFS /OESTFS ne SB*LOBZOOS YT
/OBSYP<*7TAR+OYD EGHFBFRE} EK>-S@B GC SH-S@SGELTAS+} EBS>< =BSR9B2Z0052
TE<.ERC}PC2ZBChi>! ESR SinT2)P GSE+iCes+.CG)R &°$ BE(O 9O<a0320052
€
&
e
LKSCSY) PSTRCB2;( S)STS+.ESUCRI>] E6M EZ-ACHZ2UCSS
POs .TEC EE IDCOTIC
* - >
hS>{ S>PES*SKETDC CS_RRIePTe=/ 0*S TIP CHCSOBGHE(] OSU CEBRROBZOOSS
* 2 - * © . S: i 2 ta a
O=TLE © EQ’ € FOHDAC*BGBGQB AW +0H*OESSCPE BRIS GCPS 23-aCE2O057
=, s ” -
*ftRD ODETCBGE7TG yi SOSAGET OSES
-~ o « 2 =
—_ ~~ 7. _ = ” - . ~ “S$ Dees 5 w 9h A? S25
DOE*BADASOS*B-"E GS Y,FAG°SIFS (OH SYPS fSI=(B Cw¥FRY BOE ~EY (ORs. RTC FOS 29 EGEZOODS
- o> a ” a “ ~~ © sg ae Been r
GB GSCI BIL SEY BLG@SkGH-S I,"OH* RIB FOS fi-.O8F PwaBecpoeor_ Py B 3430 =- Ph ty &
“ae * » ” eee a <é oe x co / e<3 a BOB 3084
: BF ‘ea 4 z RE B-ORS : j 'G “Sh 23 wR
FE RTAEGRRLS JB <Q SEEPS yi ChE JHRBC SH-O%3 GFA] /GREUSHEP2h BORS BOG o
wr * o oe wes
Soe a ee Sa at es Awe r, Pon & 25363
RB2/SBC BYESE! DF GERSGF®& ACOs" GSREGTCE SUCCES SF- USC? -ORSE Zz f& €2-893200G2
: . = or. ° yee yO of @< @2-h0B20083
. DOALDe IVP PES " /4BR2 GRPZOCR-B AD<KEG /.TETUSYCE fOESYcCa sl §£ oo Sa
ce ow cree ee ee te Os
2 = a it oy. « ‘ yi f 7 YYSROnZEDS
SASHA BROPAGECH GEYER JSAOCE*GZ<B EFE- { aSsza,2 & ee SHeeO/E SFC EYEROBLCOSA
ae a es aes eb © « a»
~ ~ a t hho OADRSO =
“EES “YASPYTORS BF-OYPQEe Fa} oBLO PEP ACESECS 44 EGtHa DBGsd wIGAUBSO 6
se gre ap nee me edn Bfs in e ees
Sey ERIS SERGLIO OtsBurs PROG abe ;
S32 USte S7ESts S73S24 PACL :
“ 5 5
Si ee SS es lkeecatalip Bae
Cc:
UBH BAINTEMARCE DIAGHOSTIC PROGRASE
CG. ‘ 7
a0B2 SCAB LOW OF Bou aL
OBJECT CARD LISTING
CL % THROUGH 16 CL 33 THROUGH 88 CL &9 THROUGH 68
CL 17 TRROUGH 32
oO oO
T+e/SESOSCAICLRIS.
oO
SE*SKREUCSBSPP5SSP DE+]{ OS<ALHS* SROFE CBSCTO) 1079PHE) S
C Te/¥O BCS 1 PR2) P GE+;HIMCCINCTG*E CUYTAE)XTIQ*PDS<G TEC] YRS 5)R.5+>
| C Teye,65.20=415_8 O-C3G<SO6NCHS_X ESKEN7_B. ~~ A( RB, THAPES
Ls : C otepeg OT teens secs Oo laprapriy a. a,9H <Ea- & ay
( 16/1/46-E="HeBCY HPSY:Bi D2? @YP <EQE"LFUF?@< Aw ?PSY¥< AWOPSE< ow
Cc T+/Z6PS-CO-DR2}+ + <PSFPOS sSivwa O AP®HR,CHAP2a% 39 & BBGFENBC DRE/E
C Fe/DPOOYC|A@E=-H = ACHO 1,8>0DE(ER RD>P-C+PUBYBGA.3 A ~HAACO F?Q% JS
: C - fe/,X{ B E‘?HAELO AF?PE@ GHO"O<B A, FCEQE"-+- HS 5, 7AYDYSYEI>CDBC
: C To/Si. E'ED) a, SFI=2/GSEQ 42/00 < <E'KO FReAOHe 27 AS
ovy agp to se
C = f*s_HGH**6-ICFSE O68 OS*BFRONFSH -TEBG SH-TEBG ¢
T2}) LES>LTE<ERKE { x
Cc Té¢/>CFRHBON*EG-H E,RPEL DS/*HAP™C B /2ACH*BRFEDAF"B —- BO F709 GAD)IG
* 2 2
~~ i > 34 oe 7 semen e ° x
Pe />=1E0S) PHABOH 8 PHADRBG76GZ*~S> EBYDEIS $/*BGFRH COS*BG-uR.A?3 0-5
o a. op peer eae rPeuae = a
C TH/?S/O B>YEAB=L SEK. TSSPSECEBS<T BSG6_ cc sSocoS5u2 &DA SDA
tc P "ge ~ a ar F yw « ‘ e
c Te /BSZ ENS TRTECG VSCRSSEENTHCAFCL EBRRCHOPERTPTOZ)> BI PTE<CTHI* PKEDA
i . 2
é a ‘ « r. ¢ rey ly . ro re Ye ae -
£ Ts /1PEDL SEPOGLE EO*SRIDCYS>LNIDS! Ee PKECLOS*L IESE OSHCEZCECE>.EUT
ant * a ~ cd > - a = x =
T4/205:.8128 EDA SDR ZDA SDE SE SB ER LEHGSSS JB ELERVBLQORFTECa YB
a > & e¢ 2 ‘esi, e iors: 2e eeu *- e oo
iL fe s3vKS & R29ARH- THEACY GCR*SA?P GAYRGE-AROHSeDLR OG & -S5HB A -S&
™ 7 * aie ew ae ne @ we 2. wm > o a Se ser
PeyG~ 1 -) LEXGKe® GBAUNE -~3 R-Sache SAGE OaGsn G GET é-
TEAUSGEP (PHN oes fGUST PSR" 8F7~9R 8
C ES SH EPCS OUDES a Her, oF Ym ssc ua sy g
aL.
fe
wr
mak eran ea wt i re mF A Sa han a a ann woe ee ete eee ee ee LADS PR GE we ee eee ee
. BATE L3tan7S SOR SBT I Z2HRYTL S¢n0aTs
Be MG. 8371542 5715+ SPIS42 errs
at. Se
Ci 65 THROUGH 80
RE (SCO=LRS*PDES3
X9°XUSNCS1*PKE+}
Q iT cC FE36/0D
, KOAP?4C+0-EHTS
=P?N< SX F225 3,
GOB*RVECK SEBPEO
A 3mBPODS a,8 33
73,7.0 E'EG2/13
it
-
HE C™"ORN(-DE |B
O9ejISFE F=eU54?
& A¥,#2 ECH*BP-D
K-23GF89 /OHE /%
6Da SDCISSEEEsP
TCOTOMCCZCPCHAOR
OBFEO*Y EDA EDL
ea °
f %*3Se5o<'*sS 6b
om
2e o
HD GBAWE( -*=46
o
} (68 GF
URYIREB-G
OW EOD
aE BRAGA
(2040879 7 08
PART EC. Si29685
PASE. 18
CL 81 THROUGH S6
H2)< SEGAOB20066
E8>< O8HA0S20067
woe ee
"L30R0B20068
HF,H $D8A0B20069
'G < 3YSA0B20070
< ad 7K8a0820071
*F?0 PSHAOB20072
: GE O.BA0B20073
B5FROB20078
2DH® =B*AG820075
#3¢RGE20076
$7 8, BAOB20D77
33¢ O2<R0525078
ED 3YRAOBIIGTS
o
AFi< GURACE20982
i
= 2TIROERGDES
owe? &
se ces adcou es ae tA nin Baenias Saves coats wpistsy Se Sion Sha
ae nd a thao
PES ok VRVor se
we ne
aa BS ia
%
OY © 90 G 6 9 8
oO
9.59 SORTER OPT EON COATES AED |
ie
)
1 NSEATRRATE ATs RARER ARRON ETI!
oO
O
e
erate ater: eatin RAR
SAE ee I St
dhe tel
iecntvedirerbel: BA ed ere ot
rete
“Sadan GME een
J pak Representa ee
-$
@ & & & @ © & @ @
"
‘
IBM. MAINTENANCE DIAGNOSTIC PROGRAB
OA00
OA02
Ca03
BA0S
0806
94 08
OAOA
OAOD
OAi1
OATS
OA49
OA IC
0aA20
OA28
OA28
Oa2C
0A30
GA33
OA36
OA39
OA3D
OAWO
OA43
OA&E6
ORGY
OauC
OASO
OaA54&
OA55
OAS6
0as8
oasec
OA62
0A66
OA68
OAGE
Oa72
Oa75
OA7B
OATF
OA82
OA85
OA89
OABC
0A90
OA96
OaASsC
OAA2
DATE
£C NO.
SCA
OBJECT CODE
a0C2
00
o1
0090
OBFA
19BE
2071000
34
3c
3D
F2
c2
34
35
3c
38
F2
7D
F2
38
F2
7D
F2
78
D2
co
co
06
TA
0B05 -
3c 00
oc 01
co 87
00a0
08
3c
F2
00
Fi
87
08
3c
78
F2
3c
00
F2
01
90
FF
D2
34
08
08
08
08
04
G1
00
00
00
00
T3SAR7
571512
OAEB
QBO9
0B07
08
0232
OBO?
0B07
- 0808
0208
06
00
2P
0208
06
00
2F
01
03
0A20
O21A
0BO9
0B07
022A
1A0C
0B3C
14
TAO0C
OB3C
02
oa
OB0B
03
0B07
1A10
TA39
VAIC.
TA83
0
Sep Me ee I ors
PART WO. $1296492
PAGE 1
HIGH OR EQUAL
ADDR STMT SOURCE STATEREUNT h,
2 aoc STAKT 0
3 DECK &
8 ORG x*0a00
*5 SIEKSSSESESSESSSESSHSSSEK STE KS SE SEKAEEKRSE SHEE SE SKEKE SHEE KEESKE EES OE EESEEREEEEESESE OE
6 * SECTION PREFACE e
7 :
OA01 8 pc XL2*a0c2* PROGRAM ID
0a 02 9 DC XL1°00¢ SECTIOX FLAGS
OA03 40 pc XL1°07" CORRENT ROUTINZ NUSBER
OA05 41 Dc XL2°00° RESERVED
OA07 412 DC AL2(RTN1) ADDRESS OF FIRST RODTINE PREPEZ
oa09 13 pc AL2 (ETABLE) ADDRESS OF ERROR RECORDING TABLE
OA0C 18 DC XL3*A010008
15 #8
*16 HEVSEHKRESKESSKSSSLSEKESKSKSSHKAKKCSEK ERE SEEKS SKE SLAKEHK SE SKS SEKEKHKSEHKSAKKES SRERSETA EEK
17
18 + OPERATING INSTRUCTIONS
*19 *
*20 * 1. SET SWITCH 15 TO BYPASS RUNNILS ON THE REMOVABLE DISK
*21 * 2. SET SWITCH 16 TU BYPASS RUNNING ON THE FIXED DISK 2
22 © 3. SET SWITCH 1EZ TO REVER RUN ON DISK DRIVE 1 =.
23 * 4. SET SWITCH 1F TO NEVER RUN ON DISK DRIVE 2
*24
25 SETDSK ST SETEXT+3,ARR SAVE EXIT ADDRESS
26 avi SETS8,X' FP? SET SETUP SWITCH
27
28 cLI UDTPTR, 0 HAS POINTER SEEN INITILIZED?
29 JNE UFIND1 JUMP IF YES
30 LA UTAB, IR1 LOAD IF KO
31 UPIND2 ST UDTPTR, XR1
32 UFIND1? L UDTPTR, XR1
33 HVI REMVDS,0 ZERO SWITCH FOR NEVER RON FIYED DISK
34 TBN SWITCH+3,X*02? - TEST SSW 1E
35 JT $49 JUSP IF ON, NEVER RUN DISK DRIVE 12
36 CLI 0(,XR1),X"A0? TEST FOR A UNIT ADDRESS OF ‘ta®
*37 JE SETA JUMP IF THERE IS OBE
38 TBN SWITCH+3,X*01? TEST SSW IF
39 JT #49 JUMP IF ON, REVER RUN DISK DRIVE 2
40 CLI 0(,XR1) ,X"BO? TEST FOR A UNIT ADDRESS OF 'B?
81 JE SETB JOMP IF THERE IS OWE
42 TBH 1(,XB1) ,X* 108 TEST FOR LAST ENTRY
43 LA 3(,XR1) ,XR1 STEP POINTER TO NEXT EWTRY
Ry BF UFIND2 CONTINUE IF WOT THE LAST ENTRY
as B PRINT TO PRINT ALL UNITS SELECTED
OAS& &6 pc XL1°06" FLAGS
0255 a7 DC IL1*26° LENGTH
OAS7 4B pe AL2 (ROUNIT) MESSAGE ADDRESS
a9 HVI SETSW,0°
0B10 S50 YC UDTPTR(2) ,TWOZR
51 8B LOAD TO PRINT NO ENTRIES LEFT
OA67 52 DC XL2*u0o? FLAGS
53
OBOB 54 SETA MZZ LDFCR+1,SPNDLA SET TO RUN ON SPINDLE ‘a
55 NVI SPNMSG,C*1? SET MESSAGE FOR SPINDLE *1
*56 J SETBTH PROCEED
57
oBOC 58 SETB AZZ LDPCR3+1,S PNDLB SET FOR SPINO™E B.
59 BVI SENMSG,C'2° SET MESAAGE FOR SPYHDLE ‘2°
60 TBN 2(,XR1) X01" TEST OPTION BIT TO BYPASS FIXED DISK
61 JF SETBTH JUMP IF OFF
62 AVI REMVDS,X*FF!* SET PLAG FOR MO PIXED DISK
63
68 SETBTH LA 3(,XR1) ,XR1 STEP POINTER TO NEXT ENTRY
65 ST GDTPTR, XR1
1A0C 66 MZZ LDFDR+1, LDFCR¢1 SET FOR CURRENT SPINDLE
1A0C 67 NZZ SI0+1,LDFCR¢1 SET FOR CURRENT SPINDLE
1a0C 68 HZZ WAIT¢1,LDFCR#1 SET POR CURRENT SPINDLE
1A0C 69 ZZ TSTERR+1,LDPCR+1 SET FOR CURRENT SPINDLE
O6APR70 2ZH 8170 01a0G70 PROG ID oaodc-2
571516 571513 571531 PAGE 1
sot bee manta ee et IB te eS ee a ee ee te Noa Mab a ag aisd cats Ne Site tins smegma aie eR Oe cag tn
”
9
6©00006000000002000060060 00 0 © e@ o.
2 © 0 © 08680868@0660006086 0006C«C=CMWd~=~<CMiNMW=<C (Cl Ol DBC et
ee te a a RRR AR ereEt ee ie,
ih lng aps Mahia: ay ons solic ka wach a aie ance ak eran, Ee aahags cat rN OE Nt em ee ne, RE NS mB RY We NET i a ae la ie I ere cM a PN pen A AE ea NRE me Ne tg oe
IBH MAINTENANCE DIAGHOSTIC PROGRAS
A0Cz
ERR LOC
OAAS
OAAE
OABS
OABA
Oacod
Oacs
Oacs
oacs
OaCD
0abo
OADS
Oabs
OADS
OADA
OADC
OAEO
OAEt
OAE2
OAES
ORES
OAEC
Oars
OAFC
OBOS
0506
0B08
0809
oBoa
OBOB
OBOC
OBOD
OBOE
OB OF
0B11
OB12
OBIR
0B22
0B25
OB2D
0B35
OB3D
OB4S5
OBSD
OBS5
OB5D
0B65
> DATE
EC RO.
oO Re a ke
PART #0.
PAGE w
SCAN HIGH OR EQUAL
OBJECT CODE ADDR STHT SOURCE STATESERT
08 00 1886 1A0c 70 SZZ § TSTSCH+1,LDPCR+1 SET POR CURRERT SPINDLE
68 00 1980 4h0C 71 AZZ SNS#1,LDFCR¢1 SET FOR CURRENT SPINDLE
08 00 1ABD 1a0C 72 MZZ RLDFCR+1,LDPCR¢1 SET POR CURRENT SPINDLE
08 00 1aC1 1a0C 73 SZZ «=s- RSIO#1, LDFCR+1 SET FOR CURRENT SPINDLE
CO 87 19:42 74 B SEUSE
02 cack) | O75 pc XL1*02* ASK FOR DEVICE STATUS BYTES 0 & 3,
16
3c CB OBOR 77 AVI TRACK#, 203 SET POR FULL CAPACITY DISK
38 08 1989 78 TBE STATUS,X'08* TEST 1/2 CAPACITY DISK
F2 90 08 7S JF PRTSPH JUMP IPF OFF
3c 67 OBOA 80 NVI «= TRACK®, 103 SET FOR 1/2 HALF CAPACITY DISK
cO 87 O2142 81 PETS PH B PRIRT TO PRINT SECTION HEADING
01 OADS 82 pc XL1'07* FLAGS
2a OAD9 =s-83 pc IL1°82° LENGTH
O0B66 CADB 8& boc AL2 (SECNSS) MESSAGE ADDRESS
CO 87 O21A 85 B PRINT TO PRINT SPIBDLE
06 OAEO 3-8 pe XL1°06* FLAGS
18 OAE 87 pc ILi*t2a¢ LENGTH
0B3C OAE3 88 pc AL2(SPRASG) BESSAGE AUDRESS
3c 00 1805 89 NVI FRSTPS,O SET SWITCH FOR RECALIBRATE
CO 87 0000 90 SETEIT B s-* EXIT
91 ;
C1iD3D 3NO0E4YDSC9E3 OBOS 92 NOURIT DC CL26*°ALL UNITS HAVE BEEN TESTED
*E240C8C1E£5C540C2 92
C5C5D540E3C5E2E3 92
C5C8 92
0000 0807 93 UDTPTR DC X12*O
*0232 94 UTAB EQU x*232
*00 0B08 95 REMYDS DC XL1*0°
00 0B09 96 SETSW DC XL1°0°
00 OBOA 97 TRACK# DC XL1i*008
AO OBOB 98 SPNDLA DC XL7°AO
*RO OBOC 99 SPNDEB DC XL1*BO?
00 OBOD 100 BONRAV DC XL1*0O8
*00 OBCE 101 RUNFIX DC XL1*0?
*0000 0B10 102 TWOZR DC XL2'0?
00 0B11? 103 PASS Dc XL1°*0?
CIDSESCID3C9C4HO OB24 104 INVFLG DC CLIS*INVALID SSW SETTING
*E2EZE6U0E2C5E3E3 108
C9D5C7 108
DSD6EGSOE3C5E2E3 OB3C 105 SPNBSG DC CL28'*NOW TESTING DISK DRIVE x
*C9D5C78 0CRUCIE2D2 405
SOCUDOCSESC5SLOET 105
C2C5SC7ICSD540E2C3 OB66 106 SECBSG DC CL42'BEGIN SCAN HIGH OR EQUAL PUNCTION TEST AUC?
C1D580C8C9C7C840 106
D6D94 OCSDSENC 1D3 106
4 0C6ERD5SCIE3CIDE 106
D580 E3C5SE2E340C1 106
POC3 106 z
t
Ce
13NAR70 06 APR70 22mAY70 01A0G70 PROG ID Oa0Cc-2
571512 571516 571513 571531 PAGE 1a
5129682:
“2 8 © @ @ o oOo.
@8-0© © &8 8 © © 6 8 @ 98 8&8 @
o>) °€9 £2 Q ¢
my
ey oS
oy
on
ons
co
Qo 02 9
ae 5
aoc2 —
2eR LOC
0867
O86
OB6F
0572
OB TE
OB7¢
OB7PF
GBB2Z
oBes
SBB9
o58C
5890
oB97
Osa?
05946
0596
OBIA
oBgC
OBAO
OBAS
OBRS
OBAB
OBAP
OBB3
OBB6
OBBA
OBBD
OBCi
oBcS
oscs
oBcCc
OBDO
OBD3
OBD?
OBDA
OBDE
OBE2
OBEG
OBA
OBEE
OBF2
OBr6
DATE
EC HO.
a
“EBM MAINTENANCE SIAGNOSTIC PROGRAS
SCANS HIGH OR8 EQUAL
OBJECT CODE
38
3D
F2
3c
P2
6D
F2
F2
08
69
04
rr
87
01
ai
87
O06
30
87
0825
OB1T
07
0B14
9222
0272
0885
O20A
OBOD
O20A
0B08
08
OBOE
OBCD
OB
1B0A4
OBOD
OF
OBOE
1BOA
OBOE
0000
0a03
0B11
0216
0809
0000
13MAR70
571512
0810
OG APR?
ADDR STHT SOURCE STATEREWT
108 TSTSPH ST © TSTEXT¢3,ARR
409 CLI PASS,0
110 JHE" SETSPH
$12 BVI PASS,i°PF
*412 a TSTS#
113 SETSPN CLO RUNPIX(2) ,. O78
118 JE ZROCTE
4115 3 SETRHY
116
117 TSTSE TBH SECTSH,K'0S
118 dF TSTREY
449 B PRINT
0396 «6420 DC RLi°c6?
O89 721 DC IL1°798
0893 122 Dc AL2(IBVFLG)
6895 «123 pC EL2*a0FA
*124
125 B HALT
OB9B 126 pc XL2°a0PA®
127 B TEST
128 B TSTSB
129
130 TSTRMY TBN SECTS, X‘OSS
131 JT TSTFIX
132 AVY RUNRMY,X‘FF
*133
134 TSTFIX TBN SECTSH,X'02°
135 JT SETRMYV
136 CLI RESVDS,X'FF!
137 JE SETREY
138 HVI RONPIX,X‘PP®
139 SETREV CLI ROWRNV,O
490 JE FIXED
164 AVI DISKTP,O
142 BVI RODNRNY,0
143 3 TSTEXT
1848
145 FIXED CLI RUEPix,0
196 JE ZROCTR
447 MVI. DISKTP,X*08!
148 HVI RUNFIX,O
199
150 TSTEXT B +-
*151
152 ZROCTR CLI X*0A03*,08
153 SVX = PASS, 0
158 BYE LINK
155 SVI SETSH,0
156 B 0
0 22ma170 0120670
571513 571531
571516
WF nat enn abi oo A te No a aE ST Sa ma ORR I ee Nt, AE RAR ME A, ER I GL EO tn NL cette Att alte MAE al em nabs oa EE EIT inthe wee Ee emcees Ber Ta nat Newt Sie eco 2
57129682
PART #0.
PAGE | 2
STORE EXIT ADDRESS
IS THIS THE FIRST TINE THROUGH 7?
JOHP IF HO
SET S¥ITCH
PROCEED TO TEST S#ITCHES
HAVE ALL DISKS BEEN RUB?
JOP IF YES
JUSP IP BO
TEST
JUMP
TO PRINT
FLAGS
LENGTH
BESSAGE ADDRESS
MESSAGE ID
FOR SOTH SSB*S 15 & 16 OF
IF BOTE KOT OF
INVALID SSH SETTING
TO DCP ERROR HALT
HALT ID
TG READ CONSOLE S#ITCHES
TEST FOR SWITCH 15 OF
JUMP IF OF
IF NOT OB, SET TO RUN REMOVABLE DISK
TEST FOR SWITLH 16 OF
JUSP IF OF
TEST FOR WO FIXED DISK
JUMP IF OB
IF NOT ON, SET TO ROUX FIXED DISK
DO WE WANT TO RUN ON REMOVABLE?
JUMP IF HO
SET TO RUX ON REROVABLE
CLEAR RUN RENOVABLE SWITCH
TO EXIT
DO WE WANT TO RUN ON FIXED?
BRANCH IF KO G
SET DISK TYPE TO PIYAED
CLEAR RUN FIXED SWITCH
ExIT
CHECK FOR LAST ROUTINE
ZERO SWITCH
RESET SWITCH
PROG ID
OaA0C-2
PAGE 2
CCC CCOC ORCC OC OOO OO EOE EES
o
°
°
8
@
e
°
e
°
°
e
8
°
o
e
e
°
°
°
°
°
G
°
°
°
e
°
|
|
®0coe@oeeoeoeeoeeeweeweoeeee e& © @ © OO eB 8B
oe 9
Foe MET Ee eae aR Nei BIE SON hs Rar ne lan clas Nie et i TC Leas ne ie I Or a tn a an Cre Beer ges eT Eee, aE ihe a ae eae BE eS on
eas ne te EE Na ie eta T ee Ale dee age Fl a ale nite le ne ee neg athe tmnt pie apg, vl eae nme
¢
IBS MAINTENANCE DIAGNOSTIC PROGERAR PART KO. 5129682
PAGE 2a ¢
aoc2 6 SCAB HIGH OR EQUAL
ERR LOC OBJECT CODE ADDR STST SOURCE STATEAEST <
158 2 ROUTINE HO. 01, CHECK FUNCTION OF RO RECORD FOUED
*159 © SENSE BIT, (BYTE G, BIT 5) * ¢
160 © USING THE SCAN HIGH OR EQUAL CommaED
*184
$62 # ROUTIWE PREFACE e ¢
163
OBFa Gi CEFR 164 RTR1 BC XL2°Gi* ROUTINE WO.
OBFB G0 GOBFB 165 pc ZL7°00" ROUTINE FLAGS ¢
OBPC OCEi UBFD 166 bec AL2 (RTH2) ADDRESS OF NEXT ROUTIBE
167
OBPE 3D OG OBO0S 168 BEGIB CLI SETS#,3 HAVE PARARETERS BEER EETERED? é
9c02 CO 81 OAGD 169 BE SETDSK BRANCH IP #C
0cC06 CO 87 0367 170 BRTHIA 8B TSTSPS :
OcOaA 3c 00 1988 4171 SV¥I STATUS-1,0 ZERO SENSE AREB {
OCOE 3C 06 1998 172 RVI w@RTDFC+2,0 SET FOR HEAD 6, TRACK 0
0c12 CO 87 1824 173 B SEEKCE TO SEEK THE CE TRACK
17% {
OCiv CO 87 188D 175 RINIA1 B FSTSEK TO TEST FOR GOOD SEEK
OCiA 3C FF 1992 176 AVI RDDFC+1,X* PF? SET CYLINDER BO. TO FORCE & @RF.
GC1E OC 01 1940 6570 177 BVC RDDPC#3 (2) ,THOZR SET TO START AT TRACK 9, SECT. 6 ‘
178
0c28 cO 87 19D3 179 B STRTIO TO I/O SOBROUTIRE
0C28 03 0c28 180 pc XL1°03? FUNCTION CODE (SCAB) |
0c29 02 oc29 181 pc XL1°02? CONTROL CODE (HIGH CR EQUAL)
- OC2Aa 199D OC2B 182 pc AL2(EDDFC} CONTROL FIELD ADDRESS
oc2c CO 87 0c38 183 B RTNTA2 GOOD RETURN, (NOT EXPECTED)
0°30 CO 87 0c34 184% B |
0c38 CO 87 OCs 185 B RTNIB NORHAL RETURN FROM EXPECTED ERROR
0c38 CO 87 021z8 186 RTHIA2 B PRINT TD PRINT ROUTINE ERROR
OCc3Cc Cé oc3c 187 pc XL1"C6* FLAGS
OC3D 43% Oc3D 188 pc IL1°68* LENGTH
OC3E OCEO OC3F 189 pc AL2 (ERR1A) ADDRESS OF LAST PRINT CHARACTER
o0cs0 A070 0cs1 190 DC XL2*a070* MESSAGE ID
OC4s2 CO 87 0222 191 B HALT TO DCP BALT
Oc46 A070 OCca7 192 pc XL2°a070* HALT ID
193
ocs8B CO 87 19a2 194 RTBIB B SENSE TO SENSE I/O SUBROUTIBE
oc4c 02 ocac 195 pc AL1(STATO1) DEVICE STATUS BYTES 0 & 1
156
OC4SD 38 0% 19B8 197 TSH STATUS-1,X*08* TEST BYTE 0, BIT S FOR ON
198 © THIS IS *NWO RECORD FOoURD
*0c51 F2 10 10 199 oT RTWIC BRANCH IF O”
260
0c58 CO 87 O27A 201 B PRIUT TO PRIKT ERROR
ocss8 C6 0c58 202 DC XL1°C6* FLAGS
0c59 4D 0cs59 6203 Dc IL1*77¢ LENGTH
OCSA 153D Oc5B 204 DC AL2 (ERR1B) ADDRESS OF LAST PRINT CHARACTER
ocSc A071 OcSD 205 DC” +=&XxL2*A077* HESSACE ID
OC5E CO 87 0222 206 B HALT TO DCP SALT
0c62 a07i 0c63 207 . DC XL2*a071° HALT ID
0C64 CO 87 0C06 208 RTNIC B RINTA ROUTINE EXIT
0C68 E3CB8CS4OD7TD9C5ES 0C96 209 pc CL47*THE PREVIOUS ERRORS OCCURRED WHILE SEEKING THE
*0Cc70 CSDG6ERE2KOCSDIDO 209
O0C78 D6D9E2Z40D6C3CIEY 209
0C80 DIDICSCS4OESCECY 209
0C88 D3CSHOE2C5C5D2C9 209
0c90 DSC7#0E3C8C540 209
0Cc97 C3CS4OC3EBD3 oc9c 210 ERROR9 DC CLO6*CE CYL
*OCSD E2C3C1D540CBC9C7 OCDO 211 Dc CL52'SCAN HIGH OR EQUAL USING A WOW EXISTANT SECTOR ID DI
*0cA5 C840D6D94 OCSDSE4S 211
OCAD C1D340E4E2C9D5C7 211
OCBS 40C1480D5D6D540C5 211
OCBD E7C9IEZE3C1D5E340 211
Occ5 E2CSC3E3D6D940CI9 211
OCcCD C&a0cEcs 211
CCD1 CS4OD5D6E380C7C9 OCEO 212 ERRIA DC CL16"D NOT GIVE ERROR®
OCD9 ESCSHOCSDSD9IDEDI 212
DATE 1384270 O6APR70 22mAY70 01A0G70 PROG ID oadc-2
EC WO. 571512 571516 571513 571531 PAGE 2a
. X08 MAINTENANCE DIAGEOSTIC PROGRAS.
wn Re do Ne meee nie Nes —— sare
ieee
: (ae
| ie | mace 8
acc2 «SCAN HIGH OF BOQUAL |
on eee SU .
ERR LOC OBJECT CODE ADDR STHT SOURCE STATEMEST
219 © ROUTINE ¥O. 02, TEST SETTING OF THE SCAN POUND
*215 6 CONDITION & BRANCHING ON A TIO e
216 * USING THE SCAN HIGH OR EQUAL COMMAND
*ae * WITH AN EQUAL CONDITION
*OCE1 02 OCEi 219 RTH2 DC XL17°02* ROUTINE NUMBER
Ocz2 00. OCE2 220 pc ZL1°06" ROUTINE FLAGS
OCE3 O£80 ocr aa; DC AL2 (BTH3) -ADDRZSS OF WEXT ROUTINE PREFIX
OCES 3D 00 OBO9 223 CLI SszTs¥,0 HAVE PARAMETERS BEEN ENTERED?
OCE9 CO 81 OAOD 228 BE SETDSK BRANCH IF NO
OCED €D 87 0867 225 RTH2A B TSTSPR
OcF1 3C 00 199B" 226 VI «—- WRIDFC+2,0 SET FOR HEAD 0, TRACK 0
ocrS CO 87 1828 227 B.- SEEKCE TO SEEK THE CE TRACK ,
: -OCrd coe? 18a 29 wrv2s SER: 20 CARER For a coop SEER
“) gery 3c 00 1256. as See WWE woRKs258, 0 Use waIre ries
QDOT Ge FE 1255 1256 ‘ “RVE WORKS2S04 ) feonneass
ODOT 3€ 12 1879 avi Susrp,x°13° | -* poy SESSAGE ID IN PRINT
ODOB 3€ 00 199C SVI. -SRTDFC+3 6" SET TO WRITE ONE SECTOR
ODOF OC 01 1B0E 19BD AVC’, DFDR (2) ,WORKAD SET WRITE DATA ADDRESS
0D15 CO 8? 19D3 239 B STRTIO TO I/0 SUBROUTINE
op19 02 0D19 240 pc XL1*02° FUNCTION CODE (WRITE)
OD1A 00 ODiA 281 DC XL1'00¢ CONTROL CODE { DATA)
OD1B 1999 OD1C 282 pc AL2 (WRTDFC) CONTROL FIELD ADDRESS
OpiD CO 87 OD29 283 B RTN2B1 GOOD RETURN
0D21 CO 87 O0D25 248 B #49
0D25 CO 87 ODDS 2485 B WRTER2 ERROR RETURN
246
0D29 3c 72 1879 247 RTN2B1 SSVI SWSID,X*72* PUT ID IN PRIN
T
OD2D 3c 00 199C 248 BVI WETDFC+3,0 SET TO SCAN HIGH OR EQUAL OF
249 * ONE SECTOR :
0D31 CO 87 1 oet
31¢ 9D3 251 B STRTIO TO SCAN EQUAL
0D35 03 0D35 252 pc XL1°03° FUNCTION CODE (SCAR)
enue 02 0D36 253 pec XL1°02°* CONTROL CODE (BIGH OF EQUAL}
D37 1999 op38 2548 pc AL2 (@BTDFC) CONTROL FIELD ADDRESS
0D39 CO 87 0D6S 255 B RTN2B2 RETURN FOR NO SCAN FOUND
OD3D CO 87 OD79 g28 B RTW2C1 RETURN FOR SCAN FOUND
0D87 CO 87 1c¢98 258 RTR2C B SHIPT TO SHIFT BI
IPT TS FOR DECIMAL NUMBER
oe 1999 op46 86259 DC AL2 (SRTDFC) ADDRESS OF SOURCE "
ony CO 87 ICES 260 B cvD TO CONVERT TG DECISAL NOABER
D&B 1CDD Gpuc 261 bc AL2 (CYLKS) ADDR2ZSS OF SOURCE
OD4D OFS5SS ODSE 262 pc AL2 (ERRO 2A) ADDRESS OF DESTINATION
OD&F 3C 40 GES2 263 N¥I PRRO2A~2,C* * SET A BLANK IN PRINT INAGE
0D53 cO 87 B52 264% B PRETSNS TG PRINT SENSE INFO.
0D57 CO 87 O21A 265 5 PRINT TO PRINT THIRD LINE
CD58 06 ODSB 266 pe XL1°O6? FLAGS
opsSc 60 opSc 267 pe IL1°96° LENGTH
ODSD O£S4 ODSE 268 DC AL2 (ERRO2A) SESSAGE ADDRESS
ODSP CO 87 0222 269 B HALT TO DCP HALT
0D63 A072 OD6% 270 pc XL2°a072° RALT 1D
0D65 CO 87 OD79 271 B RTK2Ci
OD69 CO BF 02 373
CO B87 0242 273 RTN2B2 B PRIRT TC PRINT NO SC
OD6D C6 OD6D 274 DC «xKL1°Ce?* fic ee rer
OD6E 28 ODSE 275 cc IL79U3t LENGTH
ODEP 14aF0 OD70 276 DC AL2 (ZEBRO2F) NESSAGE ADDRESS
ODT 2076 OnbI2 277 bc XLZ* 207&8 MESSAGE iD
0D73 CO 87 0222 278 5 HALT TO DCP ERROR HALT
OD77 A076 CD78 279 pe XL2"'ac7v6é! HALT ID
230
Ob79Y 3D FP 499C 283 RTB2C1 CLI WRIDPC+3I, Xt FP?S TEST SECTOR COUNTER FOR STEPPING.
DATE T3SHARTC O6APRIO 22max70 OTATSTO
EC #O. 574572 571516 571533 571534 pict a rx ae
a eno ici at ae met rete jatescinates ‘--
i g
oO!
©
sn e0e@0 0000000007000 8 00 06 0
eo o
Qa 9
9
a0C2
£RR LOC
op7r
opeo
oD84
ops5s
on86
op88
OD8Aa
-SCA®
OBJECT CODE
F281
CO 87
c6
2B
O£7F
4073
CO 87
_ ODBE A073
op90
0D98
9D97
_O0D9B
op9c
‘OD9D
OD9P
opai
-ODA5
oDa7
ODAB
ODaAB
oDs1
ODBS
ODBSs
ODBE
opc1
opcs
opc9
ODCA
oDCcB
opcpD
ODCF
ODD3
ODDS
ODD9
ODDD
ODE!
ODES
ODE6
ODE?
ODES
ODES
ODEF
ODF
ODFS EICBCSSODTDYCSES
3p 00
F2 61
co 87
c6
4&3
V7B
a07s@
co 67
aovs
C2 02
BD 00
F2 01
£2 02
38 02
OD 01
F2 81
co 87
87
82
tacs
A012
co 87
A012
co 87
10
O218
0222
199B
10
O21Aa
0222
1D57
00
+4
04
19BB
19BB
18
OpDAB
O21A
0222
OCcED
1B79
1BS2
O27A
0222
OCED
gies
eeoeoeoeeeeeneeoeoeoeoeeoeeoeeee ee
16K RAINTEBANCE. DIAGHOSTIC PROGBAS
o 8
eX cc
BEQuvuat
ADMR STAT SOURCE STATEBERT
9D8a
OD8s
0D87
apes
_ Oper
op9B
op9c
OD9E
ODao
ODAS
39048
opc9
ODCA
opcc
ODCE
ODD&s
ODES
ODE6
ODES
ODEA
ODFO
OF 28
CDFD CODEES EZR OCSDSDS
CEOS DEDIEZYCEGCSDSCS
OEOD SOD7DOCSE2ZCSDS=E23
GOE15 SOcicée3scSDSLOcKs
CEID DECIDSCTHOC TEOE2
OE25 C3CID540
OE29 CBCEC7TCE&SDEDIEO
CESS
0231 CSDBEYCIDI“OC3DS
O£39 D&DSCLSBGNEGE2CS
GERi DSC7AOCBCS5SCICAKD
OZ49 FOSBEOEZCSC3ESDE ©
OE51 DIGOETE?
OF55 E2CSCIEIDEDIE OCI
QETF
OESD DEEYDSE3ICSDSNOCI
OE6S DSACCIDSDSESDILS
OE6D B3KOCECICSD3cC&Ad
OE7S DSDGESSOEZEICSD?
OE7D D7CS5SC4
DATE
ZC wo.
TSRRERTG
STi5Vz
QOS APRIGC
573546
282 JE
283 8
288 pc
285 oc
286 DC
287 pc
268 B
289 pc
290 2
291 RTW2C2 CLI
292 ©
293 a2
298 B
295 8c
296 pc
297 pc
298 Dc
299 B
300 Bc
301
302 RTR2D LA
303 BTE2F CLI
3048 JRE
305 LA
306 ST
307 CLC
308 JE
309 B
310
311 RTNZE B
312 pc
312 DC
31784 pe
315 sc
316 B
31317 boc
318 RTN2G B
339 WRIER2 BVI
320 B
321 B
322 pc
323 pc
328 pc
325 pc
326 B
327 pe
328 B
329
336 DC
330
330
330
330
330
330
3231 ERRO2ZA DC
33%
334
331
331
331
332 ERRO2B DC
332
332
332
332
332
226870
571513
- RTRZCZ
XL1i*c6
*IL1°43
*AL2 (ERRO2 8)
XL2°A073
*HALT
XL2°a073
*WRTDFC+2,0
BIN2D
XLT*CS6
*IL1*67* |
AL2 (£28025)
LL2*a07e*.
HALT
XL2*A078°
WORK, XR2
0(,1R2) -0
RTN2E
1(,XR2) ,XR2
SNSXR2, X22
SNSXIR2{ 2) ,WORKZ
RTR2G
RTK2P
XL1°C6
*IL1*68°
*AL2 (ERRO2C)
XL2*a075
*HALT
XL2*a075°
ETR2A
_SNSID,X*12°.
PRTSNS
XL1'c6
*IL1°7s8°
*AL2 (2 RROZE)
XL2*a0172°
HALT
XL2°a072°
RIN2ZA
“siz06e2
PAGE 3k
ra
ri
r
PROCEED IF OK.
TO PRINT SECTOR COUNTER WOT STEPPED
FLAGS
LENGTH
MESSAGE ADDRESS
MESSAGE IDENTIFICATION
TO DCP HALT
HALT ID
3 Y
CHECK HEAD & SECTOR 80. arren
SCAR IS COMPLETED
PROCEED IF OK
TO PRINT. ERROR
FLAGS
LEXGTH
RESSAGE ADDRESS
MESSAGE IDENTIY ICATION
TO DCP HALT
HALT ID |
SET XR2 TO POIYT TO WORK AREA
CHECK WORK AREA FOR BO CHANGE
JUBP TO PRINT IF SCH. FLD. IS CHG.
HOT DONE, INCREMENT XR2
NO CHG, SET TO CHECK NEXT BYTE
CHECK XR2 FOR REACHED UPPER LISIT.
TO ROUTINE END.
CHECK NEXT BYTE
TO PRINT SCAN FIELD WAS CHANGED
FLAGS
LENGTH :
SESSAGE ADDRESS + cy
MESSAGE IDENTIFICATION sa O7SP Spat? Be EE
TO DCP HALT
HALT ID
PUT ID IN PRINT
TO PRINT STATUS ERTORS
TO PRINT BRITE ERROR
FLAGS
LENGTHS
MESSAGE ADDRESS
MESSAGE ID
TO DCP ERROR HALT
HALT ID
CL52*THE PREVIOUS ERRORS WERE PRESENT AFTER DOING A SCAW
*CL44 "SIGH OR EQUAL COMKD. USING HEAD 9, SaCTOR XX‘
CLU3S*SECTOR COUNTER IN CONTROL FIELD NOT STEPPED?®
CIAUGTS
877531
PROG ID oacc-2
PAGE 3a
atc2
ee . O280—
0ze1
& ores
oEBa
0E90
- BEge
or96
OIC
OzAD
OFAN
-OFRA
OEAS
a
OSES GY ST ES 0 OL Hon
. oe ns Pee eg Oe
teu ie
SEB2
OFBS
CEBC
OFBD
OFBE
oEco
OECY
OECS
THE. aH pe EE oe oS ay i RR
. wee iis ta hi) 4 fer RS ie:
oECC
OEDO
OED4S
OEDS
OED9
OEDA
OEDC
OEEO
eon
OEES
OFES
OEEA
OEEE
OEFO
i OEF2
a CEF6
iS OEPA
r OETE
a OEFF
OFOO
OFO02
OF06
OF 08
OF0c
OF 10
OF 11
OF 12
OFT
oEsc
SCA
03
00
: OE82 OFr3
3D 00
co 81
cc 87
3¢ 00
co 87
co 87
3e. 01
3¢ 00
OC FD
3c 12
3c 00
Oc 01
co 87
02
00
1399
co 87
co 87
co 87
3¢ 72
3c 60
co 87
03
02
1999
cO 87
co 87
co 87
1999
co 87
icDD
OFrFr2
3C 4&0
cO 87
co 87
06
SE
OFF2
co 87
ad72
cO 87
co 87
c6
2B
1&F0
A076
OF16 CO 87
OF 1A
DATE
EC £O.,
A076
ERR LOC OBJECT CODE
0809
a
CAOD
0867
1998
1826
168D
1256
1E55
TES&
1579
199C
1BC0F
19D3
OECC
OECe
ODD9
iB79
19SC
19D3
oroc
OFIC
1098
1C£z9
Orro
1B52
O21a
0222
OF IC
O2%a
0222
13H8AR70
371512
Pace.
HIGH OR BLORVA
ADDR STMT SOURCE STATEMENT
338 ¢ ROUTINE HO. 03, TEST SETTING OF THE
*335 « ; SCAX EQUAL SENSE BIT at?
336 « WITH A SCAN HIGH OR EQUAL COBSAND
*337 © USING AN EQUAL CONDITION
*338. :
GEsO 339 RTN3 8 DC XL1*93* ROUTINE WUNBER
O£8? 380 pc XL4*O0* ROUTINE PLAGS
0283 7 pc AL2 (RTNS) ADDRESS OF NEXT ROUTIHE: PREFIZ
' 38 i
383 CLI SETSE,0 HAVE PARAMETERS BEEN ENTERED?
348 BE SETDSK ’ BRANCH IF NO
345 RTN3A 8B TSTSPR
386 BYI @RTDPC+2,0 SET FOR HEAD 0, TRACK O
- 387 B.. SEEKCE TO SEEK THE CE TRACK
- 328 , :
389 RTN3ZA1 BO! TSTSEK TO CHECK FOR A GOOD SEEK
.. 350 &
357 RTN3B MMVI WORK+255,01 © SET WRITE FIELD
352 BVI #ORK+256,0
1E55 353 BYC WORK+253 (25%) , WORK+254
358 :
355 avi SNSID,X*128 PUT ID IN PRINT
ra AVI. ~WRTDPC+3,0 SET TO WRITE ONE SECTOR
35°
19BD aes MVC) 8 =6DFDR(2) ,WORKAD SET WRITE DATA ADDRESS
3
360 B STRTIG TO WRITE DATA
OzBC 361 pc XiL1*02" FUNCTION CODE (WRITE)
OEBD 362 DC XL1*00° CONTROL CODE (DATA)
OEBF 363 pc AL2 (8RTDFC)} CONTROL FIELD ADDRESS
362 B RTH3B1 GOOD RETURS
365. B 43
366 B WRTER2 ERROR RETORS®
367
368 RTH351 AVI SNSID,X*729 POT ID IN PRINT
369 AavI WRTDPC+3,0 SET TO SCAN HIGH OR EQUAL
3790 ON ONE SECTOR
371
372 B STETIO TO SCAN HIGH OR EQUAL
OZDS 373 DC KLIi¢o3¢ FUBCTION CODE (SCAR)
OEDS 378 pc XL17°028 CONTROL CODE (HIGH OR EQUAL)
OEDB 375 pc AL2 (WRTD?PC) CONTROL PIELD
376 B BTK3B2 RETURN FOR NO SCAN FOUND
a2 B RIN3C4 RETURN FOR SCAN FOUED
378
379 ERTS3C OB SHI?T TO SHIFT BITS POR DECIBAL KURBER
OEE9 380 pc AL2 (®RTDFC ADDRESS OF SOURCE
381 B cvD TO CONVERT HUMBER TO DECISAL
QEEP 382 Dc AL2 (CYLNO) ADDRESS OF SOURCE®
OEFi 383 pc - AL2 (E2R038) ADDRESS OF DESTINATION
38% avi ERRO3A-2,c* * SET A BLANK IN PRINT 1#AG2
385 B PRISNS TO PRINT SENSE INPO.
386 B PRINT TO PRINT THIRD LINE
OEFE 387 pc XL1°06" FLAGS
CEPF 388 pc IL7*°94? LENGTH
OFO? 389 pc AL2 (ERRO3A) MESSAGE ADDRESS
390 B HALT TO DCP HALT
Oro? 391 DC XL2*°4072° HALT ID
392 B RTN3C1
393
398% BIN3B2 B PRINT TO PRINT NO SCAK FOUND
OF10 395 pc XL1°C6® PLAGS
OF11 396 Dc IL1¢ 43 _ LENGTH
OF13 397 pc AL2 (ERRO2P} MESSAGE ADDRESS
OF15 398 pc XL2°*a076"* MESSAGE IDENTIFICATION
399 B HALT TO DCP ERROR HALT
OF7B 800 pc XL2* a076* HALT ID
801
OG6APRTO 228AY70 O1RUGTO PROG ID Oavc-2
571546 571513 571531 PAGE &
IBN MAINTENANCE DIAGHOSTIC PROGRaT
ee ea nme Cae me i ee
par? no.)
: ates ie ae :
Siz96e2
a
Le
° ©
o °
8 9
e 3°
© @
o.o
gio
° 3 o
o.|.6°c
o Oo
e 0°
0/0
9 0
eo 9
0.0
ole
aie
ale
0°
°0 9°
3 | eo
a.
ele
.o
@ | E
oo
ERR Loc
oric
Or 20
or21
Or 25
OFr28
Oor2c.
_. . wOP2D.
Or2E
OF 30
OF 32
07 36
O”r38
oFr3c
Oras
OFrac
Orss
orsc
Orés
oréc
0F70
or78
oreo
orss
or90
OF95
orgop
oras
OFAD
OFBS
OrBD
OFCS
orcs
orp
OFD9
OFE}
OFE9
Orri
DATE
EC #O.
s c an
a Fete eet Ree
“Baie:
OBJECT CODE
co 87 1942
02
38 80 4989
¥2 10 10
co 87 O21A
c6
B9ecciscun.
orou
ao77
co 87 0222
ao77
HAG o
co 87 OZBC
22C3C1D58 OCSDBES
C1D380E2C5DSE2¢5
89C2€ 9E36BL OU DE2
C9E3“OFOG0C 2E8E3
C5407 15D6P80D5D6
E340D6D580C 1C6E3
cSp94u0ca
D6C9D5C74H0C 140D6
D5C54 0E2C5C3E3D6
D9NDE2C3C1D580CB
C9C7C 84 0D6D9489C5
DBENC1D340
EIJCBCSYODTDICSES
CIDGESEZGOCSD9D9
D6ED9IF240E6C8CSD9
C540D7D9CSE2CS5DS
¥340C 1C6E3ICSDINO
€4D6C9D5C7490C180
E2C3C1D5
&OCB8CIC7CB4 ODED
BOCSDSEGC 1D340D6
D74BUDE6CIE3CB40
CiDSUGCSDBENC1D3
4OC3DEDSCACSE3C9
D6DS
T3NART7O
S7ISt2Z
4a Is a
ea garerENAnct ‘piacuestie vrocaaa
"'!
o 8
OF20
or2c
OF2D
oF 2°
OF 31
or377
orér
ors
orcs
OFF2
GERPR7O
571576
815
: oD a LL
ADDR STAT SOURCE STATEVEST
402 RTs3C1 8
403
408
205
#06
807
408
809:,
810
871
812
843
a18
%16
447
917
817
847
847
B17
817
#18
818
818
818
818
419
419
819
419
419
819
819
820 ERRO3A DC
“820
&20
420
820
820
22H AkT70
5715143
BTN3D
R ° RVRERR@ SS B
ERRO3B DC
SENSE |
AL1(STATO1)
STATUS, X* 60
*RTH3D
XZL1°*C6
*AL2 (ZRRO3B)
XL2*a077¢
Halt
XL2*a077
*RIR3A
pc CL52*THE PREVIOUS ERRORS WHERE PRESENT AFTER DOING
9 3a0G70 ©
571531
Cae So Og a lana ke Nn eR tenes “Ae ee Negtnen e AahOe a ge Ag Nat nigibipnes ae a Si me mesial Hy eh nae main me tie me
Per ~
ao TEA tag? |. SEIS Oe ERE
CL52*SCAN EQUAL SENSE BIT,
CL37'OING A OWE SECTOR SCAN HIGH OR EQUAL* 2 Ee ane ae
CL&2* HIGH OR EQUAL OP.
PART HO. 5129682 ~
PAGE reap Se i
TO SENSE DEVICE STATUS.
ASK FOR SENSE BYTES 0 & 1.
TEST THE SCAN EQUAL BIT FoR on .
PROCEED IF OK is
TO PRINT SCAN EQUAL SENSE BIT #OT o¥
FLAGS
eeENGRH tte
BESSAGE ADDRESS. in es
HESSAGE IDENTIPICATION eee
“TO DCP HALT — it Sa fig
BALT ID ee Lessin
SA oy seo 8
(BIT 0 BYTE 1), NOT OW AFTER D* -.
A scam
*WITH AN EQUAL CONDITION®
PROG ID Ox0C-2 |
PGE om
coe x :
PART #0.
'$129682
PME... SS
| 8 rs . oe a e 8 va s: ‘
pam LOC OBgECT CODE ‘apoR stat source STATERENT :
“22 ¢ “ROUTINE WO. 04, TEST RESET OF SCAN EQUAL SENSE BIT
*a23 : OW A SCAN HIGH OR EQUAL OPERATION
*828 ¢ ‘WHERE THERE IS NOT AN EQUAL CONDITION
*aoe * BUT THERE IS A HIGH CONDITION
*Orr3 04 OFF3 627 RTHS BC = XL1°08° ROUTINE NUNBER
OFFA 00 OFFS 428 DC sXL1*008 ROUTINE FLAGS
OFFS 1121 Orré 4829 DCs AL 2 (RES) ‘ADDRESS OF NEXT -BOUTINZ FREFEX
| 430
OFF7 3D 00 0809 431 CLI sETs¥,0 HAVE PARASETERS BEEN ENTERED?
OFFB CO 81 OAOD 432 BE § SETDSK BRANCH IF HO
OFFF CO 87 0867 433 HTNSA OB TSTSPE
1003 3e 00 1998 439 AVI «- WRTDFC+2,0 SET FOR HEAD 0, TRACK 0
1007 CO 87: 1828 3S B SEEKCE. TO SEEK CE TRACK
1008 cO 87 168D 4 8 is TSTSER TO TEST FOR A GOOD SEEK
WOF 3¢ 00 1256. “639 BTEGB AVI -WORK+255,0_ SET WRITE FIELD
1013 UC FE 1E5S 1256 &K0 BVC =: WORK+ 258 (255) ,WORK+255
1019 3C FE 1D8B ao1 AVI «WORK+ 100, X'FE
*482
WO1D 3c 12 1879 au3 BVI SNSID,x'12° PUT ID IN PRINT
1021 3c 60 199C aus avtT WRTDFC+3,0 SET TO WRITE 1 SECTOR
, aus
1025 OC 01 BOE 19BD au6 BYC DFDR{ (2) ,-WORKAD SET WRITE DATA ADDRESS
887
1028 CO &7 19D3 aug 5 STBTIO TO WRITE DATA, (* SECTOR)
102F 02 102F 889 pe = - XL1"02¢* FUNCTION CODE (#KITE)
3030 00 1030 4850 be XL1*00* CONTROL CODE (DATA)
1031 1999 1032 451 DC —-_s« AL2. (WRTDFC) CONTROL FIELD ADDRESS
1033 CO 87 103F &52 B RTRUBI GOOD RETDRN
1037 CO §7 103B 853 B +4
7033 CO 87 ODDS 854 5 WRTER2 ERROR RETURN
855
103F 3C 78 1879 856 RTNSB1 AVI | «SNSID,x"78" PUT ID IN PRINT
1043 3c 00 1DBB 457 BVI WORK+100,0 . |
1047 OC 01 199C 03170 853 ayc WRTDFC+3 (Z) ,.TWOZR SET TO START AT TRACK 0, SECTOR 0
: a59
e 104D CO 87 19D3 860 B STRTIO TO SCAN DATA
f 1057 03 105% 961 be £L17°03! FUNCTSON CODE (SCAN)
© 1052 02 2052 &62 oc KLI°O2* CORTROL CODE { HIGH OR EQUAL)
es 1053 1399 1056 463 be AL2 (WETDFC} CONTROL FIELD ADDRESS
1055 CO 87 1067 864 5 RIRGS2 RETORN FOR NO SCAN FOUND (HOT EXPF.}
1059 CO 87 107F ¥65 8 RTNICI RETORN FOR SCAN FCUND (EXPECTED)
866
105D CO 87 71852. 867 RTHSC B PETSNS TO PRINT SENSE LEFO
1661 CO 87 O21A 868 B PRINT TO PRINT 3RD LINE
1065 06 1065 4869 DC XL7°06* PLAGS
1066 81 1066 470 pc «IL 1*65* LENGTH
1067 ODF 1068 471 pc AL2 (ERBOSA) RESSAGE ADDRESS
2 1069 CO 87 0222 872 B RALT TO DCP HALT
2 106D A078 3062 373 pC 8 «sXL2*R078* HALT ID
‘s a7a
Wor CO 87 O21a &75 RTNSB2 B PRINT TO PRINT KO SCaW FOUND WHER EXPECTED
1073 C6 1073 876 pC XL1°C6! PLAGS
1076 GA OTe B77 bc IL1*74* LENGTH
1075 3129 1076 872 bc AL2 (ERRO4B} MESSAGE ADDRESS
1077 2078 1076 875 DC —- XL2*a 079° MESSAGE IDENTIPICATIOR
Q 1079 CO 87 0222 480 B HALT TO DCP HALT
ie 187B A079 7E BBi bc XL2'*ag7g?* KALT 1D
H 282
: 107? CO 87 19a2 883 BTESCT 5 SENSE TO SENSE DEVICE STATUS
i: 1083 02 1083 8&6 oe ALI(STATC?) ASK FOR SENSE BYTES G & 1%
1084 38 89 1989 485 TSE STATUS, 480? TEST THE SCAN FOUND BIT
1088 F2 90 16 586 JF RIED JSONP IF OFF
1088. CO 87 O21A a87 B PRIST
WOSr Ccé 108F 48s be KL?'C6!? FLAGS
7090 SA 1030 989 po IE7*S0° LEKGTR
DATE TSURRTO O6APR7TO 22RBAVTIO ODIADG7O PROG ID BadCeZ
' BO RO. 974512 STIS S74373 373534 PAGE 5
Hew!
66 086@0080060700000000080 00 060 80
63
&
NST te a
a ata
=
nea te a, eae i a tt Mans ia ME bicamtl! e A i Sia t ietne me = a e em
i alien aeectieelaaiteal See Nie en a a SO aE Sa RMR ee NN NN te ce oN eT
.o- | — : Page ae
{ IBA BAIUTERANCE DIAGNOSTIC PROGRAR PART NO. | 5129682
4 aa : Pace Sa
@ S pee ce ft xe” Dyaee, adie Bead. se ag es
aocz sc a a 8 i s a OR BOVUAL
O zee Loc osszcr coDE DDR STAT SOURCE STATEREWT ee
40914 1183 1092 899 BC AL2(ERROGC) ‘SESSAGE ADDRESS
9 1093 AO7A. 10948 «@91 pC XL2‘a07a* BESSAGE IDENTIFICATION ©
1095 CO 87 0222 892 © Be HALT TO DCP HALT
1099 A07A 1094 =&93 oc XL2*a0va? RALT ID
o 898
169B CO 87 OFFP &95 RTRSD 8B BTNUA
9 WO9F EICBCSLODIDICSES 10D2 4896 pc CL52°THE PREVIOUS ERRORS WERE PRESENT AFTER DOING A SCAB * :
Fe Ske TORT CIDGEAE 3nd a6 . ve te ew ape tee rete te ee . pe ons edd ate es
toe 10aP Seneneacnecanees: 096 * “4 "anees --7 PANES ae oe
10B7 SOD7DICSEZCSDSE3 896
° WOBF SOCICGE3SCSD9AOCH 496
1OC7 D6C9IDSCTKOC 180E2 836
WCF C3ICIDSSO ets
o . 40OD3 CECICTCBAODHDIBO 10DF 497 ERROGA DC CL13'HIGH OF EQUAL’
VODB CSDEEACID3 . 497 ~ ma
* $029 £2C3C1D58 0C6D6ER “q10P 86898 pc CLuB*SCAn FOUND CONDITION OT ‘perecren BY a TIO: wae .
° WES DSCHUOCIDEDSCACS 836
1OFO E379NEDSAODSDEEZ 398
OFS BOCSC5SE3CSC3E3CS 698
C | 9100 CONOCZEBKOS { 80E3 498
- $408 C9D64 OEE6CECSD5S40 498
1110 ESICBCSDS9CSG0E6C1 1129 &99 ERROUSB DC CL26"THERE WAS A HIGH COWDITION® |
@ -4718 E240Cc140C8C9C7CB a99 |
1120 4S0C3D6DSC&C9IE3C9 499 :
1128 D6D5 899 :
re) 112A E2C3C1DSSOCSDBLB 1158 500 BC CL&3°SCAN EQ. SUS. BIT, (BYTE 1 BIT 0), OR AFTER* i
1132 ADE2ZDSE24B40C2C9 500
113A E36B408DC2E8E3C5 500
o 9182 SOF 120C2C9F38OFO 500 !
1124 SD6BSODEDSS0CICE 509 :
2152 E3C5D9 500 . . :
& 7155 40C14022C3C1D580 1183 501 ERROGC DC CLU7* A SCAN HIGH OR EQ. WHERE THESE YS NOT AR EQUAL®
715D CB8CSC7CSS0DEDS4O 501
1165 C5DSUBROEGCECSDS 501
GS 416D C54023CB8C5SD9C540 502
1175 C9E2Z80D5D62340C1 501
417D DSUOCSDSENCID3 561 ;
6 1184 CB8CSCICESOSOEGEZ2 11B7 502 DC -- CLS2* HEAD-& SECTOR BYTE OF COWTROL FIELD CHANGED AFTER A
*W1BC CSCIESDEDSACCZEE 502 .
7198 EICSEGDECESNC3DS 502
'@ 119 DSE3D9DED380ChCS 502
VARY CHODICKKOCICBECIDS 562
43BC C7TCSCAUNCICEEICS 502
G 41BS D9ZGC1EO 502
41B8 PZ4UGEZCSC3E3DSDS 1726 $03 ERRosa pc CLSI*2 SECTOR SCAN BIGH OR EGUAL 3T 2HD OF CYL
*11CO &0E2C3C1DS4&OCBCS 503
o> 11c8 C7CBuUODEDS4OC5NS 502
1iDO E4C1D340C1E380C5 503
11DB DSC4HSODECESOCIES SCZ :
m=) V1Z0 D3 503 |
&
@
8 eng
, &
| @
{
| &
{
& pave { SHEETS OLRERIO 22RAYIO OTEOS75 PROG ID pave
EC WO. $7152 571516 534512 S7i5at PAGE oo
&
eres
ncleg SLs Vk
are
EBA RAINTEMANCE DIAGHOSTIC PROGRAA
acc2
=
See etm a ae
PAGE
PART #0. 5129682
SCAB HIGH GR EBFEQBVAL
ERR LOC OBJECT CODE ADDR STHT SOURCE STATESENT
$05 * ROUTINE WO. TEST SCAN HIGH OR EQUAL BY SCANNING
*506 ¢ MULTIPLE TORS BHERE 23 SECTORS HAVE
*507 * BEE WRITTEN WITH ZEROS AND THE 24TH
*ep he s SECTOR IS WRITTEN WITH ~O1- Fa
41E1 05 11E1 510 RBTSS pc XL7°O5S° “ ROUTINE BUABER
1122 00 V1E2 «511 DC KL7700" © ROUTINE FLAGS
ViE3 1532 T1TER eH pc AL2 (BTN6) ~ ADDRESS OF NEXT ROUTINE PREFIX
4125 3D 00 OBO9 518 CLI SETS#,0 “HAVE PARAMETERS BEEN ENTERED?
47E9 CO 81 OAGD 515 BE SETDSK BRANCH IF HO
VIED CO 87 0B67 516 RTESA B TSTSPN
41F1 3C 00 1998 §17 M¥I WRTDFC+2,0 SET FOR HEAD 0, TRACK 0
i: 11P5 cO 87 T82% 518 B SEEKCE TO SEEK CE TRACK
# $19
i‘ 41F9 CO 87 188D 520 RTNSA! B TSTSEK TO CHECK FOR A GOOD SEEK
521
WiPP 3¢ 00 43F8 522 AVI TSTSEC,O SET TEST SECTOR NUMBER
7207 C2 0% 1E57 523 RTNSB LA READ, XR1 SET WRITE DATA ADDRESS
1205 34 61 IBOE 5248 ST DFDR, X81 IN DATA CONTROL FIELD
525
4209 3C 00 1°56 526 BVI WORK4+511,0 SET
420D OC FE iF55 1P56 $27 MYC WORK4S10 (255) , WORK+¢591 DATA
*213 3C O17 1256 528. AVI #WORK*+255,01
1217 OC FE 4255 1256 $29 MYC WORK+258 (255) ,WORK*#255 PIELD
421D 3C 00 1958 530 avi WRTDPC+#2,9 SET TO START AT SECTOR 9
531 ;
: 1221 3c 00 199¢ 532 RTRSB1 #YI WETDPC?+3,0 SET TO WRITE ONE SECTOR
1225 CO 87 19D3 233 B STRTIG TC 1/0 SUBROUTINE
1229 02 41229 «538 pc XL1*°02¢ FONCTION CODE (HRITE}
722% 00 22a 535 pc XL1°O00? CONTROL CODE (DATA).
: 122B 1999 122C 536 pc AL2 (WRIDFC} CONTROL FIELD ADDRESS
122D CO BY 1239 537 B RTNSB2 GOOD RETURN -
: 1231 CO 87 1235 538 B eeu
1235 CO 87 OpDe 5329 B BRTERZ ERROR RETURN
540
1239 3D 5c 1998 $47 RTESB2 CLI WETDFC+2,2°5C8 TEST FOR SECTOR 23
123D F2 81 Oa 542 JE ETRSC SUMP TO WRITE TEST TECTOR IP DOKE
i240 GE 00 199F 1902 S&3 aL WRTDFCe 2 EG) ,GNESEC ROT DONE,STED TO KEXT SECTOR
1246 CO 87 1221 584 8 BTNSB1 TO WRITE KEXT SECIOR
5465
4242 OC OF BOE SnD 586 BIKSC YC DPDE 2) ,HORRAD SET BRITE DETA ADORESS
7250 3¢ GO 199C 557 nYI BRTDFCO3.S SET TO WRITE ORE SECTOR
1256 GC 00 1995 12P8. 548 AVC WATDFCeZ (1p TSTSEC SET SECTOR NUEZER IN COFETROL FLB.
549
1252 CO BF 1973 559 B STRTIO TO BRITE THE TEST SECTOR
V25E G2 125 553 SC ZLGtazé FUNCTION CODE { HRITE)
125F O00 125F 552 pe ELI'GO? CONTROL CODE { DATA}
1266 1999 ; 126% 553 DC Ru2(SRTDFC} CONTROL FIZLD BODSESS
41262 CO &F 1268 5548 B RTESD GOOD RETURN
1266 CO 8? 4268 555 8 Bah
1268 CO 87 ODD? 556 B ERTER2 ERROR OW DATR BRITE
357
1268 3c 3 499¢ S58 RTESD BVI PRTDPC+S, 2% SET TO SCAR 2&8 SECTORS
J27zZ 3¢ 00 1998 555 Sv WRTorce+e?,& SET TC STARET SC&H AT SECTS? &
1276 3C 72 WTS 566 H¥I SWSID,K*T2" PUT ID IK PREIRT
561
eae co SF 119n3 S62 B STETIo TO SCREEN 24 SECTORS
ele 03 iZTE 563 bc XL7#93° FONCTION CODE (SCAN)
327 62 427F S65 pe X¥LI°G2° CONTROL CODE { HIGH OF EQUAL
1260 4999 ; 128% S&S DC ALZ(BRKIDFC) GUTROL PIELD ADDRESS
1282 CO BF t27A0 566 B RTRGD4 RETURN FOR RCO SCAN FOURER, ({ #OT ERP.}
1286 CO 87 %2c2 567 B RTNS=E RETURN FOR SCAR FOURD, (ERPECTED}
568
126A CO 37 852 589 B PATSNS TO PRINT SENSE ZTHPG.
1285 co SF o2ia S76 B PRIET TCG PRIRT SED LIEBE
1292 6 7292 5714 pc XL1? O65? FLAGS
129% OF 4293 S72 be ILI7G5 LENGTH
ce TIBARTG G6APE7O 22KR7T7O O+aAvCTS PROG 35 Gagc-2
BO. S745%2 5771516 S71S13 §$71534 PAGE &
oe8o9000006000006dUCUMULUCUCOWCUOWULUOULMOhUCOWlULCO CLO CO
@ ©
oo
Oo © ©
o
Mewes EM me Ste ee ee er ees Nhe NA cote eT
scenes cent tees ten =
9 © 0 00 8@¢6¢0060600 600 609° 9 8 © o o© 9 8 °®O
ie)
oo
.&
3
eoege see
ce a ae ee a a aay di Ri a a ag ete ttn Soe ln Sha IE ae eT Nae ote
IBM SAINTEWAHCE DIAGNOSTIC PROGRAA ~
aoc2
ERR LOC
1298
1296
129A
429C
1220
1248
i246
12RA
12AC
12az
12B2
12B6
I2B7
1288
12BA
q2BC
12¢0
t2C2
12c8
12CB
2cF
12D1
4255
$207
12D
I2DD
T2zZ4
{ 2E3
Y2E7
1229
T2E8
IZEP
V2F3
3278
t2P5
32P7
T2ES
i2FD
T2rP
1365
G3cs
43305
33741
W349
W324
2329
7331
43393
T3584
F385
T38h
9355
1350
4256
7262
2376
Y378
4380
1348
DATE
EC Be
sca R
OBJECT CODE
1357
co 87?
A072
co 87
co 87
i3P6
co 87
ICDD
J3ARA
3c 40
co 87
0222
1202
1098
ice9
1348
0212
HIGEH
cé&
$5
V3B8
A076
co 87
ad7s
*0222
Op 00 1998 2378
38
1098
F2 81
co 87
1999
co 8&7?
ICD
VIDE
3c &9
ICES
4352
co 87
13F6
co 87
iCDD
1377
3c 40
ic38
ICES
4375
cO 3? G27iA
cé6
83
V3F7
ROTC
cg 87
AGTC
0222
SE OO 1SG2
3D 69
co 84
co 37
43F8
G3PE
TIED
120%
BESCBCSUODTIDSCSES
CEDSESTZ4OCSD IDG
DEDIEQSOESCED 9CS
ZODFIDICSE2ZCSDSE
BOC ICHEICSD 94 OCH
DECSD5C7& OCTEOEZ
C3CIDSGEE
CBCSCICES CDEDFEL
CSPRELCTDRRORECS
LOFZF8SOE2CSC3ES
DEBIZ2
EZCACTOS& OCSDSEES
CTDZ8ODSHE EILGEZ
CSESLOCICSEICSDS
SOCikOF2ZPELDE2ZCS
CUESPEDIROEIC ICH
DSxOCcBcseciICsa os
T3HAETO o6
S7IS%2 SF
Oo R
Zquanr--
ADDR STHT SOURCE STATESZET
4295
4298
12.85
I2AaB
FZAaD
1236
1237
12B9
12 BB
12C1
42D0
42D6
1238
1222
1228
12 EA
ade
dat
£
a
435°
Fut
_ADDRESS OF SGURCE. atthe
ADDRESS OF DESTINATION ~~
PART BO.
Pace
e-
s
€
MESSAGE ADDRESS
TO DCP Halt
HALT ID
PROCEED TO NEXT CHECE
TO SHIFT BIT IN SECTOR HO.
ADDRESS OF SECTOR KO.
TO CONVERT TO DECIBAL
bree me
TO PRINT WO SCAE POUND
FLAGS ;
LENGTH
BESSAGE ADDRESS
‘MESSAGE IDENTIFICATION
TO DCP HALT
RALT ID
DID SCAR EQUAL OCCUR ON
EXPECTED SrCTOR ?
JUMP IF YES
TO SHIFT SECTOR BITS
CONTROL FIELD ADDRESS
TO CONVERT TO DECIMAL
ADDRESS OF SOURCE
ADDRESS OF DESTINATION
TO SHIFT BITS FOR EXPECTED
ADDRESS OF EXPECTED FIELD
TO CONVERT EXPECTED TO DECIMAL
ADDRESS OF SCURCE
DESTINATION ADDRESS
TO PRINT SCAN EQUAL ON INCORRECT
SECTOR:
FLAGS
LENGTH
BHESSAGE ADDRESS
MESSAGE IDENTIFICATION
TO DCP ERROR HALT
HRLT ID
STEP TEST SECTOR RG. +1
HAVE RLL SECTORS BREE USED ?
TO OSE WEXT SECTOR IF KO
1 eatin Ne omens it ener whee wees ate ok ad cates
(5129802
6a
a
tne ee
i
CLO2°THE PEEYIOUS ERRORS WERE PRESERT BPTER DOING A SCAB
*CL27? HIGH OR EQUAL OF 28 SECTORS?
CLSO*SCAN EQUBL WOT SET AFTER A 258
$73 DC AL2(EPR0SA)
578 B HALT
575 DC XL2°4a072°
*576 B RTUSE
577 _
578 RTESD1 B SHIFT
579 Dc AL2 (TSTSEC-2)
580 B CcYD
581 DC. AL2 (CY1.NO)
582 pe AL2 (ERRO5 B-10)
583 SVI EBROSB-12,c*
*586
585 B PRIBT
586 DC XL1°C6
*587 DC IL1°85!
586 pe AL2 (ERROSB)
569 DC XL2"a076°
590 B HALT
591 pc XL2' A076"
592
593 RTRSE CLC wWRIDFC*2(1),TSTSEC
594 «
595 JE RTNSP
596 B SHIFT
597 pc AL2{ WRTDFC)
598 B CUD
599 pc AL2 (CYLNWO)
600 Dc AL2(ERROSD)
601 HVI ERROSD-2,C*
*602
603 B SHIPT
608 DC BL2 (TSTS EC-2)}
605 ) cYD
696) Dc AL2 (CYLNO}
607 DC AL2 (ERROSC)
668 HVT. ERROSC-2,C* #
609
670 B ‘PRIET
611%
672 pe KL4°C6
*613 De ILi*67!
6148 be BL2 (ERRO5SC)
615 DC KL2*RO7C?
616 z HALT
E17 be EL2'207Ct
618
679 RTXYSF ALC TSTSEC{ 1) ,CRESEC
620 CLI QTSTSEC.x760°
627 RTHSS RE BINSE
622 B RBINSB
623
628 BC
62k
62%
628
626
626
624
625 EEROSA DC
625
625
625
€26 Dc
26
626
626
626
626
Z2ERY7S O1RUGT7C
571543 577531
SECTOR SCARE HIGH CR
proc ID
PAGE
v
OROC-2
68
®9eeeeeeeeegeeaeeeaeeeeereoeeoeeeweletlcelCcCOeCeCelUlceclCcOmlUCcCWClcO8Ulc8l8 le
5329682
‘PAGE .9-
OCD State BIGH O & 2 e 0 a L
-. ERR LOC OBJECT CODE ADDR STBT SOURCE STATENEST
- 1390 D980 eX 626 ; :
71392 CSDBESCID34UOES6CB 1354 627 ERROSB DC CL35* EQUAL WHERE SECTOR NO. ZX WAS EQUAL
*1394 CSDICSGOE2ZCSCIE3 627 ' - .
4342 D6D980D5D68B8 027 627
VIAA EPQOEGC 1E2&0C5BB. “627
1382 ENCiD3 627 " ye :
1385 E2C3IC1DSYOCSDBES 13D& 628 ERROSD DC CL32'SCAN ZQUAL OCCURRED AT SECTOR £X
*13BD CID34ODEC 3ICIESDI 628 Sane aia Dad ek Ae oe ee oe
13C5 DICSCHSOC TEISOE2 _ 628
13CD CSCIEIDGDSROETET 628. ree
13P5 6BUDEZCSDSESD3C4 13F7 629 ERROSE DC CL35*, SHOULD HAVE OCCURRED AT SECTCR XX
*43DD #6C8C1E5C500D5C3 629 ©
1325, CAENDSDSCSCLHOCI 629
IZED EISOE2ICSC3EIDEDY 629
1375 SO0E7E7 629
1378 30 1378 630 TSTSEC DC XL1°08
93f9 E2C3C1IDSNOCECICS 14828 G63T ~ pe CLS1*SCAN FIELD WAS ALTERED AFTER GIVING A SCA® HIGH OR °
1401 D3IC&& OEBCIE2N0C1. 631
1609 D3E3C5D9CSCULO0C1 631
18141 C6E3ICSD94OCTICIES $31
1819 C9D5C780C T80E2C3 631
1821 C1D580C8C9C7CB4D 631
1429 DEDSLO 631 ;
182C CODBEYCID3I4“OCIDS 1438 632 ERRO2C DC CL13* EQUAL COMMAND®
7834 peDACIDSCSA 632
9939 CBCSCICEROSONOE2 1486C 633 pe CLS2*HEAD & SECTOR BYTE OF CONTROL FIELD CHANGED AFTER A
*1891 CSCIEIDEDIXOCZES 633
1489 E3ICSUODS6CES0C3IDS 633
1517 DSE3D9D6D340C6C9 633.
1458 CSD3ICHSOC3CBC1IDS 633
16867 C7C5C44%0C 1CEZ3C5 633
1669 DINOCILO 633
16D DESSCSROEZCSC3IE3 1978 6348 ERRO2ZD DC CL1I5S°ORE SECTOR SCAH
*$875 DEDIGOEZC3CIDS 634
W87C B3ICBCS4ODTDSC5SES 14ac 635 pe CLS9°THE PREVIOUS ERRORS OCCURRED WHILE DOING A WRITE
*1488 CIDEESEZNOCSDIDY 635
148C DEDIEZVODEC3CIES 635
W496 DIDICSCSYOEECECI 635
149C D3ICSSOCeDSECODSC? 635
W8AY XOCISGESBDSCIESCS 535
TEAC 4O 635
THAD CUCTEICISOC3SDEDS 1805 636 ERROZE DC CLZS°DATA CONMAED USING HEAD O°
13BS DSCIDSC&sSOZRSZ2C9 636
T4BD DSC7UOCBCSCICUHO 636
WwCS PO 636
T4CG E2CICIDSAOCKEDSES F4FG 637 ERRO2PF BC CL43"SCAMW FOUND WOT SET AND OB DETECTED BY A TIO
*INCE DSTSUODSDSESYOEZ 637
WBD& CSE380CIDSCUS ODS $37
TADZ DIXOCECSEICSC3IE3 637
IWEG CSCULOCZEB4OCINO 637
WSEE EIC9ODE6 637 :
16FP1 DSDENODSCSC34B80 1523 638 ae CL52°*HO REC. POUND NOT S#T BY A SCAN HIGH OB EQUAL COBHAKF®
14F9 CEODBESDSC4U4ODSDS 638
150% EB34OBR2CSE340C2E8 638
' 9809 SOCTEDE2C3C1D549 636
1511 C@C9IC7CB4ODENIsG 633
1519 CSDBEUCID3I4OC3DE 638
158217 D&DaCciDS 638
(1525 COHOESE2C9DSC740 753D 639 ERRIB DC CL25°D USING A SECTOR ID OF FF
*IS2D CISOE2CSC3E3DED9 639
1535 4OCICULODECESOCE 639
153D C6 639
DATE { 3RARTO O6APRIG 22NAY70 O7A0G70 PROG ID oaac-2
EC HO. 571512 571516 571543 571531 PAGE 7
An te ay ee amet Bain St
BR naInrEnance DIAGNOSTIC PROGRAS
te ee ne Se ee ne mt a mrt -
Pin? 50.
eo ae 0 e@60000602008000000 0 8 0
a ©
ene cee emanate ot ee ne
.
0000000000 06
o
@®2 ® 60 © © © &@ © 66 86 4 6 86 8 86 oO
aoc2
ERR LOC
4532
1537
. 1580
3582
15486
IS8A
1548E
1552
1556
155a
13552
1564
1568
1562
1872
1573
1578
1576
IS7A
1S7E
1582
1586
158A
158E
1532
1593
1598
1596
J59A
1SSE
15482
TS5A6
1Sa7
15a8
ISAA
15ac
1580
15382
+536
15B7
1585
iSERE
1Sc2
15c3
q5c4
3SCé
DATE
EBC 80.
SCAR.
OBJECT CODE
66
00
1778
ce
co
3c
co
co
3c
oc
3c
co
02
00
81
87
87
87
00
PE
00
01
87
1999
87
87
87
04
01
pc
87
1953
co
co
co
co
cé
59
87
8?
87
67
165E
A07D
co
87
AO7D
coé
OZ
38
F2
co
cé
54
87
26
+0
87
16B2
AOT7TE
-
0809
OAOD
0867
7998
1828
188D
1256
1255
19S8¢
1BOE
19D3
1582
1S7E
ODDS
TES6
199C
1995
19D3
ISA2
159E
1SB2
0278
0222
W9Aa2
49BS
16
O272
T3RARTG
$73572
eee eee ancl dit iL an naomi Totnes ono ee 7 iene ene
1ES6
19BD
RISE oO
ADDR
353£
153P
7581
1572
1573
1575
i592
1593
1835
T5Aa6
15247
15a9
3523
15c2
15C3
+Sc5
1Sc?
CERPRTO
$745416
Ser aed
R BoOuar
IBE BAINTEAANCE DIACKOSTIC PROCES
ev
STMT SOURCE STATESEMT
681 @
632
*643 @
68a
645 @
646
687 RTBS
648
689
650
651
652
653
654 RTHG6A
655
6386
657
658 RTB6AT
659
660 RTE6B
661
662
663
668
665
666
667
668
669
679
671
672
673
678
675
RTN634
676
*677
678
679
680
637
682
683
688
685
686
687
688
689
696
693
632
693
698
695
696
697
698
6$9
7G%
761
702
703
763
705
706
707
788
ETW6B2
RTH6C
22 aY7G
$7453
PART "0.
PAGE. ze Ww
<r hal oF : x
ROUTIBE #0. 06, CHECK PUNCTION OF ERD OF CYLINDER .
SENSE BIT, (BYTE 1, BIT 2) ‘s
USING THE SCAN HIGH OR EQ. COMSARD +
ROUTINE PREFACE
Fact “eb com sab mt ee { again inaree en oni Min ds a
pCO s«XL17°06* ROUTINE NUABER
DC —_: XL1*00° ROUTINE FLAGS
DC (MED (BTEZ) <BDDRESS OF WEXT ROUTEMEPRERIX
CLI SETS¥,0 HAVE PARAMETERS BEEN ENTERED?
BE SETDSK BRANCH IF 50.
Be tsrsPs- | |
MYI- WRTDPFC+2,x°DC* SET FOR HEAD 1, SECTOR 23
B SEEKCE TO SEEK THE CE TRACK
B TSTSEK “0 TEST FOR A GOOD SEZK
AVI _WORK+255,0 SET
aYC WORK+254 (255) -WORK*255 WRITE FIELD
BVI WRTDFC+3,00 SET TO WRITE 1 SECTOR
SVC DFDR(2) ,WOFEAD SET WRITE DATA ADDRESS
B STRTIO TO WRITE DATA
DC 1L1*02¢ FUNCTION CODE (WRITE)
DC XL1*00" CONTROL CODE (DATA}
DC AL2 (WRT DPC) CONTROL FIELD ADDRESS
B RTN6B1 GOOD RETURN _
B +48 - we
B WETER2 ERROR RETURN
HVI WORK+255,01 SET DATA FIELD TO
CREATE A LOW CONDITION
M¥I-WRTDFC#3,1 SET TO SCAN 2 SECTORS oe ba
mYI. ®RTDPC+2,X°DC* SET FOR HEAD 1, SZCTOR 23
B STRTIO TO SCAN DATA, (EXPECT ERD OF CYL.)
pesC«XL 1°03? FURCTION CODE (SCAB)
pCO CL7°02° CONTROL CODE { BIGH OR ZQUAL)
pe OsOAL2 (BRTDPC) CONTROL FIELD ADDRESS
3 BTR6B2 GOOD RETURN, (NOT EXPECTED)
B #44 SCAN FOURD, (NOT EXPECTED)
B PTE6C ERROR RETURN, { EXPECTED}
B PRINT "OD PRINT HO ERROR FROR TIO ~
DC XL1°C6? PLAGS
pe 30 «TL1¢89° LENGTH
BC AL2 (ERROGA) RESSAGE ADDRESS
Bc XL2* A073? MESSAGE IDERTIFICATION
B HRLT TO DCP HALT
pC s«XL2*207D° HALT ID
8 SEERSF TO SERSZ DEVICE STATUS
DC AL1{ STPTO1} BITES 0.6 1. :
TBN STATUS,1720° TEST BYTE 1 BIT 2 FOR OF, di
(THIS IS "ERD OF CYLINDER") ae
IT ETHED SUMP IF OF
5 PRINT TO PRIN? SENSE BIT WOT OF
DC YLitcee FLAGS
po|20|OUCLLY°8a* LENGTH
pc AL2 (EREOGR) HESSRGE RDDRESS
pc XLZ°ROTES BESSAGE IDENTIFICATIOF
0 7RUG70 PROG ID etd
$71537 PAGE
Be te ae ay Wee ee
a
fe cee ee ce me
“EBM AAINTENABCE DIAGNOSTIC PROGRAR
-aoc2 Stas
-£ 2 LOC OBJECT CODE
1i5c8
cc
co 87
AODTE
0222
co 87
1D57
SCE 1858
15D2
15D8 3D 00 199C
15D8 F281 10 |
15DB CO 87 021A
‘ ISDP C6
y *GEOgr —
ye 1SE1 1773.
1SE3 A073.
1585 co 87
(NSES* 4073 -
_ ISEB 3D
0222
DC 1998
"SEF
1SF2
1S F6
1SP7
15¥8
1SPR
F2 87 10
cO 87 O21AB
c&
SE
11Z0
AOTP
ISFc
1600
1602
co 87
AOTP
co 87
0222
ISA
1606
160E
1616
IH1E
1626
16 2E
1636
163A
16 4&2
T64R
16 52
TH5R
T65F
1667
166F
1677
167F
1687
16 8F
1693
1633
W6A3
TGRE
16 B35
TéeBL
16C3
JOCh
16D3
T6DB
16E3
76 EF
J6EF
16F7
iSF fF
77
V7OF
C140 E3C5EZE340C9
61D6NOD6D540C5D9
DSPEDSSOCSCSCHRO
DSD6E34OC2D9IC IDS
C3ICBYOCICEEICSDO
&OC TEZEICSDENVES
C9DSC740
EID680EZC3C1DS4O
CBECICTCEL ODEDIGO
CSDBERCID34 OIC?
EQE3GOCSDSCRUDDE
CELOC3ESD3
C5D5C440DSC6h0C3
EBDIGBUDEZCSLSE2
CELOC2ZCIESUODSDS
E340E2C5E3480C1C6
FICSDSNOC TESE3CS
DUDTEFCIDSC7TU CES
D6UCEZC3
CUDSHASC aC ICTCK KE
DE DSA OCSDSERCIDS
HODICTEZESHOCSDS
CEKDDECEUOCIEGDS
EZCSC3E3DEDSYOC3
DE ESDSESCSDSLOCY
DESCCIDEDSESDIDE
DICOCECICSDICHAD
DS DGE380E2E3C5D7
PTCSCALOCIDEDIDG
CSCRE3D3
EGXOCICEESCSDIHO
CIXOE2C3CIBS& OCB
SScIcsxonsnsgocs
DSEYC1D3& ODICIEZ
E38 0CSDSCRUODECE
BOCIESD340
DATE
EC NO.
TIMAERTG
S7ist2
eeeeeeeeeneeeeeeee
HIGH
2
ADDR
aScD
15D3
15DP
' 15z0
JSE2
1580
TSEA
1576
4SP7
45F9
iSFB
1601
1639
1652
3692
7682
T6E6
W713
OGAPR7TG
573516
8 ZTOQvaAL
STST SOURCE STATESERT
709
710
.711
W112
713
718
718
716
717
7718
719
720
721,
722
723
726
727
728
729
*730
731
732
733
738
735
736
737
738
739
7a0
737
731
741
ThA
7a
784
741
TR2
782
7R2
Faz
7482
7&3
743
7&3
Fea
783
743
783
Tas
TES
Fag
Tas8
FPS
7a
7485
735
785
7as
735
746
786
786
786
746
be
RTHGOD 8B
« CLI
JE
bc
oe
bc
RINGE CLI
RTNG6F B
ERR06a DC
be
ERROSE BC
oc
ERROGC DC
7a6.
22BAY76
$71513
bc.
HALT -
XL2*AO7E
*TSTDAT
AL2 (8CRK)
BRTDEC+3, 00.
RTR6E
XL1°C6!
IL197"
AL2{ £RRO6C)
XL2*a073°
HALT
X12¢ 4073"
WRIDFC+2,X"DC?.
RTNOF
XL1°'c6
*IL1'9a
*AL2 (ERROGD}
XL2°*aO7F
*HALT
XL2* AQTF®
RTNGA
meee a aR emt
TO DCP HALT
nie Ae ce ne neni EES tse te
oat ee mane Mec try ON. a danse Se Lio we oh
PAGE
HALT IDENTIPICATION
TO TEST DATA ADDRESS
EXPECTED ADDRESS
TEST SSCTOR COUNTER FOR. STEPPING _.
JUNP IF CORRECT
TO PRINT SECTOR COUNTER "OT
STEPPED CORRECTLY
FLAGS —
LENGTH
MESSAGE
TO DCP HALT
HALT ID
ADDRESS
_SESSAGE IDENTIFICATION
CHECK HEAD & SECTOR NO.
WRITE IS COMPLETED,
JUMP IF XO CHANGE
TO PRINT ERROR
FLAGS
LENGTH
MESSAGE ADDRESS
MESSAGE IDENTIPFICATIOS#
TO DCP HALT
BALT ID
APTER
(SHOULD NOT STP)
CL52*& TEST I/O ON ERROR DID NOT BRANCH AFTER ATTEMPTING °
CL37*TO SCAN HIGH OR EQUAL PAST END OF CYL‘
CLSZ* EXD OF CTL.
CLS2*2B HIGH OR EQUAL FAST END
CLOZ*SECTOR COUNTER IN CONTROL
SZRNSE Bit
not
SET aYTER
CLUS*Y AFTER & SCAN HIGH OR EQUAL PIT END OF 1.4L"
CIACGIG
$71537
Fa,
PROG ID
PACE
ATTEMPTING TO SC
*FIELD NOT STEPPEP COKRECTL*®
oacc-2—C
8 >
. &
“,
—
5129662
o ¢
ers
80
e°
oO.
a)
0.0.
010
°°
0 0
° 6
°o 8
6 0
&o 0
Go
0-36
O°
G0
os
0 0
G0
01°
Oo ©
Bad
%
‘
| @
lo
*
é
wera on ti i lle AEE ARE Ri em mst OE tat Ta La Ree ER RN aE HL
&
IBM HAINTEMAHCE DIAGHOSTIC PROGRAS
a0c2
ERR LOC
’
1718
ANS
1716
1718
171¢e
1720
9728
1728
17 2c
1730
1738
73a
173E
1748
1748
W749
T74A
WAC
1750
1754
1758
175¢
1760
37648
1765
4766
1768
t76C
1770
4774&
775
1776
1778
W7¢c
T7TE
78%
4785
1766
47387
7789
37838
178F
37S4
DATE
EC wo.
nen nn te Na i ee Ee ee siete Sew enim 8 anemia aca nik nei abi Ritaenthd we
PagT HO. 5129682
PAGE sa
. EE, AE Be | cz a :
SCAW. HIGH OR EQUAL
OBJECT CODE ADDR STMT SOURCE STATEMENT
746 * ‘ROUTINE RO. 07, CHECK FUNCTION OF SCAM HIGH OR EQuaL
*7a9 ¢ USING A DATA FIELD OF 256 BYTES
*750 * OF 55 BOTH IN MEMORY AND OF THE DISK
*751
752 * ROUTINE PREFACE
753
07 1718 #758 RTH7) | (DC XL1°07° ROUTINE BNUBBER
00... ae 1715 755 _ _..: DE... _. XL1900°. 7 ROUTINE FLAGS P
1795 4717 «756 pc AL2 (RTWB) -- KDDRESS OF WEXT ROUTINE’ “<)-~
757
3D 00 0809 758 CLI SETSW,0 HAVE PARAMETERS BEEN ERTERED ?
co 81 OA0D 789 BE SETDSK BRANCH IF KO -
760 -
CO 87 0867 761 RTN7JA 8B TSTSPR
3c 00 1998 762 avi WETDFC+2,0 SET FOR HEAD 0, SECTOR 0
cO 87 18248 7163 B SEEKCE TO SEEK CE TRACK
769
cO 87 188D 765 ETR7A1 B TSTSEK TO TEST FOR A GOOD SEEK
766
3c 55 1856 767 RTN7B #SYI WORK+255,X*55! SET
OC FE 1E55 1856 768 aYC WORK+254 (255) ,8ORK+255 DATA AREA
769
3c 00 199¢c 770 BVI WRITDFC+3,0 SET TO WRITE OWE SECTOR
771 : ;
OC 07 1BOE 19BD 772 HVC DFDR(2) ,WORKAD SET WRITE DATA ADDRESS
773
cO 87 19D3 778 B STRTIO TO WRITE ONE SECTOR OF DATA
02 1788 «0775 Dc XL1°02? FUNCTION CODE (WRITE)
00 1789 776 DC XL7*0°* CONTROL CODE (DATA)
1999 174B «0777 pe AL2 (WRTDFC) CONTROL FIELD ADDRESS
cO 87 1758 778 B RTR7B1 GOOD RETURN
87 1754 779 B +44
Eo 87 ODDS 780 3 WRTER2 ZRROR RETURN FOR WRITE DATA
781
3c 72 1B79 782 RIN7B1 MVI SHSID,X'72* PUT ID IN PRINT
3c 00 199C 783 BVI wWRTDFC+3,0 SET TO SCAN ONE SECTOR
CO 87 19D3 78a B STaTIC TO SCAN EQUAL
03 1758 785 pec XL1'°O3* FUNCTION CODE { SCAR)
02 1785 786 pc XL1°02? CONTROL CODE (BIGH OR EQUAL)
1999 4767 787 rc AL2 (WRTDFC) CONTROL FIELD ADDRESS
cG 87 7787 788 8B RINT B2 RETURN FOR HO SCAR FOGHD
CG S8Tt 179% 789 B RTR7C1 RETURN FOR SCAX FOUND
796
cO 87 1852 79% B PRTSES TO PRIET SEBSE INFO
06 47748 792 pe ZL1* 06" FLAGS
61 4775 793 pc ILit37t LENGTH
OFF2 4777 «79% DC EL2 (BRREGZA) HESSAGE ADDRESS
CO 87 0222 795 8 HALT TO DCP HALT
BO7Z 77D 7396 pc XLZ2°* AG725 EALT iD
F2 87 719 797 - RIR7C3
798
co 8S? O27:8 793 RINTRBZ B PERETET TO PRIEY NO SCAB POURED
cé 1785 860 pe XL1°C6? FLAGS
28 4766 801 BC IL1%a3e LENGTH n Set
TOF 4788 So2 pe AL2 (ERROZF} MESSAGE ADDRZSS
LOVE T7SR 803 DC XL2°ac76* MESSAGE ID Aon
CO 87 0222 B08 B HALT TO DCP ERROR HALT
BOVE 4720 ©6865 DC ZL2°a076? H< Ii
BOG
CO 87 17206 BO? RTHTCT B RINTA
B08
OAGC-2
TSHARTG COGAPR7O 2284276 QIAUGTC ee TD a.
5771512 571516 571513 571531
me cae ing
wa eo: 90 ee
ori mas ere cnet © a fm te in te a aang = leas aS A AB. Sim RAO dee 9% wae RE Ate Rate martes a Si Ar MOREE Aner ge al on NR 26 Beta hk al el OI SEN AR ee Ne Aa OT ae a Ae Ne ee hal ae i RR RI ne eee 6 RoR ame we Be | ee di eet iPespitndsis Ma” “Diesen Sigg Zenuy igs eet aia aN
ot eee ine REE tS Ag PET me ivi eee eae Pha epee ne ae dae Se a ae ee ee eR OR cat a a Sea mR te ee NT ictal ne E Re e otly caer
, ae & 8 o
ISH HAINTEEANCE DIAGHOSTIC PROGRAR -~ PART BO. 5129682 IBA MAINTZEHAHCE DIAGNOSTIC PROGRAS PART HO. 5129682
PAGE PAGE 9A
S@ 6 3
_A0c2 SCARS HIGH CR EQUAL 7 a0C2 SCRRH HIGH SR EQUAL
ERE LOC OBJECT CODE ADDR STEHT SOURCE STATERERT & G ERR LOC OBJECT CODE ADDR STHT SOURCE STATESERT 9
810 ¢ EOUTINE #O. 08, CHECK FUNCTION OF SCAN HIGH OF EQUAL & STi * SUBROUTINE FO SEEK THE CE TBACEK
Sti WHERE ORE BYTE IS COMPARED * S$ € 872 &
812% AND 255 BYTES ARE MASKED OFF & $828 38 38 4857 873 SEEKCE st SEEKEX+3, ARR SAVE THE EXIT ADDRESS
813 1828 Cc OO 1998 OBOR ee AYC RTDFC+1(1) -TRACKE SET SEEK ADDRESS TO CE TRACK
1795 68 4795 818 ETe8 DBC KLitoee ROUTINE HUABER ¢G 8 i82E 2¢ 09 IBT9 875 BYE SNSID,O9 PUT ID IB PRINT oO
1796 GO $795 815 DC ELItGo# ROUTIBE FLAGS R76
1797 FPFF 4798 846 pe XL2?PPPF? LAST ROUTIEE FLAG 1832 CO 87 19D3 877 B STRTIO TO SEEK CR TRACE
817 @ ig #836 06 4836 878 pc XL7*O° FUNCTIOS CODE (CORTROL) ae
1799 3p 00 OBO9 878 CLI SETSE,o HAVE PARARETERS BEER ENTERED 7? 4837 GO 4837 BFS DC XL4°O# CONTROL CODE { SE2EK}
179b C@ 81 OAGD 219 BE SETDSE BRENCH IF HC 1838 1999 4839 880 DC AL2(@RTOPC) CONTRCL FIELD ADDRESS
826 2 © 183k CO 87 1858 B81 8 SEEKEX GOOD RETORE o
i7Aa1 CO 8? OBO? 821 BTHSA 8B TSTSPE 183E CO 87 1842 882 B ag
1785 3 09 9998 822 S¥VI BETDPCe2,0 SET FOR HEAD 6 SECTOR 6 1842 CO B87 1B52 883 B PRISHS TO DECODE ERROR .
1729 CO 6B? 3828 623 5 SEEKCE TO SEEK CE TRACK S © 1846 CO 87 0212 883 B PRLaT TO PRIxT ERROR ei
E28 184A 06 T8GR 885 Dc ZLi°06? FLAGS
17aD CO 87 188D B25 ATHERT & TSTSEK TG TEST FOR A GOOD SEEK 1848 35 1848 2286 oc IL4?53* LENGTR :
cee e 98 wBuc OC9C i8tD 887 DC —- AL2 (ERROR9) RESSAGE ADDRESS Oo
17Bi 3C G1 TE56 827 RTHGS AVI wORK*255,01 SET { S8EB “0 BF 0222 888 B SALT TO DCP HALT
1785 OC FE 1255 1256 828 EVC WORK+254 (255) ,WORK+255 WRITE AREA 1852 #008 1853 889 DC XLZ*°a00g* HALT ID 2.
829 Cc 6 1858 CO 87 0000 890 SEEKEX B a8 ZUIT es
17BB 3c 00 199C¢ 830 BVI wWRTDPC+3,0 SET TO BRITE ONE SECTOR 891
J7BF Oc O43 TBOE 198BD 834 BUC DFDS& (2) ,BORKAD SET #RITE DATA ADDRESS 892 SUBROUTINE TO DETERHINE IF DATA ADDRESS &
832 & 8 893 * IS KOT STEPPED % c
17C5 CO 87 19D3 833 B STRTIO TO BRITE ONE SECTOR OP DATA 894
1769 020 i7c9 6.36 DC XL1*02? FUNCTION CODE (BRITE) Bos .
17C3 00 T7CA 86835 DC ZL7°O* CONTROL CODE (DATA) @ & 1858 3% 08 188C 896 TSTDAT ST DATEXT+3, ER SAVE BETURN ADDRESS 3
VICB 1989 Vcc 836 Dc AL2 (WETDFC) CONTROL FIELD &DDRESS 185c 35 92 188C 897 L DATEXT+3,XR2 LOAD XR2 WITH PARAMETER POTTER
T7CD CO 87 17DS 837 5B RTNB BI GOOD RETURN 1860 2C 01 18FE 01 898 HYC 8ORK1(2),1(,XB2) HOVE EXPECTED ADDRESS POR COMPARE
17D CO 87 3755 838 5 ae @ 6 1865 OF 01 188C 7900 399 ALC DA&ATEXT+3(2},T#O INCREASE EXIT ADDRESS e
17D5 CG 87 ODDS . 839 B WETERZ ERROR RETURN FOR WRITE DATA 1868 CO 87 iSA2 900 B SENSE TO STORE DATA ADDRESS
1759 3c 72 1879 B40 RTRBBI BVI SHSID,X*°72° POT ID IN PRINT 1O6P AB 186F 901 pc AL1(DATA) /
VIDD 3C OG 1256 344 EVI ¥8ORK+255,0 @ 86 362 o
T7210 3C FF 1255 8&2 EVI 8ORK+254,E°PF* SET DATA AREA FOR SCaB 1870 OD OF 1369 I8FE $03 CLC TATUS (2) ,WORK1 CHECK DATA BDDRESS
I7E5 OC FD FES& TESS Ba3 agc WORK4 253 { 256) ,BCRKA254 1876 F2 81 46 9Gu gE DATEXT JOHP IF ADDRESS s
B44 o© 6 $05 * IS AT ORIGINAL FALUE cS
i7EB 3c 00 199C Bus HYI WRTDFC+3,0 SET TO SCAR ORE SECTOR 1872 CG 87 G21a 906 B PRINT TO PRINT DATA ADDRESS BOT CORRECT
V7EF cQ 87 19D3 S46 B STRTIO TO SCAN EQUAL 1B87D C6 187D S90Qa7 c XL1*cEe PLAGS
37P32 93 V7F3 8287 pe X¥L7°03? FUNCTION CODE (SCA#} eS © qRTE 25 ia7E 968 pc ILit* 4 Ze LENGTH o
17F& 02 V7FG B48 Dc XL1°O02¢ CONTROL CODE (HIGH OR EQURL) V8? 192F 1886 909 pc L2 (DATPE1) ADDRESS OF AESSAGE
T7PS 1999 V7F6 889 be AL2 (BETDPC) CONTROL FIELD ADDRESS 18S1 AOZE 4882 $10 DATID1? BC XL2*AG3E* MESSAGE IDENTIFICATIO“
i7f7 cO &7F 1840 850 3 RENSB2 RETORN FOR WO SCAR FOUBD G @ 1882 CO 87 0222 $41 B RELT TO DCP HALT 2
17PB CO 87 1820 851 B RTHSC1 RETURN POR SCAN FOUSD 1887 ac3e 1888 912 pc XL2°A03E! HALT ID
852 4 1883 cO 87 O0G0 913 DATEXT B ¢—s EXIT a
17¥PF CO 87 1852 853 B PRTSNS O PRINT SENSE INFO CG @ 915 a
1803 06 1803 858 pc XL1*06" FLAGS 915
1908 61 180% 855 pe IL1°97¢ LENGTH 916 * CONE HERE TO TEST FOR A GOOD SEEK s
1805 OFF2 1806 856 pc AL2 (ZRRO3A) MESSAGE ADDRESS @ 6 917 Q
7807 CO 87 0222 857 B RALT TO DCP HALT 188D 34 O& 18C1 918 TSTSEK ST SEKEXT+3, ABR SAVE SETORK ADDRESS
180B AG72 180¢ 858 pc XL2°a072° HALT ID 1897 CO 87 1942 919 SKTSTA B SENSE TO SENSE DEVICE STATUS ;
180D F2 87 10 859 J RTHBC1 e@ 8s 1895 62 1895 9320 DC AL1(STATO1) BYTES 0 & 1. QO
860 921
1810 CO 87 O21A 861 RINSB2 B PRINT TO PRINT NO SCAN FOUND 71896 38 10 1989 922 TBR STATUS,X*10? | TEST THE SEEK BCSY SENSE BIT
1814 C6 1815 «B62 pc XLi'C6! PLAGS o 169K CO 10 1997 923 BT SKTSTA IF ON DO ANOTHER SENSE Q
1815 28 1815 863 DC ILV*G3e LENGTH 924
1816 78F0 1817 864 pe AL2 (ERRO2P) MESSAGZ ADDRESS 1892 38 Of 71988 925 TBN STATUS~1,E'01* TEST POR SEEK CHECK 2
1818 A076 4819 865 Dc XL2*a076° MESSAGE ADDRESS Sc 18a2 F2 10 28 $26 JT SEEKER IF ON, GO TO SEEK ERROR PRIET oe
181A CO 87 0222 866 B HALT TO DCP ERROR HALT 18aS CO 87 19D3 927 B STRTIC TO READ ID
181E AOTE 181F 867 pe XL2°A076° HALT ID 1829 4 18aS 928 pc KLi'O1! :
eee | oO 9 1BAR 91 18aR 929 DCs aEL1*018 Q
1620 CO 87 17~—1 669 RTNSC1 B RTRSA BAB 18CZ 16RC 6930 DC AL2 (IDF%D~2)
18AD CO 87 18B1 $31 8B ey is
o G 18B1 CO 87 18B5 932 B +h Oo
18BS OD 00 18C3 OBOA 933 CLC IDFLD-1(1) , TRACKS
18BB F2 01 07 934 JNE SEEKER bs
€e eo 9 935 w
18BE CO 87 0000 936 SEKEXT B *-* EXIT
18C2 000000 18C4. 937 IDFLD DC XL3'0!
eo 8 938 o
/ DATE 13MAR70 O6APR70 22maY70 01A0G70 PROG ID OA0C-2 G6 CG ovate 13HAR70 O6APR70 22mAY70 01A0G70 PROG ID Oa0c~-2 o
. EC WO. 571512 571516 §71513 571531 PAGE EC WO. 571512 571516 $71513 571531 PAGE OR
°.6°8 ©
ty
3
BREE be me ane eR ne ale i TI Re ee RR Neel Ne ne RR aR ae ieee Raat ak Nghe Sea i OC EE A cl it” Ms ei Roem ins eR dabei dake nine ian wees ewe meted eae tates “tela ange we Mn, hes Me latins We Re ern
IBN MAINTERANCZ DIAGHOSTIC PROGRAR
PART WO. 5129682
PAGE. 19
aoc2 scaAuM HIGH OR EQUAL
ERR LOC OBJECT CODE ADDR STAT SOURCE STATESEST
939
980 © COME HERE IF AW ERROR OCCURED
*941 © WHILE SPEKING THE CE TRACK
*982
18C5 CO 87 1CE9 ‘963 SEEKER B cy
18C9 18C3 18CA 948 pc AL2(ZDPLD-1)
18CB 1970 18CC «(985 pc AL2 (ARIVED)
18CD CO 87 O27A 926 B PRIEST TO PRINT ERROR OF SEEK
18D1 C1 18Di «987 pc XL1°C1! FLAGS
18D2 2a 18D2 968 DC IL1*82¢ LENGTH
18D3 1959 18D4 «949 DC AL2 (SZKER1) ADDRESS OF BESSAGE
18D5 A03C 18D6 950 SEEKID DC XL2*a03C* MESSAGE IDENTIFICATION
951
*8D7 CO 87 021A $52 B PRIET TO PRINT SECOND LINE
3DB 01 18DB 953 pc XL1°01°
18DC 17 18DC 958 Dc IL1*23¢
18DD 1970 18DE 955 DC AL2(ARIVED)
956
18DP CO 87 O21A 957 B PRINT TO PRINT SECOND LIBE
18E3 06 1823 958 DC XL1°06* FLAGS
18E4 28 18E4 959 pc IL1*90° LENGTH
18E5 1998 1826 960 DC AL2 (SEKER2) ADDRESS OF SESSAGE
961
18£7 3c 00 0811 962 HVI pass,0
18EB 3C 00 OBO9 963 NVI SETSH,0
18EF 3C 00 1805 968 BVI = FRSTPS,0
18F3 CO 87 0222 965 B HALT TO DCP ERLOR HALT
18F7 a03C 18F8 966 Dc XL2*a03c* HALT ID
18F9 CO 87 0000 967 B 0
968
18FD 0000 18FE 969 WORK1 DC AL2 (*-*)
18PPF 0002 1900 970 TWO Dc XL2°02° .
1901 0008 1902 971 ONESEC DC XL2°04?
1903 1256 1908 972 WORK2 DC AL2 (WORK#255)
973
1905 CUCTE3CINOCICSCS 192F 974 DATPR1 DC CL43*DATA ADDRESS WAS STEPPED TO INCORRECT VALUE®
190D D9OCSE2 E240 E6CTE2 978
1915 S0E2E3CSD7D7C5ca 978
191D SO E3D640C9DSC3D6 978
1925 DIDSCSCIE3Z4OESCI 974
192D D3E4CS 978
1930 CSD9IDIDED9LODEC3 1959 975 SEKER1 DC CL42* ERROR OCCURRED WHILE SEZKING THE CE TRACK,
*1938 CIEYDIDICSCHUDES $75
1940 CB8C9DICSYOE2ZCSCS 975
1948 D2C9D5C740E3C8C5 975
1950 80C3C580E3D9C1C3 975
1958 D26B 975
195A CIDIDICIESCSCHSO 1970 976 ARIVED DC CL23* ARRIVED WO. XXX
*1962 C1IE3¥OC3EBD3INBUN 976
196A DSD64BS0E7E7E7 976
1971 D9EMDSYOE2CSCSD2 1998 977 SEKER2 DC CLSO'RUN SEEK TEST SECTION AO3 FOR MORE INFO.
*1979 &OEICSE2ZE380E2C5 977
1981 C3E3IC9D6D590C 1F0 977
1989 F3ISOCEDEDSSODSDE 977
1991 D9C58 0CIDSCEDE4B 977
DATE 13H8AR70 O6APR70 22ma170 01a0G70 PROG ID - OAOC-2
FC WO. §$71512 571516 571513 571531
PAGE 40
oOo 8 @ ° oo 0 808 8 eG ee 8 8 8 8 8 eG oe eo 6 oe 89 e 0
ia (intact 3 wae
ee ie me ee NL EEA TONING ree ir ptm
°oe@e 8080 e eel Ohl oOUUl oO el Ol Ol el el OleOle kell Ol le 8
1
oe
Tae abi la Gin ee Naa ee me ine le Rainer et tag SER: Cart nN aan, Bi Ng we abt Fis BE lia aT arm ey Ama ik on Mange ie nck Ab i Nt Ae aOR ER gy BOO EE ii ame Na Oa pee gine oe Nn Be ht
ISA MAINTENAKCE DIAGHOSTIC PROGRAS
g
ERR LOC
3999
1998
1998
199¢
199D
199£
199”
7940
1941
19A2
1946
19AA
19aP
:933
19B6
1988
SBA
t9BC
19BE
19BF
19c0
19C2
19C8
19C8
19cc
19CE
18D0
18D2
DATE
EC HO.
BEQouatl
ae ee eo Rm
PART WO. $129682
PAGE - 10a
FLAG
CYLINDER
TRACK & SECTOR
NO. OF SECTORS OR NO. OF TRACKS
FLAG
CYLIBDER
TRACK & SECTOR
PO. OF SECTORS OR NO. OF TRACKS
SHHSSSTESESKSSEREKSS SKS SSSEHOKS SEKRK SESSHEKES KVSEKSSEKSTES SSS TES SVAGEETHSHSHSSSGS
SCAN HIGH OR
OBJECT CODE ADDR STHT SOURCE STATENEBT
00 1999 979 URTDFC DC = XL1"008
00 1994 980 pc XL1°00°
00 1998 981 pc IL1*00°
90 199C 962 DC XL1*00°
983
06 489D 98% RDDFC DC XL1°00°
oc 199E 985 DC XL1°00"
00 199F 986 Dc 1L1°00"
90 1940 987 pc XL1900¢
02 1941 988 OSE pc XL1°01°
989
990
991 SENSE 1/0 ROUTINE
3% O08 19BB 992 SENSE ST SBSXR2, ARR
35 01 19BB 993 L SHSXR2,XR1
18 03 1980 00 994 AHN S#S+1,0(,X81)
30 00 1989 995 SKS SNS STATUS,0
DO 87 01 996 B 1(,XR1)
997
6000 1987 998 SETIR2 DC XL2*0°
0000 19B9 999 STATUS DC XL2*0
*0000 19BB 1000 SWSXR2 DC XL2°0?
1D57 19BD 1001 aORKAD DC AL2 (WORK)
1002
1003 * ERROR RECORDING TABLE
19BE 1008 ETABLE EQU)
*00 19BE 1005 QCODE pc XL1*0"#
00 19BF 1906 CCODE DC XL1°08
0000 19C1 1007 SKSO1 DC XL2°0¢
0000 19C3 10C8 SHS23 DC XL2*0?
00000000 49C7 1009 DCFI DC XL&*0
*06000000 19CB 1010 DCPF DC XLGt9"
0060 19CD 1011 DFCRI DC XL2*0°
0000 19CF 1012 DFDRI DC XL2*O#
0000 19D? 1013 DFDRF DC XL2*0
*00 19D2 101% RODTNO DC XL1¢0?
13MAR70 O6APR70 22NAY70 «©. 01A0G70
571512 571531
571516
571513
SAVE ADDRESS RECALL REGISTER
LOAD XR1 WITH VALUE FROM ARR.
BOVE IN FUNCTION CODE
PERFORM SENSE
£xIT
*Q* CODE
CONTROL CODE
STATUS BYTES 0 & 1
STATUS BYTES 2 & 3
DISK CONTROL FIELD, (INITIAL)
DISK CONTROL PIELD, (FINAL)
CONTROL REGISTER ADDRESS
DATA REGISTER ADDRESS, (INITIAL)
DATA REGISTER ADDRESS, (FINAL)
CURRENT ROUTINE NO.
Ce
PROG ID
PAGE
0a0C-2
10a
Mm OL ORNL,
cot
q
1
COCC CC ECO HOC CCC COCO OOOO OE SEC®
Caleta! Ge
aN ene nar Saad a ee EI ee te
ee
t
"YB ARINTENANCE DIAGHOSTIC PROGRAN PART WO. §129642 IBB MAIESTENARCE DIAGROSTIC PROGRAR PART #0. 5129682
PAGE WwW oo PAGE TTA
2 & 6G : : ao
A0C2 SCARS AIGH OR EQUAL | aoc2 SCAR HIGH CGR EQUAL
ERR LOC OBJECT CODE ADDR STAT SOURCE STATESENT © GCG EER LOC OBJECT CODE ADDR STMT SOURCE STATESERT e
1016 © START I/O SUBROUTINE 1ACB P2 84 25 1088 JE HOSEEK EQUAL, SEEK IS WCT NECESSARY
10177 © s. WACB F2 85 11 1085 JH FWDSER NEY ADDR. HIGHER, DO FORWARD SEEK y
19D3 38 O8 1987 1018 STRTIO ST SETXR2, ABR SAVE ADDRESS RECALL REGISTER. 1aCE BB O17 02 1086 SBF 2¢,XR2),90% NEW ADDR. LOWER, SET BIT POR REF.
19D7 35 62 19B7 1019 L SETXR2, ¥R2 LOAD X82 BITH VALUE FROB A2R. . IAD? OC Of 1BG8 1306 VOR? RVC SCRCH{ 1),LASTAD PLACE LAST ADDR IW WCRKAREA
19DB 3C 00 1B08 4020 AVI SAYSK,00 ZERO SWITCH @ oOo 4AD7 27 00 TBOS 01 4088 SLC SCRCH{ (1).2{ , X82) SUSTRACT NEW ADDR. PROBE LasT apDR. c.
13DF 28 63 1A39 00 1021 BNR 5$10+7.0(, £R2) SET FUNCTION CODE WADC £2 87 17 7089 3 SETADB PROCEED
19E4 2C 00 TA3R 01 1022 AY¥C $104+2{ 1),7(,X82; SET CONTROL CODE IR SIO 1090
19E9 2C 91 7B0C 03 1923 AVC DFCR{ (2),3{ ,XR2} SET DATA ADDRESS FOR DPCR GS 6 JADP BA 81 02 309% FEDSEK SBR 2(, 382) ,01 SET BIT O8 FOR FORWARD SEEK i
19EE 3B O88 1039 1028 TSTTP SBP SIO+1,x'08? SET FOR REMOVABLE DISK TAE2 2C 00 1BG8 91 1092 HVC = SCRCH{ (1),7(,XR2) PLACE WEW ADDR. IN WORKAREAR
19P2 38 O98 TACT 1025 SBP RSIO0+1,z°08? SET FOR REMOVABLE DISK TAE7 OF 00 180% 1566 41093 SLC SCRCH{ 1),LASTAD SUBTRACT LAST ADDR. PROS HES BDDR.
19P6 39 08 TBOA 3026 TBF DISETP, X*° 085 TEST POR RU OR LOWER DISK o os VAED F2 87 06 1094 J SETADB PEOCEEV
19FA F2 710 08 4O27 JT CKSEEK PROCEED 1095
49PD 3A O8 A395 4028 SETPIX SBN S$10+1,x%°08? SET FOR FIXED DISK WAFO BC O00 03 1096 NOSEEK NVI 3{ ,XR2),0 SET NO. OF TRS. CROSSED TO ZERO.
1201 3A 08 1AC7 1029 SBN RSIO0+1,x*O8" SET FOR FIXED DISK GS ¢ JAF3 F2 87 OA 4097 J ADREXT TO EXIT
7205 BD 00 00 1030 CKSEEK CLI 0(,%R2} ,00 TEST FOR SEEK 1098.
4A08 F2 81 60 4031 Jz SETADR IP YES, GO SET ADDRESS 1aP6 8C 00 03 13804 1099 SETADB SVC 3 (1, X82) ,SCRCH PLACE IN HO. OF TRACKS CROSSED
YAGB 31 AS 1B0C 1032 LDFCR LIO DPCR, X* a6? LOAD CONTROL REGISTER 6 c VAFB 2C 00 7806 01 1700 NVC LASTAD({ 1),1(,XR2} SAVE WNE@ ADDRESS
JAOF 37 A& 1BOE 1033 LOPDR LIO ODFDR, KX? aa? LOAD DATA REGISTER 18300 CO 87 1208 1107 ADREXT B LDFCR EXIT
4A73 OC OO 19BE 1A39 4034 MYC QCODE(1),SI0+1 1B08 00 1B08 1102 SCRCH DC XL1*00?
1A19 GC O00 19BP 1A3A 1035 HYC CCODE(1),SI0+2 oO oOo 1B05 00 1B0S 1103 FRSTPS DC XL7'008
1A1PF OC 01 19CD 1B0C 1036 "vC DFCRI(2),DFCR 1B06 00 1B06 1704 LASTAD DC XL1700#
1A25 OC 01 19CP 1BOE 1037 AVC DFDRI(2),DFDR 1B07 00 1807 1105 DFC3SV DC XL1°00* _
4a2B 35 OF 1B0C 1038 L DFCE, XR1 Go Cc 1B08 00 B08 1106 SAVSW pC XL1*00? ot
WA2P 1C 03 19C7 03 1039 MVC) = DC FI(4) , 3(,X81) 1809 0000 1BOA 1107 DISKTP DC XL2"0°
1A34 C2 01 19C8 1040 LA 6600, XR1 LOAD DELAY VALUE IN XR1 1B0B 0000 1B0C 1108 DFCR DC AL2 (#-%)
1A38 F3 AO OO 1041 SIO SIO X'OO*,xX*AO? START I/O OPERATION oO © 1B0D 1D57 IBOE 1109 DFDR Dc AL2 (WORK)
1A3B C1 A2 1545 1042 WAIT TIO BUSY,X'A2* TEST FOR BUSY 4BOF 0000 1B10 1110 XR2WK DC XL2*0"
1A3P CO 87 1942 1043 8 SENSE 1B11 PPPP 1B12 1111 NEG1 DC XL2‘*PFFF?
*1A93 048 . 1243 1044 DC XL1*Ou? Cc CO 1B13 0294 1B14 1112 SIXSIX Dc IL2'0660!
TASS OC 01 19D1 19B9 1045 HVC DFDRF(2),STATUS 1B15 36 01 1812 1113 BUSY A NEG1, XR1 DECREMENT DELAY COUNTER
1AGA 35 01 180C 1096 L DFCR, XR1 ; 1B19 CO B8& 1238 1114 BH walT RETURN TO TIO IF WOT TIME OUT
JANE 1C 03 19CB 03 1087 mVC 8 =e DC FP (4) ,3{ , 281) Cc SG 1BiD CO 87 iCE9 1115 B CyD TINE OUT OCCURED, CONVERT ROUT. HO.
1a53 CO 87 19A2 1048 5 SENSE 1B21 0A03 1B22 1116 DC AL2 (RPFX) CURRENT ROUTINE WO.
¥R57 02 1A57 1049 DC XL1°02! 1B23 1851 1B24 1117 DC AL2 (TINOUT) ADDRESS OF DESTINATIOR S
7A58 OC 01 19C1 19B9 1050 HVC $SNSO1(2),STATUS Cc § 1B25 3C 40 1B4F 1118 EVI TIMOUT-2,C* ° ce
JASE CO 87 19A2 1051 B SENSE 1B29 CO 37 O2TA 1119 B PRINT TO PRINT TIMEOUT OCCURED
1a62 03 1A62 1052 pc XL1'03* 1B2D C4 1B2D 1120 pc XL1'C6* FLAGS ee
7A63 OC 01 19C3 1989 1053 SVC SNS23(2),STATUS oO °° 1B2E 15 1B2E 1121 pc IL1*21! J.ENGTH a
4A69 OC 00 19D2 0A03 1054 MVC =ROUTNO (1) ,RPFX IB2F 1B51 1B30 1122 DC AL2 (TIHOUT) MESSAGE ADDRESS
1A6P 3D FP 1B08 1055 CLI SAVSW,X* PF? IS SWITCH ON? 1B31 AOSE 1B32 1123 Dc XL2*AOSE* MESSAGE ID =a
1A73 F2 01 OC 1056 SNE MTSTERR IF NO, SKIP RESTORE Go ¢ 1B33 CO 87 0222 1124 THALT 8B SALT TO DCP ERROR HALT cp
1A76 8C 00 03 1807 1057 HVC) 8=—s. 3 (1, XR2) , DPC3SV RESTORE N BYTE 1B37 aAOBE 1B38 1125 Dc XL2*a0S8E®* HALT ID
1A7B BB O01 02 1058 SBF 2(,XR2),01 TURN OFF THE POR/ REV BIT 1B39 CO 87 0000 1% B 0 -
WATE 35 O02 1987 1059 L SETXR2,XR2 RESTORE PARAMETER POINTER G ¢ 1B3D E3CODSCSDG6ESE340O 1B51 11 TINOUT DC CL2Z1'TINEOUT IN ROUTINE xx'* c
1A82 £1 AO OC 1060 TSTERR TIO 12(,XR2) ,X"A0* BRANCH IF ERROR . 1B45 CIDSRODSDEENXE3CY9 1127
7085 E17 A& O08 1061 TSTSCN TIO 8(,XR2),X*A4* BRANCH IF SCAN FOUND 1B4D DS5SC5& OE7E7 1127 ee
1A88 EO 87 O48 1062 B & (,XR2) EXIT So € OA03 1128 RPFX EQO x*a03* ie
1063
1064 «+ SUBROUTINE TO SET THE NUMBER OF TRACKS AND THE one
1065 * DIRECTION (PORWARD OR REVERSE), TO SEEK 6 Oo uF
1066
1A8B BD 01 01 1067 SETADR CLI 1(,XR2) ,01 IS THIS A RECALIBRATE? x
IASE F2 01 04 1068 INE *¢#7 IF NO, BYPASS SWITCH RESET @ s “
1A97 3C 00 1805 1069 NVI FRSTPS,O RESET RECALIBRATE SWITCH
1a95 2C 01 1B10 03 1070 MVC XR2WK (2),3(,XR2) SAVE ADDR. OF CTL. FLD. ADDR.
IASA 35 02 1310 7071 L XR2WK,XR2 LOAD XR2 WITH CONTROL FLD. ADDR. Qo 9 3
SAGE 2C 00 1807 03 1072 NVC) = DFC3SV(1) ,3(, XB2) SAVE N BYTE IN CONTROL FIELD
1AR3 3C FF 1B08 1073 NVI SAVSW,X'FF* SET SAVE SWITCH
1AA7 3D 00 1B05 1074 CLI FRSTPS,00 IS THIS FIRST PASS 6.8 3
1AAB F2 01 15 1075 INE SETADA SKIP RECALIBRATE IF WO
1AAE 3C 01 1805 1076 AVI FRSTPS,01 SET FIRST PASS SWITCH “i
JAB2 BB O1 02 — 1077 SBP 2(,XR2),01 SET FWD/REV BIT TO REV. Go 9s “i
7AB5 BC FF 03 1078 svI 3(,XR2) ,255 - SET MAXIMUM TRACK CROSSING
1AB8 3C 00 1B06 1079 BVI LASTAD,00 SET OLD ADDR TO 0
JABC 31 A6 1B0C 1080 RLDFCR LIO DFCR,X*A6* LOAD DATA CONTROL REGISTER 6 9g
1aCO F3 AO 00 1081 BSIO SIO 00,x'AO® SEEK REVERSE Ce
1082
1AC3 8D 00 01 1806 1083 SETADA CLC 1{ 1,XR2),LASTAD COMPARE PRESENT ADDR. WITE NEW ONE @ 3 oO
13H AR70. O6APR70 228 aT70 OTA0G70 PROG ID OA0C-2 e.9 DATE 138AR70 OG APR70 228 AY70 01ADG70 PROG ID OA0C-2 e
§71512 571516 571513 §71531 PAGE toe A) i EC NO. 571512 571516 571513 -§71531 PAGE VIA
WE OE Be Me ae eR te,
ah ORL bn AREER ee ih EINE EN an me anne RE gaRaome ar arve ny
Qo
Br nen a a gt td ete ar gan
| G
ISM SAINTEHANCE DIAGNOSTIC PROGRAN PART NO. 5129682 IBM SAINTENANCE DIAGNOSTIC PROGRAS PART 4#O. 5729682
PAGE 42 | na PATE 2a
. 0 6 o
a0c2 SCAN BIGH OR EQUAL a0c2 SCAN HIGH OR EQUAL
ERR LOC OBJECT CODE ADDR STHT SOURCE STATEREST @ CG _— eRe Loc opgecr cope ADDR STHT SOURCE STATEMENT @
1130 ¢ SUBROUTINE TO PRINT THE CONTENTS OF DEVICE STATUS * 1034 9040 1188
1131 . o 6 1036 C4UC1E3C140C2C8C5 1C¢47 1189 pc CLI8*DATA CHECK ® @
1852 3% O08 1BDO 1132 PRITSNS ST PRTEIT+3, ARR SAVE ADDRESS RECALL REGISTER 1C3E C3D24080804 08040 1789
1B56 CO 87 19A2 1133 B SENSE TO PERFORM SENSE ~ 1C86 4040 1189 a
BSA 02 TBSA 11348 DC AL1(STATO1) GET DEVICE STATUS BYTES 0 6/1. oO G 1C48 DSDESCD9CSC3DEDI 1€59 1190 DC CL18"°NO RECORD FOUND '* @
1B5B CO 87 O21E 1135 B DNPACK TO UNPACK STATUS BYTES 1C50 C&SOCEDEESDSCHEO 1799
1BSP 02 BSP 1136 pc XL1*02° 1058 4020 1190 .
1B60 1989 1B6% 1137 DC AL2 (STATUS) Oo |e ICSA ESD240C3D6D5CHCI 1C6B 1191 DC CL18*TK CONDITION CHECK®* ‘2
1B62 1BE9 1B63 1138 DC ALZ (HEXSTA-4) | . 1C62 E3C9D6D580C3CB8C5 1191
1139 1C6A C3D2 1194 .
186% 3C 01 1B9% 1740 BVI STPSNS+1,01 SET FOR COMPLETION OF FIRST BYTE GS ¢ 1C6C £2C5C5D240C3CBC5 1C7™D 1192 pc CL18"*SEEK CHECK * oS
1B68 C2 61 1BFP 1784 LA STATWD,XR1 SET XR1 TO POINT TO FIRST MESSAGE 1C74% C3D29040408 04080 1192
1B6C C2 02 1¢90 1102 La STMASK, XR2 SET XR2 TO POINT TO TEST MASK 1c7C 20280 1192 a
1143 Oo | o IC7E EVDSE2CIC6C58040 1C8F 1193 STATB2 DC CL18* UNSAFE s -
1B70 CO 87 O21A 1148 B PRINT TO PRINT SNS WITH HEADING 1C86 80404080404080480 1193 .
1B78 C1 1B78 1145 Dc XL1"c1? _ FLAGS ICBE 4040 1193 7
1875 01 1B75 1146 pc ILi*O1" LENGTH ei. odo 1€90 1199 STMASK EQU * “ed
1376 IBPF 1877 1147 DC AL2(STATWD) ADDRESS OF LAST PRINT CHARACTER 1€90 89402010 1093 1195 DC XL4*80802010
*1B76 A000 1B79 1148 SNSID DC XL2*A000* MESSAGE IDENTIFICATION | 1€9% 08080201 1097 1196 DC XL8*08040201! .
1B7A 2C 00 1885 00 1169 MOVEBT MVC TSTBT+1(1),0(,X82) SET MASK BIT IN TEST BITS INSTRUCT. o ©e6 1197 =
IB7P 1C 11 1D56 00 1150 HVC STATPR(18) ,0(,XB1) SET MESSAGE IN FIELD 1198 * SUBROUTINE TO SHIFT BITS IN CONTROL FIELD
1151 1199 :
1384 38 00 1988 1152 TSTBT TBN STATUS-1,*-* TEST CURRENT BIT FOR ON o SO 1¢98 38 08 icDC 1200 SHIFT ST SHPEXT+3 ,ARR STORE ADDRESS RECALL REGISTER ae
1B88 F2 90 08 1153 JP STPSNS BYPASS PRINT IF OFF 1C9C 35 01 ICNC 1201 L SHFEXT+3,XB1 LOAD EXIT ADDRESS IN XB1
1158 | 1ckO 35 02 1CDC - 1202 L SHFEXT+3,XR2 LOAD EXIT ADDRESS If xR2 <
1888 CO 87 O21A 1155 B PRINT Gc oO 1CA4 36 C2 1900 1203 A THO, XR2 INCREASE BY 2 wee
1BSF 01 1B8F 1156 pe XL1°018 FLAGS 1CA8 34 02 ICDC 1204 st SHFEXT+3,XB2 STORE POR TRUE EXIT ADDRESS
1B90 12 1B90 1157 pc TL1°18* LENGTH icac 3c 00 ICDD 1205 NVI CYLNO,0 ZERO WORK AREA
1891 1D56 1B92 1158 pc AL2(STATPR) ADDRESS OF LAST PRINT CHARACTER Go © 1CRO C2 02 ICDE 1206 LA SHPTBL,XR2 LOAD ADDRESS OF SHIFT TABLE IW XR2
1159 1CBS 75 01 0% 1207 L 1(,XR1) ,XR1 LOAD CONTROL FIZLD ADDRESS IN XR1
1893 3D 00 1885 1160 STPSNS CLI TSTBT+1,*#-* HAS THE LAST BIT BEEN CHECKED? 1CB7 2C 00 1¢¢c2 00 1208 MVCTBR -HYC TBN+1{ 1) ,0(,XB2) INSERT CORRECT MASK POR TEST BITS
1397 F2 81 OA 1161 JE SENSA IF YES, GO TO EXIT © o6 ICBC 2C 00 1CCcB 05 1209 BYC SBN+1(1) ,5(,XR2) INSERT CORRECT BITS FOR SET BITS
1162 . 1¢C1 78 00 02 1210 TBN TBR 2(,XR1) »*-* TEST ONE BIT FOR On
1B9A B2 02 01 1163 LA 1(,XR2) ,XR2 STEP XR2 TO POINT TO NEXT MASK BIT 1CC& F2 90 OF 1211 JF «+7 JUMP IF OFF
1B9D D2 01 12 1164 SENSB LA 18(,XR1) ,XR1 STEP XR1 TO FOINT TO NEXT MESSAGE © © 1CC? 3A 00 ICDD 1212 SBR SBN CYLNO,#-*© SET ONE BIT ON IM DECISAL FIELD
1BAO CO 87 1B7A 1165 B MOVEBT GO TEST NEXT SENSE BIT 1CCB 3D 8O 1CC2 1213 CLI TBN+1,X°UO0! TEST POR LAST BIT
1166 1CCF P2 81 07 1214 JE SHFEXT JUMP TO EXIT IP ALL DONE
1BAY 3D 80 1898 1167 SENSA CLI STPSNS+1,X'80? TEST FOR COMPLETION OF 2ND BYTE Oo Oo 1cD2 £2 02 0: 9215 LA 1(,XR2) ,XR2 NOT DORE, STEP XR2
1BAS P2 81 1A 1168 JE PRTHEX GO EXIT IF DONE 1CD5 CO 87 1CB7 1216 B SVCT BR 10 TEST NEXT BIT
TBAB 3C 80 1898 1169 NVI STPSNS*1,X*80t SET FOR CHECK OF 2ND BYTE 1cb9 CO 87 0000 1217 SHFEXT B se EXIT
1BAF CO 87 19A2 1170 B SENSE TO SENSE eC @ 1218
1BB3 03 1BB3 1171 DC XL1"03* BYTES 2 & 3 iIcDD 00 1CDD 1219 CYLNO DC XL1U°98¢
1BB4 CO 87 O21E 1172 B UNPACK TO UNPACK STATUS BYTES 1220
1BBB 02 i2BB 1173 pc XL1°02¢ CGC Co ICDE 08 ICDE 1221 SHFTBL DC XL1°08¢
1BB9 1989 1BBA 1174 DC AL2 (STATUS) | ICDP 08 ICDP 1222 Dc XL1°08°
1BBB BED 1BBC 1175 pc AL2 (HEXSTA) —4CEO 10 1CEO 1223 DC XL1°10!
1BBD C2 02 1¢90 1176 LA STMASK,XR2 SET BIT POINTER O!1e6 1CE1 20 ICE? 1224 pc XL1*20°
-1BC1 CO 87 1B9D 4177 B SENSB TO PROCESS 2ND BYTE | 1CE2 40 ICE2 1225 pc XL1*G0
*1BCS CO 87 O21A 1178 PRTHEX B PRINT TO PRINT STATUS IN HEX 1CE3 01 1CE3 1226 DC XL1°014
*1BC9 02 | 1BC9 1179 pc XL1*02° <a ) 1CE4 02 ICE 1227 pc ¥L1*02°
1BCA 1D iBCA 1180 pc IL1*29" ICES 08 ICES 1228 pc XL1*09°
1BCB 1BED 1BCC 1181 DC =—_ AL2 (HEXSTA) | ICE6 08 ICE6 1229 pc xL1°08"
1BCD CO 87 0000 1182 PRETEXT B + SUBROUTINE EXIT 0:90 ICE7 10 1CE7 1230 pc XL1°10¢
1BD? E2ZE3C1E3ESE240C2 1BES 1183 pc CL21*STATUS BYTES IN HEX,
*1BD9 ESE3CSE24N0C9D540 1183 as |
1BE1 CBCSE76B40 1183 °o:.98
1BE6 0000000000000000 1BED 1184 HEXSTA DC XL8*O
*BEE DSD680D6D7404040 IBFF 1185 STATWD DC CL18*KNO OP '
: IBP6 4SO40S0KG0404 04040 1185 So 0
IBFE 4040 1185
1C00 CODSEICEDIESC5SDS 1€11 1186 pc CLIS*INTFRVENTION REOQD.?
1C08 E3C9D6D5S80D9C5Da 1186 Co 6
7C10 C4UB 1186
1C12 DAC9IEZE2C9DS5SC740 1€23 1187 Dc CL18'MISSING ADDR. MARK
*I ICTA CICUCUD94BYOD4CI 1187 Go 6
1€22 D9D2 1187
; 1€24 CSDBEYC9DTIDEC5DS 1035 1188 pc CLIS*EQUIPHENT CHECK ‘¢
( 1C2C £340C3C8C5C3D240 1188 °o ©
DATE 13MAR70 O6APR70 22maY70 01A0G70 PROG ID OA0C-2 © © pate 1384R70 O6APR70 22MAY70 01A0G70 PROG ID Oa0C-2
EC NO. 571512 571516 571513 571531 PAGE 12 EC NO. 571512 571516 571513 571531 PAGE. 12k
$eee0e0oe30eeeeeee ee @ @°
Cooveeceeeeeeeeecoes
nah boar cei here lint
ae ee ae fe Ape ted ad See no siatameor a! Se ep) swe 8 ae Pld Bo Re ca cate
em ee me ra Oa “ ee See fe RE ee
Sse Bees
Coe : , o
IBM MAIRTEWANCE DIAGNOSTIC PROGRAS PART WO. 5129682 4 IBM SAIRTENANCE PIAGNOSTIC PROGRAB PART FO. 5129682
aa PAGE . 13 PAGE iy
© 6 9S
A0C2 SCAW HIGH OR BOQOUAL A0C2 SC AS BEIGH GR BQRDAL
ZRR LOC OBJECT CODE ADDR STMT SOURCE STATESENT @ CROSS-REPERERCE a
1232 * SUBROUTINE TO CONVERT A RUMBER TO DECINAL SYMBOL T LEN VALUE DEP REFERERCES
a 4233 eC °e@ ©
ICEZB 00 ICES 1238 HXBYT DC XL1*O8 ADREXT 2 05% ipOG 1101 1087
1CZ9 36 O8 1921 1235 CVD FY OBE, ARE ADD ORE TO GET FIRST PARAKETER BAIVED A 023 1970 6978 03465 0955
ICED 34 O8 1DOR 1236 st PRON?5, ABR INSERT THE FROM ADDRESS © € AER C604 OGO08 1264 6025 0108 0873 (896 0918 6392 G18 4132 4200 14235% 1236 12378 2
1CP1 36 68 4900 1237 2 TWO, ARR AND THO TO GET THE SECOND PRRABETER 4228 1239 12407 1283
1CPS 36 G8 1570 1238 ST TYBOT+5,2BR INSERT THE TO ADDR aoc A COT 0000 coo2
1CP9 34 OB 1DT6 1239 ST OTORZ*5, BBR © ¢ BEGIN & GO4 OBPE 06168 1281 os
ICFD 36 08 79A4 4260 R ONE, RRR ADD OXE FOR EXIT ADDRESS BITO c 001 Of80 1269
1D01 38 08 1539 1284 ST TIXE+3, ARR STORE EXIT ADDRESS BIT1 c O00? GONG 4270
' $p05 OC B34 FDIC oOCD 1282 PRON SVC FROBYT+5 (2) , ¢-* © €& BUSY A 004 1895 4413 4642 .
1DOB GC Gi 1D2P O900 7243 TYBOT MYC TOBYT+3(2) ,#-# CCODE & 001 19BF 10066 1035%
iDT1 O0C ©7 1D20 9000 1244 OTORZ HVC ZROTO+3(2}) ,#-% CKSZEK & 003 1895 1030 4027
1D37 Oc O85 JIcEe 0000 4245 FROBYT SYC EXBYT (1) ,*-* PUT BYTE ¥8 WORK AREA o& CTRL C 061 OGA6 1267
IDIp O& 29 0000 ipuy 1266 ZROTG ZAZ *-*%(3), UNITS (1) ZERO THE TO AREA cvD A 008 CES 1235 0260 6381 06580 06598 0605 9983 14175
1D23 OF CO ICEB 1921 1247 DECGAN SLC HXBYT(1}),ORE DECPEMENT THE HEX BYTE CYLNO & 001 icDD 1219 0261 9382 0581 0599 0606 1205% 12728
1D29 F2 82 DA 42828 Jt TIXE JUNP IF BELOW 1 G ¢ DATA Cc 901 OORS 1268 0901
iD2c 06 20 0000 1D3A 41249 TORYT AZ #-* (3}, DECONZ (1) INCREMENT THE DECINAL COURT DATEXT A 008 1889 09173 0896* 08597 0859*% 6904
1D32 CO 87 1D23 7250 8 DECGAR DATID1 A GO2 1882 06910
1D36 COQ 87 0000 1251 TIXE 2B e—% EXIT C © DATPR1 A 083 192F 09748 6909 .
ID3k FY 1D3A 1252 DECONE DC CLi*1° DCPFF a 00& 19CB 17010 10a7%
1D3B FIF2F3F4FSP6F7F8 iD4&& 1253 URITS DC CL10*1234%567890¢ DPCFI a OO’ 19C7 7009 1039%
1D43 FIFO 1253 oOo © DECGAN A 006 1D23 «1247 1250
VDa5 1D56 1254 STATPR DS CL18 DECONE A 001 ID3A 1252 1249
1D57 1255 WORK EQU- * DFCR 2 002 BOC 1108 1023® 1032 1036 1038 1086 1020
1D57 1E56 1256 DS CL256 ¢ ¢ DPFCRI A 002 19CD 1011 1036
*1E57 1257 READ FOU * DPC3SV A 0604 13807 1105 1057 1072
*1257 1F56 1258 DS CL256 DPDR k 002 BOE 1109 0237* 0358* O446* 0524% 0546* 0665* 0772* 0831% 1033 1037
1259 G G DFDRF A 002 19D1 1013 10458 s
0003 1260 #1 EQU x#038 HALT DISPLAY 1 DFDRI A 002 19CF 1012 1037%
0076 1261 #H2 EQU X*76? HALT DISPLAY 2 DISKTP A 002 BOA 1167 01814 O147% 1026
: 0001 1262 xR1 Bou 04 GQ © ERROR9 A 006 OCcSC 06210 0887 te
0002 1263 xR2 EOU) 02 ERRO2ZA A O48 fESG 6331 0262 0263* 0268
0008 1264 ARR EQU 08 ERRO2B A O43 OEVF 0332 0286
0002 1265 STATO1 EQU X02! Go Cc ERRO2C A 013 1438 0632 0218 2
0003 1266 STAT23 EQU x'03* EBROZD A015 1757B 0635 0297
OOAG6 1267 CTRL EQU X*A6? ERROZE A 025 14C5 0636 0324
OOAY 1268 DATA EQD X*aat G 0 ERRO2F A 083 THFO 0637 C278 6397 0802 6868 €.
0080 1269 BITO EQU x*808 ERRO3A A OU2 OFF2 0420 0383 0384* 0389 0796 0856
0040 1270 BIT? EFQU x*KOoF ERRO3B BR 037 OFS4 0418 0410
0208 1271 SWITCH EQU x*208! oO Cc ERROSA A C13 10DF 0497 0471 e
O20R8 1272 SECTS¥ EQU. X*"20aA' ERRO&B &R O26 1129 049s 0478
€ 0212 1273 TEST EQU x*212! ERROSC A O47 1183 0501 0490 ;
0216 1274 LINK EQU X*216! G C — ERROSA & 027 135F 0625 0573 C
021A 1275 PRINT EQU x*21A! ERROSB & 035 13B4 0627 0582 0583* 0588
0212 1276 UNPACK EQU X'21E! ERROSC A 035 12F7 0629 0607 06)98* 0618 _
0222 1277 HALT EQO X*222" O & FRROSD A 032 13D4 0628 0600 06014 . ws
022A 1278 LOAD £EQUD- X*22A° ERROGA A 037 165E 0782 0691
003C 1279 HF EQU) x*3Cc8 HALT DISPLAY F ERBRO6B A 032 16B2 O7448 0707 ‘
003F 1280 HA EQU X*3F® HALT DISPLAY A Co oO ERRO6C A 04S 1713 0746 0722 <
OBFE 1281 END BEGIN ERROSD A 081 17E0 0503 0734
ERR1A A016 OCEO 0212 0189
G C eERR1B a 025 153D 0639 0204
ETABLE A 001 ‘+9°BE 1004 0013
PIXED A 008 OBD3 01458 0740 _
C © prosyt & 006 iD17 1245 1242* te
FROM A 096 «DOS 1282 1236
*FRSTPS A 001 BOS 1103 0089* 0964* 1069* 1074 10762
GC Cc FWDSEK A 003 ADF 1091 1085
HA C 001 03F 1280
HALT C001 0222 1277 0125 0191 02066 0269 0278 0288 0299 0376 0326 0390 0399 0412
eo 0 0472 O480 0492 0574 0590 0616 0698 0710 0725 0737 0795 0804
0857 0866 O888 0911 0965 1128
HEXSTA A 008 BED 1184 1138 1175 1181
Ce oO CG ur C 001 003C 1279
HXBYT A 001 1CE8 1234 1245* 1247%
. H1 C 001 0003 1260
L Go @) xn2 C 001 O0C76 1261
[ DATE 13MAR70 O6APR70 22MAY70 01A0G70 PROG ID 020C-2 Q @ DATE 134AR70 O6APR70 22ma¥70 01A0G70 PROG ID OA0C-2
PC NO. 571512 571516 571513 ©71531 PAGE 13 EC NO. 571512 571516 571513 571531 PAGE T3A
L. Qo 0
Meee Ste dime me ne ee Be A AR ena al eye mat RINNE eb, oe Ne erate Cea Sak ener ete Fes a Sm ge NE Ge ME eR me Rt TE el tea Rk A ca AC ee eile ee GP eg eRe aang ef Tore atin Fee were ee ST ce nc FE ee Sen mR BA BR ee le ema ee EA Bae cata Sune eee tomes oie ne pep MI li ee ee eee
IBM MNAINTERAWCE DIAGNOSTIC PROGEAS . PART HO. 5129642 IBS MAINTENANCE DIAGNOSTIC PROGPAR PART BO. 5129662
: PAGE 18 . PAGE V9,
aoc2 SCAN HIGH OR EQUAL A0Cc2 SCAN HIGH OR EQUAL
G CROSS-REP ERESCE o 6 CROSS- REFERENCE c
C SYHBOL T LEN VALUE DEFX REPERERCES © 6 SYSS0L T LEN VALUE DEFN REFERENCES c
IDFLD A 003 18C4 0937 0930 0933 e948 RTHSC1 A 008 107F 0883 0465
INVPLG A019 0824 0108 0122 : RTNED A 004 1098 0495 0486 :
€, LASTAD A 001 1806 1104 1079® 1083 1087 1093 1100* © © Rtws 2001 11£14 0510 0829 ‘
LDPCR A 006 A0B 1032 0054* 0058* 0066 0067 0068 0069 0070 0071 0072 0073 1101 RTNSA A 00% 11ED 0516 0621
LDFDR A 00% 1AOP 1033 0066¢ RTN5A1 A 004 11F9 0520 ;
is LINK € 001 0216 1278 0158 © © Reresp 2 608 1201 0523 0622 €
LOAD C001 022A 1278 0051 RTNSB1 a 008 1221 0532 0548
MOVEBT A005 iB7A 1189 1165 RTNSB2 A 00% 1239 0581 0537 .
c RVCTBN A 005 1CB7 1208 1216 © © xrssc a 006 1240 0546 05482 ; S
NEG1 & 002 1812 «#1111 1113 RTNSD A 00% 126F 0558 0554
KOSEEK A 003 1AFO 1096 108% ' RTNSD1 A 008 12A0 0578 0566 a
NOUNIT A026 O0BODS 0092 0048 O CG erys5e a 006 12¢2 0593 0567 0576 ‘
ONE A 007 1947 0988 1235 1240 12487 RTNSF A006 12FF 0619 0595
ONESEC A 002 1902 0971 0543 0619 RTN5G A 004 1309 0621
OTORZ A006 1011 1246 12398 © .G RtTN6 A001 153f 0687 0512 . 4
PASS A001 08311 0103 0109 0111* 0153* 0962* RTN6A A O04 154A 0654 0739
PRINT C001 O21A 1275 0085 0081 0085 0119 0186 0201 0265 0273 0283 0294 0311 0321 ; RTN6GA1 ? 008 1556 0658
c 0386 0398 04807 0468 0475 0487 0570 0585 0610 0688 0708 0718 © COC ern6p a 008 155a 0660 §
9731 0799 0861 0884 0906 0946 0952 0957 1119 114164 1155 1178 RTN6B1 A 00% 1582 0675 0671
PRTEXT A 008 BCD 1182 1132¢ RTNGB2 A 00% 15482 0688 6684 ;
PRTHEX A 008 1BCS 1178 1168 G © rrn6c a 608 1532 0697 0686 ‘
PRTSNS A 008 1852 1132 6264 0320 0385 0467 0569 0791 0853 0883 ETN6D A004 15CE 0713 0702
PRTSPN A008 OADS 0081 0079 RTN6E A008 1S5EB 0728 0717
; QCODE A001 19BE 1005 10348 © @ rtmsr a 008 1602 0739 0730 é
RDDFC A001 199D 0984 0176* 0177% 0182 RTN7 A 001 171% 0758 0649
BEAD A001 1E57 1257 0523 RTN72 A 008 1720 0761 0807 :
REMVDS A001 OB08 0095 0033* 0062* 0136 © ©) etn7a1 a 008 172C 0765 ‘
RLDFCR A008 ABC 1080 0072¢ RTN7JB A 00% 1730 0767
; ROUTNO 2 001 19D2 1018 1054% RTR7B1 A 008 1758 0782 0778
C RPFX €C001 OAO3 1128 1058 1116 CO 6 ERTN7B2 A 00% 1781 0799 0788
RSIO A003 ACO 1081 0073 1025* 1029* - RTN7C1 A 008 1791 0807 0789 0797
: RTN1T A901 OBFA 0168 0912 RTNS A001 1795 0818 0756
€ RTNIA & 004 0CO6 0170 0208 C © pernsa a 008 17A1 0821 0869
RTNIA1 A 00% OC16 0175 RTNSA1 A 004 17AD 0825
RTN1A2 A 004 0C38 0186 0183 RTNWBB A 00S 1731 0827
RTN1B A 004 OC48 0198 0185 G © pernspi1 a 008 17D9 0880 0837
RTNIC A OO0&’ OCc6a8 0268 0199 RTN8B2 A 00% 1810 0861 0850
RTN2 A001 OCE? 0219 0166 RTN8C1 A 004 1820 0869 0851 0859
RTN2A A 008 OCED 0225 0318 0328 eC Co RUNFIX A 001 OBOE 0101 0113 0138* 0145 0148
RTN2A1 A 008 OCF9 0229 RUNRSV A 001 OBOD 0100 0132* 0139 0142
*. RTN2B A 004 OCFD 0231 SAVSK A 0017 1808 1106 1020* 1055 1073%
: RTN2@1 A 008 O0D29 0247 0243 © Co sar A008 1cC7 1212 1209%
RTN252 A008 0D69 0273 0255 SCRCH A 001 B08 1102 1087* 1088* 1092* 1093* 1099
RTN2C A OO ODNT 0258 SECMSS A 0&2 OB66 0106 0084
KTN2C1 A 008 O0D79 0281 0256 0271 GO G6 _ secrswc 001 020A 1272 0117 0130 0134
RTN2C2 A004 OD90 0291 0282 . SEEKCE A 004 1828 0873 0173 0227 0387 0435 0518 0656 0763 0823
RTN2D A 008 ODA7 0302 0293 SEEKER A 004 18C5 0943 0926 0934
RIN2E A 0048 ODCS 0311 0304 G CG seexex A 008 1854 0890 0873* 0881
BTN2F A003 ODAB 0303 0309 SEEKID A 002 18D6 0950
RTN2G A004 ODDS 0318 0308 i SEKER1 A 082 1959 0975 0949
RTN3 & 001 OFB8O0 0339 0221 G $C seKeR2 A 040 1998 0977 0960
RTN3A A 008 OF8C 0385 0815 SEKEXT A 004 18BE 0936 0918
*RTN3A1 A 008 OF98 0349 SENSA A 00% 1BAa 1167 1161
RTN3B A 008 OE9C 0351 © CG sENsB A003 1B9D 1168 1177
RTN3B1 A 004 OECC 0368 0364 SENSE A 00% 19A2 0992 0074 019% 0402 04883 0697 0900 0919 1083 1048 1051 1133 1170
RTN3BZ2 A 00% OFOC 0398 0376 SETA A 006 OA68 0054 0037
RTN3C A 00% OEER 0379 C+ © serapa a 005 1AC3. 1083 1075
RTN3C1 A 004% OFIC 04802 0377 0392 SETADB A 005 1AF6 1099 1089 1098
RTN3ID A 008 OF38 0415 0206 SETADR A 003 1A8B 1067 1031
RTNS & 001 OFF3 0827 0341 © © sETB A006 0A75 0058 0041
RINGA A 004 OFFF 0433 0495 SETBTH A 003 O0A89 0068 0056 0061
RTWSAT A 008 100B 0837 SETDSK A 008 OAOD 0025 0169 0228 0348 0432 0515 0652 0759 0819
RTNYB A 00% 100F 0439 © © sEText a 004% OAES8 0090 0025
*RT@9B1 a 008 103F 0856 0852 SETFIX A 008 19FD 1028
_. BTR8SB2 A 004 106F 0N75 0468 , SETRNV A 004 OBC1 0139 0115 0135 0137
“ BTNSC A 008 105D 0867 © © sETspn a 006 0879 0113 0110
C paTE 138aR70 O6APR70 228170 O1A0G70 ; PROG ID Oa0Cc-2 G ©@ o»pate 13NAR70 O6APR70 22MAY70 01A0G70 PROG ID Oa0C-2
EC WO. 571512 571516 571513 §71531 : PAGE 14 EC NO. 571512 571516 571513 571531 . PAGE | TSA
C 6 oO
II SS aS
Pole eeoeeeoeooeooecce
el Sx ee £
ee : Pi ae Nome SE RE a cae Get RN ie Sar le ee ee eR de ee fete ater cane ee el ya ae Mn
2 Fee sein tang ae Bree mers a nae A ak ae mares a Ee a SUMO a ae eee wt pe RE ale ik at "gs sche: ee, cca
ees Magia i a ade
oe fa ; PAGE ee © PAGE 15a
acc2 SscAN HIGH OR FQUAL | aoc2 «so SCAM 6 BIGH OR BQUAL
a EROSS mht ERERSE S oe CROSS-~ REF ERENCE
SYMBOL T LEN VALUE DEFER REFERENCES o . SYMBOL T LEN VALUE DEFN REFERENCES
SETSY A 001 0809 0096 0026* 0059% 0155* 0168 0223 0343 0431 0518 0651 0758 0818 0963+ . 0581 0583* 0547 0558* 0553 0558* 0559 0565 0593 0597 0655¢ 06636
SETXR2 A 002 1987 0998 1018 1019 1059 0670 0677* 0678* 0683 0716 0728 0762* 0770* 0777 0783¢ 0787 0822¢
SHPEXT A 00% 1CD9. 1217 1200* 1201 1202 1204* 1218 ° 6 S830 0896. Gebcs 0eb9. -GaTe< OBO
SHFTBL A 001 1CDE 1221 1206 BRTER2 A004 ODD9 0379 0245 0366 0859 0539 0556 06673 0780 0839 .
SHIFT A 008 1098 1200 D258 0379 0578 0596 0603 xR1 C0041 0001 1262 0030* 0031 6032* 0036 0080 0042 0083 0043" 0060 00646 0068* 0065
sIo A 003 7A38 1041 O067* 1621% 1022* 1028* 1028* 1038 1035 S 6 0523* 0524 0993% 0994 0996 1038* 1039 1040* 1046¢ 1087 11138 11898 q
SIXSIX A 002 1818 1112 7150 1168 1164% 1201% 1207 12078 1210
SKTSTA A 008 1891 0919 6923 XR2 C001 0002 1263 0302* 0303 0305 0305* 0306 0897* 0898 1019* 1021 1022 1023 1036
SUP a OON, Ik OIee, Oe 007 x oS 6 1057 1058 1059* 1060 1061 1062 1067 1070 1071% 1072 1077 1078 ¢
SNSID A 002 1879 1348 02344 0247* 0319% 0355* 0368* 0443 0456 0560* 0782*% 08480% 0875 1083 1086 1088 1091 74092 1096 1099 1100 118c% 7189 1163 11638
SNSXR2 A 002 19BB 1000 = =©0306% 0307 09928 0993 1176 1202® 1203* 1206 1206* 1208 1209 1215 1215
S501 A 002 .19CT 1007 8 8=610508 S © xn2wx a 002 1810 1110 10708 1071 :
SRS23 4 002 19C3 1008 = 10538 : ZROCTR A 004 OBE6 0152 0114 0186
SPRDLA & 001 OBOB 0098 0058 zeoro’ & 006: Ipis. 4546 aoa
SPNDLB A 001 OBOC 0099 0058 Oo 6
SPNASG A 028 OB3C 0105 0055* 0059* 0088 =
Se eae eee, ee TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY =
STATPR A018 1D56 1254 1150 1158 Oo ' 6
STATUS a 002 18B9 0999 0078 0171% 0197 0405 .0485 0700 0903 0922 0925 0995* 1085 1050 .
1053) 1137 1152 «1174
STATWD A018 BFP 1165 1181 1187 | Cc 6 |
STATO? C 001 0002 1265 0195 0403 0488 0698 0920 1138
STAT23 C 001 0003 1266 ;
STMASK A 001 1090 1198 1162 1176 @ | 6
STPSNS A 004 1893 1160 1180* 1153 1167 1169%
STRTIO A 008 19D3 1018 0179 0239 0251 0360 0372 0848 0460 0533 0550 0562 0667 0680
0774 0784 0833 0886 0877 0927 9 6
SWITCH C 001 0208 1271 003% 0038 =2
TBN A 003 %cC1 1210 1208® 1213
TEST C001 0212 1273 0127 © 6
THALT A 00% 1833 1124 ;
TIMOUT A 021 1851 1127 4117 11188 1122
TIXE a 004 1D36 1251 1241% 1208 Co |: Qe
TOBYT ~& 006 1D2C 1249 12430
TRACK® & 001 OBOA 0097 0077* 0080* 0874 0933
TSTBT A OO& 1894 1152 1149% 1160 8 °
-TSTDAT A 004 1858 0896 0713
TSTERR A 003 1A82 1060 0069* 1056
TSTEXT A 00% OBE2 0150 0708* 0183 2 Oo
TSTFIX A008 OBAF 01348 0131
TSTRHV A 004 OBAS 0130 0118 €
TSTSCN A 003 1A85 1061 00708. © Q
TSTSEC A 001 13F8 0630 0522* 0548 0579 0593 0604 0619* 0620
TSTSEK A 004 188D 0918 0175 0229 0389 0437 0520 0658 0765 0825
TSTSPN A 00% OB67 0108 0170 0225 03465 0433 0515 0654 0761 0821 [email protected]
TSTSW A 0048 OB85 0117 0112 0128 ;
TSTTP A008 19EE 1024
TWO A 002 1900 0970 0899 1203 1237 8106
TWOZR A 002 0B10 0102 0050 01413 0177 04uS8
TYBOT A 006 1D0B 1243 12380
UDTPTR A 002 OBO7 0093 0028 0031* 0032 0050* 0065* Cle
UPIND? A 008 OA28 0032 0029
UFIND2 A 008 OA20 0031 0048
UNITS A010 1D44 1253. 1246 G0/@a
-UNPACK C 001 021E 1276 1135 1172
UTAB C001 0232 0094 0030
WAIT A OOS 1A3B 1042 0068* 1118 010
WORK A001 1D57 1255 0231* 0232 0232* 0302 0351* 0352* 0353 0353* 0439* 0440 O0940* 04n1
*_.* - 0457* 0526* 0527 0527* 0528" 0529 0529* 0660* 0661 0661* 0675* 0714
> 0767* 0768 0768* 0827* 0828 0828* 0841* 0882* 0843 0843* 0972 1001 Q0le
1109
; WORKAD A002 19BD 1001 0237 0358 O446 0586 0665 0772 0831
° WORK1 A 002 18FZ 0969 0898* @p03 0/06 f
: WORK2 aA 002 1908 0972 0307
WRTDFC aA 001 1999 0979 0172* 0226* 0235* 0242 0248* 0254 0259 0281 0291 0346* 0356* 0363
BO 0369* 0375 0380 0434* 0448* 0451 O04S5* 0463 0517* 0530* 0532* 0536 91°88
a . {
C DATE =» 13HAR70_—-«OGAPR70=— 22HAX70 © ©=——-0.10670 PROG ID = onoC-2 Oo parE «=s«13HAR70. ~—«OGAPR70.—=—- 228AY70 ~—-01070 PROG ID OAOC-2
oo EC WO. 571512 571516 | 571513 © 571531 PAGE 15 ite NO. 571512 571516 571513 571531 PAGE 158
i :
pee ee oe . 2 6 5
IBS MAINTENANCE DIAGNOSTIC PROGRAR
a0c2 SCa lt
THE CHARACTER
HIGH oR
EQUAL
OBJECT CARD LISTI#G
PART RO.
$1296482
"PAGE 16
INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT.
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 88 CL 49 THROUGH 64 CL 65 THROUGH 80
Te-¥:YCH 6 BYE
T+-25 -72D R?R C
T+-DO AY<B00aa-%
T+-,,RAY<B EGY
T+-%WO) |LE+LN2; §
T¢-_/9UCT13.72) P
Te->*BUCAACCKUB ?
T¢-?P /OHKOH®. /L—
T+- OK-G0aBARH|
Te-1(/1--UOH*QTL3
T+-2HAAWBa/ EOH
*T¢-3C 1NCS 1*PK2) P
14-3254. £0=|06HC
Te-U9GVOC"/INGVO
sist eiens
T+-62 SH-) T7"FR3
T+-7DECHB LEBFSS
T¢-8VOH*BHD KOH®
T+-9-O0)N 2<xXG2DC
T+-:S1)V 2)N OFS
T+-#0] D;NTO GVM
DATE
EC NO.
138AR70
74812
R7D & CEHB> %8" 0%
2-K'8D GK 6] 0 Y
@; DB@Z D11a.B(H
<B. EOJY<OH*RY-H
SECTAI*N OSPESHC
GE<LI8_I 1(XI9*R
VjE .D+HAA33"B1G
D -,2D Ga"OR(+ H
-C%BG "B YC}
"PREC JW-BIC /1X
BPER(EL6-** BG Si
GE+t | HIMCCIMNCC: (I
I1DCD2*J 5) $TE<->
aD/_91_ RX OAFOS
GGI- RW* BGG+0*7E9
2-JC /OHEISKe+2A
( S¥#FEL2-Ji 706
<#5 | HIMCP6*PV2) $
O6NCE6+LASNCCS_L
NS *XOSUCF 2@PLIDC
<"JIONGVNAD/S_9)
O6APR70
571516
22M AY70
571513
Ij& .A"HABCHA TH
-OH*BP-QEBOMa &
A 3EAB0*H AYEP-0
B20%H* —-R>-HEACI
T1;.T1*6 SEB
“ga. E1axHE+.C0) N
2/00( &%+B1C2-OL
BB?HE B37" BOT2-66
.D® A /0@. SI0H
*L OHRX*BGCCT /00
-**BGC $T2<N S'X
S0@GNE<TI1a/ 5_V
I9*N 1)XR5_UB :
R?*BGF) <B AWROH
*N|D ¢N&BGPS. /0H
30H*BHDA316 Rw"H
,OH*BF&R ECS-) #8
UBUCE6) X06;I 9%P
W1D_ 94.15%) 2<P
N5>(_ 8>]E5*9E1 <
RX OAFOSR?*BGF) <
01a0G70
$71531
4 6%G(ED.A30 BO-
IC D.AOSEOH*BH-A
H AYOF-O8 AYaF-0
XB0, /OHE KY.R&B
0 CIS;PAsax
” 2¢xG2DCO6NCEG+L
Siu aee cies
a"0%+}6 .C~HAB30
"Dp cept SI0HD
KOH*<K<BG /, FI 3
E9*X09+I 1) XR5_X
“4) 700) ( 94.158)
"|& .BeBAB-7 /0_
{ H*BGCKP /07R|GH
EaW +N<BG SH-*%B
AD<BG /,PE1J#YGL
G SH-) *Bcc+sans_
RISCP6*PS1) PTE<G
A1DCOESCS1#4TS_V
telen yesuaeten
B AWROH*#+3<BGCRT
8 -H.@/ FxE ay
"Ee 8.410.418
H ADCF-OH ADPF-0
G /YFP ha) SAeB
D&+.S9UCSI31T2)P
A4SCF9 (PCBAX05AC
BFROLB2K-=%5G SH
“Fora S(areqis
HC*BGB6%@ AW8|
-¥GC /OHSYGC /1¥
S&(SCO=LR6*PDE+$
“OMCNS_N 1;-18>4
X{ RW@BGFBL /1S
$;L0 FR3 /1XL OH R¥* S$BQAOC20014
GCPX /OHE1S%HAHA 60H* RO-A0C20015
“/OHSYGLB /5F?7& @-D_ E-DA0C20016
QOH*SNZBG /,FK/L EYAH 350A0C20017
FB8PRE<LO2) PGECE BRK *QKA0C20018
"9=4514)T5_V O'S U5;< 7- A0C20019
GB6*@ AWSOH*QI<B GFHY 6#HA0C20020
/07R1GHS;LO PR3 “10 3:HA0C20021
PROG ID oaoc-2
PAGE 16
CL 81 THROUGH 96
7+ D = Qa0c20001
GE - 286A0C20002
H AD ;L8A0C20003
G mESA0C20004
G5) Q 91QA0C20005
T13H KHSA0C20006
-=% K1Q40C20007
.C?H )DYA0C20008
RW@ 51.*A0C20009
° :
S$ T-
3.-A0C20010
H2)< :AMA0C20011
A5S:< 68640020012
(I ~&-A0C20013
O
00000 006 6 @ Oo
© 0 08 G6 0 09 00 0 0 0 60 0@ 0 0 86
ss oe Penance sats 3
©
ch Spat
9 GC © 9 @© 6 6 8 8 9 @
0 0 6 6 6 @ 0 6 4G 0 0 0 9 9
O
9
®eeeeeeeeeeeeeoeeoegs eoeoeeeeeeeeeeeeen 8
IBM MAINTENANCE DIAGNOSTIC PROGRAS
aoc2 SCAR
CL 13 THROUCH 16
T+-O9JHO<BFRX /0
T+-*<EYB-) %BG SH
T¢-=GORXTEGA (O%X
T+-"B2*-HE (SRE<P
T+-"* ONCSOIGNECT
T+/ 8C*BGB6*@ AW
T+/A3DC?_/07RIG-
T+/B>K/DZYSX /0H
T+/CZ5_XSE+SE6#N
T+/DOE<|OS*LI8aX
Te¢/E~2; 1 15_PS0ac
T+/PE2DCO6BCE6D_
T+/GNS_PTS) SLE<$
T+ /BHEECPHIDCOTUC
T+/1.G6503 J90C{ 8
T+/HFPFOSR?7LO FRO
T+/.A/1.B0H*SHRB
T+/.aC& BW148aYD
T+/<7T1G0+ A|S8PEH
T+/(21($I5*) ONC
T+/+_0*$T1) V OBC
T+/| YBUCE6+LA4=.
TINAR7O
571512
DATE
EC no.
HIGHS OR
CL 17 THROUGH 32
<OH* | G< BGG -RY*B
-) SBGPEAB+E R>—H
TS|A O>TTHCIPO_
Q9<GLE+| HINCP6*P
11a/ 5_V 1) 700) (
SOH*QI<BGFHSA AS
$;LO GS%< JW*BIC
SYGX /1WS TS FSX
” St YESSPNBUCA1>}
OSHCNS>( 1<PT1*4
RE<PQKSCS5; 1.8<.
ORTEGSN BaTEG*N
11) |DE<jHO) PG1*g
Cr(<E AN=]& .B*B
5890] RW30 FR3
< AWSD"T /1XL -
G /YFL1 (+08 *BHDA
uOH**WAWROH**: 3
‘OA | SOHDS#* BGD-G
SO@GNE<TI10/ 5_V¥
2'*pcsi#{ 75_V 8%]
CO)N i) 700) ( 581
O6APR70
571516
22H AaY70
571513
FQUAL
OBJECT CARD LISTING
CL 33 THROUGH 48 CL 4&9 THROOGH 65
GG+U*76"2{ D [a<B
ED<BG /, FO&="YG
” 5) $TE (SNE<GPBAP
¥ 2) SUSDCE6) X06;1
"5 ).6+$I8ay 0)8
OC] 8;NI90] 48) >30
" /1XL_ OBRW*BGDF
*2UAC /GHE1VYJ—=a
EGMCD5S%XNIGCAE+.
T1*J 0>/ ONCT2)R
186_ L*.Y8aN anc
"2s 5) STE<GNE<P
O*$T1)V ONC2E+.
AB-7 /O_X{ RWaB
“/1XL - RW*BGDTX
RY*BGDWE /1IDOH
*20H* KORBGGI-L* ¥B
)D* EEA] KOH**HA]
ry
T2<N 5*XES*X094I
1) TU0) ( 5&R O79
ASMCH2*-HSE ($RE<P
C9O(XR1*I 0; ( StP
01A0G70
571531
GPS. /OHEAVB1a%B
” JOHSYG™ /0: <8}
RE<LO2) PGECE 5_P
” ORTEG*#H S* XESEP
4) 700) ( OF sNicx
KF70@ AW*C DSC/w
” /VA"OHSSNRBG /Y
2 OH*BHDASON®4 "=|
CO) N 2<xG2DC06RC
” QRTESNCT2<PRINC
22; ( aB5,6 (SNE<G
Q9<GL2< PA1DASE+.
EO= | OGNCSO@GNE<T
GPBL /1S(]_ L=<#
” /1HSOH* (6L5*PR?
{ 6LOQPRO@ AWS|GH
GG+U*73+D|D LD<B
|
60H**: 33) D"#acal
” 4) XR5_XSE4 SE6ON
” 8RPCB'$R8>.CO) K
Q9<GLE+$H1) XEE+.
C8* $RE+~XESCS2 (S$
PART WO.
PAGS
CL 65 THROUGH 80
G SH-*8BGC13 /0H
ASNCE6*LASECS}) P
B64. E0=}O6RCS%G
WBUCA1>| EGNCDSKZ
72)$NA J8L& BOX
‘OHSRGOH Pex /1-
FEJC~0H® BHDASON®
H 1NCP6*PYV 2) $0BDC
E6¢LAU=.CO)H 1.8
WOrT OMCH2¢-HE<|
FBaPRECE BX ASAC
EO: { O6MCB: +) EL (S
11a/ S_¥ 1) TU0) [
AGV*4 JRe, -N-3
2-694 AWSPS. /1H
$;*BGF)<C /WROH®
G /,FNI+8YGS /CB
50H* BFRRCD";-~<B
" S* XESRPNBUCA1>I
*4)T00) ( 5) STE.
EO={ 06RCN5U_ 9=)
Dba 2<GVINCCOAl
5129682
16a
CL 81 THROUGH 96
Z1s% ".9a0c20022
SIN eHYA0C20023
WE<- GLUAOC20028
N18 LH820C20025
” -by 0Bv80C20026
"o4® 00440C20027
BFK&Q *ZHAOC20028
£6) 0 7D A0C20029
US*& &8°40C20030
oses 3cqn0c20091
H2e® aLHa0c 20032
FEC< P Y¥A0C20033
“03< pD*a0c20038
=GS8 03%20C20035
/C D QL¥A0C20036
KY< 3D%A0C20037
SYGQ )9#A0C20038
G SH =-MA0C20039
E6% *L0A0C20080
E88 7HCA0C20031
94D :QaA0C200%2
06) 0 ab8A0C200%3
PROG ID Oa0C-2
PAGE 16A
Oo ©
e9
O
ry
oa,
“
Set?
©
wey
‘ead
oe
tna?
ed co Nae ne eM REE ee ER RL geet nee ete cee ade
“on
4S
rN
oe mn
rae
O
IB4 MAINTENANCE DIAGNOSTIC PROGRANS
a0c2 SCAR
CL .1 THROUGH 16
ei pevies O24 ake
Te /352<XG2DCOHAC
T+/KRO) PG1*I 08S
T#/LN2CXLINCDS&X
T+/M| SSPTECGHIDC
T+/REECTIIA/ 5_V
T+/0£/0_X| (ORWAB
T+/P | DRXC3*PR?
1+/PSPSEND, H-~%B
T+ /Q60H*BHDA" OH
*T+/R15*) 8'R 8%}
T+/E%2; ( 5) STES.
T+/SI5SER O=TLESP
T+/*SECGFBOPRE<E
T+/)) R30 FR? /1-
T+/5QFR3 /1XL O08
T+/sL1& .BeBAB-7
T+/-*5*BGC) Uae /_
T+//ID<BG /,FHIL
T+/SDATH<XCBG SH
T+/S" SH-]%BG
@e@eeeee e
T+/T: c /13
DATE 13MAR70
EC NO. 571512
HIGH ORB
CL 17 THROUGH 32
CB°SREe+xK +200)
E64+LAS&CCS_LMO)P
T1)¥ ONCOS*R 8%P
NHISCAE¢ERI: [EE<CL
O6NCD1; [EO=}E1DC
4) 700) ( O° SB5<G
oo
GFBL /1S(} 38-3
" J1XL OHRW® BGEE.
G SH-~SBGFE-) #34
NKSE 8aPSB4CIQ)B
ASHCH2*~HS (SREP
EB4CA1> JEGNCAB=]
C8" $RE<{ 09(PT1) V
" BS) ASHCH2®-~HE ($
UOH*QTLINGYQ<"/9
RU*BGEBG /1;J0H
*/O_X| RWABGFBL
9] :NT3*GVA<" 99
OYGS /OHSYGS /1;
~B*BG SBAS<(&H
SBATAOH*RY-HSBDAW
EQODOUAL
OBJECT CARD LISTING
CL 33 THROUGH 48
WIE IKGSE<G
D2<PAIDAEE+. E0=}
C8°S$RE+.C0) PT2<H
}82E O° SMS<GHIDC
B: DCAG +] I5_ POE (Xx
NIDCOBSXNISCAE+.
=GVMSHTO FRO< J%
” /10;0H*NESBG /,
” pp32-JC /OHE1HD
“SN 1)xR5_V 1<X
Q9<GLE (~A8>(_1)P
ES (~T2) PGE+|05+.
" 2) O'$NB! ZONNC
RE<PQ9<GLE (~AB> {
NGVQ@ AW*C DSC/#
SM-B/C". /OHSYG.
"JAS (| Dg ¥-3=GVe
NGVM@ AW*OH*RUO<
/( -QNOO PRY. BTO
QTBOAF] 8SAC-DOTAU
9OA QUL-AFST2DBC
ZF<<R*< BG /edHs¥ RYC3 /OBE J*R*<B
O6APR70 22H aY70 01a0G70
571516 571513 $71531
CL 49 THROUGH 64
L6aPR1*] 0*$T1)¥
O6NCB:¢ [EE (SPE<|
”S*xE9*x0941 1)x
OSAXNIUCHIFGDEIC
E04 1_$05*3 5)$
£O=fO6NCIIDCO1UC
+PS7 /1XL - RW*B
FOJR:YG7 /OHSYG7
PD: A30H*BHDA3]) 0
DE (PO84CB6*GNOG/
D& (S$ FEC |YNSPNIDC
C0) B 2<y¥G2DC06HC
F2*PLIDCN5>( 8>}
” 4) PDS (SFE<]Y44_
‘OH*RSOR FRX /1)
2/1C /OHEISSM@HA
5UTO FRO JE¢FST7
BFBX /1-G6H*QH<B
IF7X /1XL _RW*B
" OH*RYDE( JWOF] #
"/1XL EDQOKBGF.G
G /YFHAWO! DLO
CL 65 THROUGH 80
” yaxVv2) PGE<E B%|
O5;]R5_( 1%XE4aI
R5_XSE ($CO=LR6*P
SO0@GNE<$O9 (PDE (F
T&+.E84CB: DCAE+.
F1-Q E16" %IOBD
GEQ. /1N=OH* (6L0
“IWS T--FSX2DAC
RW"HAD<BG /,FP/G
“o#sTiyV O:ITIL
O1UCC: ((.8+.E53.
E6+LAYSCPO; .TE<P
E5"+E1DCCS_2R1*]
G A;NJ& .B*BAB-7
QOH*PN<BGC) Uat/_
6O0H*BHDAGOH*PH -
“/AXL - Rw*BGE'X
GFSHFOE"20H*BHDA
GFEL /1/BOB*SA%B
2-3C /OHE1SER.:
"/1SSCE QOOkHa-D
BOUa AS EOR*BHD
PART NO.
PAGE 7
§129682
CL 81 THROUGH 96
ASM "DQAOC20044
*pa- 9800020005
DE+O 6 14A0C20086
084 690A0C200487
Cb) # "36A0C20048
ice 530a0C20089
AGVQ EYHR0C20050
"OH =1-A0C20051
-YG@ *REA0C20052
P8a0 9H8A0C20053
E&<8 ~K*A0C200548
BID KT8A0C20055
Tu=—- ~IZaA0C20056
/3% 6#DA0C20057
S} &0%A0C20058
ema 69<A0C20059
/1* ~3MA0C20060
20Y* BS$RAOC2006 1
G /Y KI8A0C20062
=0H* #2 40020063
GOH* 9-4A0C20068
@0H* 2BQA0C20065
PROG ID Oa0C-2
PAGE 17
QO 0
o 9 0 0 0 0 9° 0 939 0 08 9
€
2 0 @ @
ee Bie nee
Oo oO 0 4 0 0 4 G
O
a
wet Oe ag er ae nat nae net
IBA ARINTENANCE DIAGHOSTIC PROGRAS
A0C2 scans
CL 1 THROUGH 76
@eceoveae oe
T+/955 B &
T+ /VOSSICI(XRIF9
T+/¥,6;LN6+.54)1
Te/XUF$S << BD)B
ie CR
T+/Z*39%<C DE31%
T+/DP>*BGFEHCC D
T+/,KD <5 /BE.__
T+/%(FOESAS@ FOS
T+/_HNO "“aBycg
T+/>C 5>LT2) PEE++
T+/>=+ R>|HEB<B
T+/29GIC /1>) OH
*T+/OUEDA EDA 2)P
T+/127ECLABBE 00T
T+/2DE<}H1*] KEDA
T+/307C0 G(7B /3
T+/4-BA (--RYLE
THISDGHE}] A3YFEG
EB" 9*E7*=~DC "PHS
HIGdGH Oo 8
CL 17 THROUGH 32
SHRLASGE OFLD62P
QETILAN BRPESEX
B2PSBUCS 1*|T2)$
e @eewn eae eee
S$ & ASP
HFTUSBA, At6-$B?H
+ (6 DSCAOCF**C0-p
ROWWIC RY-YC{ 3a
SA0<KO"1ZHIE SAH
AdY*P>-DB. $A D
AF1. /AY#0H**#:6Y
X( -$8<BSFEHBOR
*G /YAD/301& $/-H
BY-H)F=7 /0 8>]
T1) XV1) PT2) SNE (X
EO'I EDA EDA &(P
EDA &DCUS;.A1ZS
7)&DA. *0- % A3
HGEY6BAU ( -) DCE
2--YFH GL, /14%
=" 7REF | I Cc
EQUAL
OBJECT CARD LISTING
CL 33 THROUGH 48
S8UCWO;I B>JES'~
WIACT2<¢H OaN Bt
NE<GOaNCPS_¥ S{ S
EBCYRFTU:BA,A76~
R2|¢- <FSFIP /1W
$B|HACHO 1%G>0D
AELOAFOO8 &a"0<
| ASDFOS2/0Ea |
CF5D2& A_| OH*BF&O
BG-HR>J?7Z] DS$V<H
AB>HB ) HADSBGF7Y
AS=LSE<.Y8aPSECX
E6<J.5<XS8RXN 14C
O& (XEO*$R 1DCF5>1L
EDA EDA EDA EDB
HAP- ?HEACY G(u
HGIQ6BAW/( -) +60
TOH® [G6187}4*°=$
wanna nnn enn nn nn enn re nn reer nnn-- LAST
DATE
EC NO.
T3MART70
571512
O6APR70
§71516
22m AY70
571513
010670
§71531
CL 89 THROUGA 68
EIDCTSUCIS® 4 06) X
AO*T,0) X22; PEIDC
eeaeon
RINCI5*SOKO
ee ESR OR
“arr <EQSCCPUPOS
SA OAP) DR>LBAFOO
B(&HR_=P-C+FUB+B
@ ASFCEQSC|+- Ha
2/0D< <$ABO FOO
NFSP-TSBG SH-TSB
AP"*B /260H*BYRD
°-A>MaYDE|H $¥<B
NS<TE96.
A1<URK4CBO0) XKi} T
RIDA 6+ 4KE<jO5S*L
"SB EB EB LSHG(O
*6A3BaYDG8-HAQH
*AGJO. OAGKa 0
q=|x0
Oe
PART WO.
PAGE
CL 65 THEOUGH 80
E0=( S*GL9<PEG)X
ABUCC: ((.6 (POKSC
@eaeaeoeeee
LERFSSS oF
BP$*a ARHE <E+E
< AW=FTUC AW" FTY
* 1X. @BGFEHBC D
GA.4A -~HAACOD FOR
JISFAYDVAYEI>OD
AOH*EBO
G CT2)LES>LTE<x
AFP*=~ BO FSM GAD
GF EHC 0 H* BG-HR>J?
CNSUCOSUA EDA
02) 781) PTE<JH1*|
I8@XO5MCC2<PCH>.
5S J3* (ER*7COBFE
* aBG A -SHD
aeenea e eee
AGK 0GH &
@e@eenvneeanesvaneenasn
120408187006
PROG ID
PAGE:
§$129642
V7A
CL 81 THROUGH 96
OSH ECe@a0c20066
X9=* 2 640€20067
SF < EHUAGC20068
% AY Pe<a0c20069
< JU 0.HA0C20070
ROJUD 320a0C20071
% JZ YE*a0c 20072
BC Q1@&80C 20073
ANS *R AO0CZ200748
NE{ 0 3$HA0C20075
)3- Pt A0C20076
_0-H $/HA0C20077
“g) PDYA0C20078
KED SHYA0C20079
E1)H L3YA0C20080
4 70 )98A0C20081
A -& O--A0C20082
@eeeoe
= L,~A0C20083
saonre
O08 A0C20084
8197C63Q*A0C20085 _
OA0C-2
T7A |
i
i
!
1
i
-
eee @eee0eeeeoeeeeeeeeee8ede @
‘
=~ »
SSS 4 : . t
ie Le Re - is oo : , a dee wa
JEM MAINTENANCE DIAGNOSTIC PROGRA™ PRET 20. 3129848 pone EBS fAINTPUANCE DIAGNOSTIC PROGRAN PART HO. 5129688
- PAGE OP ee ‘ ; PAGE WME
40D2 DISK REVOLUTION TEST a &OD2 DISK REVCLOTION TEST
ERP LOC OBJECT CODE ADDR STET SOURCE STATEMENT 2 > ERR LOC OBIECT CODP ADDR STMT SOURCE STATEAERT
2 © DECK 4 - ca97) 070 USING START1,XR1 -SET UP BASE FOR XR1 & XR2
‘OaG0 3 A0D2 START X®a0G* ia OAS?) =o 774 . USING START1,XR2 :
. 4 SRERRRESAAERRESA AS ACSE SSS SIRRSARSE TASSELS KSARSELS RT TAKE SKE RARRERRERERAL Cag7 c2 O03 CAST 72 START? La START? ,X*03? eoiSi?T £2256 KR
5 * * CA9B 3C AS OAAP 73 S¥I CKDISK4#1, X'A3¢
6 * SYSTEN/3 DISK REVOLUTION TEST =z OASP 3C AZ OBAG 74 AVI S¥DISK+7,X°a3®
7 * . = rh)
8 FERRE SKKREEKE LES KARE SH REPEAT EHS ORS SEEE SEES SEKEBEORARKBERESERKESEA - 75
GACOD AOD? 0404 9 pc KL2*a0D2° PROGRAM IDENTIFICATION si 75
Oa02 COO1 9A03 40 DC XL2*0007" eFLAGS & CURRERT RTH RO SRER 75
OAGS CODD oacs 11, “pe XL2°0¢ - RESERVED ORAZ AC OF 29 25 76 RETRY SVC KOUNT(,XR2) ,XDRPP(2,XR2)} oNEED X*°2500* PASSES THRE
OAa06 GAIO Oa07 12 pc AL2(RTNO4) a QRAT RE G2 29 27 77 LOGP1 ALC KOUNT (.XR2} .X0001(2,Z 82) LOOP FOR 100 REYOLUTIONS
O08 FEFP oa09 8613 pc XL2°FEPPS eERROR RECORDING TABLE ADDR QAAB F2 AD 83 78 JOL BADBIT 1 OF DISC. IF 8O Bit SENSED
CACA A0000D Oacc «18 DISK? pC XL3*A 000008 -SECTION ODT ERTRIES CORRE BO A2 25 79 CKDISK SNS SITCHK{ ,%X82) ,X°A3° Iu 190 REVOLUTIONS, ASSURE -
GAOL BO1000 CAOPF 15 DISK2 pbc XL3*ROTONCE | OABi BB OR 2A 80 T BH BITCHK-1(,ZR2),27°08* BAD IWDEX BIT.
16 KEREREREEAR ERK SEAT ESS TRH TKS CLE KASS EKERS ESE TALE EKER SHSERE EASE KRSECERREKERE OAPS CO 90 GAR? BY BF LOOPY e.F BIT PRESERT, PROCEED fo
17 * ROUTINE 7 =z. OABS 72 87 4B 82 J BITOK es
8 FRE CRR ERE ERE ARETE SERKE SERS SERFS RERSRASES SKS EAAHSSARABKRRESESARBESRE CABS Da FFP CABC 83 XDSPP qc XL2°*Darr
OA10 07 Ge) 19 RTNOY DC XL1°04? ROUTINE? CABD 0002 OABE 6% K000% pc XL2*0001°
*0817 069 Oal4 20 pe XL 1°00° ORBF 0000 caco 85 KOUNT DC XL2'08
CAI2 OD5B OA13 8 621 DC AL2 (RTNO2) Cac? cece CACZ2 Ae BITCHK DC XLZ°QO#
; 22 FREES SHER TRESS ASTER GES RSS SOARES SKETE RE LH RSEHKS SHEHERAREASESLEKEROR ENTERS CAC3 CIDSCECSETVOC2ZCS OAFE 87 PPINT? DC CLUS* INDEX BIT HAS HOT APPEARED IN LAST &% SECONDS?
Oats 38 02 0208 23 TESTA1 TBN SBYTE3,xX*02¢ IS SSW 1B ON? OACE E340C8C1E240D5D6 87 :
CA18 CO 10 0216 24 BT LINK IP SO B TO LIBK TO RTH 2. : OAD3 E340C1ID7D7C5C1D9 a7
OA1C 38 20 Oa0B 25 TBN DISK 1-1,X*20¢ ~TEST IF PRIMARY DISK ES OADF CSCLROCIDSHACDict 87
0A20 CO 90 0216 26 BF LINK ATTACHED. IF NOT, LINK TO OAE3 FIEIGOFLKOR2ZCSC3 87
OA2& CO 87 O21A 27 B PRINT ROUTINE 2. " OQAER £L6LSCuE2 87
0A28 01 Ca28 28 oc XL1°O78 RB
0a29 OC 0A29 «929 oc IL 1° 12¢ CAEP CO 87 O21A BY BADBIT 8 PRI&T oPRINT UOT HESSAGE IB
OA2A OND7 OA2B 30 pc AL2 (DISKA) CAF3 C6 OAF3 96 pe XL7°coe PRINTI ABOVE AND HALT
OA2C 3C 00 12FF 31 TESTBY AVI RDIT¢3,xX*90# eREINIT TO X*GO*® TO READ OAFY 2C Cars 91 pc IL1*ag
*0a30 3C 80 OA90 32 NVI RETSR¢4,x*80O* -SET OP TO RETURK TO TESTB? OAFS OAEE OAP6 92 DC AL2 (PRINT1) . :
33 * AFTER NTRDOY OB RECAL #SG. OAF7 aces CAFS 93 DC XL2°a089t
OA34 CT AO OAGC 34 TIO NTRDY7,x°ac? OAFS CO 37 0222 94 PB HALT
0A38 31 Au 12B2 35 LIO DAR,X*aue 3 OAFD AGBY CAFE 95 Dc XL2°a089
*OA3C 31 AG 12E4 36 LIO RECL,X*A6f F 7 OAFF CO 87 OAA3 96 B RETRY eIF ALT RESET, RE-TRY AGAIE
OAKO F3 a0 CO 37 SIO x*u0%, xea08 -SEEK THK O 97
OA83 C1 AZ OAG3 38 SBOSYT TIO SBUSY1,xX*A2?* = é 98
OAT 30 A2 OACZ 39 SEEKD2 SNS BITCHK,X®a2? ~LOOP TILL SEEK BUSY DROPS ? Of03 38 01 0208 99 BITOK TEX SBYTEO,X*O1* CHECK IP SS¥? IS OR. IF BOF,
DAYB 38 40 OAC? 40 TEN BITCHK,X* 10° ORO? F2 90 C7 100 JP GOON GO Of WITH THE PROGRAM. IF YES,
OASP CO 10 0A4N7 44 8T SEEKD1 . - OPGA 3C CO ODF2 109 SV¥I WORK,X*008 SKIP PRINTOUT AND DEPAUL? TO
0a53 38 4O CaCc2 42 TBN BITCHK,X* S08 - = OPOE F2 87 14 102 J S¥7SKP TIEING 100 REVOLUTIONS.
0a57 F2 90 25 43 JF RECAL1 103 ‘
OASA 31 AG 1286 ay LIO = RD, X*AG® . re 108 -
CASE F3 Ai 00 u5 SIO 8 =x*U0*,x*ate -READ SECTOR 0 = * CET? CO 87 O2TK 105 GOON 8B PRINT :
0A61 C1 A2 0A61 46 RBOSYY TIO RBUSY1,x*aA2° OnIS 487 0815 106 DC xL1*a7°
04865 C1 AO OA6C 87 410 = NTRDY1,xX*° a0® 2 ° OBI6 2C OEY 107 ac IL7*aae hs :
O69 F2 87 2B uB 3 START1 ie = 0817 OPO CB1R 108 DC AL2 (TESTO1}
49 Cb19 AOPO OB1A 109 pc XLZ*a0PF9°
50 : * - 170 ;
OA6C CO 87 O21A 51 NTEDY? B PRIET 7 OBIB CO 87 0222 171 B HALT
Oa70 C6 0a7G) = §2 DC XL7°co* ORTF AOPO 0B29 +12 DC XL2*AOF9®
OA7TT 17 0A71 53 pc IL1*23° o - 143
0A72 1220 Oa73 0 558 Dc AL 2 (PNTRDY) = OB2%7 30 CO ODF2 114 SNS WORK, X*OO* ;
OA74 AOFE OA7S) = 4555 pc XL2*AOFE® 0825 OC 01 CBF OBF? 115 SWI7SKP MVC ETABLI,ATABL1 (2) eee S
OA76 CO 6&7 0222 56 B HALT * OP2B OC O3 OEFDS OFBI 116 SVC TOTREV,DECFIL~@ { &) eIKITIALIZE FIELDS
OATA AOFE 0a7B 457 Dc XL2*AQFE® . 0P37 OC O01 OC8F ORSS 17 MVC DI VISR,DECFII-& { 2}
OA7C F2 87 10 58 J RET BR 0837 3D OF ODF2 138 CLI wORK, X*OF* ~ INVOKE DEFAULT IF > OP
59 - OR3B F2 04% C4 179 JvH SETSEUS
OA?F CO 87 O22 60 RECAL? B PRINT ° z OE3F 3C CO ODF2 120 RVI WORK, X*O0
*OA83 Ce OAB3 836 6 Dc XL1°c6! 0342 OF OF ORFS OFOS 121 SETHUN ALC ETABL1, SUSET1 (2) ~DETERSIRE HOW HAHY
OARS 12 OA8& 62 DC IL1*27° OBSB 06 03 OEDS OFCS 422 hz TOTREV (4) , DO 100 (8) REVOLUTIONS TO TISB
OA8S 1309 OA86 8663 pc AL2 (CALDSK) OBYE 06 01 OCRP OPO? 123 AZ DIVISR (2) ,D0 100-2(2) :
OA87 BOOS CA88 64 DC XL2*a00S¢ OPSS 3p 00 ODF2 124 CLI WORK, K*OO®
CA89 CO 87 0222 65 B HALT OPSS F2 81 OR 125 JP NOHREV
Oa8D A005 Oas8e 66 DC XL2*A005° : CBSB OF 0O ODF2 OPR3 126 SLC WORK,ONE(1)
OA8F CO RO ODSF 67 RETBR 8C TESTA2 ,X*80° -IP NO-OP, RETURH TO TESTA? OP61 CO 071 0842 127 BNZ SETROA
0A93 CO 87 OA148 68 - 8 TESTA ELSE RETURN TO TESTA1. - 128 .
69 . OR6S 3% 01 0208 129 NUMREWV TBH SBYTEO,X*01° -CHECK IF SS#7 IS ON. IP NOT,
DATE 13MAR70 O6APR70 28APRT71 ISMAR72 PROG ID oaoD-2 ~ ’ DATE 13MAR7O C6APR70 28APR71 1SHAR72 PROG ID 0a0D-2
BC NO. 571512 5715 16 571565 571591 PAGE 1 { FC NO. $71512 571516 571565 571591 PAGE TA
s
KOD2 DISK REVOLUTION TEST
TSM MAINTENANCE DIAGNOSTIC PROGRAN
PRINT ID
NUBBER OF REVOLUTIONS PISED.
PART 80. 53129685
Pace 2
GO ON WITH THE PROGEAS. XIF YES,
WITH THE DEPRULTED
oRE-THITIALIZE LES
ALLOW FOR FIRST SERSE
2» BUSP POINTER TO HEXT LOC
«CHECK IP AT EXD OF TABLE
IP YES, GO DG THE
CALCULATIONS
~ZEEO OUT TABLE LOCATIOS
-&DD ORE TO CGONTER
CHECK EP INDEXING BIT GR,
IF ROT, CYCLE ORE NORE
TINE. IP YES, CHECK IP
ALL CHECKS SADR.
SET CP TO INIT MINERRXVAL
ZERO OUT PREVIOUS VALUES
eINIT ERI TO COUSTER TABLE
THE PROGRAH WILL GO THROUGH LCOP2 UNTILL ALL TABLE ENTRIES
ERR LOC ORIFCT CODE ADDR STMT SOURCE STATENENT
0869 F2 90 OD 130 IF GOON 2
OB6C CO 87 0274 431 B PRINT
0B70 46 OB70 332 DCs XL ¢w6e
OB71 21 -OB71 433 pe IL1*33°
0B72 OEDS 0873 732 DC AL2 { TOTREY}
OR7& ACES OB75 135 pc XL2*A0P9
*OB76 F2 87 O68 136 3 GOOR3
OE79 CO 87 027A 137 GOON2 3B PRINT
ORTD 96 CB7D 138 - pc ELT *°06¢
OB?E 21 ORTE 139 Dc IL39 33°
O87F OEDS o88G 140 a AL2 (TOTREV}
184
a2
OB89 443. OSING B3UNP1,xR2
OFBt C2 02 088e 148 GOON} LA BUNPI,XR2
OBBS C2 01 7806 © 185 OR TABLE1-&,XR4
CE89 36 01 OBBS 746 BONPT A THO,XR1
CBB8D 34 07 OBFF 147 st SAVXR3,XR1
0897 OF 01 OBEF OBPS 148 CLC SAVXR1(2),ETABL)
OBIT CO 81 OBFA 189 PE GOCALC
O£9B 6C 04 01 2c 150 MVC 9=—-1.(2, XR1p, THO(,XB2)
OROP 6F 01 O17 2A 151 TSTBIT ALC 1(2,XR1) ,OHE(,XR2)
OBA3 PO a2 3B 152 SWDISK SNS CHKBIT(,XR2) ,X*A3¢
DEAG BS O8 3A 153 TBN CHK BIT-2(,XR2) -xX*08°
ORA9 EG 90 16 158 BF TSTBIT (,XR2)
OBAC F2 87 00 155 3 DUMMY
OPAP FO 87 00 156 DONNY 8 |. BUMP1(,XB2}
157
158
159
160
161
OBR2 0001 CEB3 162 ONE DC XL2°U00i"
OBBS 0002 OrR8S 163 THO De XL2°6002°
SEP6 FOFOFGFOF3POF4&FO OBBI' 165 DFCPIL pc XL8* FO FO FO £0 PIFOFSPO
*OBBE FP3FOFSFO OBC1 165 D308G DEC BL’ * 204808
OBC2 CO OBC2 166 pc XL7*008
OBC3 0000 OPCS 167 CHKBIT DC XL2°00008
CECS 00 OBCS 168 pc XL1°00
*OBC6 FCFOFOFOFOFOFOFO OFCD 169 KAXYAL DC DLB*O?
OFCE FO CBCE 170 pc XL1°FO?
OBCP FOFOPOFOFOFOPOFO OBD6 171 HINVAL DC DLS*O8
| ORD7 FO CBD? 172 oC XL1*Fo®
' OBDS FOFOFOFOFOFOFOFO OFE3 173 TOTVAL DBC DL12¢0°
; OBFO FOFCPOFO 473
OBES FO ORFQ 178 DC XL7°FO?
: OBfES FCFOFCFOFOFOFDFO OBEC 175 SEDVAL DC DLE tO?
} OBED FO CEED 176 DRESET pc EL4°FO?
OBER 0000 OBEP 177 SAVXR1 DC XL2 °00
*OBPO 0000 OBP1 173 SAVER2 DC XL2°008
OBF2 0008 OBF3 179 EIGHT pC xL2°0008°
OBF4 0000 OBFS 180 COUNT DC XL2* 00008
OFF6 160A CBP7 181 ATABL1 DC AL2 (TABLE?)
OBFB 0000 OBP9 142 ETABL1 DC XL2"08
183
184
185
186
187
OBFA 3c 8C 0c24 188 GOCALC HVI ONCE#1,x%°80"
OBFE OC 27 OBEC ORED 189 RVC DRESET-1,DRESET (40)
0cOS C2 01 1408 190 LA TABLE1-2,XB1
191
192
193
194 «
195 * ARE ADDED UP.
196 * THROUGH LOOP3
DATE TIBAKTO O06 APR70 2BAPR71 1SHAR72
EC NWO. 571512 571516 571565 571591
a
Es
FOR EVERY TRIP THROUGH LOOP2, THE PROG GOES
APPROXIMATRLY 1,000 TIMES.
EACE TINIEG
PROG IB OAOD-2
PAGE 2
a
liam lS
ee
rey
«>
€a
4OD2
ERR LOC CAJECT
€:4
OcoaR
CCOE
OC16
OCIS
OC iF
0T23
O0C26
oc2¢
0€32
ey
OC36
OCc3C
OCRZ
oces
ocueB
OCKE
0c54
0c57
ocsD
Och?
és
$
~ Océ?
OCOB
OC71
CCT?
bg OC7A
ccao
0C83
ocas
ocaD
2 OCBE
ocso
Ocga
ccesc
CCAD
ocas
- OCAR
- OCRS&
3
Rh ote
wea
OCBA
OCRE
OCBF
occe
0CC2
occé
OCC?
occs8
OCCR
OCCE
OcCcr
OCEO
9Ccc2
DATE
EC NO.
DISK REYOLETION TEST
13M RMAINTEWARCE DIAGROSTIC PROGRAR
ADDR STET
SOURCE STATENERT
CODE
197 3
$98
*199
*200 #
201 3
202 * LCOP2 7400
203
OC 07 ODF2 OPRD 204 LOOP2 NYC WORK(S} ,DECPIL
D2 01 02 205 LA 2(,%281) ,XR1
SF 91 01 OFB3 206 LOOPJ SLC 1(,XR1) ,QHE(2)
F2 82 OR 207 aL ONCE
06 &3 ODF2 ORCI 208 AZ WORK (8) ,D3080(8}
cO AF 0c 209 B ' LOOPS
210
211
F2 80 10 272 ONCE 3c KONT2,X°8O"
OC C7? OBPS ODF2 213 NVC MINVAL,WORK(8)
Oc OF OB8CD ODF2 218 SVC SAXVAL, WORK (8)
3C 87 9C28 215 MYI ONCES1,X°878
216
C6 67 CBP? ODF2 217 KONT2 az TOTVAL (12) , WORK (8)
OD OF CDF2 CRDE6 218 CLC WORK(8) ,MINVAL
P2 02 09 219 JHL KONT3 -
OC O7 OBDE ODP2 220 NVC MINVAL,#ORK(8)
P2 97 OF 221 3 KONTS
Of O07 ODF2 OBCD 222 KONT3 CLC WORK(S), MAXVAL
F2 04 C6 223 JRH KONTS
OC 07 ORCD ODF2 226 NVC MAXVAL, SORK (8)
C7 30 CEDS ocRD 225 KONT& $Z TOTREV (%} .DECO { 1}
cO 34 OCoOs 226 PRZ LOOP2
227
*228
229 .
3C FO OREC 230 MYI MNEDVAL,X* PO
*Oc 06 OBEE OBEC 231 MVC SEDVAL-1,SZDVAL (7)
Of 01 OC8F OFO7 232 DIVIDE CLC DIVISR(2) ,BO 100-2
F2 81 16 233 JF EDIVi
0? 61 OBDF OC8F 238 DIV SZ TOTVAL—& (8) , DIVISR (2}
P2 08 43 235 INH EDIV
06 70 OBEC OCBD 236 AZ NEDVAL (8) ,DECO1{ 1)
CO 8? OCTA 237 B DIV
Fi OCBD 238 DECOR pbc XLVF1e
FOF OC8P 239 DI¥YISR pc XL2°FOF?¢
OC OF OREC OEDF 260 EDIV? MVC MEDVAL (8), TOTYAL-3
OC C6 CEOS ODEA 28% EDIY S8¥C HINHS2,EDGaS K(7}
dC C6 DEUS ODEA 282 MVC MSEDMS2,EDMASK(7}
OC 06 OF89 ODERA 243 NYC MSAXNS2,EDNASK(7)
OA 06 GEOG ORDS 284 ED SNINMS2 (7) ,HIBVAL-2
OA 06 OF89 GBEC 245 ED MEDNS2 (7) , HEDVAL
OA C6 CPAS OBCB 286 ED HAXNS2(7) ,MAXVAL-2
247 ®
248
249
CO 87 O2TA 250 E PRIEST
01 OCBE 251 DC XL17°018
4&0 OCBF 252 Dc IL1*6at
OF39 OCC1 253 ARINPR DC AL2 (MINMS K}
CO 87 O2TA 254 B PRINT
C1 occé 255 pc XL7*°018
ac Occ? 256 pc IL 1°64"
OR? OcC9 257 AHEDPR DC AL2 (NEDSS RK)
CO 87 O2TA 258 B PRINT
Co OCCE 259 pc XL1*06
*80 OCCP 260 pc IL1*6a8¢
OFRS OCD1 2761 AMAXPR DC BL2 (HAZMS KR)
262
263
OD 06 GEOS OF2A 268 COMPHI CLC MILMS2(7) ,MINMSK-10
138 AR70 O6APR70 28APRTI IS MARTZ
571512 571516 571565 571591
PART HO. $129688
PAGE 2a
LOOP IS 30.86 HICROSECONDS LONG AND THE EUABER OF TISES if
HAS TO GO THROUGH THE LOOF IS (40,900 gs fREVOLUT ZO¥} 7
* Ze c ie 1066 4O8O 397
Ay CEO2 C3ACURTECTLIRO E? 384 - 1668 SCSCS5C5CSCa0k08C 1099 398 ESLOOS oC CLOQtssese 2° DEFECTIVE HOTOR a
OEQA LOQTICSLTSCIDGL XE 38k IC7O FISDSOCECSCECSC3 398
OEAZ VEGCEOFSFCAI SI¢ 38a Zs F 1078 EF3CSESCS&ODEDGE 3 398
OEAR FCUOTHCONIE He SEZ 364 . * 1C8O DEDSHONOAO4DHOAD 398
OEB2 CSC35D 3e4 IO2E BONCSCHOROUDROAD 398
OFBS CSEMLACZCEMSE (EE CEBT 2ES PCTRET DC CLZG'*KUMBES OF BEYGLUTIONS TIAED= ¢ © e TOSE UCECROEORGEGSOLO 398
OFBD CEUOTSCSESM 171k 385 < 1098 4046 398
CECS EICSDCDSF2UCL3 & 385 109A SCSCSC5SC5SCHOSGKO 10CR 399 BSLOO9 nC CLSO°**429 8} GEONG PULLEY. 60HZ PULLEY ON SOBZ HOTOR!
CECD DACSCOTESS Jas ss > VOA2 FEST AOFEenspEnse7 339
OED2 49aC40NG (LDS 386 TOTREY RC La eouesoagst rm “ ; TOAR GODTESD3IT 3C5T AUB 399
OFDK EACSDICSCIZEINCI] GEOL 387 TEST01 DC CLOG°SELECT THY SOREZR GF REVOLUTIONS TO BE TIRED? TORZ SOFEFOCSESACD IES 359
OELE CACEMOLSEaDECZ: ! 303 « = TOBA N3ITICSFRXODEDSAG 399
OFFE peucnecésonscs 2. 387 , - = TOC2 FSECCBESLODYDGE 3 399
OEEE LOLZEat 3c 9EDEF 2 387 1GCA DEDS 399
OEFG SOPSDEHOCZCSBORI 387 y a “ ; ore SC5C5CS5CSCKHOUOkG TOFD 800 BSLO10 DC CLOQO* suees &e 4} SOHZ PULLEY = 1.577 # .002 IncR 1
OEFFE c9Onecscs 3a7 - TOD GOKOUOCPASEPISHAg aoG
OFO2 acg90 C#r? 38B YACIC Prec KL2¢909Ct TOLC FSECCALINODIE UT 3 800
OFroe COCs CHE 389 SHSETY DC WiZ*c2G006 z * TOPS DICSFOUCTEAOF IAs 400
OFCG FOFTFOFO O1CS 390 pe1ce DC DLE tc toge . = VORC FSFIUFINCUPEOR OAR 0G
OPOA SCSCSCSCSCAODHCT OFIE 3594 ESIOC1 DC CLEC'sss48 HAY REV TIRE ABOVE HAY TOLERANCE CAUSED Bi: ¢ TOP4 FOFOFZ4O0C9DSC3CK 800
OFI2 EFHOLICSESUOLICS 397 - - 1OFC 4040 00
OFTA L4CS40C1IC 2DE6ESCS 334 = = TOPE SCSCSCSCSCHOUC aC 442F 401 ESLOI? DC CLSGt teaes %.2} 60HZ POLLEY = 1.260 ¢- .002 IRCR °
*OF22 4SOLDGCTE7EOE3DED3 391 ; TUC6 BONG aC RUPE 2Sn UC 8O1
OF2A CSI9C1DSC3CS40C 3 391 * “ VTIOE FOPOCELIUODIF& D2 801
OF32 CILXE2ZCSCS4OC2E9 391 * = WW16 CICSESNOTEGOF T4Hr 801
i OF3AR FA4O 394 TVVE FIECPFINOKEECKOAR 604
a - OP3C SCSCSc5c5cucacue OFED 392 ESLOO2 DC CLSO0'*#see =) SLIPFING BELT . © V126 LOLCT2Z4OCSDSC 3c tk 801
b OFGH ETETUOFZD3C9D7D7 392 ' TH2E CAC 801 .
! OFSC CSDSCTUOC2ZCSDIE3 392 1730 SCSCSC5SCS5CaCKHOeUl 1167 402 ESLOI2Z DC CL5a°%seees 5S} RRONG MOTOR - 60HZ SOTOR O8 SURE POWER ¢
} OFSH HONCUOSOROUOAOND 392 fs - 1738 FESLMORLDSDELSCT 802
- OFSC 4OeCHO4ONRHOGONG 332 . : TUUC UODEDEEIDENSUCEC 402
OF64 ZOKOKOROUONCEOHS 392 TVR UOFGEOCEESUC DADE 802
OF6C 4O4C 392 a 1750 EILELSEOCDEDS OFS 802
OFGE SC5CSCSC5SCH0K040 OF SF 393 ESLOO3 DC CLS0iteeee 2) HORK BEARIKGS « = . T1568 FOCSESEOLIDEEECE 802
” ee
, DATE 13MAR70 O6APR7G 2B8APR71 156472 FROG 1D oacp-2 CATE SRRARTC = -GORFETC = -28APR7T =: TSHAPT2 Fs0e 10 OkGE~2
5 £C NG. 571512 5715 16 §71565 571591 PAGE & ZC KO. 571532 S7ASVE 571565 571591 PAGE aa
we e2 C
we
.
@oeeoeoqeg_ea@eedeeedeeeeqeqeede@eeeoeoe@eed@e@qeeqoge@e~dkeed@eosdesdsd ®@
aie
EBR SATETERANCE DIAGKOSTIC PROGRAS
aon2 DISK REVOLOTION TEST
ERR Loc
4169
1162
116A
4172
T17R
1182
T1BA
4192
2198
419C
FTAs
THAC
TiBS
11BC
Fics
T1CG
VICE
1 4D6
TIDE
TIES
TIEF
11P6,
VIFS
1200
41208
1210
1218
1220
1228
12228
1232
123A
T2u2
124A
1252
125A
425C
' 9268
126C
1274
127¢
1284
428C¢
128E
1296
T29E
12A6
T2az
12E6
12BE
12c0
12€2
12ca
- 126
12c8
12CA
1202
12DA
12E1
12E3
12S
T2E7
12EB
12EF
EC NO.
CBIECT CODE
DIRO
SCEEscCscscsoagnan
FESDIOCIESCHCS PF
CIDSTTHODTE UD 3E2
C58 0C2C5D3D6 F640
EZ2LTICST 34 ODEDIND
ADDR
4193
LOCYEZEZCIDSC7TRO |
4040
Scscscscscaopeca
D584 OD9CS E58 023C9
E8CS40C2CSD 3DEES
#ODSC9DSHE EIDED3
CSL 9C IDSC 3C586r 3
CIBGERCSCHSOCIES
7aao
5CSC5C5C509 08080
FISDXOF6DSDED5SC7
#0D724D3 DICSESSB
SOPSFOCBESSOD7E4
D3DIC5SFB4ODEDS40
P6FOCBEQNODGDEE 3
PED
Sc§cScscscuonosg
BOGOKOF 14 BP I5D40
FSF CC8E9KODTERD 3
D3C5SES4O7ENOF 188
FSF1F7U04E 604088
FOFOF280C9D5C3C8
#940
Scscsescscaoso4o
80%0S0F 19BF2SDa0
POFOCSESaOD7 ESD?
D3CS F840 7ENOP 14B
P2F6FONOSE6O 40GB
FOPOF240C9D5C3C8
3080
Sc5c5c5C5c8 000480
P25D80E6D9D6D5SC7
S4ODUD6E3D6D9NC60
8 OPS FOCBESUODSDS
F 3D6D940DED540P6
FOC8E940D7D6 £6C5
BHO
SCSCSCSCSCHOH0 KO
F35D40C9D5CacSE7
C9DSC7THOD7B4D3E2
C54OE3D6D640B 3D6
DSC7T4O D6 DIROEZE}
E4C3D240D6"548040
4040
0032
728D
11P7
7161
OF6D
C4C9F2D240D5D6E 3
BOL9OC5C ICHEBLODE
D94OCSD9DIDEDY
130A
1227
12 EB
COOOCOFP
€0000000
C&CSEZD2N0D5SDG6E 3
OGAPR7
S71S516
TIMARTO
$71512
49¢5
VIFF
1229
1258
128D
128F
12C1
12C3
42¢c5
12¢7
42c9
12£0
I2ZE2
T2Eu
T2E6
12E7
I2EA
T2EB
I2EE
1309
0
STHT
#02
803
SOURCE
ESLOY3
#03.
#03
893
803
803
#03
B04.
805
@05
$05
409
409
809
409
409
440
370
810
&10
810
810
410
871
#12
&13
G14
495
416
817
a17
817
418
419
420
421
822
823
a24
825
EPSToi
EPSTO2
. EFSTO3"
EFSTOS
EFSTOS
EPSTO6
%0032
AEPSTS
AEFST2
AESL12
AESLO2
PNTRDY
DAR
RECL
gD
SEEKO
EDIT
CALDSK
28APR71
571565
oc
bc
oc
pc
pe
be
pe
bc
bc
pc
pc
BC
1SNART2
571591
STATES ENT
CLOO* seeee
CLOOt Feees
CL50* s4 e222
CLSO t sesee
CLSG*tsee¢
CLSO! xeses
CLOQ*#e2ee9
XL 2°0032°
AL2 (EFSTO5)
AL2(2PSTO2)
AL2(ESLO12)
AL2 (ESLO02)
CL23"°DISK NOT
AL2 (READIN)
AL2 (SEEKO)
AL2(RDIT)
*
“
PART HO. S429686.
PACE
6} INDEXING PULSE BELOW SPEC OR HISSIRG
HEB REY TIE BELOW MIN TOLERASCE CADSED BY:
H
2)
3)
XL4° GOGCOOFF®
*
X%L4*00000000°
CL27*DISK BOT
cAL..
BRONG POLLEY.
4.1) SOHZ PULLEY =.
1.2) 60HZ PULLEY
WRONG BOTOR - SOHZ
IKDEXISG PULSE TOO
READY OR ERRORS
RECAL.
50HZ
DISK.°
*a
PULLEY ON 6082 sNmTOR?
41.517
1.260 te
KOTOE OF
-002 mca
e002 INCH
O08Z POBER
LOWS OB STUCK OF
PROG
PAGE
ID
s
5
Oa0D-2
ee
on
er a ge
Ar
es
ey
#4
ry €% es
>
wv>
eo
aoa wages io 8
RO _ BR AATINTERANCE DIAGHOSTIC PROGRAA
: a0D? DISK REVOLUTION TEST ©
> @ER LOC OBJECT CODE ADDR STMT SOURCE
¥2F7 SOC3CIDISKSBAOD9 . 825°
~ VZ2FP CSCICIDS8BROCKCS 825
1307 £25248 &25
e &26
= 0001 &27 XRi
0002 4&28 xR2
“ 0008 429 ARR
= 0010 830 TAR
O0C08 431 PSR
. 0020 432 PTIAR
0080 433 P2ITAR
QPORO &3% TARO
: 0081 435 TAR?
- 0082 &36 TAR2
008% 637 TAR3
a 0088 4838 IARS
0200 4839 SRT
0202 840 SROD
0203 #841 SIzz
” 020% 4&2 CPU
0208 4843 SBYTEO
0209 84s SBYTE
: O20A 8&5 SBYTE2
0208 4886 SBYTE3
2 020C 4&7 SBYTES
~ 020n 888 SBYTES
0212 4889 TEST
0216 450 LiNK
- O24A 851 PRINT
O21£ 852 UNPACK
“ 0222 4S3 HALT
. 0226 4854 PACK
022% 4&55 LOAD
; 0232 456 OTAB
a C800 857 LPIRAG
O87C 858 LPDATA
- CA00 4859 SPT
= OAQ1 460 PROGID
OA02 461 SPPLGS
* OA03 862 RNUA
beg CAC? 863 FRTH
OAQS 468 TABADR
- OAOA 4865 SPUDT
©: R66
867
*e 130A 4868 READIN
bal 130A 1509 4669
140A 870 TABLE?
Ps T40A WFC1 44971
x 1PC2 WFFO 472
473
" a7u
* 475
276
- 377
u7B
a73°
a 880
a 881
8B2
483
484
685
a86
887
BRB
¥eg
890
= DATE 13M AR70 O6APR70 28APR71
EC NO. 571512 571516 571565
t “ae
2Qu x*07
*Fou x* 02
*EFQU 8 z*08
*£O9 x* 30°
ZQ8 X*Oe 2
200 x¢ 20°
Boo X*49
*£08 X* 308
Egs8 x*St?
208 Xx* 82¢
EQS z2°ae
£09 K* 8ge
2948 x%*200°
£00 x* 226
Soo 2*203¢
EoD 1* 20a
*EQU z°208 °
*200 x* 209°
EQO x*20a¢
Z0u X* 2084
EOS x°20c
*rou x* 20D
*£oU xr°212¢
fou. =X* 216°
EOD x*21a
*200 X* 275°
£o08 X*222°
zou X*226
*EQouU R*22a°
Foo r* 232°
Eou Z°8O0
*Eou Xx*s87c
*Ego Z° aoa
£OU X°aO
*Eoo x°a02°¢
£00 zZ*RO 35
Eo x*ao07?
£00 x°a09
*£o0 x*ada®
EOD Ce
DS XL256
200
*ns 15 XL200
DS XL56
TREP
TRED
TREP
TREP
TREP
TREP
TREP
TR EP
TREP
TR EP
TREP
TR EP
TREP
TREP
TREP
TREP
TREP
TREP
TSMART2
571591
Tl Ee BES ORS
WOE Oe eet
ars
PART 40,
Pack
5129608
gor
pk
9m
a4
«THESE BYTES USED TO KEEP
6.3
PROG ID
PAGE
Oa 0B-2
SA
2 5 gee
fe
YBN MAINTENANCE DIAGNOSTIC PROGRAS. ~ S | oe PRET HO. 5129658 TEM MAINTENANCE DIAGHCSTIC PROGRAN - PART HO. 5129688
PAGE 6 Pace 0 Gh
A0p2 DISK REVOLOTION TEST | AOD2 DISK REVOLOTION YEST |
ne a | . tt -> >
ERR LOC OBJECT CODE ADDR STAT SOURCE STATEMENT | CROSSE RERSEMCE
rer -. FPF 891 > Ew . . i SYMBOL T LEN VALUE DEPN REPERENCES
: AEFST2 A 002 72C5S O48 0283
i ‘ AEPSIS a 002 12C3 0413 0275
i 2 AESLO2 A CO2 12C9 0416 0307
’ AFSL12 a C02 12C7 0815 0299
“r AMAXPR A CO2 OCD 0261
ss AMEDPR A 002 OCC9 0257
AMINPR A CO2 OCC1 0253
ARR c 007 0008 0829
ASTRT1 A 002 ODC9 0366
, ASTPI2 aA 002 OLTCcs 0367
ATABL1 A CC2 OBF7 0181 0115
oo AOD2 A COT CADDO 90003
a EADPIT A O08 OAEF 0089 0078 ; .
as 4 RITCHK A CO2 Oac2 OOR6 0039* 0080 0042 0079* DUucd 0388* 9345 9387
bs : EYTOK A CC&’ OBC3 CC9O9 0082
as BUMP? A CC& ORDA 0186 0183 018% 0156
bey CALDSK A 027 13209 0425 0063 : os fae
e CHRAIT A COZ O8CS 0167 0152* 0153 oa 5
: CKDISK A803 OAAE 0C79 0073* 0359 ,
‘ COMPHI A 006 OCD2 0260 |
a COMELO A 006 OD18 0288 0265
i CCONT A&A 002 OCBFS 0180
CFS C 001 0204 O44?
DAR A CO2 1282 0418 0035 0340
CECFIL A CCB OBBD 01€8 0176 0117 0208
DECOt a CO? OceD 0238 0225 0236
DISKA A 012 ODD? 0368 0030
DISKB A 012 ODE3. 0369 0335
DISK? A 003 Cacc C018 0025
DISK2 aA 003 OAOP 0015 0328
DIV A OC6 OC7A 0238 0237
DIVIDE A 006 0C74 0232
DIVISR A 002 OCRF 0239 0117* €6123* 0232 0234
DRESET A001 CBED 0176 0189 01892
DUMNY aA 0C3 OBAF 0156 0155
, S DOT0C A COS OFO9 0390 0122 0123 0232
D3080 aA 008 O8C1 O16€ 0208
# EDLY A 006 O0C96 024% 0235
: . ECI¥? aA CC6 CC90 02489 0233
EDMASK A CO? ODFA 0371 0231 02462 02483
: EFSTO1 A 050 11C5 04805 0269
r . ZPSTO2 a 050 11F7? 04806 0278 0418
EPSTO3 A OSC 1229 04807
EYSTOS a 050 1258 G808
EPSTOS A 050 128D 0899 0813
EFSTOE A 050 12R2F 04810 0282
EIGHT A OG2 OBF2 0779
‘ ESLOO1 A 050 OF3B 0391 0293
ESLOO2 A 050 OF6D 0392 0298 04816
: 2 ESLOO3 A 050 OFOP 0393
. FSLOOS A 050 OFD1I 0398
ESLOCS A C50) «1003 0395
" ESLOO6 A059 103 0366
‘ 7 B2SLO07 A 050 1067 0397
ESLOO8 A 050 1099 0398
‘ e ESLOC9 aA 050 10CB 0399
t - ESLO10 A 0SO0 TOFD Oaco
ESLO1?1 A 059 112F C402
| ESLO12 A 05) 1161 04802 04815
ESLO13 A 050 1193 0uC03 0306
ETAEL1 A 002 CBF9 0182 0115* 0121* 01498
. : PETN C001 OAO? 0863
EE” : PSTALT A CCH ODCE 0285
PSTPRTt A CO2 OCEC 02748 0275 0277* 0283
FSTPR1 A 00G OCDB 02€6
| PSTPR2 AGO’ OCES 0271 0278
i . :
;. DATE 138AR70 O6APR70 28APR71 1S MARTZ PROG ID OAOD-2 ~ : CATE 13RAK70 O6APR70 28APR71 TS BAR72 P3206 ID OACD~-2
t EC NO. 571512 571516 571565 571591 PAGE 6 BC nO. 571512 571516 571565 571591 PAGE |
fo
eer a a aed
TBH AAINTENANCE DIAGHCSTIC. PROGBAL , ‘ a ‘ PART HO. 5129698 TBS RAINTPNANCE DIAGNCSTIC PROGRAN PAST 40. 5139688
: : ; ' PaGE 7 5 PaGE 7a
teat | eye eevecanven ater | agD? DISK REVOLUTION TPEST
, CROSS-REPER ENCE ; he CROSS-REPER ENCE
SYNPOL T LEN VALUE DE?R REFERENCES ™ $, “ SYMBOL fT LEN VALUE DEFNW REFERENCES
FSTPR3 A 0O& ODCO 0279 0276 SBYTE? C 0071 0299 oCaugy
GOCALC A 008 OFFA 0188 0189 Z SBYTF2 C COT O20K O885
Goon A O0C& 0871 0105 07100 ; SBYTE3 C 0014 0208 cans 0023 9326
6Caw2 & 004 0879 0137 0130 SBYTEY C 007 O020C Gua?
GOON3 A OC& OBBI O148 0136 SBYTF5 C 00% O20D oOnas
HALT C001 0222 0253 0056 0665 009% 06111 0285 0309 SEEKD? A 008 Cau? 0039 00481
TAR C 001 0010 0430 SEEFKDZ2 A O08 OnSS O368 0386
TARO C001 OOBO 0434 ; : SEEKO A001 F2E7 0427 0819
IARI C 007 0081 0835 > SETRUS A&A COG CRNZ 0421 04719 9127
1hkR2 CC 007 0082 0436 SIZE C 00? 6203 9487
TAR3 €¢ 001 OO88 04837 SLOHLT 2 008 ODS? 0309
Taru ¢ 001 0088 C438 SLOPRT A 002 OD2F 0298 0299 0301*% 0307%
KORT2 A 006 0036 0217 02172 SLOPRT A CO&’ ONIE 9290 ; 2 wpa a
RONT3 A O06 CCHE 0222 0219 d é SLOPR2 A 00&8 GD28 0295 0302
KONTY A O06 OCSD 0225 0221 0223 SLOPR3 A 008 OD83 0303 0300
KOOWT A 002 OACO 0065 0076* 0077% SmOD C904 0202 HRO
LINK C O0OT 0216 O850 C028 0026 0289 0312 SPFLGS C 001 OAD2 O861
Loab = C.:«COF «©0220 «20455 330 SPT C 001 OA00 0859
LOOP? A 008 OAA? 0077 0081 SPUDT C CO? OAOR 04865
Loop2 a 006 OcoB 0204 0226 SRT c C041 0200 04839
LoopP3 a 00S 0C771 0206 0209 START? A 00M CA97 0072 0948 0070 0071 0072 035% 0355 0358 0366
LPDATA C 007 Of7C 04858 START2 A 0O4 ODBB 0358 0367
LPINAG C 0617 0800 0857 SWCISK A 003 OPA? 0152 CO78+ 0360«
MAXMSK A 042 OFPS 03834 026% 0288 SWSET1 A GO2 OFOS 0389 0121
HAXMNS? A 018 OF82 0382 SB7SKP A CO6 0B25 07115 0102
BAXNS2 A 007 OF89 0383 0243* 0246" 0288 TABADR C CO1 OA09 04648
MAXVAL A OC8 OpBcD 0169 0214* 0222 0228* 0246 TAELET A COT 140A Cu70 0785 0181 0190
HEDMSK A 083 OEF74 0381 0257 TEST C004 0212 0489
MEDNS7 A O18 OFW2 0379 TESTA7T A 904 OATH 0023 0068
REDNS2 A CO? OFS 0380 O282% 0225*# : , TESTAZ2 A 008 ODSF 0326 0067
SEDVAL & COS OBEC 0175 0230* 0231 0231%* 0236* 0200% 0285 TESTE1 A COW OA2C 0031
MIYNSK A 083° 0£34 0378 0253 0268 : ane TESTB2 & 008 CD7A 0336
WINNS? A O18 OFO2 0376 ; = TESTO? A CBU OFOI 0387 0708
MIRNS2 A OC? O809 0377 O0281* O24N4" 02645 SOTREV A OO&8 OEFDS 0386 0476* 0422% 013% 01460 0225
BIRVAL A 008 OBDS 0171 0213* 02168 0220* 0244 fe TOTRET A 029 OFD? 0385
“ NTRDY? A O08 CAREC 0051 0034 0087 0339 9352 mt TOTVAL A 072 OBF3 0173 02717* 0238* 0280
BUMREVY A OOU OB65 0129 0725 TSTEIT A OOH OBSPF 015% 0758
OXCE A 003 0C23 0212 0188* 0207 0215% ~ z THO A 002 OPFBS 0163 0186 6150
OKE A 002 OFB3 0162 0126 0151 0206 = UNPACK € 00% 927E 04852
PACK C 00% 0226 osa UTAB C007 0232 0856
PNTRDY A 023 12E0 0817 0058 - 2 FORK R GOB OpF2 0374 C1OT* CITES 0716 07120* 0126 0126 0208% 0208% 02173 0276 0217 0218
PRINT COO7 O21A 0857 0027 0051 0060 0069 0105 ©6131 0137 90250 0254 0258 0266 0273 > 0220 0222 6224
0279 0290 0295 0303 0332 yAO9O A 002 OFO3 0368
ERINT? A O84 OAFE 0087 0092 - : IDGFP a OGC2 OABC 0083 0076
PROGID C CO1 OB07 0460 a rR Cc 00%? ©0911 O827 CO7O 0145* 0146% 0197 O50 O57 O190% 0295 0205* 0206 6358
PSR Cc 007 0004 0437 XR2 C 081 0002 0428 0072 0076 C076 0077 9077 0079 0080 0143 6188* 0150 015% 0152
PIIAR C 007 0020 0432 * = 0153 015% 6156 0355
P2IaR C0071 CO4d 04833 * * 1CCO1 A 002 OABSE 0088 0077
RBOST1 A O0&@ OA61 90486 0086 ¥0032 a 002 ‘12C1 0412 0277 0301
RBOUSY2 A 008 ODBO 0351 0351 £ : ECC35 & 002 ODFS 0375
RD A 002 12E6 0820 ° 0088 03489
RDIT 8 00% 12FB 0423 0037* 0336* 0420 TOTAL STATEMENTS FLASGED IN THIS ASSESBLY = 0
READIN A 001 130A 0468 0418 ¢ .
RECAL? A OO& OAT7F 0060 0083 03488
RECL A 002 1254 0419 0036 0341
RETBR A O08 OABP C067 0032* 0058 0337% 2 =
RETRY A 00% OAA3 0076 0096 0361 © :
RETRY2 A 008 OD72 0332 0329
RUM C 001 Oa03 0462 ie
RTNOY A 001 OA10 0019 0012 :
BTNO2 A001 OD5B 0218 0021
SAVXR1 A 002 OBEF 0177 0147* 0148 -
SAVXR2Z A 002 ORF1 0178 @
SBOSY1 A COG OAS3 0038 0038
SEBUSY2 A 008 0D91 03483 0343 ins
SBYTEC C 001 0208 0843 0099 0129 ~
LATE 13M AR70 O6APR70 2BAPRT1 IS MAR72 PROG ID OAOD-2 _ DATE TIRARTO O6APR70 28APR71 TSMART2 PROG ID oa0D-2
2C WO. 571512 571516 571565 571591 PAGE 7 EC NO. 571512 571516 571565 571591 PAGE 7A
Gy
‘
Ego e ade Nae gs mesg Ng ea agate 2, PRE etn ek Bey ee « OFS Brae aps oie 3
aaa Sige
eo Rl
walt
“ape aaTerevseer ouachestze precnas peer wo. SOE SSIUINEIMCE DEAOROSYM. PCOUERE a
- 5129608
PAGE a ee
aen2. DISK. REVOLUTION TE | &OB2 ce) Neen eae:
¥
‘
'
i
;
b
¥
I
t
i:
RTI eran
RE CHARACTER
OBJECT CARD LISTING
INDICATES A BLANK COLUSHE aND THE CHARACTERS DE H TEDICATE RUHERIC SHIPT.
*cL 3 THROUGH 76 CL 17 THROUGH 32 CL 33 THROUGE SB CL 89 THROUGH 64 CL 65 THROUGH 8O CL 8% THRONGE 4s
oe se
“Pe-viv(a 6 Bye
te~ZSSvFHRDPL YY C
%<e-DooN* BHEC=aTe
‘te~, > -DOX BZ°E
‘$4-S05%2 SOn* BPEG
+-_/B°U.*00CC_4
te->e 6 E+ Date
Te-?P Ki> EDDRH<
Y+-OK2ICO# |COaIC
T+-1( E>3OTERAUC
T+~2HCE* (B~? (3-6
T +-3COR* <5 7GCBE0
T+-3= s/YAS 9a0Hn
*€+-099"BG /DP</E
Te-58 sU2DIG ou
T+-62F-D<C <a A,
T+-7D0SH (%CFOBE3
Ege
Te-9-=n70° 4A 5<X
T-: 5569 @{ LOK"C
Te—-#€0 3} XA5* 2 ESOC
DATE
Ec NO.
T3NAR7O
§71572
ey: tek | . | : | a |
en ~ 22 ©
& D CNR
ner
AY-ZC<BUEHOT-E 3B.
£08*BPEOSDOR~2+B
GREL™ D
”
2yP
na>:-seBe' si-sen
o> 60 ACH. >E44 Cm.
SceEG /ZPHseNrtx
#> -:82 Cay* 6H
O2{ CO2ECOarCoayC
(a-PA0HH<D~E D0
FC *, 367243 +562
sscoseere was
BP-B €,6(A~B8ICS,
ae enn eonceess
romesrvozDRCc" 38
>yHsRucroswot_a.
B ODP{ .<H,y323B:4
" ()LISHCRI;§ 68x
ina eee
O@DCM2) 112; E057
0° { A.=-S0E (LIG* |
OGAPR70
5371516
2ERPRFI
S7T1565
8 -H.0a BET--8-?
= oe Os i 7
D ZGeD HOPREILF
. - . 2
G SH-a*B CH” 07
Biz) O“XTS<TABUC
GBD<6 EnBaZ Ct
28 6 72C-D.=6a
2/0T /OHEASD+5*5
ane ea
BD ?PEOaICIALL
@eenroawvaen cae e
EE) 5B zz Y
GB*Q{ 2-06B85 (aT2
{ 0 DCEC3OB=0<A-7
PCOU (2~OFCTS (2-7
2 Tx sOHEZOLAIIES
OCEQ+SE:DO EBERE
7DRE /OHSTIP /GB
SCSOKS4+0 <F2CRD
/ODTBZ*(><LIB_ I
eeeen eveance
NIP9 BC
EQNCT2) LE=B
BOs} E*PVEeP IS<H
ISKPCP) PUS<. ZENE
tSmag72
571594
= e
G HCOR*RF-D5<C} &
D>S IVECRY-Z/0E
HO~< BY IZTRDSaTO>
NS> ( O)-=P19GR IA
(@?HGE<2S 726. @
Ea~< e5502k-D<TOS
BB8XB JSP(-D._LE
Ga"cse coaic
se
C2 cREe<ro?%e=7
GCESFIOPTC=H (207
+B=0 { 62}C0~2-30
FC-0.S YFCDu.? Y
O0 Re BPYDZD—* { G2
& fe S<~@SYIP fog
G -C®®3-A -?25
O%-,B+a HOR SCRH
eo
T(XIG*N @°LIS 1
M2) 4223. EGS (5KX
& (L1e* 4¢1see
=& R 5<X
OVWCR Is POR=LE2} $
«
@ Aw>GH HUCE~BRO
BSSHGH@RG 7, FEI.
G, DZIESAHK~2 UDF
“Me aacssucuse.
ATEZ OBST) 00 7
G18 (a7HAs-a C~H
AB=a¢ G772B"X ~57
oajc oa; coarcoajc
8 J6HC *(a->¢a-D
28°S2 -U<A020C-.
GOS2~CH"2aACP* ?
FCYU.208G /¥AE 8
KDR{ 2-EY¢ &3BDEG
E-LS] SESACKAKI°R
8H Yeay EQH*BE-C
8& , BOI H+3F6D>$
"4 (xr98N as -HDS
NE ¢}O4@PRO) PCIPS
CED7#5_%80) { 8_-
L&3xS1%( Lp) LASeC
2
WZAH ~T-A0D2000%
-¥e8 STQkODZ2G002
OY2% RENADDZ00DS
20*Q 2.” acn20008
2c bp 7e<avn2ce0$
-%a 0, 820020005
2S B *h~agnz200907
Sa} iLZ-a0D20908
BLOD 7RDAOD200G9
2/02 02*29520010
SCHS -.SA0D20013
SOk* Z. DAOD20012
700 0E880n20033
aB~S 9A A0DZ0978
708 &.*kGD20075
a2e
386 POS HaCE20076
—-HB SD 80D200 17
Bi< WH R2OB20078
Et*& RSDAGDZOOT9
TS_< 9QDR0D20020
HSUCT2)LEIG9 GDA 6&¢H )8HA0D20021
PROS IB @a0D-2
PAGE 8
es
£5
e%
eD
@
es
#%
es
eR
ee
¢
o
a
ry
9
es
ny
3
)
ey
¢
EC HO.
CL 4 THRODEH
T4-dI 1) 4 FO=( Bat
Te~*<OBCRISH Bax
Te-=G65%) OEPLBGA
TO-PEETA GEA EDA
ay. poe
T+-"*EDA EBA EDA
Tes RETA ELA PE
Fe sAIPET EDR EHC
T+/B> 1*8 FO=} 19H
TesOTWis soE1S024¥
Te/DOAN252~) LBA
LOsEWK"COSOCIS SY
T+ /PPONA*EEVSPDA
T+/GN2)N OTPRE*]
T+ HEE (08 SP ESD
Te/To tse CIR
T+ /HFOILRFOLA. BIC
Te/. AE (+OORPREEY
Tes. alvad* VE/C67
TCACIE (ZEOCBCLKUC
HPSVSR*H S¢ SSK A SS
2 SELECT TRE NOS
* YAEN HALT -P9-
BaTE TIMARIO
$77151712
te
‘CL $7 THROUGH 32
eeqpast.eenceiec
HIHCAO_SYTACRO:)
Mere cae eon bas
“EDR BER EA EDA
GES ELA PEPE
*fPE? SLA EDCIK® {
283) £4, P2) Pbuan |
2.
S{ STS_¥ SDA EDA
S=LLSaPye (SuSTP
K°COZUCIS*}HEDA
HELTA*PEIFEDR E48
& TR} ECAR I< PX 2) P
IS<e CHELSSE SCE
a
MCU ACESLELISS
TORRCODA. SICZECR
2E<EROG/ EL2APEi
s
*PEYSEDER B55 25P
D23.KE (POBLCRIFG
eeoe ove © 8&0
B23. KKO
SHSEHSCSORHSRSVSERAaKK ES
BER OF REYOLUTIO
- OBJECT CARD LISTIZG | ica oe
CL 33 THROUGH sg CL 89 THROGEH 64
RT; POS=<LT 2) SNAOC
»
es 2
EDA EBA ERA GDA
. &DA PEPE GDA _.
EDA EMCIK"IVE<R
F&CRASH+.HOFETE (~
S=LL@@PYEDA EDA
ED& EDA GEDA EDA
O2¢8 SESTS_VePEt
®PEI*PDA EDA £43
}68SR5_PGE (LOSS
GE (~08=. EGC. EAS
HG¢? O8M@PBO} PCIBC
S_M *PCHSHCHS>{
SOG/ SEI*PEV*EDE
EDR a¥S 9_KO5%).
Dig ~IS*} S=LLEaK
D2 DCGORCES) FObS<
enmeveeetcoweovean
SECSHSSARMAEYRKSEHE SBR
HS TO BSE TIRED O
DISPLAYED. RESE T HALT AFTER SEL
OGAPR7O ZEAPR7 1 TSHA&B72
571865 S73591
$71576
S*SLipX eset BEC]
TSHCBIRCT 2) LETHB
2+. BTDCBGZ PE
PEYPLI SDCZPRC
EDCZRME).6.(LO8* 5
DUSPRE (-08* FE2DA
U0* SES DA GDA GDA
“gpa EDA EDA EDA
e
GDA EDKR*EETE RDA
*PDA EDA 643.a%5
.a¥S *2CH=ENCPSE}
REPA © 2CHIBCES }
W6e. PIs SV SK<z
COz;LS1*%3 0>/:6E1
068 1*PE1S6DA EDA
2
GEDA @kt2Pscéha<ct
S{ ST5_¥ opcSa<t
Cd ©
6*SGE (10S*) 5_¥
BD>*K:0 8642
eeeoee DOS BHBPOH OG
BHEKKHLRTSESRSRES RS
H TEE THO RIGETH
ECTING THE RUABE
C2 65 THRGUSE 88
& <TO@CO PEM PEI
ePEY SDCIPHCS&Bx
¥5_X95<. BO) LISe
_RSDA EDA EDR SBA
“SDA EDA BDA GDA
“gpa EDA SDA EDA
“gs pAePEIsPDA &4{
” 64.3) 6¢S8S_ POs f+
* eCH BCP (b13/
Lig/ ~DCIK*. 6aDa
OS HCOSACS&<TZE { ~
SBEN1GA GEVSPEI
*PEISEDA HS 9_¥
” aa? IPRCSAaCEZE (~
ZE(~O8® | Es DA=SYE
Z& (LOB *SRE(SBEjS
“g>ju0er S_B BDA
1<K¥SGOCNS>( 036
ee cexose Gown eoneae 8 @
KSESSESSSRE SCH PRE
OST ADDEESS Sit
R OF REVOLUTIONS
PROG ID
S<D PeOA0N20022
PSag ) -<agp20023
SED 4&:<a0n20025 _
- BB #3< 30020025
“sp’” augaon20026
seen acuasasenz? "
}o<6 mesaan200z8 ¥|
uot<” apaaonze0z3
~B %, SA0D20026
*0D G68620D20037
O95" 8B agp2003z
os (6” *eun0e 20039
oS** 9co40D20635
as¢< 62 30D20035
-870 Jz*40D20026
soi eiateoasy.
”" cH geya0p20033
LEU ;2-20020029
os" GL eR eR2 9888
oes he RECA OD 20884
CHES*8C BA0 D20G42 -
7O *8DRA0D20043
PAGE ak
i yt
eatb-2
de,
s
&
.
feel
Re
38304
. we
a
thes
ae
IBS MATHTENANCE DIAGNOSTIC PROGEAR
4002 DISK REVOLUTION TEST
CL 1 THROUGH 16
* BE TIMED. THE
SOO 4S 93S 49S4SBE
o 2eeeo ee
2 DATA xX NU
=
* swITch I OF
@ eee eas
* ERTRY I TE
Raw we eo ww www} ome
eo ee@8
® 00-01 I
eeeve eessd @eeee
eaeoe eeee eaoee0e
+ 063 I
aaene eeaee see
* o8 I
@eoee eevee seense
* 05 Tt
* 06 I
eevee eeee eeee
* 07 tT
* os I
BOOS EESESESEEBD
EReeeE7e=-DC"PHS
OCP OO Oe ee OOP OO Bw e@wwew
DATE 138AR70
EC HO. 571512
CL 17 THROUGH 32
DEFAGLT IS TININ
osetouseseaeeses
.
SBSER I APPROXIA
REY <= TO COnP
STED f caLco
ee re ww GF ere eee ee
100
200 I
eee Beeeoevv es
300 I
=ses eeeetcesnne
900 I
een swoeaeoc# © Be
500 I
OBJECT CARD LISTING
CL 33 I#ROUGH 48
G6 100 REVOLUTION
FRESE CITERERTE ED
ATE TIRE * DAT
LETE THE * Sui
ee2eeo eons
LATION = ENT
ee ee ew ae cee cree caw ene ope OE ee ae oe os eae
° ae eee
12 SEC * 0
eens @aenee
25 SEC * 9
= ees eseeoe
36 SEC * 0
eee eaee
88 SEC * 0
59 SEC * Q
TCH I OF REY.
CL &9 THROUGE 646
ceveateueesonenn
‘Se
SKOSTSE FRERSTEVVZS
222s cf oe
A I NOSBER
see
RY I TESTED
9 I 900
A I 1000
@eeeeoe ees
B 1 19160
c I 1200
eece eee
D I 1300
Serene
3
Pant 90. $429668—
9
PAGE .
CL 65 THROUGH 86
@easeeaeoeveeave2eeeaneea
STOR OVVRSESSSKSESBS
I APPROXIMATE T
I TO COSPLETZ T
I CALCULATION
Sr eceerewoore eee ew ae
I 1 sie
"43 se
ry aw 55 se
I 2 RIN 06 SE
I. 2 aI 17 SE
I 2818 28 SE
CL 81 THROUGH 96
eoue
* SC @A OD2 3088
€$eeepE¢a OD 20085 .
IRE *PELADD200456
HE 4*P6AA OD20087
eeeo-
*PGYa0D20046
~--- © PEZA0D20089
ae
c *PASA0D20650
Cc *7LOAOD20051
c * 7C%a 6D20052
c *&%1L0A0D20053
c *6L040D20056
600. x 1 arm “a0 sec. * 0 er 1800 I 2 #IN 39 SE Cc ©Resa0D20055
700. I +1 arn “21 sec * 0 Pr 1500 I. 2 IN 50 SE C *ssHaop20056
g00. I 1 AaTN "32 sec. * 10- PF i DEFAULT - “ONLY TIME 100 F BY *6.040020057
SCORES OSHSERESSTA KECKSSTARESEETEES SHELEREKSESSTERESS SEES EKEEEREEESEE seeesp YA0D20058
="7NEF} fC "yn asc) oR A so go "99110501700 805723¢HA0D20059
wort rn nn nn nn nn e LAST PAGE --------------------~-------------~-------------
OGAPRT70 28APR71 1SHAR72 PROG ED Oa0D-2
571516 571565 571591
PAGE 9
€
eel .
an
x
Re ae oe ernie eee nment eens on
i Aha Sy
son bates Sat ee clad
we eee tapes Time cel is ee ee we a ee i ies Sie Mae NAT ke
te
t.
bn
im
f
t
es
bs
£
t.
fb
i
‘
t
Q
§
1
b
i
t
4
{
t
t
rs ee See wh ~ 0 e ~ te tS ee ren ae ee et pelt nse a Ake we Tete se te tee Ta ta Baw has Har ERE gb oe ee ae
aicivaiinedeaiienteierimcmnieiead mesg aaron Oe aca ai iaey Here Pal Fae ut
Boe oe i agte 3 ; oie. : @
“. YB BAIRTERARCE DIAGHOSTIC PROGRAS ‘Pant HO. 5129686 EIB SALHTERANCE DIAGHOSTIC PROGRAA PART 480. $129646
BO33 S848 IPL TEST ae - BO33 5848 IPL TEST
_ EBR.LOC OBJECT Core ACDS STHT SOURCE STATERELT 8 6 ‘ERB LOC OBJECT CODE . ADDR ST#HT SOURCE STATESEET 9
aie 2 Deck & | e 9 Oa60 37 AS 15CD 76 Lz0 BEAD, X* as* LOAD DATA ADDRESS REGISTER. . aS
-~ 000 3 DISK START 0 0a64 F3 At 00 7% RDSIO SIO X°00* ,x*at* BEAD DATA Feoa SEecroOR 00.
. 0200 & oRG =x*a00¢ - . | 0a67 C1 A2 0867 72 TI0 *,X*a2¢ LOOP TILL BUSY DROPS.
e 5 Seeeseceeseeceseeseseseeesessecsseeeseseaeneesesecesessescesseseesesess e i OaA6B C1 ad GDB56 73 710 BTRDYA,E°A0® | BRASCH CUT ZP DISK DRIVE-% BCT READY a
6 * 10/06/71 LAST UPDATE s =) JU 9896800680886 005 0994S 0S S98 OOTEEO ES CEOSOOCEOSESES SS OSSECESSOSSESERESES e
7 FOR er EOOOhS OSCE EES ESESSS OSE SE EE SEES SEREE TES SENSEEEHESEECEESELOOSEEESES 35 8 PRINT LIST OF OPERATOR IESTROCTIONS. e
8 DISK IPL FORMAT CHECK — * ; 76 C2SSSSSSEOESOSS 99099998 04 OC 9OOSO9SE SOOO OO SSOOS SSS SEOSEDG 9 SEOSSESSESES
9 FHOCERSEERESEEESESEES POSSESS 9864 OF $9 FFS66 FE 3E888FEE4SE8 SESS EEETE SEEDED 6 8 : OaSP 38 O8 Ga~ASS 77? SBE RDSI0e1, 2°08* PIZZD DISK SELECTED? 3
10 ¢ SECTION BO3 POUTINE O01 * 0473 F2 10 09 78 Jt e12 J0a? IP SO.
41 FSFE FE SOSHESSSETESD EHSESOSHSESE SE EES IESSHESEOTE SS SS OELSEKSEEESESESHESSEEETSE OA7T6 Oc OD OPSD 1065 73 BYC STIPL(38) ~ Bav SET UP RESOVABLE DISK SRADIBG. f
42 ¢ SECTION PREPACE « © & OAIC P2 87 06 80 3: 209 ; | gh 3
43 Seseeesssreresesesceeseegese soseseuceetecesessseRecesasessauesseseEsess : OATP OC OD OFSD OFF? Bt BYC STIPL(%S) , FIZ SET PIXELS OISK HAAStsec.
0a00 8033 9a07 o4 pc XYL2°BO33* PROGRAA ID AWD REVISION LEVEL © oO ‘OA85 C2 Of OED 62 LA 1uSt,xa1 SITGRE SESSACR ADDRESS. *,
Ga02 00 0a02 95 | pc ZLi#G00* SECTIOB FLAGS Oass 3c 09 15C7 83 avy TEnP,9 SEX LOOP CousT TO 9. sa
0x03 01 0a03 8 16 bc XLiSO1? CURRENT ROUTINE HUSBER OABD 38 01 0A98 8a EXTas sf CRmzes x21 STORE CORREST BESSACE ADDRESS. é
OAO# 0000 02805 47 Bc x%L2* 0000 RESERVED G o OAS1 CO 87 O2Z1A 85 8 PRIT , PRIST CORBET BESSACE. “
OAC6 OAOD CA07 = 18 DC AL2 (RT NO 1) FIRST ROUTIBE ADDRESS 0a95 02 0a9S)~—s«86 pe ZL9*02° ad
aos 0000 0a09 49 pc XL2* C0008 RESEBYED 0aS6 23 0a9é0 87 De IL9° 38°
oada 205000 os0c }8=620 AUDT.=o=ss WC 2L3*205000° SECTION PREFACE UDT TABLE © 6 0a97 0000 0a98 4688 CRAES PC AL2 (es) ~
_ 21 FOCSeSEO SESE SSSESEESESS ESE SESS OS DESSE SESE SE SESES ESE DESSESOSESESESESES CA99 D2 01 23 89 La 35 (, R12), EB1 BUSP UP SESSACE POLBTER. ‘ad
22 # PROGRAN HOTZES s Oasc OF 00 15C7 15D3 90 SL¢c TEMP (1), #OCT DECREREST LooP COCUST.
22. FHERESSESSEEDESEEE SO OSSESEDS 89O8OSSS OESESSESS SHCSSSESESEOSESESEBSESEREE e lo OAA2 CO 8&8 OASD 91 BP SITES CONT IBok Loor TILL ALL DOs. ™
24 * - * 7 : 92 -
25 * PROGRAM CONTAIYS ONLY CHE SOUTINE. THIS SOUTINE IS USED THRICE, s Oak6 CO 87 O2TA 93 8 Pal eT SPACE UP Ta8 Pa? 88.
26 * ONCE PER EACH DISK OW SPINDLE 1. THIS PROGRAM CHECKS THAT THE * OAAA 16 OAAA 98 oc ZL 1° 46°
27 ¢ IPL DATA LOADED BY PROGRAMS LOAD IS THE SAME AS IS READ BY A 3 0 o- 95 SOCOESOOEO CHOSE 0 OHSS OOSSOEESODEDOOODECOOOEOE OOCDOCEEEOSSSODSOSSORSESOES 3
28 * READ COMMMAND. s 96 ¢ of8D THE DISK HEADS TO TRACK 5O TC arb XU CURBCKIOG TEE .
.29 * * 97 THZ MECHAPFICS OF THE IPL PROCESS. es.
3) 986450929 SSSSSSESSEOSSERERESHEOSSES OS SESE SEOEL SES SE SHESESSESS ESSE SESEESS 9 | ° 98 pbcddedsccceccccccnse cts cadeseasserccacpensecewecscsskscecs ciseebessse.O
31 =< i OAaB 31 a& 45CD . $9 LIo0 BEAD, xX* aa? LOAD TRE DATA ADDEESS REGISTER.
32 t#¢82¢889 | ° OaaPr 37 a6 15D5 700 © LI0 OUT, 3%*:6* LOAD TRL COBTROL RRGCISTER.
*33 * RTNOt ¢ , 6 pe 0aB3 P3 a0 00 101 S10 X00, z°a0* | vO A SEEK START IYO COsgRAgS. »
34 FEKETE SESEEEESEESSESSESESEETS SEEDS SE SECOS OSS SESE OOS OS ESERESESESSEESESEE uP OAB6 Oc 7F 185F OOFPF 102 svc - DCP (128) ,255 SAVE pOTTORS COPE.
35 ¢ * | . OaBC OC 7P 13DF 007F 103 BYC DCP-126 (128) , 127 ~
36 * ROUTINE 01 FROGRAS READS SECTOR 0 OP “TRACK O PROM BSCTH © | ° Oac2 3c #P OOFP 108 ‘BVI 255, 5 'PPr* LOAD BOTTOS CORE BITA PF*S, 06'S - %
37 * THE FIXZD AND REMOVABLE DISKS. THe PORSAT s i Oacé OC FE OOFE COFP 105 arc 258 (255) .255
38 ¢ IS CHECKED FOR THE CORRECT IPL PROGRAS FOR s o ! ° Oacc 3c CO O07F 106 SvZz 127,2°00°* ™,
‘39 © EACB DISK. s : OabDO OC 7B OO7E OO7P 107 Bvc 126 (127) 127 af
4O ® * I QADé Cc 03 0003 15D9 108 STSOP NYC 3 (4), S2uCce STORE BRASCH IS VERY BOTTOS.
: 41 ooo eeeeeseseesesessneseecs oeceeeesceeesecesecocceseccesecosoocoessesese OaDC OC FF 155F OOFP 109 ave CHECK (256) ,255 .
OAOD 01 oa0D «82 BTHOT DC IL1°018 ROUTIVE BUABER o oO OAE2 CO 87 0222 110 8 ALT INLINE BALT -3C-. J
OaOR 80 OAOE 43 BC X1L1°80°8 AAWOLL INTERVENTION ree OAE6 acEc OaE? 111 oc XL2°aOsC?
*OAO?F FFFP 0a10 84 oc XL2°*FPFP® LAST ROUTINE OaEs CO 87 ODE W412. B STAaAUP ' GO REPEAT AESSACRS. ry
OaAT1 OC SA 155A. 15BB a5 aYvc PET (91) , P&T41 CLEAR PRIET ARZA. o 9 ocoo 143 ORG x*0c 00° ~
OA17 CO 87 O21A a6 B PRIEST - PRINT TEST HEADING. 114 099800000000005 00000609 S8 00S COOSSO SS CORES OESEEOOSSSESSEOSESOSEESSEENSS
OaiB 46 Oats a7 DC XL1°a6* ID -AGE0-. 115 © OPZRATOR MUST DIAL I8 -OCO0- TO START RONNIEG THE PRIGRAS. °. .
oar1c 13 caic 88 pc I11*179°8 ° ° 116 9008000086060 0 0008000048 98S OSS OSS HOSOSESSESSOESSOOHSS OSS SSSSSESSSSESS oS
OAic 115¢f OAlz 489 cc AL2(IPLBD) _ 0C0d OC 7P 135” OCFP 419 aYC CCDE (128) ,255 SAVE THE XPL CoDs.
OatP ad£z0 0a20 50 pc X12* a0 £O* “°90C06 OC 7PF 32DP OO7F 118 BIC CODE- 128(128) ,127 iat 3
(51 08000 s0000ses0eesenes0eesese esses es eoeee ee seseseleeseeseeeeneeseeesees 0 Oo OcoOCc OD BF 7355P OOFF 119 cic CSECK (256) ,255 DID ANY DATA GET TRANSFERRED ?
52. ® BRECALIBRATE DISK DRIVE 1 e 0c12 CG 81 OD3C 420 BSE NOPS BRANCH IP NOT.
; SJ FSSSHSSSESESESESSSOHSHS SES OSEST OHSS SOHSSSOHSS OSH OSSSOHESSSSTHH HS SOSS HOSES SS O0C1& OD 7? OOFF 125P 421 cLc 255 (128) ,READINC255 IPL CORE CORRESPOBD TO BEAD Data ? “,
Oa21 38 O8 O0a65 58 BPGIN SBF BDSI0¢4,x%°08* S£T READ POR BEROVABLE DISK. 6 ° ocic co GT OC9D 422 BRE ROPE BRANCH IF SOT. sa
OA25 38 068 OA3E 55 SSP SK0001,xK°08* O0C20 OD 7F CO7VF 14DP 423 cLe 127 (128) READING 127
OA29 3C FP SBP 56 RDNIT RVI CRTBLO3,X°RR* SEI CONTROL PIZLD FOR RECALIBRATE. © Co 0C26 CO Of OC9D 124 BRE BOPE ERANCH IP sOT. a
OA2c c1 AO ODS6 $7 TIO BTEDIA,X*A0* FRANCH IP DISK DRIVE-% WOT READY Oc2a OC 7F OOFP 1857 125 AVC 255 (128) ,DCP RESTORE DCP. ~
OA32 CT a2 0OD28 58 TIO BSYCK,X*A2* £EANCH IP DISK DEIVEZ-1 IS BUSY , O0C430 OC JF VOTF 13DF 126 svc 127 (128) ,BCP-128
Oa35 31 a8 35CD 59. LI0 READ, X*au® LOAD DATA ADDRESS REGISTER. oO oO 0C36 38 10 0208 127 TBE SBYTE3,SS#1B SS¥ 1B SET ? 2
9239 31 a6 I5SCP - 60 LIG cc#,zx*a6°* LOAD DISK CONTROL REGISTER. OC3A P2 10 07 128 JT 2410 JUAP IP SO.
GCA3D F3 ad 00 61 SKOO s1o x*00°,x*ag° ISSOZ SIO TO RECALI BRATE. i 0C3B 3c 06 OCS2 129 eYT UP,X*°06° SET SPACE UP FoR 6 LINES.
Oasud0 30 Az 15C1 62 SHSIT SHES STSBY1,X*A2* SENSE STATUS BYTE 1. 0781 F2 87 08 130 J se7
*OAe@ 38 10 15C1 63 Tee STSBY1,xX°10¢ SZEK BUSY BIT OB ? o 8 0C88 3c 02 0CS2 131 BYI UP, x*02° _ SET SPACE UP FOR 2 LINES. =
Oase. co 10 OAsud 64 BT SaSIT CONTINUE LOOP IP SO. Ocas OC OF 1118 OFSD 132 ayc OKIPL (15) -STIPL STORE DISK ID.
Oasc 38 80 15C1 65 TB STSBY1,xX*°80* CYLIUDER O BIT OB ? : -Ocse CO 87 O21A 133 - B PRINT PRIST IPL DATA OK. ok
_-Ga50 cC 90 OCB9. 66 BP CYLCK ; EBANCH OUT IT BOT. o O. 0cS2 00 O0c52 1348 UP pc X1L7*00°* fe nes + gate SE Fee
OaASwY C1 AO ODS6 67 I¥o BTEDYA,X*A0® . BRANCH IPF DISK DRIVE-1 IS NOT READY oc53 25 0c53 «135 Dc | ILU37¢
0a56 3c 00 155P 66 BVI CETRL¢3,x°00° SET CONTROL 7IELD POR BEADING. 6 oc5S& 1118 oc5S 136 be AL2 (OKIPL) a ows o,
“OaSC 31. a6 15CP 69 LIO CCU, K*ae? LOAD COKTROL REGISTER. 8 ocS56 38 10 0208 137 TBN SBYTE3,SSH1B ‘SS@ 1B SET ? : =
DATE. 138 aR70 OGAPER70 22ma¥70 O10CT70 290CT71 PROG ID ' 0B03-3 o ° DATE 138AaR70 O6APB70 228A770 010CT70 -290CT71 PROG ID 0803-3 ~’
. BC wo. 571512 57.1516. _ 571513 571580 5716014 PAGE 1 : 2C RO. 571512 571516 571513 571540 571601 PAGE - a
: ° © 0
E o 9 2
rf
i
j
t
5
‘
beennammronss
t
4
{
f
‘ : er : : i 4 orate 4 is aie ae ree sn ge eee Has” Sg wath eee ee wt MI a tne
Bom mee ed I cane Te nen ine eee te RE me ag ta I IMR Eg Aa ate Lie ne lage) nen ce: ene ae SS iS, chs olEat “sarees Mae fae i: seme a Re ee in, ee ee a a ee ee mee ee ee mn a nt mth ay nek are Shae ae ana en ee tae & Bowe a ~My oo wE ~
| - | | | ° @ 2
IBA BAINTENANCE DIAGNOSTIC PROGRAA . PART 5O. §129686 IBS BAISTEBARBCE DIAGNOSTIC PROGRAR .’ PaRt BO. 5129686
Me a PAGE PAGE 2a
. 6 9s 3
B033 S648 IPL TEST B033 5828 IPL TEST
ERR LOC OBJECT CODE ALDR STHT SOULCE STATEMERT © © ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMERT 8
OC5A ¥2 90 18 138 JP NEXT J0UsSP IPF yot. ; ; 0n15 cO 88 OCE!1 206 SP LPY LOOP TILL COUNT ROBS CUT. oy
OC5D Of OF 10F3 OFSD 139 BYC DNOP (15) ,STIPL SET UP DISK ID. o ° 0n19 cG 87 O21A 207 B PRI ST SPACE OP PAPER. ss
0C63 CO 87 O21; 140 B Paint PEIUT DUAP OPTION. ODID 16 OLripd 208 pc XL7* 16°
0Cc67 42 OC6é7 141 pec XL9°82° OD1E CSG 87 6222 209 5 Salt IBLIHE BALT -98- OB -~BE-. °
0C68 22 , OCc6B 182 De IL 1¢ 348 @ So Ob22 accs ODp23 210 ILHLT OC XL 2* a000¢
O0c69 10P3 OC6A 143 Bec AL2 (DSOP) On28 cO EF OCTS att B WEXE GO DO BEXZT DISK GOR TERAIZATE.
OC6B BOEE OCc6C «(186 BC XL2°* A0BEE* oDp28 CC SF 0278 272 BSYCK 8 PRIET PRIST BUSY CHECK. a
OC6D 3C EE 0023 185 nvx ILHLT,X*BE* SET UP FOR ~EE~- HALT. © o Ob2c cé On2c 243 pc XL 3°C6* ID ~a098-. Mae
0c71 CO 87 OCCD 146 B PRETHD GO DUSP THE IPL AWD READ DATA. CB2D 15 OD2D 218 DC IL1°24¢
LQ? SCSSOSSESERS SOSSE HESSEEOESS OEE EHEC SESE EDESEEESESESE SESE ESHESE SES OHO SERSE OD2ZE 71668 On2P 215 bc aL 2 (BUS ¥) “
148 © CHECK BOTH DISKS BEFORE TERMINATING SECTIGH. 2 8 @ 0p3G acse OD3t 216 pc XL2 20968 ad
TUG PHASES TESTESSOHES SHESHE SKS SEESE RHEEESO HERES ASTETHHS HS SETS SEEEETESESERSESSERE 0n32 cO S7 0222 217 B HALT ERROR ELAT -98-.
O0Cc75 38 O08 Oa65 150 BEXT TBE RDSIO¢1,z%°08* _BIXED DESK CHECKED YET ? = 0D36 Ages OD37 218 pe 1L2*2098? am,
0079 Cu 10 0216 454 BT LIBR TERSIBATE SECTION IP SO. o @ 9D38 CO 8S? 0A21 278 5 BECIS GO START OVER. -
OC7D 38 08 OA65 152 SBH RDSIO+¢1, 2° Cae SET READ COHHABD FOR PIXED DISK. Op2c OC OD 114aC OFSD 220 WOPS SVC NEPL(1&),STIPL SET OP DISK IB.
OCS7 3a OF CA3E 153 SBu SKO0#13,x°08° Q OD&82 CO 8&7 O2t~a 221 B PRINT PRIET BG DATA TRABSYZARED. ~,
0c85 CO 87 0429 1548 B RDMXT GO CHECK TEE FIXED DISK. 6 ODS6 Cé OD86 222 Dc EL 1°C6* =
155 SSSCSHS SIE SSESESONSSSVESES VIS SHSSESLGOSSSTSEKSES SESS ESTHER OSSVTH THERES 9ESBSEE Opa? 38 opay 223 pc IL7*§2°
156 © CHECKS * * ODsSe 118¢ Op&s) = 224 oc AL2(BIPL) =
157 #eeeeneess SUBROOTIBE HANDLES ALL ERROR MESSAGES. s @ S OD4A AOSE CDSB 225 pc XL2 °a09?® =
i568 ¢ * Opsc Cf &7 0222 226 8 HALT ERROR SALT -9F-.
199 SEESODSSTEESTLEES SHSSESHS SS SSS SIKH SETS SOS SEKETHSTESESE HHS EREEEEHSESSEEEEESESE 0D50 ACOFE Op5% 227 pc RL2°Aa09PR* oe.
0c89 CO 87 O21A 160 CYLCK 28 PRIST PRIBT RECAL. CHECK. o ° oDp52 CCG &7 OC75 228 B BEIT GO DO BEXT SISK OR TRERIBATZ. =
OceP C6 CCB8D 161 pc X11 °C6°* id ~aA0EY-. 229 SHESSTESESSESSSSEHS FOSS LOT SS OOH 9DHS OO OS SESHHSSOSESE OSES HOSSS OS SSESOSOESSSE
OCBE iF ; OC8E 162 Dc IL1°31° e ® 230 * NTRDIX * s 3
OCc8F 1024 0c90 6163 DC AL2 (CAL) 231 Seesesesse ®
CC91 AOOE Oc92 164 BC XL2* a00E* 232 ® SUBBOUTIEE IS CALLED SAZE A SPIBOLE DaOPSs e
0C93 CO 87 0222 165 . B HALT ERROR BALT -O£F-. ° ® 233 ® REALY. THE STATOS BYTES POR THAT SPINDLE s “
0C97 ANGE 0C98 166 oc XL2* a0OE* 238 © AGE SESSZEC 45D CHECKED. A -BOT BEADY- . ™
ocs9 CO 87 OA21 167 B BEGI GO TRY ACAI. 235 & MESSAGE 15 PEIBTED IF ONLY THEE -INTERVERTIO’ ®
Oc9D 38 08 OASS 168 NOPE TBM RDSIO¢.,X*°08* THIS BA FIXZUD DISK BUG ? 236 & BIt- IS CH. OTBESUISE TRE STATOS BITS ARE oe “4
OCA1 F2 10 09 169 JT #412 JOSP IP SO. o e 237 * IBTEVPRETED AND PRISTEZD. s -
OcaAu’ OC OD 1049 1005 170 AYC CKIPL(18) , BAY BUILD REAOVABLE MESSAGE. 238 .
OCAA F2 87 06 171 J #49 239 © BOTE - ISSUE A TIO AS POLLORS, e* 4»
CCAD OC OD 1049 OFF7 172 sYCc CKIPL (14) , FIX BUILD FIX BESSAGE. ° 6 280 @ =
OCE3 OC 7F COFF 145P 173 mvc 255 (328) , DCP SESTORZ DCP. 241 & Tz0 BIRD II BRAECH IP SOT BDY. s
O0CB9 OC 7F OCO7F 13DF ‘ 174 sYC 127 (128) , DCP-128 , 282 ® d ee7 JOAP IPF OC. es
OCBF CO 87 O21A 175 5 PRINT PRINT IPL CHECK. © © 283 ¢ 8 APTzR RETURH HERE IS wr apre ~
occ3 c2 Occ3 176 DC . XL1°C2° ID -a09R-. 258 7
Occ& 25 occa 177 bc IL1°37°* 2ZQS SOSHSTEOSESSSESSSES HESS SS SOS SOSEOS SS OOSHOSOSOESHSOSOSOSORSSESSSSOOSSESS =.
OccS 1049 occ6é 178 be AL2 (CKIEPL) o ° 0DS6é 36 G8 15D1 256 NTBDYA A REGS ABR =
OCCT AOOE occa 179 oc XIL2*a09Z* ODSA 3% CSE ODBE 2487 st 2DI¢3, ARR STCRE BETURE ADDRESS.
OccS 3c 9E 0D23 180 avi ILGLT ,X*9E* SFT OP POR ERROR HALT -SE-. ODSE 30 Az 151 288 SEs STSBYt,x*a2* SEuS@ SPHEDL 1 STATUS BYTES O & %.
OcCD CO B7 O2Z1A 181 PRTHD B PRIST ; PRIBZT DUAP BEADING. , ° 6 ODp62 30 a3 %5C3 2&9 sus STSBY3, 2° a3* SEESE SPEDL 1 STATUS BYTES 2 6 3. se
ocDt 32 OcD1 182 pc ~L1°62° ODs6 38 &d0 15¢0 286 THE STSBYO,xX* &0* IBSTIERVEETION BIT OF PF
OCcD2 4F OCD2 183 pec I1L1°79¢ ! OD6A PZ SO 22 251 JF DAP JUSP IP BOT. "
OCD3 10BA OcD&’S 1648 pc AL2(HD®) 6 ; So OD6D 39 FPF 15C0 252 TBP STSBYO, 1° BF® ARE REST OF THE BITS OFF ? “
OCDS C2 01 126PF 185 La CODE-240,x 81 INITIALIZE “SPOUT ADDRESSES. 0571 F2 99 4B 253 JP DAP JO8P IF sOT.
CcD9 C2 02 316PF 186 La READING 15, IR2 ! oDp78 39 8c 15C2 258 TBP STSBY2,X° 8C* ANY BITS ON IB BYTE 2 F o,
OCDD 3c 10 15¢7 187 aVI TEBP, 16 S2T LOOP COUST ER. 8 ° On78 #2 $0 18 255 JF DSP J0eP IP SO. ™
Ocz1 3a 01 OCEB 168 LPY st Outi, xn1 256 © NOT READY ERROR MESSAGE @
OCES CO 87 O21E 189 B OMPacs ONPACK IPL DATA. € Op7B cO 87 O218 257 8 PRIsT PRINT SPINDLE BOT READY. at
OCED 10 ocz9 190 DC IL1* 168 o, 6 OD7F cé op7P 258 pc IL1*C6° 1D -AOFE-. :
OCkA 0000 OCEB 191 OUT! DC AL2(#-8) | opso 17 OD80 259 pc IL 1°23
*OCEC 1582. OCED 192 oc AL2 (P8T-56) O0ns1 105813 Op82 260 pc AL2 (SPD la) om
OCEE 38 02 OCFS 193 St OUT2, 182 , 0:90 0D83 AoFZz on8s 261 pc XL2*a0PR* =
OCF2 CO 87 O212z 198 B ORPACK UNkACK READ DATA. | ones ce 6&7 0222 262 8 HALT ERROR BATL -¥E-.
OCF6 10 OcFé 195 oc IL1* 16° 0D89 AOFrs CoBa 8263 DC XL2*AOPE® 3
ocr? 0000 Ocr8 196 OT2 = C AL2 (#-#) eo; 0° 0D8B CO §7 C000 2v8 EDY B e-e RETORN TO NOT BEADY BRANCH. :
OCcF9 I5BA OCrPA 197 BC AL2 (PRT) 265 © STATUS BYTE ERROR SESSACZ &
OCFPS CO B87 O2Z1A 198 5 PRIIT PRIHT THE IPL AND READ DATA. oper CO 8&7 O27A 266 DAP B PRINT PRINT STATUS CHECK. ”
OcFF 01 OCFP 199 vc X1L1°018° So | o 0D93 C2 0093 267 pc XLI*c2* ID -A097-. =
0D00 SB 0D00 200 BC IL1°91° op98 OD cn9s 268 DC IL1°93¢
Op01 1SPa 0p02 201 oc AL2 (PBT) . op395 10956 ODn96 Ǥ=269 pec AL2 (STSCK) yy
0p03 OC SA 1SEBA 1588 202 AYC PRT (91) ,PRI¢1 CLEAR PRINT ARZA. G o On9gs7 a0s7 cp9s 270 pe XL2*a097
*Or09 D2 01 10 203 La 16(,X81) ,XRi IBCREMEBT POINTERS. 0D99 C2 C1 OEOE 271 La BTS0¢2,xR1 LOAD TABLE ADDRESS IN INDEX REG 1.
Ofoc 22 02 10 208 LA 16 (, ZR2) ,XR2 OCSD 3c 81 ODA2 272 SYI TSTOe¢T, x*O18 PRESET BIT POIATER POR BYTE 0. *y
CDOF OF 00 35C7 15D3 205 SLC TESP (1) 8001 DECRESENT LOOP COURT. oe o OpAT 38 €O 15Cc0 273 TstoO TB STSBY0,X* 008 CORRENT BIT ON 2?
: : omy
DATE V3MAR70 OGAPE70 22HAY70 0100770 290CT71 PROG ID 0803-3 o 0 DATE 1322570 O6AERT70 228ar70 010CT70 290CT71 PROG ID 0803-3 ~“
EC NO. 571512 571516 571513 §71549 -571601 ' PacE 2C WO. 571512 571516 §71513 5715480 571601 PAGE - 2a
| eo sl :
E ze ae a ; oy
enon Arie OR
AR ne ee ates ene
FST Aah ents ire ana A UR Heb de gk Te le toe nen gna es
ee ae rn ne ee me re neta eS
z
é
¢
“
o.
We net ee ee ew ee
She Gh aE
Bn taal Niner ental Tle Eee wr me eda ee r Fm a cm ME te ate =
Na eet men ee
we ee ee Ma
Fe gh I i awa
° | 6 beat .
IBM HAINTEZSANCE DIAGHOSTIC PROGRAR PART 30. $129686 ISS MAINTENANCE DIAGHOSTIC PROGBAS PART nO. 5129686
PAGE 3 ; PAGE 3A
é e 9 9
8033 S&S IPL TES? B033 5884 IPL TEST
PER LOC OBJECT CODE ADDR STAT SOURCE STATEREST 6 @ ERR LOC OBJECT COLE ADDR STMT SOURCE STATEREET
: f
OpaS CO 10 ODE? 2748 BT PRTSTS GO PRIST XID IF so. e OF&C B2E240D4aC 1DSD2cS$ 335 5
Opad D2 01 03 275 La 3(,%B%) ,XB1 IUCRESENT TABLE POTHTER. 6 OES4 DY 339 ad
ODAC OF 00 ODA2 ODAzZ 276 ALC ST0¢4(9) ,TSTO44 SHIFT BIT POINTER TO HEX? SIt. 0255 CSESEXCIDIDRCSDS 6263 380 BTO3 DC CLIS*EQGUIPNEET CHBCR®
CDB2 3D 00 ODaA2 277 CLI TSTG¢1, 2°06? ALL BITS TESTED ? OESD E340C3CB8C5C3D2 3480
ODB6 CO 01 ODAI 278 BNE TSTO BRANCH BACK IF #OT. 6 3 OFGR CYCIEICIROCICBCS GEED 34% BTCe pC CLIO*DATEA CBBCE® e
ODER 38 08 15€2 279 TBs STSBY2, E268 HEAD SETTLIBG BIT ON P OE6C C352 3&4
OLBE CO 10 ODE7 220 Bt PRETSTS GO PRIBT ID IP So. @ OEGE DSBSXULICSCIDEDS GEFC 382 BGS aC CL1S°BO BECGED Fouust ;
ODC2 B2 04 03 2e1 La 3,481), ZR? IJHCBENERT TABLE POLETER. © 0276 C&40CEDEESDSC& 382 °
o0C5 38 Oe 15c2 282 TRH STSBY2,z2°06? IHDEX BIT OF ? CETD EILSCIC3ID240C3DH CBSt 343 BTOS we CL21*FeaCk COBDITIGS curcKe
ODC9 CO 10 ODE? 283 BT PRTSTS GO PRIET ID IP So. @ GEBS DSC4CSESCIDEDS HC 323 “
ODCD D2 04% 63 208 La 3(,2R%} ,rR1 ZNCRESENT TABLE POINTER. e OFBD C3C8C5C3ID2 3&3 =
ODDO 38 80 %5c2 285 BR STS8YZ,X*85* USSarE BIT GE 7? CES2 E2CSCSD28O6C3CEC5 GOESB 34% BTOF DBC CLIO*SfER CERcEs
ODDS CO 10 SDE? 286 ef PETSTS GO PRINT ID IF $9. @ OFSA C3D2 38% 2.
ODDS CO B7 G27R 287 B PRI ET SPACE UP TEE PAPER, & CESC ESDSE2ZCICECS CEA1 385 BY30 pc CLé* ONSaPSe ‘a
oppc 16 oppc 268 pe EL9¢ 968 QEA2 C8CSCICUUOEZCSE3 OFAE 386 Bf35 BC CLY3°Head SETTL IBS?
OLDD CO &7 6222 289 B HALT ZRROR EAL® ~9?-. & OEAAa E353C9DSC? 386
ODE? A097 Obz2 290 DC 0 «EL2® 20978 © 387 © OPERATOR ZBSTRUCTICES. 3
ODE3 CO SF OA24 294 8 BEGES GO START ALL OVER. OZAF CYD64OEICECSROCSKS GED1 288 LEST oc CL35°DO THR POLLOBIBSG VERY CAREPEREE - ©
232 © PRIKT BIT IG ® @ OZE? COLIDILGESGCSDSC? 3898 as
ODE? 36 G8 ODFB 293 PRTSTS ST SPTe3, AER STChZ RETORR ADDRESS. 8 OFBPF &ORSCSD9EeROC3CI 388 wa
ODEB iC 02 ODF7 90 29% RYC SPT-4(3),0(,2R1) STORE CORES HESSAGE ADRS/LEEGTS. CECT DICSCEEGDIDIEBLO 3&8
ODFO CO 87 O2%~ 295 B PRIBT PRIBT THIS BEE ED. e @ OFCF 604060 388 -
ODP& 84 Cprs 296 DC XL1°9%° OZD2 PIGBYOEZCS2380C8 OZPR 389 pe CL35°4,. SET BISPLAT ROLLER FO BOLE ¢ a
*ODPS 00 OnPS 297 pc EL9°O08 RESERVED POR HESSAGE LEEGTE. OFLA CORZDIDICTEERODS 3893
GDPG 00CO CDP? 298 pc Z3L2°0000¢ RESERVED POR MESSAGE ADDRESS. ° 6 OF¥2 DEDIDICSDINOR ISDE 389 +
OprPs& CO 87 0000 299 SPT 2 6-8 COSTINJE THE BIT CHECK. OEZA SC"9DEDIDIZOF 180 389 "
300 969090006065. 295089009609 O49 0 O0S8S SO 088 005890F6000FOSS09689SS SEO RO EES OFF2 &04804u0 349
3041 © IDIOT @ * ° OEPS P2SBUCEIZUDSLS&O CPI? 350 Dc CL3S°2. 985 CH ALERESS COMPARE StToPF ° o,
302 @ SRANCH HERE IP OPZRATOR DOES SYSTES BESET, 2» © OEPD DEDSBOCICacKDdCS 359 ~
303 @ START BEPOGZ DOISG AB IPL PROM THE DISK. e OFPOS E2E280C3DEDadNC4 359
308 @ e 8 OFOD D9CSHOE2EIDED7ISO 350 tn
305 0©000000060020060 000008000 00066698926 000000008 E50 RCE COCs OOOO eCOSeseNS08 © OPTS #08040 350 -
Orrc CC 78 COFP 18SP 306 IDIOT arc 299 (128) , DCF BESTORZ DCP*S BOTTOR. OP18 PI8HLOFICSE3GOCI OF3R 251 BC CL.35°3. SEP CONSOLE Suzecaes TO 0090 8
CEC2 OC 7F COTP 43DP 307 BYC 127 (326) , DCP-123 e@ OF20 LELSE2ZLEDICSBORZ 351 “a
02808 CO 67 Oa2? 308 8 BEGIB GO STAPT OVRB. 6 CP28 RoCIEICICECSEIZaO 351 ”
309 Seveneeees OFP30 BSS ROFOPCRCPCad 353
330 © TABLES ® e OP38 «080085 341 o
3FY ©0009 5008563509958 5 08 F808 9085959 E8 55 06068 O320209 00000099090 080O560S800S © OFPIF FaRHRORLCSE3BCCS CPSD 352 STIPL dC CLIS*&. SLT IPL Surrce Fo 7 “
Of0c 342 BTSO eQ0 08 TABLE OF STATUS BYTB O xD°s. OPa3 DIDIBOE. FECSEICS 352
O8OC OA CEGC 333 oc riiewoe BIZ 7. 8 OFS CBSIBIDEROROGOEO 352 .
OROD OF9a ChOe 38 BC —_ AL2. (B07) © OP53 &Ce0808CH0808080 352 2
oecr 15 CEOP 315 pc ILi¢2t6 BIg 6. QFSB aCedad 282
C10 OF91 O21 316 oc AL2 (#706) 6 OFSE PSaeBeOCeDbeCLIDs OPBO 353 pc CL35°S. DO PBOGRAS LOAD e 5
Cei2 oF or12 337 pc IL is 45¢ BIZ 5. © OFEG ESCTLYC IDGR0D3DE 353
OFY3 OFIC Ogle 318 pec aL2(8T05) CPOE TICRROEDR0AOSDRD 352
C215 Ob OLIS 319 oc IL?°108 BIg? &, ° OP 76 sCeda0adeoscuded 353 ”,
OEY) O1er Oe17? 320 Dc AL2(BT08) © OP72 eCsoad 353 “
0216 OF Ce18 321 oc ILV¢4958 err 3. OFPBl FEXEGOCIDIEICSDS CPA3 358 oc CL35*6. ALTES SAB TC -0CO0- ®
OF19 OFE3 Okita 322 oc AL 2(8703) © OF 89 BSOEZCIDSSOREIDSBO 3558 ‘me
OPiB 19 Oris 323 oc ILi917¢ srt 2. © OFGST GOPCCIFCRFOECKORO 358 we
OFIC OFSS OFID 328 pc AL2 (8702) OPS9 8OeC80KCB0605080 358
OEVE 15 CEIE 325 pc ILV¢299 erg 1. © OFA? 8046080 358 i
CEIP O£83 O£20 326 oc AL2 (BT01) 6 OPAG PITQBUORIEZAHSDSLO OFCH 355 DC CL35°7. TURN OFF ADDRESS COSPARZ STOP
*OF21 0S 02219 327 pc ILtese BIg? 0. OPAC CéC6C880C ICacaDs 355
OF22 OF2ZE C223 328 pc AL2 (BT00) e OFBS CSEZE28O0CIDEDED? 355 a
O£2% 329 BfS3 e#Q9 ®@ QABLE OF STATUS BYTE 3 ID°s 6 OFEC CILSCS&OE2ZE3DED7 355 v
0228 OD O£2& 330 pc IL7°93° BIT S. CPCce “£08080 355
Of25 O£AE CE26 331 pc AL2 (8735) OFC? PRYESOCEDESODIDG CREO 356 pc CL35°B. DO PROGHAN START ° as
O£27 06 0227 332 DCCL: "68 BIT 0. o §¢ OPCP Lec?TD9C1DSsOR2E3 356 3
OF28 OFA! O£29 333 pc &L2 (8730) GOFD? CIDIEI4O4ORCROKO 356
334 eeesertevesorssescses OPDF UC&OS0R8CED4NOROKD 356 me
335 @ RESSAGBS * o ¢ OFET GOURD 356 ee
336 SOSSHOOEAEEEESEH ELSES ESE SOOKE SOOT ES OS OEEETSEEOOOECOSEESCOEERSSOEEESEES9DES OPFEA C6C9ETCSCEGOCHCS OFFF 357 PIE 5c CLYG° FIXED DISK® :
OB2A CSLE60D6D7 CE2E 337 BTOO onc CLS *8O-OP* ee OFF2 E2D24040404K0 357 ie
OZ2F CODSE3CSD9ESCSDS OF43 338 BTO1 DC CL21* INTERVENTION REQUIRED® eo ¢ OPF8 DICSDNDGESCIC2D3 1005 358 RAY pc CL14*BEMOVABLE DISK® 2
OF37 E3C9DEDS4OD9CSD8B 338 1000 CSHOCSC9E2D2 358
OE3F EScon9ecscy 339 1006 CUC9E2ZD240C4UD9CS 1024 359 CAL pC CL31*°DISK DRIVE 1 BECALISRATE CHECK. °* ma
OF4Y DSDeXOCICaCcap9CS O£54 339 BTO2 nC CL17°NO ADDRESS MARKER* Cc 6 1OOE ESCSNOFIACD9C5C3 359 ~
|
DATE 13HAR70 O6APR70 22mAY¥70 010CT70 290CT71 PROG ID 0B03-3 o 6°98 DATE 13HAR70 O06 APR70 22H AY70 010CT70 290CT71 PROG ID 0503-3 ~
EC WO. 571512 571516 §71513 571540 571601 PAGE 3 EC NO. 571512 571516 571513 571580 571601 ' PAGE 3a
e.466°98 3
@ | 9
o
Be ee he Me ket te Re gtr dT Aiea OF IR alee Se ene eo Bae te ae nee ee UI iene Re ee ta, Ste ma Lee tt ae nage eS TNR RE em
5
z
$
-
t
f
g
f
5
de he NE an dR te ee ae els a ee We RS ne nants RR RT ine Sat ae Te le EE Ta ee a te TU oh al a kmh ae ET ae a alate ge IT Ga rn ages dle ms ha
. . . x eo 6 @
IES SAYNTESANCE DIAGNOSTIC PROGRAS . 7 ' PART BO. 5$129686 IBS BALETEMABCE DIAGHOSTIC PaROGRAR PAST BO. 5129686
: PAGE & 6 Pace &a e
{ 3
B033 S884 IPL TEST 3033 5888 IPL TEST
ZRR LOC OBJECT CODE ADDR ST1T SOURCE STATERENT o © ERR LOC OBJECT CODE ADDR STAT SOURCE STATESEST 8
1016 C1D3ICSC2D9C74ICS 359 e 15cc 1160 15cD 392 READ o1BC AL2 (READIB) 9
1O1E S0C3C8C5C3D248 359 6 15CE 15BC . 1SCP 393 CCH pc Al. 2 (CETRL)
1025 COL7TD340CUCIEIC1 1089 360 CKIPL DC CL37°IPL DATA CHECK FOR THE* 15D0 FPPC ant tt aes = re.
102D 90C3C8C5C3D280C6 360 15D2 0001 D s a
tote DEbenORscecsaDas 360 ec oO 1558 15cC8 18D5 396 OUT pc AL2 (IDL) 8
103D 4040804040408080 360 15D6 C08? 1SD7 «397 pc 1L2°cO87
*1085 &C 40404040 360 6 1528 ODFC 15D9 398 BEECH DC AL 2 (IDIOT) 5
TOUA EZEICTEIJESE200C3 1056 36% STSCK DC CL1I3*STATGS CHECK. * =) 399 ceseeseosuseseseses
800 © EQUATES e
sass eecoe bos ocanses 106B aes BOSY pc CL21° DISK DRIVE 1 XS BUSY.* © ° 401 cevecceseesencsoceuce seceeeessesescecosesecssssecossscossocsooessouesss 3
-105F ESCSSCF140C9EB240 362 uoce rh a be aoe
1067 C2ER8E2E84B 362
106C. 40404040405C80480 1081 363 pc CL70® IPL DATA* e 0002 808 £R2 Zou 0S x* O28 gS
1074 40408060C9D7D3480 363 @ 0212 805 ONPACK £QU xX*21z°
107C CUCTE3ICTNONC8080 363 021A 806 PRINT 28995 xe2tae
1084 8080404040400060 — 363 © e@ 0222 807 HALT £Q0 x*222 ; 3
108C 40408045040808040 363 0216 S808 LIEK £QU £*02%6
1094 4040804040408080 363 C20B &09 SBYTZ3 EQDU x°020B
*109C 4040 404040908080 363 © 0010 810 sS¥1B 200 # Xx* 10° 9
170A4 46040408040408040 363 @ OA21 11 ZBD BEGI#
10AC 408040404080 363
10B2 D9CSCICS4OCKCIE3 105A 364 RDN pc CL9*°READ DATA® © «6 3
10BA C1 368
10BB C&C9E2D2400C4D9C9I 10D1 365 SPDNR DC CL23*DISK DRIVE 1 NOT READY.
*10C3 ESCSGOF1N0D5D6E3 365 ec e 3
TOCB SODSCSCICHEBYB 365
10D2 CUCTEICINOCNUESDY 1073 366 DHOP dC CL34*DATA DUSP OPTION -
*10DA D74OD6D7E3C9DEDS 366 e ° 98
1OF2 4C60408040404040 366
TOEA 4040404080404630 366
10F2 4680 366 oe 2
10F& CID7ID34OCKCIE3C1 1118 367 OKIPL DC CL37*IPL DATA IS OK FOR THE®
1OFC 4OC9E2Z40D6D240C6 367
1104 D6D940E3C8C58040 367 6 e 3
110C 4040408040804040 367 |
7114 4040804040 367 atk 3
(1119 COID7D340CHC1E3C1 118C 368 NIPL DC CL52°IPL DATA WAS NOT TRANSFERRED FROS THE® @'@ 3
7121 SOR6C1E28005D6E3 368
1129 SOE3L9C tDSE2CECS 368
1131 DOLICSCHKOCEDIDE | - 368 oe @ 3
1139 DY80E3C8C5408080 368 rnd
1241 6090404040808040 368 |
1149 nONOUDUC 368 ° ° Q
14D PSPUPSFASOCHC9E2 115P 369 IPLHD DC CL19°5444 DISK IPL TEST.
*1155 D280C9b7D390E3C5 369
115D E2E348 369 98 8 ao .
370 8446S S48 SESSSESSESE . :
371 © PRESERVED AREAS ©
372 SEEKVSSSEESSSSSHSTHSSSESSESSSSSSTIHSKSVS SS SEESSESSE SESE EE SSE SESESESS SOSSSTSSESESS e . 3
1160 373 READIN EQU * , » @
1160 125P 374 Ds CL256 a. BEAD FIELD STORAGE.
1260 135F 375 CODE Ds CL256 EXPECTED IPL PROGRAS PORSAT. 6 oO
4360 145P 376 DCP DS CL 256 DCP CORE STORAGE. @
1460 155P 377 CHECK DS CL256
1560 1584 378 PRT DS CL91 PRINT ARZA. ° ° 9
15BB 40 15BB 379 pc KL1°aQ
*158C 380 CNTRL £00 *¢
. Spe CCCCOC00O 15BP 381 pc XL4& 00000000 * DISK CONTROL PIELD. ce S
' 45¢0 00 15cd 382 STSBYO BC saL1°008 STATUS BYTES @
15c1 00 15C1 383 STSBY1 DC XL1°00"
15¢C2 00 1$C2 388 STSBY2 DC 1L1°00* ° 3
15¢3 00 15C3. 385 STSBY3 CC —- XL.1°008 | ° .
15c4 OCCOC00D 15C7 386 TERP DC XL *00000000 * WORK STORLGE.
15C8 387 SIDL e£QU- ce. 3
15C8 00320132 1scB 6388 pc ILS *00320132° SEEK TO TRACK SO CONTROL FIELD. ©
389 sesssesessess
390 * CONSTANTS © ao 2 Co) . 9
391 SOSSSSSSHSESSESSSESKEGESESSS SS SH HSSSHS OF SSHESSESSE SHEESH SS SSESESSESSSSSHSVSESSSEHSSS j 8
: 2 @
DATE 13 MART7O OGAPETO 228 AY70 vlocT70 290CT71 PROG ID 0B03-3 © i 0 DATE 138aR70 O6APR70 228AY70 010CT70 290CT71 PROG ID re
EC WO. 571512 571516 _ §71513 571580 571601 | PAGE | 7 EC nO. 571512 571516 §71513 571580 571601 PAGE
}
ee o
+ Page
Beene nt ey Se ce
o eo . oe ss 2 ee Cts he EO aeons Ss ate ee :
swe a ahaa. et one Ba ghia Cann Sats i li I A ee Be A me amas Re She le See Bee ty SH we ance oo oe. te Cause eg on aN gis rein ae atin winch AS sei aus vadaies ae ey se se rena” ee GEER ONE au Fee ye eis Saas abe alae ep Fa hE ag Se eae eap aly Hag Hs el nae bald oaticcpeatten
e ee ee . | eo o 9
_ IBa BATETEBAECE DIAcHCSTIC. PROGRAS : = PART 80. 5129686 IBM SAINTENANCE DIAGHOSTIC PROGRAS PART #0. 5129686
PAGE 5 e @ a a PAGE Sa 9
8033 S885 IPL TEST 8033 5868 IPL TEST
. CROSS~RZPER ENCE oe 698 CROSS- REP ERERCE | 9
SYABOL T LEN VALOE DEPH REPERERSCES ©. oO SYMBOL T LEB VALUE DEPH SEPEREBCES as
ABR C001 COce 0402 0286% 0287 0293 SESIT &€ 008 CARO 0062 0068
auor A 003 ‘OR0C 0020 - - ° Oo SPDNR £023 1001 0365 6260 a
ESIR & 008 OA21 0058 0167 0219 0291 0308 0811 SPT £008 ODFB 0299 02938 02980 ~~
BRNCH A002 15D9 0398 0108 SSH1B € 001 0010 6810 06127 0137
BSYICK A 008 0D28 0212 0058 6 STIPL & 035 OFP5D 6352 CO79* 0081 0132 0439 0220
B8T350 8 009 OZ0C 0312 62718 . © STHUP A 006 OAD6 0108 0732 3
ETS3 & 00% O£28 0329 ; STSBYO A O04 75CO 0382 0250 0252 6273
BTOG & 005 OF2ZE 0337 - 0328 | eo ge STSBY1 2 007 15C1 C383 0062* 0063 0065 o288¢ zs
BTO1 a 027 GFa3 0339 0326 = ON STSBY2 A 00% 15C2 0388 0258 6279 6282 6285 ve
BTG2 A 017 GES4 0339 032% STSBY3 & 001 45C3 6365 0289¢
PTO3 A&A 015 OF63 0380 0322 a 6 STSCK & 013 1056 0361 0269 a
BTCS 4 010 O86D 038% 0320 | , TEMP 200% 15¢7 0386 0083° 00909 0187© O205¢
BTO5 & 015 OE£7C 0382 0318 TSTC € 008 ODA 0273 0272 0276 0276¢ 0277 0278
BTO6 A 027 0291 0343 0396 UMPACK C 001 90212 0805 0189 0198 ng
BTO7 A O10 OF9B 0348 037% Cc °o UP a 00% OcS2 0138 0129 0131¢ ~
8130 k 006 EA 0305 0333 XR1 = € - GOT 0001 0803 00826 0088 0089 0089¢ OFESe OF8@ 0203 0263° 0271% 0275 0275 6281
? 2 0287® 0268 0288¢ 0298 i
BosY a 023 1068 0362 0215 o 9° X82. €:001 «0002 0808 01868 0193 0208 0208 ‘a
aL 4 ;
ccw £002 15cP 0393 0060 0069 TOTAL STATERENTS PLAGGED I8 THIS ASSEMBLY = © :
CRECK aA 256 155P 0377 0109% 0119 o © “
CKIPL A 037 1089 0360 0170 0372® 0178
CNTRL & 001 158C 038C 0056* 0068* 0393 |
CODE a 256 135F 0375 0117¢ 0118* 0385 o @ o
CRHES & 0C2 CA96 CC(BB o0Bue
CYLCK & 00% 0C89 0160 0066 a
ECP = A 256 «14EF «(0376 «= 00102 0103* 0125 0126 0173 017% 0306 0307 eo °o <
DISK ~& 00% COGO ¢c003
DOP &£ 034 1CF3 0366 0139% 0183 a
DBP = a 0C&: «OODBF «(0266 ~=3— 002514 -:0253«0255 6 9 o
FIX & 018 OFF7 0357 0081 0172
HALT € 001 0222 0407 0110 0165 0209 0217 0226 0262 0289
HON =6 A CO9:« 10BA «0368 =—s«(0 88 . | 6:06
IDIOT A 006 ODFC 0306 0398 |
ILHLT & 002 0D23 0210 0185* 01809 -
INST 2.035 O£D1 0348 0082 6:9 2
IPLHD ~€ 019 115P 0369 0089
LINK C001 0216 0808 0153 |
LPY A008 OCE1 0188 0206 0; ®@ 3S
MIDL a 001 15¢8 0387 0396 cot
NEGO a 002 15D1 0398 0286
NEXT & 008 OC7S 0150 0138 0212 0228 o; 8 ?
MIPL &€ 052 116C 0368 0220* 0228
NOPE A£ 00% GCC9D 0168 0122 0128 | 7
ROPS 2006 0d3C 0220 0120 o #98 3
NTRDYA A COS 0D56 C246 0057 0067 0073 .
NXTNS A008 OABD 0084 0091 ee
N001 & CO2 15D3 0395 0090 0205 0:90 o
CKIPL a 037 1118 0367 0132® 0136
OUT A002 15DS5 0396 0100 € x
OUT? A 002 OCEB 0191 01880 o °@ “
0012 a 002 OCFB 0196 0193¢
PRINT C001 021A 0406 0046 0085 0093 0133 0140 0160 0175 0181 0198 0207 0212 0221 ;
0257 0266 0287 0295 o °o | o
PET A091 15BA 0378 0085 0045* 0192 0197 0201 o2f2 02029
PRTHD a COM’ OCCD 0181 0146 a
PRISTS A 00% ODZ7? 0293 027% 0280 0283 0286 © 9 oo
RDNXT a 008 0229 C0S6 0154.
RDSIO & 003 OA6S 0C71 00548 0077 0150 0152® 0168 .
RDY ACO’ ODBB 0264 027% o Oo ~
READ a 002 15CD 6392 0059 0070 0099 | |
READIN A001 1160 0373 0121 0123 0186 0392 é i:
RN¥Vs &-018—««100S.-s«0358 = 0079-—«s0170 9 2
RTNOT A€ 001 CAD 0042 #0018
SBYTE3 C 001 0208 O809 03127 0137 i
SKOO £003 OA3D C061 0055* 0153¢. 6,9 ~
4 7
DATE J38AR70 = OGAPR70 =. 22MAY70 = O10CT70. = 290CT71 PROG ID ope3-3 © : 0 DATE 13MAR70. O6APR70 22mAY70 O10CT70 290C7T71 PROG ID 0803-3 ~
EC NO. 571512 571516 571513 571540 571601 PAGE 5 BC WO. 571512 571516 571513 571580 571601 PAGE Sa
} :
° | e o |
|
i
8 { 8 i
IBB SAINTENAUCE DIAGHOSTIC PROGRAE
pe ate dame AR me ae eae Pee SE Da a ta Na ee ae bee SS Rm tee Te ee
' B0323 S#en IPL TEST
THE CHARACTER
OBJECT CARD LISTING
CL 1 THEOUGH 16 CL 17 TREEOUGH 32 CL 33 TERGUGA 4&8
weuycaic ce ge
T+-Z5Ee"3Y OL/P
T+-DOc 44Pa Eay
*T+-,,2)P3Y <~43
T¢-0:CG@LPOC"CGa
1+-15D *aa-1KaY
*T+-20B ZVOA BETY
T+-3 ,C"*<-0C" EEO
1+-UGEQHS —380H
*T+-5/)*BG /, FEJA
T+-6*<H< 903/ ESC
“To-7P] DEFT- ESC
T+-8KOR*BP/S /08
Te-9 (CXOHCHS CEC
Te-: HE (LA6) .£6°P
T+-6C2) SHECHI94
T+-OcE<f ACOPPI(|
To-a9S<GD1 (XE8>I
ectac yeni
Tebe?6Da GDA EDA
T¢-"DO*LD6 *PSBuC
DATE
EC NO.
13 BART70
571512
Bas F *"a<0/0
AoA WO* E50 GGAP
PC 8EPE"TO-DEULO
~ [a&~1J~ Gaaroc
K70A"C~O8POC" OED
Dj BC#-0+DI~| P*B
RBWA:B Y=On*HHeS
<.0a"D*" /OHEOSE
2@e
BG/ AC:OH*BP-E
sYIT /OBSYIT /OY
20BH971P az $400
“Dp 7xa-pec- (1-6
SYI s01y( -(=10
seveucoenesaicas
09<xP5<PNeGCC2<P
ratpeencc2crce>t
L:DA-EDCIKSCS1:? (
” o'SeSacRincse’s
25° 8>$1894 HE}
“espa *™_ OpmT4)Y
C5_LPO) XE&+.T5_)
O6APR70
571516
228aT70
$71513
$B$? /OHEI/<3P:C
&OI <S*P-CHQS AG
TE**4y SDOQOR*BP-3
eo
"Cis °C; 3074
{ 1 5° g@kpa AcI4&
G /Y IJDQ¢A BB"H
G /,¥G1 UY # /08
EKEB;}18(HaBG /D
SESY<O/0: ES$?K JC
/C IL") OH*BPSQ
NO?HEECBG /,PEIC
S18 (1% aCEDSAaP
BC+* OR*BFYD C
FCDGNSUCOS2ZiuaP
CUSLAgaz OaTEZO*.
KOXGPI*TEOS) S%P
* sexssegaspcRs_ |
PEDA 64 (.6¢.288C
O&DA SDA SDA EDA
BXGRE* JOE PCOOC
&DCBKSCDSUCP6) $
0 10cT70
571540
INDICATES A BLASK COLUAN AND THE CHARACTERS DE 8 ImDICATE wOMERIC SHIFT.
PART #0.
PAGE
5129686
$
CL &9 THROUGH 6% CL 65 THROUGH 80 CL 81 THROUGH 96
- ¢0- BRLSBBTES" 10
®<EQN3 3PUEC73¥EC
T CK K<j aPGE)!
= G8 ~00C <653
(~0a"D)" 62) CGa
EF OFDI<|P*BG /Z
SY # /OY¥/+ -HBWH
BL 1B: O-DK $aHBDOa
S/ | APG) / 3
4DN2-XaBG SH-xaB
3Y]@ /OBSY}# /0
BOA (9°HA 3-HE*.
"70 cca *13-cc~
R9* PHBSXOSACH1)T
getcuatiobsa ace
T8* | 15*<D5U0CT 2<B
L1)¥ 6*8 6) SLa8C
C5_PSS_| 860.82; §
“spa 'a_ 1(m S*x
OQDA SDA SDA EDA
G6*GNE¢.T0) XTEDA
290CT71
571601
®0R (HSSFSCK-1ZaP
RY-ZX0OB (BT-EBEP
/ D{ OR*BP/QUZAP
"ENS "@BG SH-€<3B
BYI—CGR wip 4A
BH/C31¢Bae-STOH?
€BE0 ( DDUS A~ BGA-0
aDAPG ( D<:aBG /8
/OH*BF/$ /OHSY C
GCGRtBAP3({ - (TTB
OH*BPZH(DEE-VaH
D 7X8-DC+H HOS
~1]-~OH*HHE Yeu 18
U2) XB1(POE<SD1(X
US*LTG6*GCenccs_P
1_SL4"Sug) PGE +P
1EDA 84 1.66106)5
C2<PS&4 941) CO8j A
Ol* XASDCLSAGHVE DA
” SDCTRSCTS (X¥6 (3
GDA EDA EDA EDA
PROG ID
¢Gig’ 32020330001
2D uO: 80230002
(<Eq 3230330003.
GB_Q 5$aB0330005
BB" *&880330005
<3L- 18180330006
{ DDU_=8880330007
5°” ”” #0450330008
7/00 £,%B0330609
SE*p 37 80330010
ac-8 6-0B9330011
&C;* &1-B0330012
¢05a 6.-B0330013
B8>H $,820330018
D2;< 66680330015
B6;- 91080330016
"s » 7x0B0330017
“sp 62980330018
“gp *-<80330019
P10 7:9B0330020
so”) $080330021
0803-3
PAGE 6
€e
©06©0068 8680600 6 6 6 80 6 8 86 6 Oe 8 e OC 6 6 C6 @
ecocoeceeoewownoeweweeoeee eee emhlcehmllemUlhemUc OU OCUCUh OU Ol OU Om
TG/PRE
IBE HATINTEWANCE DIAGEOSTIC paoceas
B033
CL 1 THROUGE 16
T¢/ ¥2;~£1DCD236
T+/a-5* ( 1<GTOBC
T+/BSELE 2;X OPL
T¢/COSDA EDA EDA
Tt /DIIWLESSCOS=)}
T+/EXEDA EDA B<X
TD/E~*~L8*DCD2;3.
BBSE*E7*=~DC" PHS
O22 ee ewrewraseaenes wee
1382R70
571512
DATE
EC NO.
5464 IPL TEST
CL 17 THROUGH 32
KEDA 6 (XES(S¥O®.
C2<PCSUCPS_¥ Bat
S:D_ 6A §DA GDB
“gpa spa SDA EDA
15_8 CEA EDA BDA
PGRCDO;
1°; RROLIO_X 1(z
@ @ e @
SDA SBA SDA &DA
e
BS>( SoPate s.1<6
FS_¥ S8TRBEDA EDA
° =» @
*SD& 65a Da EDS
SSeenoeoeeeoeoeeneeo
@eeseesveeoeoooaeenoe
15870501703
PROG ID
PaGs
5129686
6A
CL 81 THROUGH 96
KKaU :QHBO330022
19¢m 68080330023
“gp ©. 080330028
708 )8aBe330025
"gp 39080330026
“gp 8$-B0330027
K 9303366028
4-°80330929
021712S-B0330030
0803-3
6a
Be me owe
oe eo © @ @ 6 6 @ 6:
© @ © © © &© 8 & @
© 8 8 0 0
LP aye Rome 385 Bose tk Mune “tae i ei i se 6 ee MA a et oe Re fee eh eet net 7 seh mam tee ated o ne ae Mar pe ee a ee DO Pe ea er ens at ve
; ran AATETRRARCE DrAGHOSTIC procaan ae : PART RO. $129688 or “ren RAIRTESAUCE DIAGHOSTIC PROGRAR PART 20. $1429689
. ; 7 PROB 4 en PAGE a
808s DISK FRIENDS TEST r BOSS DISK FRIERDS TEST
ERR LOC ORIECT CODE ADDR STAT SOURCE STATEREUT 6 ® EQR LOC OBJECT CODE ADDR STAT SOURCE STATERERT o
2 DECK § | e Oa38 19C7 0a35) 70 oc AL2 (INTRON) . =
09000 3 DISK STar? 0 6 OA36 AOTO 0437 71 : pc RL2°aR080° a
oacte & ORG xe2e0* BAI8 3c 00 1hIR 72 avy? FLAG,0 CLYAR DRIVE COAGAND FLAG.
5 FOSE9O4 090082 SO ST ESED NODES SEOONECERELD ESE LESOEE SESE EDESEESERERESEESESE OR3C CO 87 6222 73 8 HAL? HALT -FO-,
6 ® 10 70% 770 LAST UpparTe * @ ® DASO ADES Oa 7&8 pc ZL2°anRa?
7 SOCCOSOSSESSESHCETESSSSESS SOSECOEESEE ESEOSSCOOSEEHRESEES SOE ESESSESED EEE | OAR2 BG OO 01 75 RETRY SNS T{ ,XR2),K* GCS PERD/SSTGPY CORSOLE SBITCHES.
&§ * DISK COSRAIDS TEST COKRSOLE SWITCH ENTRY e OA&5S 2p Of I7E4 81 FG cic 40005 (2) ,9¢, EP2) THIS LAST PETRY -~O00G- 7
5 SOSSSED DSSS SOS SEESOLE SELES OSES OETERTHST S2SS ODES SEES SOEETERELSSSESELEE EE @ 6 OASA CO 8&4 ODSS V7? SF DORE JUEP TF 54H,
30 * StcTio“n ROS ROUTIHES 64 - G2 % FR SCVPSOHEFSSES OES FSOOESS SOLOS OCOD TETES TES SEOEOHSES SEEK ESSEOHEESHAGREFARDOE
41 SOCCTEE SOF FSETSOEESEETEETESEDEFESESESROEES SETSS HESS SEDENS SEREEECREEESSE EE 79 6 CHECK SBITCH 9 POP A CORRECT SPTTIRG. e
42 8 SECTION PREPAC? ¢ © e RO SESHESS GOSH SHS SESS SESSESTTST OSHS HSEEETES SESE OOD OSHSEEESOSEEESESESERERTESS ESS
FI SSCESSSSSSSSSS SOE SESSSOSCSE SSKLHKSHEES SECRETE VEE SK EGSH OVSHSRSSEKERSCRETSE EE OABE BO FO OS R4 TARP O(,%R2}, 7° FO° S¥ITCH 1 SFE eNO 0 7
0a00 BOSE 6204 44 bc ELZ2° B0egt PROGRAN ID AND REVISION LEVEL @ OASY CO 10 OcFD 82 Bf PSu% JISP TO FRENR FESSARE YP SO,
SRO? 08 0802 45 bc £2.7°9G* SECTIGR FLAGS e OA55 3¢ 80 171 83 RVI Teep. 0 CLEAR SNPKIRG BYTP,
6203 31 6a03 5 pc RLEtot? CORRPRT ROUTINE RUBBER OASS 28 O2 T7F4 O80 8& ANZ TEYP,3(, 822) TSOYATP SBITCR 4.
Oa0S 0006 caes v7 Be XL2*6COG* RESERVED @ OASE 3D OR 474 85 LY PERSE, 79 S#i7c4u 9 TOO LARGR ?
HA6H OR 10 6aG? 28 ne BL2 (2TRG 25 PIRST ROUTINE RDDRESS 6 OA62 CO 88 OCPD 86 PR 2524 SUSP SIT FP So,
SAOR FPS oac9 3% Be LL2*PePpre RESERVED OA66 32D OF T7F14 87 cur TEP? THIS & BITE YH COM*®ARB ?
OAOA ADSOCD OaGc 20 AUST bc EL3*aOungg? SECTION PREFACE ODT TABLE © e QRER F2 041 63 88 JR? Ser, SVeP YF HoT,
Gaon #01006 Oxor 21 BUDT oc 7239801000" OAGD BC 00 07 39 dT 20, X22) ,2°908 SET SPCTOR RISBER TO OO.
22 90 SSPTHSSSSSTS SSHSOSISH HSS ESTES SESPHHSHKSS OHSHEHOSDESESETHOESESSEAESHETORASAREA
23 91 6 CHECK SUISCH 2 FOR & CORRECT SPTTTRS. 2
. 28 e@ & 92 SOSSSES SESE FOSS EOHOEEOSESOS SOS OV EOS SEE SHEESESEEESESESEOOSEEESEE8E998099998
25 O0A70 B9 OF GO 93 TOP 0 (e972) ,2°Or* S¥I°CH 2 SPT TO 0 ?
Zh SSESHSSSSESCHHSESS HOSTS SEIS SOSESOHESH SESOHESTE SSS SHES OSSSEEEESESSEHESSEEEE ® O0a73 ¢€O 760 ONES 98 ST Psu? JIN9P YF $9,
27 ¢@ PROGRAS WOTES. * ° Oa77 8S OR O00 9§ TRE N¢, XR2) FP OKe SWITCH SPT TO AT LEAST 9 ?
22 SHOSSSS SSSSESS ESSHSSSEOS SO OSSHSEESESE OS EEEETES TESTES S$EOESOGEEROEOEEREREE OATA F2 90 67 96 JP CRTRS JUSP IP #9T.
29 @ , * © 3 OA7D B89 C7 00 97 TAP O(,LP2) 89078 SWITCH SET TO NOT GRPATER THAR 8 ?
30 ¢ THIS PROGPAN CONTAINS THREE PARTS. ROUTINE OF BUILDS A TABLE @¢ i 6a8O CO 90 ODOS 9R BP esu2 JO@P ITP £9,
371 ¢ OF DISK COWAANNS. BOTE - AN EXISTING TABLE FAY BE DELETED BY ¢ | OARS’ 26 03 1805 00 99 CKTHS =H SUANL,0f, 2972) ISOLATF SWITCH 2 SETTING.
32 € CALLISG OUT ROUTINE Of AGAI™ AND *RUILD® A NEW TABLE OF FR THE © 0 e Oaks 3p O5 74865 366 CxLY SWANL,F*OS* SWITCH 2 SPECIFY A SPWDL -B- CHED ?
33 ¢ OLD OSE. ROUTISE O02 IXTERPPETS THE TAPLE AWD BXECUTES PACH s GARD F2 82 3D 101 JL CRPRP JIO@P TP LOT.
3a @ «TASLF. SOTE - SACH TIME THAT ROUTIWE OF IS PIRST CALLED, THE & ase 38 a0 4778 962 TBR OD?™, 2°age SPYNDLY -f- DEFISED ?
3 e DISKS RFE RFCALIPRATED SO THAT THE PROGRAN BAS A STARTING s © e OA9G P2 90 22 763 JP RODE? SUSP IP WOT.
36 & POIET. PNITISE O03 IS A LOGOUT OF THE CURRENT COMRARDS TABLE. @ OAS7T 35 O67 16805 106 cL? S¥auL_,? SWI°CH 2 SPECIFY FIXED DRIVE 2 ?
37 «& ALL COOSTERS ARE RESET WHEN ROUTIKE O07 IS CAL*.ED. s OaSs F2 82 2F 768 JL CRPRe SUP IF ROT,
36 6 e ® OAde 38 OF OaOP 106 TBR ROD?,.{ OD3 THIS €ODFL 3 SYSTER >
39 SOSS8OSS6SSESSSSOHSEESEESSBOTESEESSEOESESES 8952 600 6000S500 090098000986 o ORa2 F2 90 278 107 JF CK PRP JOMNP YF KNOT.
80 108 © SOD 3 ERPOR SESSAGE °
Bf @ ORAS CO 87 O2ZIA 71609 8 PRIBT PRINT HOD 3 EPROR, |
82 ° OAA® C6 Oaad 710 pe RL aecee ID -A0ER-. tt hae
8&3 OAAAR 21 OQARA 911 oc IL1¢393°
BE seseceses o/1@ OAAS 1BAR Oaac 112 pc AL2 (BODISK) |
85 © RTHOT © OAAD A0ES OAAE 113 pc RL2*a0088¢
Kh SOSSSSSESS$OFSSSSSOOFSSEOSSSOSEHESESOCESSSSSESOSHOOOHSESSHSEEHETOORESOEOEES OAAP CO 87 0222 918 8 aL? OPEPATOR RALT -FI-.
are oO @ OAS? aor casa 115 oc RL2Z°a2091°
ag e ROUTINE 07 PROGRAS BUILDS A COSSANDS TAPLE BY READING e OA85S CO 97 OAS? 116 R RETRY GO TRY AGAIN.
ag @ THE CONSOLE S¥ITCHES. e 117 9 SPINDLE -2- NOT DEFINPD #ZSSAGE >
$0 ¢ e e OAHS CO 87 O21A4 118 RODEF 8 PRIST PRINT DEFINED CHECK.
510 NOTY - LAST OPTION SHOULD BE -0000- TO e o OARD C4 GABD 119 oc XLI°*c6® ID -AOPE-,
52 ¢ SIGNIFY END OF TABLE. € * OABZ 143 OABE 120 ae ILi¢398
53 ¢ 2 Oo e OASP 2243 eaco 8 121 be AL2 (WOSP8B)
5a ¢ NOTE - INDEX REGISTER 2 IS THE POINTER a OAC1 KROES oac2 122 pc RL2°*a0E6
*55 «¢ POR THE COMMANDS TABLE. & OAC3 CO A? 0222 123 R HALT ERROR HALT ~-£6-.
56 ¢ s o ® SAC7 ACEEB Oacs8 128 pc XL2*a02B6
*57 S8SSESEESS FSS OF9FSSSOSHETSETEHETEEESSEESSEE$O8 99098898F8SE SERS CROEESE OACS CO 87 ORG? 125 8 RETRY GO TRY A&GAI#.
OA10 01 0OA10 58 RTHOT DC X17°OT? ROUTINE O14 DACD 89 BO 66 126 CKPRP TBP 0 (,XR2} ,X* 20" ‘THIS A SEEK COMMAND ?
Call 80 OA11 59 pc XL1°RO08 MANDAL INTERVENTION REGUIRED QO e OADO P2 10 A2 127 JT CKSa3 JUSP ITF sod.
OA12 ODEB 0A 13 60 pc AL2 (RTEO2) ROUTINE 02 ADDRESS , QAD3 30 GA FIFA 128 CLI TEND, X°Oa? THIS A SPECIAL SEEX OPTYON ?
61 OAD? P2 81 OR 129 JE CKSH3 JU"SP IF SO.
Oais cO 87 1EC3 62 BEGIN 8B SETUDT GO SET SECTION FLAG. . @ OADA 36 O2 77D2 130 A WEGON2, XR2 DECPESENT POINTER TO CHECK LAST SS.
OAI8 C2 O02 18CC 63 LA CeNDS, XR2 LOAD COMMANDS TABLE ADDRESS. © OADE 8D 01 61 78CB 131 cLe 2(2,XR2} ,HFOrPO IS THIS R2CALIBRATE FPLAG ?
OAIC OC SA 19A3 19A8 64 fVC PRT (91) ,PRT+1 CLEAR PRINT FIELD. OAE3 F2 01 OD 432 JRE NOCL JOSP IP NOT.
OA22 OC 78 1947 1948 65 ave SCK (128) ,SCK+1 CLEAR OLD SUMMARY COUNTS/TABLE. O e OARS5 BS 61 02 133 TBW 2(,XR2) ,x*O18 WAS HEAD 0 SELECTED AS EXPECTED ?
OA28 OC 01 T7FT 1721 66 five TEMP (2) ,HOOO0D CLEAR WORKING BYTE. OAES F2 90 72 138 JF BADHD JOSP IP WOT.
OAZ2E CO 87 O21Aa . 67 B PRINT PRINT OPERATOR SES TROCE IONS « OAEC 36 O02 17C6 435 A NO0O2, XR2 RESTORE POINTER.
OA32 46 0A32 68 * pe XL1°a6¢ e OAFO F2 87 82 136 J CKsw3 GO CHECK SWITCHES 3 © &.
0A33 23 ‘ 0A33 69 pc IL9°35° O OAP3 BD FF 00 137 NOCL CLI 0(,XR2) ,X°FPF* LAST CCS@AND A MULTI READ/WRITE ?
DATE 1T3HAR70 O6APR70 22NaY70 ¢1A0G70 010CT790 28APR71 PROG ID ono4a-& o Ld DATE T3NAaR70 OGAPR70O 22NAY70 01AUG70 010CT70 28APR71 PROG ID OBO0G-4
EC WO. 571512 §71516 §71513 $71537 571540 571565 PAGE 1 EC WO. 571512 571516 571513 571531 571580 571565 PAGE TA
| - o|@
te peer erie cnet tee Mee Os eae a eri ee Se ae am ce an en Ueda een, ater ee ame ae
Peranteau we ee mw
2
pe RY le a a ele Se a Be te inn oe we wet ae ae eo EP ps wc eer ae etd Fey cen BS age Ze
te aa? eSB Se aise Fas eg oem |g
es Po ele | | : | 2
IN MAINTERASCE DIAGNOSTIC PROGRANR PART #0. 5129688 IBA NAINTERANCE DIAGHOSTIC PROGcRAR PART WO. 6920688 —
PAGE 2 @ @ PAGE . 2a 5
BO8e DISK PRIENDS TEST Boos DISK PRIERDS TEST
Fee LNC OBJECT CODE ADDR STRT SOURCE STATESERT 6 @ ERR LOC OBJECT CODE ADDR STEHT SOURCE STATERtRT a
Oaré #2 01 8&7 938 IRE ORL JURP IP NOT. ; @ OBBE 34£2¢ OBBP 206 pc ALZ2(YMARD =
GOaP>o 36 62 47D? 139 a NEGO2, XR2 DECRESENT POINTER TO CHECK HD SELECT © . eBce aces GBcti 207 pc RL2Z*AOPRE wt
oarD 2c 66 2779 OY 780 AnYvC TERP (1) .1¢,XR2) STORE STARTING SECTOR ID OF OLD CHED eBc2 CO 8S? O2t2 208 B® HLT PA Go FRALT.
OR02 2” 06 1774 02 144 ALC TEMP (1) o34,%82) ADD THE HULTI-READ/ERITE COURT. @ @ ‘ 269 SSSTSSS OL SE STH SBISESSOKE ESS SESH SE FETHHS TIES OE SE OELES OE 456ESESEOOEHE TION SG
OF07 3D 18 1774 $82 cLY TER?, 28 DID IT GO TO WEE HEAD DURING THE OP? 236 @ TRLL OPFPRATOR TO SELECT @ SFOT9S8S £9 REAS/EPITE AND CHECK HIF. @
Of0R P2 AB IC kz JH CRS@HD JUSP ITF so, : 211 SEOSOSS$F5SSSSSEESS OF SSHEF SHES TELSESLOTTTEEEEH ESSE ES OTEHRERKESEHSEHERSOR
OROF #6 OF SO 148 TBR 8 O{ , X82}, 27078 READ 0 LAST SELEcTEeD ? Q GBCcé 83 70 60 212 CRAUL FAN O(,KR2),8°90° TS THIS A PULTI-SRITE ?
O811 F2 70 09 16s Jt YEP JUAP IP so, @ OBce? F2 710 69 213 J? e%2 SnN@p TP ANT,
0396 89 OT Ge 186 PRE &(,XR2} ,x*Ot# CURRENT HEAD SELECTION POR RD 7 ? oacc Oc O98 IPse icPS?e 27a S¥C SecsrT (5) , READ SE? SP @PSSESE FOR *2Pape,
6847 F2 90 Bt 987 J? BADEDS SUMP IF BOT. o OBP2 F2 BS? 66 275 J ee9
OFA P2 87 OF $58 d OUTRER GO CHECK SHITCHES 38 8, © | 6Bps OC Gh 16530 icFS 216 RIC SECSET(S) CURT TF SP? OP MFSSAGY FOR *URTrTee,
CBID Af OF Oa 229 YEP4 TSB &(,ER23 -2*G1? CURRENT HEAD STLECTION FOR HDG ? OBMs co RT 6278 237 SPTR ® PRAT PRIV?T SPT PRTR SELTCHES,
A820 F2 30 36 $56 JF BADADS JUSP If NOT. @ OBnP 36 OBDP 248 pc EL4*66¢
0323 36 G2 17cR { $7 OUTHER A NOOS ,.XR2 RESTORE THE POINTER. S OBrZO 39 O8FO 249 2c YLd¢57¢
0627 F2 RF an 152 3 CKSH3 GO CHECK SWITCHES 3 AND &, ORF 703D OnE2 220 BC AL2 (SECSE*)
O52A B8 O61 GO 953 CKSYRD Tew 0(, %R2} 207° OLD HEAD SELECT START BITS HD G ? o Oo ORES CO 87 OZ22 22% a HALT THLIGS HALT -FP-,
9R29 F2 479 06 958 JSF CRADE JTS" YP so, OPEV AOEF OB28 222 pc ZL2¢*a0rre
07739 B84 01 O68 54 TaN &(,XR2) ,X*°OTe DOES WEY HEAD ALLOW’ FOR SWITCHING 7? Ones 50 60 03 223 SRS ¥(,192) 419 358 SPHSE THE COBSOLE SBITCHTS.
0843 P2 906 25 156 oF BADHDG JUMP IF NOT HEAD 0 POR CURRENT CHED. e|1e OBEC BD 00 03 228 cut ¥(,872),2°90" #° SPLFe™ 00 FOR Muti ?
0336 89 07 Gs 157 CRED? TRN 4 ¢,X%R2) ,X*578 NEW HD ALLOW POR THE SWITCH ? GREP P2 81 2P 225 JF 8AIPO4 ST4P YF sO,
OR39 £2 10 tf. 2548 Ab g BADHDS JUaP IF WOT HEAD 1 POR CURRENT CNED. o2*2 8p 00 03 186C 226 cic 21,272) MAS DID OPPRAPOR SPECT" Y TOG ZRUY PFrans?
ABic cO 87 6923 759 8 GUTHER GO CHECK SWITCHES 3 AND &. o o OBP7 F2 88 32 227 J8 Faayqy Jgze YF sn,
0860 BS 8 00 $60 KORL TR 0 (,XR2} ,X*018 LAST SEEX USING HEAD 0 ? OAPA 2C 00 T7F4 OF 228 | avc TPPP TIN, 14,722) STOP! STARTING SECTNP SD4RFR,
0882 ©2 19 ©9 161 JT yao JONP IP SO. ; QBrPr BS 601 00 229 FRR OC, kR7) KPOV! TAIS A YFAT 1 OPTION ?
O866 £9 OT 02 142 TRY 2%, IR2) .X%*018 CURRENT CSND FOR HFAD 1 ? ° 6C02 F2 10 06 230 J* 269 Joe? YF ANT,
ORS? F2 10 92 163 Jt BADHD JUNP IF NOT. oO 0c0S OF 00 17F4 19CE 231 ALC TEER (4) 8028 INVCPESPUT COUNT BY 28 SFECTIRS.
OBac 72 AT 64 968 3 REROT GO CHECK SWITCHES 3 ABD 4. OCOB 22 00 1771 03 233? aLc TPEP (1), 3(,XR 2) TWNCSPCERT BY KOGKRER OF SILT YES,
Orar AR Of 62 165 Yao TBS 2(,%R2) -X*07* HEAD 0 SELECTED POR CURRENT CHED ? Co 0C10 3D 30 17F1 233 CL Teep, x? 36e TOTAL HOPE THRY BR SFcCTOAS »?
ORS2 FF? 99 09 966 JP BADHD JOSP IF KOT. 0 OCc18 F2 8&8 290 238 JH ERLRG JOSP IF SO. ‘
ORS5 £2 02 62 1647 HEROP La 2(¢XR2) -XR2 RESTORE TABLE POINTER. Oc17 BC FF 02 235 avr 24,492), k° Re! SZ™ S©CTC® TIMRER FLAG.
0858 FP? 87 Wa 768 J CKSu3 GO CHECK SWITCHES 3 AND &. a 9 oc%2 22 02 02 236 La 2 (2 KF2) -2R2 IRCOSRENT TASLE POINTER.
169 © SAD HEAD HESSAGE 2 “= 6c1D cO 87 OD2z 237 R Serr G. PAD HEXT IPTION,.
Gesa ©) 0? 02 270 SADHDS LA 2¢,%R2) ,XR2 INCREVENT TABLE POINTER. 238 © SFCTOR ROGEE® PRROR RESSAGTS @
GRSe 72 07 0? 271 BADRD LA 2 (, XR2) ,XR2 INCREMENT TABLE POIRTER. ° 6C2%3 CO 87 O2128 239 “6OT00 8 PRIST PRIST HOT 00.
OPA CO 87 0298 972 8 PRINT PRINT WRONG HEAD. o oc25 $2 oc2s 280 DC RLI¢82¢
0965 C6 OR65 972 oc XL1°C6* ID -BOZA- 8C26 OD OC24h «2ut pe TL9¢498
ORSH 18 OR66 178 oc ILi*20¢ O o OC27 IBA oc2= 282 be, AL2 (KR ROTO)
On67 29a7 ON68) 86975 pce AL2 (HDBD} Oc2S P2 87 43 283 J strra GO PEPTAT ISSTRUCTIONS.
ORES BOER OB6a 176 pc ZL2*aGES* o¢c2¢ ¢O 67 G2728 266 EPRRY 8B PRINT PRINT TAO LAQGY A SETTING.
On48 CO AP 0232 797 8 HALT ERROR HALT -£E8-. oO @ OCI 82 oc30 245 oe ZLIease
O84" ROFS 6870 447A pc XL2* aGEea? ro 6c 31 2a Oc3i 286 oe IL?°a0° roee
On71 CO 87 Oas2 179 B RETRY GO TRY AGAI®. : 0C32 1D65 0C33 287 oc AL2 (XCED) |
789 OOO CSS ESSE SE ESERSESEREESS SESE SSEEESESESEESESESESESES $864 S8ETSEESEEEDESEOE e OC3e F2 87 GB 288 J SUTaa GO REPEAT INSTROCTIONS.
WAT © CHECK SW CHES 3 & 4 FOR CORRECT SETTINGS. s 6 Oc??? CO 87 OZIA 289 ERLPG ® PRIVT PPYST PPAD/SEVITE OVERROW.
182 SSSCSHISESSSESSSESESSESSHHESEKSRSSKESE SSE SSSESSEKKITK EK HSE EESHEESEKEEEERTEEEHOERESEOEEE 0C 38 9? 0C33 250 pe XRL7*AaA2
*0875 29 0&8 1905 783 CKSW3 CLI SWANL,4 THIS A DRIVE 1 C#RD? Q ° eci3c 22 oc3c 251 oc Iz1*%e6°
*6279 F2 ABS 07 188 JH #410 JUMP IF DRIVE 2 CARED. ; oc3D 1993 OC3E 252 oe AL2(VRUN)
OB7C 3a 01 997A VAS SBR FLAG, X*01°* SET DRIVE 1 PFLAG. Ofc3Fr co 67 OBDB 253 S¥THA 8B StT4 GO RYPLAT INSTRICTIONS.
O880 F2 AT O08 186 J 47 . 254 SSSSSKS SSTSESSHESESESE SEEES SEHHESSEHESTESSSSESCEHNSE SESS SHEESH EKTHSE SHO SEEEOOE
OB23 3% OF 1k8tAK 187 SBN FLAG, X02! SET DRIVE 2 PFLAG. 0; 90 255 2 CHPCK SSWS 3 6& & AGAINST THF CAPACITY OF THE DISK. ®
ORa? ag F0 00 TAR TRPF 0(, X82) ,X°EO* SWITCH 1 SET FOR A SEPK CARD ? 256 SSESSISSSSESVSTSE SSS SS SH SSSSEHESESSKESESESSESESHSEESESHESSSHESSERETSTESCTESCSEOHEHEEESE
898 F2 10 RH 1R9 JIT CKSEK JUNP IF so. 6 ocds 28 03 7805 00 257 CKSTK &8N S¥VANL,0O(,K82) ISOLATE SWITCH 2 SETTING.
OPFD 3c 00 I7F4 3190 Avy TENP,OC CLEAR WORKING BSYTZ. O oces 3D 05 1805 258 CLT SWANL,x*05° SWITCH 2 GREATER THAN S (SP"DL -8-)?
B91 28 02 977? 00 191 SANZ TEMP,O (, XR2) ISOLATE SWITCH 14. Ockc F2 B82 15 259 JL A34 JUSP IF IT IS SOT.
9896 3D OA 17F4 192 CLI ‘TENP, 10 THIS A SPECIAL SEBK ? OcSP 38 10 Y7PFA 260 TRH vpT, x*70° 1090 CYLINDER BIT OK FOR SPRDL -®- ?
OFGA F2 C1 OA 193 INE $413 JUMP IF NOT. © ° 6c53 P2 30 07 261 JF #4190 JONP IP WOT. :
OB9D 38 BO IATA 994 TBN PLAG, X*80* PREVIOUS SPCL SEEK DEFINED ? 0cS6 3C 67 OC77 262 avi CLC¢1, 103 SET CHECK FOR HALF CAPACITY DISK.
OPA F2 10 18 795 JT WANY , JOMP IF SO. OCSA F2 87 79 263 J cLe :
‘OBAS F2 87 9C 196 J CKSEK GO CHECK SSW 3 AND &. C | o 0C55 3C CB 0C77 268 “VI CLC#1,203 S2T FOR FULL CAPACITY DISK.
OBA? BA BO 00 197 TSW 0(,XR2) ,x*80* MULTI-READ/WRITE OPTION ? 0C61 FP2 87 12 265 J eLc JUSP AND CHECK SHITCHES 3 6 &.
ORBAR F2 10 19 398 JT CKSOL JUSP IF so. < OC68 38 20 17PFA 266 Aza TEN uptT, x?*20° 100 CYLINDER SIT ON FOR SPNDL -A- ?
OBAD Bp 17 01 499 CLI 1.(, XR2) ,X* 178 SWITCHES LARGER THAN 23 ? G 3 0c68 F2 90 07 267 JF *+10 JUSP IP WOT.
OBf0 cO 88 ODIC 200 BH ESCTR JUMP IPF so. 0C6B 3C 67 O0C77 268 VI CLC4+1,103 SET FOR HAL? CAPACITY DISK.
of88 CO 87 ODF 201 B NEXT GO R¥AD NEXT SWITCH SETTINGS. ; OC6P F2 87 O04 269 J cCLce
202 * TOO MANY SPECIAL SEEKS MESSAGE * o e 0C72 3C CB 0C77 270 NVI CLC#+1, 203 SET? FOR FULL CAPCITY DISK.
0888 CO 87 O21A 203 SANY B PRINT. PRINT TOO MANY. 0c76 BD 00 01 271 “LC CLI 1(,XR2) ,X*00* SWITCHES LARGER THAN DISK CAPACY TY.
OBRC Ch OBBC 208 Doe XL17*C6* ID -AOE8-. ‘0C79 F2 848 ASO 272 J8 ETRK JUSP IF so.
OBBN 25 OBBD 205 oc IL1*37¢ 6 @ 2Q7Z SESE EEEEEEEERERSEETEREE SEEETEE SE EEEETEETEERE$SOE ES OSEOOSEEEODEDODOSE
: : | . ; : :
DATE TISARTO O6 APR70 22H AY70 01A0G70 010CT70 28APR71 PROG ID OB0u-a o ® DATE V3mART0 O6APR70 22mMAY70 01A0G70 010CT70 28APRT1 PROG ID ORn0a-s&
wc WO. 571512 571516 §71513 571531 - 571540 §71565 PAGE 2 ; EC WO. 571512 571516 © 571513 $71531 571580 571565 PAGE 2a
2 @ Ce
Sern mraeeosi 7 procmam BART HO,” S129688
pose
-2RP LOT
‘ee?e
ocRro
0C83
0ca?
OCA
OC8E
6col
5 0c95
CoR
a kas
| CVE
= ecat
ocaa
oca?
OCAA
OCAD
oca0
Ocs3
OcB&
ocs9
_OCAD
ecco
occe
eccs
8ccsB
occr
ocDo
ecp1
ocn3
ocDs
ocos
OcDB
ocDF
OCE2
OCE6
OCcES
OCED
OCEE
OCEF
OCcr1
ocr3
OcF?7
OCcrd
ocFD
‘ 0p01
~—OD04
op08
ODOC
opoD
ODOE
OD10
op12
0D16
OD18
-Opic
> OD22
0D25
- OD2B
. OD2F
DATE
EC 80.
Sees Aine + die
ea aa ee sate eg de ai ene ae ane se mene Abn wma
OBJECT CODE
3D
r2
3D
¥2
3D
¥2
3n
F2
P2
BD
¥2
8D
F2
BD
F2
BD
F2
Be
P2
3a
F2
3a
38
F2
co
ce
18
o%
ar
62
81
05
91
06
81
87
6a
63
SR
a6
80
16
ad
87
60
co
90
87
1DCc2
AGES
B9
F2
38
F2
38
F2
co
C6
30
£0
90
a0
87
80
87
87
TBEF
AOE?
co
87
a0E7
co
3c
F2
3c
co
C6
18
87
F1
87
F2
87
1864,
AOES
co
87
AOES
co
oc
F2
oc
co
c6
T3IRARTO
S712
87
05
87
05
67
1808.
4805
4
1805
GA
1805
O03 .
at -
01
91
82
01
85
36
60
C7
IIR
VATA
TH7A
73
O2TA
oo
07
187a
181A
29
O21A
0222
OAS2
1858
1858
O21A
0222
OAa2
1B89 TAES
06
1B89 1TADB
O2TA
(| DISK FRIENDS: ‘Test
“ADDR STAT SOURCE STAYEREST
ocpo
ecn2.
ocba
OCED
OCEE
OcFoD
OCF2
OCcrS
opoc
oDOoD
ODOF
OD11
0D17
OD2P
OG APRTO
571516
295 COFFEES FOSSEEES B0SEEEESEEEERES BOS SOEEHETES OSES S CRETE SS OLESEEESS FENSEES
276 CLI- SWANL,X*°O?* .$$8 2 SET TOA 1 ?
277 - JB DATRK — JUSP IP so.
278 CLI SWANL,x*02¢ — ssw 2 SET TO a2?
279 JE DATRK JU"P IF sO.
280 - CLI « SWANL,Z°0S* ssa 2s"T Toa s ?
281 dE DATRK JUSP IF so.
282 CLI SBANL,Z°O6* ss¥ 2 SET TOA 6?
283. Jt DATRK SONP YF SO.
288 3 WEXT GO READ NEXT SSW SETTING.
285 oSecececceenceceeeessseseseeeeeeeeecesseteseneseseseeeeesoeteseeseesess
286 © MAKE SURE THAT OPERATOR DOES NOT..SEEK TO TRACKS 4-6 NOR. TO
*267 « 71-75 OW A RESOVASLE DISK. THIS IS A SAFE-GUARD TO PREVENT
*242 ¢ | DESTROYING DIAGHOSTIC PATTFRNS ON REMOVABLE DISK. s
x
27a ¢ TEST TO SEE IF A REMOVABLE PISK was appressep. _¢
2789 00060560058800S6SSSnS88SSs SESE SEREEESEOCEOSETH SCENES SESES ESS SEEESEESEESE
290 DATRK CLI 1(, 282) -%* 06" | TRACK ID GREATER THAN 6 ?
291 ; a NXTST JUSP If NOT.
292 | CLI %(,R2),%°03" TRACK ID GREATER TRA® 37
293 38 DONSY " JUMP IF SO.
290 WXTST CLI 1{ , XR2) ,X*4B* TRACK ID GREATER THAN 75 7?
295 Jf SAFE JOmNP IF #OT.
296 CLI 1(, 282) oX*N6* . TRACK ID GREATER THAN 70 ?
297 3H DOMAY goose iF so.
298 Sarre TEN 0(,XR2),x%*°80* THIS A SPECIAL SEEK COMMAND ?
299 oT #410 JUNP IF SO.
300 SBN FLAG, X*S80* SET WORMAL SEEK FLAG.
301 oJ +7. :
302 S8N FLAG, X*80* . SET SPECIAL SEEK FLAG.
303 TBN FLAG, X*CO* BOTH SEEK FLAGS SET ?
3048 oF NEXT GO READ NEXT SSW SETTING IF HOT.
305 IX B PRINT PRINT DO NOT 81x.
306 pe XL1°C6* su ID -AOES-.
307 pe TL1*27
*308 pc AL2 (NIXUP)
309 pc XTL2*Aa0e8" ;
310 TSF 0(,XR2) ,X* EO! THIS A NORMAL SEEK ?
311 oF *+10 JUMP If KOT.
312 SBF FLAG,X*8O* RESET HORBAL SEEK FLAG.
313 J eT =
318° SBF FLAG,x*80* 2 RESET SPECIAL FLAG BIT.
315 J HLTES - GO RALT.
316 * BAD TRACK MESSAGE
*317 DONNY 8B PRINT _. PRINT BAD SELECTYOR. .
318 pc XL1*C6* ID -AOE?-.
319 pc IL1¢Be" Bit) tips Peg
320 Dc AL2{ STUPID)
321 pc XL2* a0E7
*322 8B HALT ERROR HALT -E?-.
323 Dc XL2* AOE7
*328 B RETRY GO RETRY.
325 * SWITCH SETTING ERROR MESSAGES * :
326 ESW1 NVI RIGSSW-12,X'F1* SET UP FOR SWITCH 1 ERROR.
327 J 47
32A ESR2 nviI BYIGSSY-12,X*F2* SET UP FOR SWITCH 2 ERROR.
329 B PRINT PRINT SWITCH CHECK.
330 pe XL1°C6& ID -AOE8-.
331 pc IL1°20¢
332 DC AL2 (BIGSSW)
333 DC XL2*a0EB
*334 HLTES 8B HALT FRROR HALT -E6-.
335 pe XL2* aOEB?
336 B RETRY GO SACK AND RETRY.
337 ESCTR MYC LRGSSW(6),SECTOR MOVE IN SECTOR LABLE.
338 J +49
339 ETRK NVC ©6LRGSSW (6) , TRCK MOVE IK TRACK LABLE.
340 B PRINT PRINT SSW 368 ERROR EESSAGE.
341 pc XL1°C6* ID -AOE9-.
22M AI70 01A0G70 010CT70 28AaPR71 PROG ID OB0a—-&
571513 571531 571540 571565 PAGE
eo.
PSEA AAET HALES ESE ESS Ee Se
‘
Bop Gs 16 OB Be S O Ole: OS 0.6 6.6 68:
oO Oo 9
a anne
mest
ORR Nee Ae NaI eT ace ai tng AF gt eae heed 48: a de ce a erin ea ee ea alee
EC
Boae
BRR Loc
0D30
OD31
8p33
oD35.
oD39
GD38
0D32 1
opat
Opus
onan
opec
onar
0D53
0D$7
ops
0060
0D66
op69
ODED
OD6F
OD73
0D77
0D78.
OD79
OD7B
onReo
opss
oD85
ODss
oDs8
opsc
6D94
op9e5
0D99
on9sD
OD9IE
OD9oP
ODA1
ODA?
ODAA
ODAF
ODB2
ODBS
ODB9
ODBD
onc
ODCc7
oped
ODD3
ODD?
opDSs
ODDS
ODDS
ODE1
ODES
ODE?
DATE
nO.
DISK FRIENDS Test
OBJECT coDE
23 —
1389
adee
0 8? 0222
Aces
F2 87 31
38 01 OD6E
3C £1 OD6E
3C £2 OD6E
34 02 17714
OD 61 17F2 1775
OD O71 T7Ft 1757
¥2 81 OA
c8 87 6222
CO 87 0a42
cO 87 O2ZiA
04
oc
TADS
8C 01 01 1781
co 87 O21~A
02
&0
1397
C2 902 18CC
2C 03 OD98 O03
CO 87 143E
60000000
cO 87 O21~A
01
58
1943
OC SA 19A3 1948
E2 02 G2
BD 01 01 I7E1
P2 81 O08
BD FF 00
co 81 ODA?
co 87 GDBC
3c SC 1989
oc 35 1928 1989
oc OB 1972 1AC9
oc 03 198D 1A3F
cO 87 O21A
06
5B
1943
OC SA 19A3 19A8
co 87 0222
A0E3
cO 87 0216
ODGE
oD77
op7s
OD7A
ops
opss
0D87
0D98
OD9D
ODIE
ODAO
ODD7
oDDB
ODDA
ODE6
T3MSARTC O6APR7O
571512 571516
TB" AATHTERANCE pIacuosTIC PROGEAR
apon sTs7 SOURCE STATELEIT
O03 382 be TLI* 37¢
ODd32 383 oc AL2 (LRGSS8)
oD3s «6348 oc RL2* 20E9
*oe, 6888S _ 8 RaLt
OD3A «0386 — pve XL2*a0Es
*387 3 ROSLT1
> EPRCOR HALT -E9-,
GO PACK AND RETRY.
BBQ SCHSSSHS HEHEHE SESEESEESSEES SEES ESEES STEROL EE SESSEEEESESPLEECT ES SOSSEESOCS
389 © INCREZENRT TABLE POIKTER FOR KEXT COMMARD. °
Fae ee 6 ee ee oe
PAGE
PART fo. 5129688 -
VA.
350 SSHESCTHSES FSET SSE SKSESESHSSEHESESEEESEEESEEESE SOK SSEAHSESESEEHOSTELCCCECESSEOSSEOEESE |
351 NEXT La
352 TBS
353 37
358 : avTI
355 3
356 “VT.
357 ST
358 cic
359 JE
360 cLc
361 JE
362
8
363 RDALT DC
368 8
2{ , 222) -XR2
RDHLT, £°OT!
e196
RO:ILT,XZ* ET
se?
Bunty es =e"
emp, IR2
eeepiay eNnea
S0cR
TEMP (2) , ENDO2
20c8
Halt
132° gR082*-
RETRY
INCPEMENT TABLE POTML ES FOR NEXT OWE
LAST HALT AN ST ?
JOSP IF KOT.
SET UP AN -FI- HALT.
SET fP AN -f2- HALT.
STOPE CHNDS TABLE POTTER.
FILLED UP TABLE YET 7
JUSP IF $35.
FILLED UP TABLE YET %
JO“P IPF $9.
INLINE HALT -E%- OR -E2-.
GO READ THE WENT “WITCH SETTINGS.
365 EETSEEKRS SSESSTSS SSSSSHESE SSESESE SKSCHTSSSSE SSESSSSTSESSSESSEESE . £6 FF KOSEHEESSEKHESHE ESD
366 * DUMP CURREST
COSSANDS TABLE.
367 SSSSCSES SHES SSE SHSSE SSS SSSSESESESSKES SEES ESE SHKSSE SHES SEKESSSESKE KS CSETEHEESESHES
368 AUCH 8
369 sc
370 Dc
371 oc
372 “vc
373 DORE 8B
378 3c
375 oc
376 pc
377 LA
378 SVIN avc
379 B
380 ORG bc
381 8
382 pc
383 oc
384 bc
385 / wwe
386 XRC2 LA
387 cic
388 JE.
389 CLI
390 BE
3391 8
392 GENIT SSVI
393 aye
398 vc
395 ayvC
396 8
397 pc
398 de
399 be
200 svc
801 8
802 bc
803 B
goa
805
R06 *ese08808
807 * RTNOZ ©
PPINT
XL1°0R°
YL1°42°
AL2(FILUP)
1(2, 2R2) , #0000
X¥L1°02°
IL1*6u
*AL2 (CHNDAS)
CIWS, KR2
ORG (8) , 3 (X82)
NTRPT
1L8*00000000"
XL1°918
IL1*918
AL2 (PRT)
PRT (91) -PRT*1
2 (-XR2) -XR2
1(2,XR2) ,80000
GENIT
0 (,XR2) ,X°FF
*INC2
AVIS
PRT-26, C**?
PRT-27 (58) , PRT-26
PRT-49 (12) , LSTONE
PRT-86 (8) , DECOO
XL17°06
*IL1°91°
AL2 (PRT)
PRT (91) - PRT*1
HALT
XL2*a0E3
*LINK
PRINT *FYLLED UOP
*STOPE FND OF TABLE PFLAG.
PRINT HEADING.
REINITIALIZE TASLE POINTER.
STORE CURRENT SETTING. 3
GO INTERPET PRESENT SETTING.
PRINT CURRENT SETTING/SINTEROPFTATION
CLEAR PRINT AREA.
INCREMENT TASLE POINTER.
THIS THE LAST SFTTING ?
BRANCH BACK IF NOT.
THIS A& -FF- FLAG ?
SKIP THIS OPTION IF SO.
GO ANALYIZE THIS OPTION’.
GENERATE A LINE OF *** 5S.
SET UP END OF TABLE LABLE.
PRINT END OF TABLE LABLE.
CLEAR PRINT AREA.
INLINE HALT -23-.
RETORW TO DCP.
2308 HES SSERSES TALES F EVKSTVSEETSV STKE SHE EKEKSECKKEKAKHSRKEEAS KE THASTEKKASECES LSE SS
809 + s
22NAY70 OTAUG7O CIOCT70 26EPRI1 PROG ID OBO4-&
571513 571531 571580 571565 PAGE 3A
fy
ae
Sar eee ear er Be etnatnie a ee e
*. i . 5 : co
See ee ee cer me rome : o
PART BO. $129688
" TRA SAINTERANCE DIAGHOSTIC PROGRAR >
2 ar } Pace tis :
*' ROR DISK FRIENDS TEST
‘ 9R8 Loc ossece core ADOR STEHT SOURCE STATERERT
#10 ¢ ROUTINE 02 a THE COMAARDS STORED 1% “one TABLE ane e
etise , _ ISSUED SEQUENTIALLY TO THE DISK aD e
#12 ‘° THE RESPONSES CHECKED. %
813 6 ae e
als eS @ie COOSSE DOSE SEES SEES ETE ES EOE RESO OS eee ce CSEE bet eeCEe DROS eeseceaeoeseCoSe
‘ODER 02 ODEB 815 RTHO2 DC XL1°02¢ ROUTINE NORBER :
onEec 00 ODEC 816 bi a XL9°O08 . BO MANDAL INTERVENTION’ |
ODED %1£2 ODEE 617 sc AL2 (8T03) ROUTIKE 63 ADDRESS.
ae 818 ; .
ODEr CO AF O21A aig 8 PRINT PRINT ROUTINE HEADING.
on?? 85 ODF? 420 pe XL7°a8se :
ONPa 42 ODFe 4821 pec IL@*78¢
Oprs 1A%9 Ort6 #822 be AL2(mD02)
one? ana? “ODFB 64423 pc XL2*a0a2
*Onr9 OC Sa 1403 14988 42a SVC 8 =—s_- PRT (91) J PRTS1.
‘Qner cz 52 3ACA - 625 LA CHNDS~-2, XR2 ; PRESET TASLE POYETER.
OFC} 3A 08 TATA 26. Ser FLAG, x*08° TURK OFF GO SIT.
7 B27 C8SSESE SES SSCEESESESEESETENSES CESSEESEOOSEESSES DEST CE RERESE SE REEEOEECES
a2An 2 RECALIBRATE TY DISKS SEYOPE STARTING THE COMSANDS TRBL®. s
: . a29 SHEE SESS OSHSTES CESSES EES ESSE SEES HEESESTEETESEEHEESSEEESSSESHSEEEHKESEKEESES
O£07 38 20 189A 4830 DOCAL SBP FLAG, X*20* CLEAR THE ISSUED FLAG.
.OFOS 38 07 184K 831 TBR PLAG, X*O1* ANY DRIVE 1 CORMBSANDS USED?
‘AEOP FF 90 BS 8320 oF. CLRBZ JUMP IF WOT.
‘OL12 38 Of I84R 833 TBN . FLAG, X*0a* GO BIT OF?
OFri® F2 10 OR “36 aT ‘GOA JUMP IF Yes.
oF19 c? AO 1205 &35 TIO NTRDYA, X* A0* BRANCH OUT IF SPKDL -1- NOT READY.
OEID F2 AT 04 836 3: «&e7 JUSP IF OK...
OF20 CO 87 0819 437 B *-7 TRY AGAIN CY NOT READY.
OF2% 3B O48 781K &3A GOA SBP PLAG,X*'oOu* TURN OFF GO BIT.
OE28 C1 AP 1776 439 TIO BUSYA,Z*A2* BRANCH OUT IS SPNDL -1- BUSY.
OFI2C 37 AG VIF? auo LIO RCALA,X*AG* SET SPINDLE -¥- DFCR ADDRESS.
OF 30 37 Au TFS 891 LIo DARA, X*au? SET SPINDLE -1- DAR ADDRESS.
Of348 P3 AO 00 4&2 STO x*00*,x*a08 ISSUE SIO TO RECALIBRATE SPINDLE -1-
OF27 30 AZ 71809 363 WATA SNS STSBY1,X*a2¢ SENSE STATUS BYTE 1.
OSE3B 38 10 71809 sau TBR STSBY1,XK"°10° SEEK BUSY BIT OX ?
-GEIF CO 10 0837 8as BT WATA LOOP TILL BIT DROPS.
OF43 38 BO 1809 Ba6 TBN STSBY1,K* aot CYLINDER 0 BIT OR ?
Of“? F290 59; ou7 JF RCLCKA JUMP IF NOT.
‘ OFGA OC 01 1800 1773 aus svc LSEKA (2) , SEEKO+1 SET F AND C BYTES FOR SPHDL -7-.
: OF50 38 02 TRHIA aug TRN FLAG, X*02°* ANY DRIVE 2 COMMANDS USED?
: OFS& F2 90 7F &50 JF REINIT JONP IF KOT.
: OF57 38 Cu 181A 457 CLRB2 TSR FLAG, X*' One GO BIT ON?
: OESB F2 10 038 852 JT GOB
, OESE Ci BO 12FC 453 TIO NTRDYB, X* BC? BRANCH OUT IF SPNDL -2- KOT READY.
; O£62 F2 27 04 85a J ae7 SUSP IF Ox.
i 0765 CO 87 OESFE 855 8 *~7 TRY AGAIN OR NOT READY.
2 OF69 35 O8 181A 356 GOB SSF FLAG, x" 0a" TURN OFF GO BIT
i OF6D C1 82 79D 857 TIO BUSYB,X*B2* BRANCH OUT IS SPRDL -2- Busy.
: Of71 31 86 TIFT &5A LIO RCALB,X* BSE SET SPINDLE ~2- DPPCR ADDRESS.
t OF75 31 BA 17F9 859 LIO DARA, X*' Bue SET SPIRDLE -2- DAR ADDRESS.
; 0£79 F3 RO 00 860 SIO X*00* .x*Bo? ISSUE SIG TO RECALIBRATE SPINDLE -2-
i OE7C 30 B2 1809 864 WATB SNS STSSY1,X"B2¢ SEASE STATUS BYTE 1.
OFSO 38 10 1809 &62 TBN STSBY1,X*10° SEEK 8USY BIT OW ?
OF8& CO 16 OFFIC 863 BT WATR LOOP TILL BIT DROPS.
OEBB 38 4O 1809 868 TBR STSBY1,K* sot CYLINDER O BIT OK ?
OFRC F2 90 09 a65 JF RCLCKB JUMP IF NOT.
OEBY OC 01 1802 17F3 466 nvC LSEK8B (2), SEEKO¢4 SET F AND C BYTES FOR SPRDL -2-.
GE95 F2 87 3D 867 J REINIT START EXECUTING COMMANDS TABLE.
868 * RECALIBRATE ERROR SESSAGE
*6£98 3C F2 IAFF &69 RCLCKRE NVI BRATE-18,X°F2* SET UP SPINDLE -2- CHECK.
OF9C 30 B3 180R 470 SNS STSBY3,X'"B3* SENSE BYTES 2 5 3.
GEAO F2 87 C8 a7t 3 £414
F OFA} 3C F1 AFF 87> RCLCKA SVI BRATE-18,X°F17* SET UP SPINDLE -1- CHFCK.
OXA7 30 AZ 180R a73 SNS STSBY3,X*A3° SFNSE BYTES 2 6 3.
a OFAS OC 00 1839 IAFE uve HVC STSCK-13(1),BPATE-18 STORE DRIVE ID.
f O£R1 CO 87 O21A a7s B PRINT PRINT RECALIPRATE CHECK.
f OFS85 C6 OEBS 476 pC XL1"°C6* Ip -AQOE-.
i OESH 19 OFB6 &77 pce IL1*25¢
Ek DATZ 1T39AR70 O6APP70 228aY70 OTADG70 010CT70 28aPR71 PROG ID ORO4u-8
f ec nO. 571512 571516 5§71513 571531 571540 571565 PAGE a
f
NS IR RE SAYS 2 NRE PO ORIENT SEWER. EBLE ET
Wee Ne ee ER ek nc ner genteel te oettoaart tl te Hanis ena, poe
0 0'0 00 ee oee
2)
Oo 0
Oo Oo 0 09 90 0 OO
@
Oo QO 90 Q 90 4
we RE A i ee Cit cee ke ~o=
@
eo
®
6
®
6
@
e
6
@
€
c
S
S
G
S
e
e
@
G
o
G
c
c
S
S
-@
@
Pee aien,, arats
8088
ERR Loc
oeE7
CESS
SEsB
OES?
“OEG3
OfC7
Orca
Ofcr
OED1
CEDS
OEDS
OFDD
| OFEO
orra
OFEA
OEEE
OEEP
OFFO
OEF2
OEFS
OEFE
Oro4a
OFr09
OFrOD
OF10
OF 13
OF16
OFTA
OFriz
OF 23
OF26
OFr2c
OFr30
OF35
OF 39
OF3E
OFG4
OFa7
OF&B
OF5G
Orsa
OFss
OFSC
OFSF
OF 648
OF6A
OF 70
OF73
Or 76
OF7A
OF80
OFR4
OF87
OFRD
Or96
NT eT EE SERRE Re ne ease ee Serres So eis FES : a
ee eS ee ee
Me ee a ee
Wet oe ee a ea
wee
ve
a yer pie sg 2. Sten te yt. a sap tes Ate wee Awa oe el
BE EEE RS Dae Rs PRC mn A Se
Weer ee
ISH BAINTERAWCE DIAGROSTIC PROGRAS PART WO. 5729688
; : Aes PAGE aA
DISK FRIENDS TEST
OBJECT CODE ADDR STHT SOURCE ‘STATEREWT
7800 ores ate pc AL2(BRATE)
aooe OfBA 4279 pc ZL2°a008* .
38 FF 1808 a8 TRF STSRYO,X¢Pre STATUS CLEAR ?
cO 90 71368 at BY | STSER BRANCH IF #97. H
39 68° 180R °° ” ‘ 982 TRF STSBY2,x% au? STATUS CLEaPr ?
CO 90 1368 93 eP STSER BRANCH IP ROT.
cO 87 0222 | ane ‘g fALT ERROR HALT -OF-.
ado” 6fD0 485 pc KL2*a00£
*co 87 O£D7 88K 8 DOCAL GO TRY AGAIN.
: aS? SHSESEE CESSES E SEE ESSE HEEES OEEE EEE SSHECHEEEESEEEDETEHTO8ETESEEDEEEESEE OF
BAR © STAPT EXECUTING COMMANDS TABLE. ®
asa SSE CESS SSKSESHSSESSEET SESE SESE SESE SESCEESEEHRESC EEE SCORE SEHD OEHRESESAEREEOOSOESS
C2 92 18cc 890 REINIT LA CANS, XR2 INITIALIZ® C4XDS TABLE POINTER,
386 01 020A ag} TRY SSYTE2,SSH17 SSW 17 TORKED of ?
F2 90 18 892 IP CLRcCe JOMP IP WOT.
3c Sc 1989 assy SVI PRT-26,%°SC? GENERATE A LIWE OF -@-*s,
OC 3F 39f8 1989 a9s “vc PRT- 27 (44) , PRT- 26 :
co 87 0218 &95 B PPINT PRINT THIS LIWe.
014 OZER 896 rc ILI*OFF a
SB GEEF 497 pc ILU*#9T
9A2 OEF1 498 DC AL2(PRT)
Oc SA 19A3 1948 &99 AVC = PRT (91) J PRTOD CLEAR PRENT SPPA.
OC 03 1815 1816 $00 CLRCCW AVC THFCCH(G) ,THPCCHeEI CLEAR OLD CONTRO* FIFLD AND SIO.
Oc 01 1619 183A 501 five TSPSYO42(2) ,HFFFF
8D 01 01 17814 $02 cLC 1(2,XP2),89000 THIS NEW COMMAND THE LAST IN TARLE ?
cO 8&1 T11CE 503 RE ENDIT BRANCH YF So.
BD FF 00 50s CLI O(,%P2) ,xires THIS A SECTOR COUNT OPTION ?
F2 014 07 505 JIWE CLROXE JNeP IF “OT.
£2 02 02 506 LA 2(-XP2) ,XR2 YNCRESFRT PCINTER TO SKIP THIS.
cO 87 OEFS 507 8 CcLeccw LON? SACK AND TEST FOR LAST OETION.
5038 SVEKEKS SHES HSHK ESTES HHESTHSEES SETS STAHETESES SKEET EEKESESRESSETEKREKSESEERDEROROSS
$09 © ANALIZE CURRENT SWITCH 1 AND SODTFY START I/O ACCORDINGLY.
*. 5170 SES TKS SSSSSSESSSSSCSHHEKSK SESH SE SETS FH ESRSESEHHETEESEEKO TT SE SS TEKETEEEEEEEDEOEEOE
C2 01 1839 $71 CLROK LA OPTSW1,XKR1 STOPS ADDPESS OF SSH1 OPTION TA®LE.
28 G2 1805 00 512 SNZ SWAKL,O (,XR2) STOPS SSB 1 VALUE FOR ANALYSIS.
D2 O01 02 $13 INCSW1 LA 2(,XR4) X21 INCRESENT TASLE ADDRESS.
OF 00 1805 17ca Siu SLC SWARL (1), 8001 DECRFRFYT SWITCH VALUE.
co 88 OF23 $15 BP Ives BRANCH BACK IF NOT ZERO.
ic 01 1819 04 516 RVC THPSIO¢2(2),1(,xXR1) BRING IX NEW COMMAND.
S17 SHLESHKSEASTLAKLKSASCKHKKEKESKSETRUOSCKSKESESKTEARESTSH EHTS SHKKEKES SAE SERETETHOESOETS BE
Sik * ANALYIZE CURRENT SWITCH 2 AND MODIFY START I/O ACCORDINGLY.
*$79 SSRTSEKRLITSAKESRE SSE SHE VHT ESSE ST FOSH SAKES SHEKEE SES EKEEKLE CS SHAKES SKE STAROCSKE HATE
C2 01 1857 520 LA OPTSH2,XF1 STORE ADDRESS OF SSH2 OPTION TARLFE.
28 93 18CS 00 521 ANN SWANL,O(,X%R2) STORES SSH 2 VALUE FOR ANALYSIS.
D2 O14 01 §22 INCSW2 LA V{ ,FR 1) XR INCREWENT TASLE ADDRESS.
OF 00 1805 17c& $23 SLC SWANL (1), 80017 DECRESENT SWITCH VALUE.
CO 8& OFIE $28 BP INCSH2 BRANCH BACK IF NOT ZERO.
1C 00 OF55 00 525 Svc SETT#7(1) ,0(,X81) “OVE 1N PITS TO BE TUPNED OR.
38 91 OFS5S §26 sBeP SETT¢1,X*018 ERAS® ANY HEAD % FLAG BITS
3a 00 1818 $27 SETT SSN TMPSIO4¢1,X'O08 SET BITS IN SIO ACCORDING TO SS@ 2.
33 07 1818 528 TBF TMPSIO#71,xX°07* NEW COMMAND SE A SEEK ?
F2 10 62 §29 IT SKFLD ; JuMP IF so.
530 CECKERE EEREEEEECEERSESCEETS HE EEETEREET SEO TEES ED COESTETE ERTS EARS TERE RES
531 2 BUILD THE CONTROL FIELD FOR A RPEAD OF WRITE COMMAND. »
532 KRECKSESESHKAEKSES AA SEKSSSKEKSTHKSESRSARKSKASKEKKEKKESCEE SHAE KESTHE FHTTTESETAGESKHTEEHEEBD
2C CO 47714 074 533 MVC 8 =TENP{ 1),1(,XR2) STORE CURRENT SSW 36 &.
OZ 00 17F1 17F4 534 ALC TEMP (1), TEMP PUSH THE SECTOR ID BITS OVER THO
OF 00 17F1 17F14 535 ALC §=TEMNP(1) ,TESP PLACES FOR THE -S- CONTROL SYTF.
78 01 00 536 TBN 0 (,XR%),X*01° HEAD 1 FLAG SET BY SSW 2 OPTION ?
F2 90 O48 527 JF x47 Jap IF Kot.
3a 80 17F1 538 S8R TEMP,X*80* SET HEAD 1 BIT ON IW -S- BYTE.
Oc 00 1878 17F1 539 “VC TMPCCW-1(1), TEMP STORE -S- SYTE IN CONTR: . FIELD.
38 10 1818 540 TBN TMPSTIO+1,XxX°10* THIS FOR SPINDLE -B- COMNSAND ?
F2 90 09 541 JF *412 JUMP IF NOT.
Oc 01 1813 1802 542 MVC TMPCCW-2(2),LSEKB BRING IN TRACK ID AND FLAG FOR -B-.
F2 87 06 543 J 49
oc 01 1813 1800 544 HVC T4 PCCH-2 (2) ~LSEXA BRING IN CUPRENT TRACK AND FLAG ID.
BD PF 02 545 CLI 2 (,XR2} ,X* FF® THIS A MULTI-READ/WRITE COMMAND ?
13NAR70 O6APR70 225AY70 O1A0G70 010CT70 28APR71 PROG ID OFRO0a-a
§71512 571516 571513 571531 571586 5715€5S PAGE SA
© Qo. gg. eae...
€? €)
a)
o : chee ; 7 ° :
THN RATUPENANCE DIAGKOSTIC PROGRAR
1. ROSB
| ERR Lac
OFrss
oFec
AFA
FAT
OFRA
OPAE
OFR2
OPRBS
PBA
OFREe
GFCi
OFS
orc?
OFCS
OFCE
OFD 4
OFNS
GFE
OFDC
OrnF
OPE
OF RG
OFec
OFEF
OFFS
orrg
OFFE
1008
4007
10ND
7016
TOT6
TO"
VOD
1623
3026
7O2C
7040
10356
TOU
OAL
1081
F048
1OGR
TOUC
TO“F
41653
4057
TOSR
405F
TOHZ
30466
GEA
IOFD
1071
1075
DATE
ec wo.
“pISe
OBJECT CODE
P2
2c
or
F2
IC
39
P2
2c
38
F2
FRIENDS
or
VAIS
VAIS VICw
0&
18495
YRI9
81
1895
TAI
75
O258
ISGA
0208
52
JFEA
ya0C
oa
20EA
180C
08
TISARTO
571512
02
a4
0%
TRO?
ROG
RV
W893
TAGS
1802
TROD
TTF 4
OGAPRITO
571516
TEST
past #0. $129608
pac? §
STAT SOURCE STATERENT
$a6 It corur JUSP YP HOT,
Sav? avC)|0O P#EPCCH (I), 3, R2) STORE KUMBER SECTORS TO READ/ERITE.
548 SLC TNPCCH Lt), 2008 SET If TO DISK LABGUAGE..
589 J ee?
550 GORTR VI THPCCH, £°00° PEADSBRITE 7 SECTOR.
554 CLI TPPSIDe 2, K402° THIS BR DIAGNOSTIC FPEAD CORSARD ?
552 INE TSRDY GO OF IP eT.
553 8YC TMPCCH E19}, 1, ER 2) STORE @ SECTORS. TO 8FBB.
58a SBP TRPCCH-1,K*7C¢ SET STARTING SECTOR TO 06.
555 J TSRYY GO ISSUE THIS COHRAYD,
S56 AES SCCASOHFEeLPSR OSCARS HSS SHSPSOSES SHSSVSS VICK GH AKSLS HES SESS SES COSKLSEHVLTSCRRSSSSHVsees
557 ¢ BUILD CONTROL FIELD FOR A NEW SPEK CCSSAND. &
558 SSOCHPVSH] SSHSSSKLLCS SAS SSE SSPSSHRAAVPSKOLSSHOEVsKL AS Vs ESSSRSESS GF SE SESSBSEHSOAGLEBRELEBSS
$59 SKFLD TR 0 (,%22) ,%°8C° “HIS A SPECIAL SEEK COMPARED 7
560 oF HDTHSOS JG4P PP KOT.
5461 TBR PLAG,X* 20% ISSUED THIS CONSASD YET ?
562 oP HDiA JUSP YF 8OT.
563 LA 24,%R23 ER? INCRESENT TABLE POYETER.
S658 B cLPcc"e SKIP TRIS CONNANWD.
565 HD4H SBN PFLAG, X* 20° TURH ON ISSDED FLAG.
S6f TBR O(, KR4) - 22024 SS@ 2 SEY FOR AFAD 4 FLAG ?
Tn oF seF IDSP IF HOT.
56a SRN TSPCCH-1,%°80° TORK OW HERD BIT TH THE -S- BYTE.
569 RYC TYPCCE-2 (7), 1¢, 222} STOR® CURRENT TRACK ID IH ~C~ BYTE.
570 TRY TIPSTOCT, F°I0® THIS PCR SPINDLE -B- COMMAHD 7?
574 JF e942 JUSP YF "OT.
S72 nyc TEMP (i) - LSEKS STORE OLD TRACK ID FOR -5-.
573 J 649
578 N9C TEMP Z1) ,LSEKA STORE OLD TRACK ID POP -&A-.
575 cic TESP (1), TEPCCE-2 CURRENT TRACK ID GtEaATPR THANK OLD ?
576 aL WERLPG JUEP IPF SO.
S77 SLC TE"P (1) , TUPCCH-2 FIGURE & TRACKS TO ZOVE REVERSELY.
578 3 STRIT
&79 WEWLPG S¥C TEIP (1), TEPCCH-2 MOVE CURRENT TRACK YD.
580 TB THPSIO¢1, 27° 708 TRIS FOR SPINDLE -3- COSSAND ?
534 JP #312 JUSP I? KOT.
582 SLC TEMNP(1) -LSEKB FIGURE & TRACKS TO S072 FORWARD, ~B-
593 J 49
58a SLC TENP(1) ,LSEKA FIGURE @ TRACKS TO HOVE FORWARD, -A-
585 SBN TRPCCH-1,X%°01? TORN OR FOVE FORWARD BIT Ih -S- BYTE
S86 STPIT MVC THPCCW (1) ,TEAP STORE @ TRACKS TO FOV?,
SQV £EFKFSSSVESESETESTESR HET ESOSKES EESTSKOVSS CEES BESS ITSETERSSHS SSE SSSSHSETSESLOEKEREOKSHR
SRS * MAKE SURE THAT THE SPIRDLE YS READY REFORE ISSUING A CONAARD. 2
QQ SESSSCeESSESKSSSSEKEKRAKESSSESESSESCKBSPSLSESSPSCSSHCS GSE ES KSESST VSESHSSHSSESOSASEE BES SES
590 TSPDY TBH THPSIOS 1, 4° 16° NEXT Cl¥D FOR DRIVE -2- ?
591 JT RDYB JUSP IF SG.
592 RDYA TIO NTPDYA,Z* ac? BRANCH IF DRIVE -t- IS NOT READY.
593 ‘J CHIE GO DO KEW CHND IF READY.
Soa B RDYA GO TRY AGAL®.
505 RDYB TIO RTRDYR, K° BOF TRANCH IF DRIVE -2~ IS WOT READY.
596 J CK16 GO DD HEW CHED IF PAD.
597 8 RDYR GO TRY AGAI®.
Bg9S SESSACKSSUESOCSKKSSSEKEKSSSVSVSEKERSBSEGS SR SSeS sey SE SK KRHA ASRBSEGBVSSS AEC SER*Lsesaang
599 9 CHFCK SSW OPTTONS BREFGRE ISSUING FE CONSSAYD. Ed
696 SSECEKAE SO SASS SSHKRKKSKSSEHSSAKTEALEAVKHSGSRSOKRSEKTASECSVCSESSEAKHBACESHKAASVTS eS Swe
607 CKI6 TBN SBYTE2,SSH17 Ss¥ 47 SPT ?
402 BT DUSPIT Go USP CORE ISAGE Frc.
603 STHRASCKVSPRAASHESSSHOASLKSSEVASVECHS He SHE wUeOwAR: « SEPVVPME SEAS KEBTHVSAAHAS HEB SERRE GC ASss
60a 2 FILL MAXIMO READ/EPITE ARER OTR PRES, =
HOS FSHERSSHSS ERE ARASREKRSSE PLS SAT ERS SRSS KSEE HE OKRA EWS ST SEST SASS SRE GE RKGERSSKSRES
606 8SZ0 TSN SBYTE3,SSHWIC SSE 1C SET ?
£07 aT pONe3 SKIP FILLING IP SG.
608 LA PIL4¢X*O1N0® RRA SPT BRODRESS FOR 4 S®CTOR.
669 CLI MAX,X°70° © 16 SECTOR THE MAXL8O ?
6710 INF ee7 JURP YF ROT.
6174 LA PILEX*OFOO® ,ER2 SET KDDRESS FOR 16 SPCTORS.
612 CLI MAX,X°202 32 SECTOR THE MAXIBDS ?
613 INE ee? SUSP IP WOT.
225RY70 O1A0G70 010CT70 2B8AaPR71 PROG ID OB0u-&
571513 571531 §7154806 571565 PAGE s
©. ae eo. s ©: ©. o oe. - oe
0 0 0 0 0 8 0 0 of
QO
CO
Q
oO Oo Oo
ge nc i NESTE CETL LAE COTE SILA AE ALES DE ATE ALE PEPE I ELTA NO ENE BOTAN STEIN
eo 8@ @ e@ 8 8 B&B
oO Oo O ODO O
Oo
o 08 0 9 08
® ¢ © @® ® ® @ @ ® € @®@ @eei8 «&mUC OUMUC—CSMSC~CMCU OULU! e
@ -o. ee ©. © ©.
BOS
ERR LOC
1078
WO7C
1080
1083
1087
108"
108F
7093
1999
705D
1043
TOR9
TOAC
1936
40Ru
7OBR
qOCO
TOC6
occ
10D6
10D8
4007
GDB
TODE
WE2
TORS
VOFB
TOF1
1OF?7
iOF8
CFF
4705
27709
3763
T3414
WFa8
1778
7723
VIF
F722
1728
TI2B
tt 2F
4132
T4335
Tt3B
3s?
FIB3
Tia?
Vi4as
TIRE
4354
1157
195D
DATE
EC WO.
eo © @28@e0e00 089 806. @
TBH HAIETENAECE Siicscanie procpan
DISK FARIFEDS TEST
OBJECT cope
C2
3o-
P2
C2.
38
3%
38
or
3c
oc
oD
P2
36
co
oc
oc
on
GR
37
31
F2
01
30
o4
01
04
01
04
o1
FF
PF
04
‘61
C4
87
O74
63
00
66
rN)
A&
$7
apea
180
o8
aDEB
109¢
10Rn2
10AC
70aG-
S060
oo0o
qDAO
ce
I7DS
, ILCCH-2 STORE THE F AND C BYTES FOR ~a-.
680 J INCER GO INCREBENT COUNTERS.
662 * SEEK CHPCK MESSAGE ©
OGAPR70 22S AY70 O1A0US70 OtocT70 Z28APR71 PROG ID OFRC4u-&
571516 $§71513 §$71531 571586 577565 PAGE SA
aDDP S?HT
5129680
Sa
PART HO.
PAGE
TOR RAIST2 Gave!’ BLAGROsTIC PROGRAS
ROKE BISK PRYVEDS TESFP
PRR LOC ORIPCP CODP BDDR
4140 CO SY O21
7968 Of i 249 He
$965 FOERR 16h
VIKF 1048 41AR
t1H9 CO RF O2tP
Tan of 946D
IHF FAV ViGF
1975 TCPP 174
1172 CO AF OZTA
1176 C6 4176
1977 26 1177
137A Icky 17179
T2779R AOCA T1793
Vi7%C CO AF 1329
27180 BF 67 £2 TIrw
1955 CO BF A222
TIRG AODA 17BA
FIRB CO HF OFOT
41S" BF O1 28 17C%
1194 CO 87 13239
Vi9% £2? 07 02
7193 38 #0 O20R
IOP 72 GS OF
T1aA2 30 OC T7F7
V1a6 OF OF WER 17C8
s7aC CO fe 4 tRE
73BG cO SF O742
TTRR 39 97 pC
FIRS PP? SO oF
13783 39 OF 46DC
TIRP YF? Ge ag
4102 35 80 G708
14C6 CO 49 1585
VICAR CO NY OFFA
TIcP 38 20 O29R
4792 2 SC OF
F1DS CO 87 G7222
41D ADFS T4DA
798 CO 27 C242
TIRE CO 87 Sens
VdPR OF 9TES
TtTea GO V9PB
TPS Pree VES
Vie? CC OF T3267 FSORR
TEEN C2 02 *8CK
VIF CO A? OPTR
T1F5 82 VTRS
VFA IN ViPS
Vir? TAa24 4175
23FO pOR2 FIPA
77Fe Or ae YSeR 1267
7201 SC OF TOR3 TA29
Narre TI8APTC OF RPPTIO
FC HOW «579592 571516
S
eee eoeeoeeeedegeedse8eee @
733
795
706
742
743
F748
715
7476
FV?
7A
720
721
722
723
724
725
726
727
72R
72
729
330
7317
732
733
738
935
736
737
FAR
739
7a°
Fay
7a?
7&3
748
Fes
TEE
Fay
Pus
SOURCE STATERER®T
BADID B
pe
Be
Rr
UBPACE
YLeeqe
AL2ZCILOCCR= 25
ALZ(SKITCR
UMP RCK
IL7°98@
AL2(THPECCH-2)
AL2(SKITPCK- 40}
XLI°C6®
YL22 36°
AL2Z«{ SKITCK)
XL2°aGcort
STSOK ,
23¢2,KR2}, 8001
HALT
RLZ°RO0AR
*NOCAL
PART #0, SI2GES8
PAGE 6
UNPACK &CTOBL TRACK IB.
OHPACK EXPECTED TRACK ID.
PRINT PEPT/ACT PRACK ID*S.
ID ~AQGA-.
GO CHECK ODT STATES.
FRCRESENT EPRROR COUNT.
ERROR HALT -O&-.
GO TRY AGAIBF.
SHSOS$SROSESKOSHSHEHSSHELCRKELSSSERESIRSEVEBSRKSEECSHARVSSRSHKSEPCEPRKRSARSESTREREKLAAKEKEKS SS
THCORERE ST LOG-OUT TABLE COURTERS,
CHECK SSB OPTIOKS.
*SHS SHEEESESSSR SE KSSH SHPSRGASEA YSERA SEH SVSKSESKSLHSECESSSH SSE HACKER SIRE SKE SBPKSE SSS SS
TRCER-
S08
TRIS
GOCLS
ALC
TRA
BT
8B
&3(2,KR2}, 8001
STSOK
2£,KR2),XRZ
SPYTE3,SSH1A
CRIS
TERPS *OD8
TEMP (2} , "901
SUR
TEST
ILSI244, 29028
GOCLR
ILSIO+¢7, 2°07"
ROCLR
SBYTEI,SSu1S
DEDATA
CLRCCH
GO CHECK STATUS ODT.
IRCREMENT INDIVIDUAL CHND COURT.
INCRESENT CHRD TABLE POYXTER.
S$S8 18 SET? ,
JUMP IF WOT.
READ CORSOLE SWITCHES FOR STALLING.
LOOP TILL DONE STALLIAG.
TEST POR SSH CHARGE.
BAS LAST COSSD POSSIBLY A READ ?
JOP IF FOF.
READ RIT OW F
JOP IP NOT.
SS# 19 SET ?
GO DUMP READ DATA IF fC.
GG BACK aXP SET UP Ek COMMAND.
SRECSKS SSE SSHESKSESKEKHOHE RSS HTH AHSKHRSEASRESHE ST SE RLS STHSSLVES PSH SERS ae Se
CHECK END OF TABLE SSW OPTIORS. »
SRESSHSESCASEKTE CLE TEESE SSS SEAR EES ALERT HESS S RSC AWA ES RLS SSRKKSSHERESS SES
=
ERDYT
RNG
TSN
JF
8
Doc
B
8
SRTESEOCRSER
* PTROW’ @
Bde SEK SRI CKS ESR ARRA ARES HSRAPEKE ASR aK. STROM HS CLARK ST SHEER SRA PS HAL ORE RE
&
s
%
ROUTINE 03
SRYTER3,SSHTA
RWD
HALT
XL2° agra?
TEST
REINIT
DOAP ALL
SSW tA OF F
JUSP IF KOT.
DO END OF TRBELE HALT -Z&-.
TEST FOR SS¥ CHARGE.
GO START OER.
2
COCRTERS.. ei
RESTKLEBSASRASSELSEVRSMHSSEKS HGS RS TSA ER GLE GREY NSGRREAKRAESTASEK SSE BAERSHSE OSES H
RTHOZ
PZHAYIG
577593
pe
Bc
nC
“YC
OTAUGTO
5715314
XLI°O3°
*ZL7°O6?
RLO¢FFPFS
SCK (43 ,SCK44
CBNDS-2,K82
PRING
XLU2a2"
ILI°%68
RL2(SUATY
RL2*ROA2?
PRT-27 654) ,CHED'YS
PRT CIS) ,SUM2
d1INCTIO
577580
28AaPRTS
571565
ROUTIN’ NUSBER
NC MARUAL INTERVENTION PEQUIRED
LAST ROUTINE
CLEAR GLD TOTALS.
INITIALIZE TASLE POIRTER.
PRINT SUSSARY HEADIEG.
SET
ae &
PROG ObO5-8
PEGE &
So © ¢ © 8® 8 ©
Mt em te tery mae oe
o 9 @ 80 @ @© @ @ @
.
(>
a
m™
ry
we?
rant
o
3S @ 8 © 8 a2 8 06 Oo @
Gib
°
O
a
Xe
Oo
RDB
‘eRe Lec
1207
1208
#20C
¥20D
120F
1245
248
127D
1220
1223
1226
¥Z2A
1230
1236
127K
12480
1286
4285
i24E
1252
1255
1258
4260
1266
126C
1272
1278
1275
4264
1282
I28R
1290
1296
1299
129F
1285
W209
#2aD
T2RE
12RF
1281
1237
T2RC
q24P
12c2
1206
i2TR
7208
t2c?
4201
7255
DATE
Fc Wo.
DISK FRIEWES TEST
OBIECT CODE
CO 8? 025A
62
38
4923 YSk6
67 T7FF
oD
06
26
G2
3245
VIPS
4992
1989
4988
WT?
23
3255
V43E
cocotcooc
2c VIEF
T7749
1S4us
1Sou7
FARR
VIPS
22
V7EF
6c
OS
I7EF
V7F4
oc
TSA3 875
T7F1 Vee
4272
C278
T9RF
TRESS
{ 283
FACS
63
28
q7EFr
VIPs
tAIF
T7E 4
F7nS
V7ce
V7E4
c SA
07
8 4
82
St
AF
19R3 TER8
D1 27eF
O7
o2
3275
G27
46
ce 8°
ROE
£G 87
36 G8 77¢8
T3ISARTC
579572
ADDF
1208
9206C
1262
255
T2ad
T2KE
12RS
O6R PRTG
$71596
{ TRH SRINTERAKRCE PIARGEOSTIC PROGRAA
PERT HO. SI2VGRR
Pace 6B
STR SHURCE STET EOP NT.
a9 8 PRT RE PRIWY SSBS HPABTWG.
758 pc ZLU°G2e
754 ec TL92998
752 pe AL2 (PRT?
353 AVC PRT ES1y PRTS4 CLEAR PRIWT REEB.
758 pot cLe 12, 3R2), 40000 THIS THE LAST COMHAED ?
755 3£ KOK JOSP IF SO.
F56& CLI O(,ZP2),K"FFE TRIS A SPCTOR COUNT OPTION ?
757 oN UNWR Juep IF KNOT.
7458 LA 2(,ER2) ,xXR2 ITRCRYM ERT POINTER TO SKIP THYS.
759 8 DH0 GO CHECK YOR LAST OPTION.
760 KOK HYC TEMP (4), SCK STURF TOTALS.
761 NYC PRT-17 (6) , SIMS STOPE SUPHARY HEADING.
762 BUI PET-26,Cee6 GENFRATE LIWE OF @¢5,
763 BYC PPT~27(58) oPRT- 26
768 vc PRT-89 £12) ,LSTOWF
76S ad TKCT
766 UNHR HVC SEG2(8), 36, KR2)
F679 e RTPPT GO IWTERPRET THIS COP She.
FHR pc KL2Z°ooococ0n®
763 RPC TEMP-2 (2) ,42,XKR2} BRIBS YH CURREET LOGCDOT THFO.
776 eYC TES EZ}, 834, KRZ3
774 ALC SYS (2), TEaP-2 TRCPENENT TOTAT COUNTERS.
72 RL SCR (2) ,TESP
773 INCT RYC PRT { 75} ,SUR3 THITIALIZ= COUNTZE 5.
774 LPCLR CLO TE™= Peay, #0000 ALL COUNTFPS ZERO ?
775 JE WEWOR JDGP IF so.
776 cic TEMP-2¢73 , 30000 ISSUED COURT O ?
797 JE ERCKT JOMP TF Sn,
77R AZ PRT<-S (AG _DECOTIT INCPEQENT DECIASL COURT.
779 sic TEEP- 2125 ,KOOA DECPESENT RINARY COUNT,
JAG ENCHT CLe TENPE2> ,HOONG FRROP COUNT 6 ?
7691 JE CON JOGP IF so.
782 AZ PRT (6), GECOT (73 THCPEAERT DECT#AL FRAOR COONT.
783 sic FRHPE?y ,WOO4 DECREVFET PIWARY COGRT.
788 COR 8 LECLR CONTINUE CONVTFPSION LOOP.
FRS HEHOH BF PRIET PRIWT COPRENT INFORSETION.
Fa oe ELG2OV8
FRI pe FLU°S4"
788 pe AL2 iPRT
FRE HYC PRT CST ~PRTS CLYAR PRPIWT ARTA.
790 cic ¥£2,ER2) ,HO008 THIS THY LAST CORMAED
794 JE SPCUP JURE BOT IF So.
FSF LA 2 (RR 23 oe KRZ TRCPEMENT TABLE POINTER.
FBy 5 266 GO FIWISH UP LOOP.
79a gpryuP 8 PRIGT SPACE UP? THE PAPER.
FOS pc XL7T2V62
2 OK 8 SALT JSLYR"T RARLT -EBS-.
Fa 9c XLZ*aGese .
FOR B SUNK RETURR Tl DCP,
¥OO
SAD Le CP RS SSSERRAS SEGHRRSE HASSE ROSES ACHES KOE SST AM GSK E THRESH RAS HIS AHORA He oS
BGI 8 HTRDYE © -
VOP aecseowwss SUBROUTINE YS CALLED @ATK A SPINDLE DROPS
*BOs & READY. THE STATOS FYTES FOR THAT SPY IDLE te
9B # ARE SENSED AND CHTCKED. A -WOT PEANY- id
AROS @ FESSAGE IS PRINTED IF OKLY THE -LETKIVFETION &
506 & BIT IS ON. CTHTPHIST THE STATUS BITS ERF «
807 & IRTERPRETED AND PPINTES. e
ROR ws .
8a5 @& HOTS - ISSUF A -TIO~ £S SUCR- 6
RIG & 2
872 © Tx°O NTROYT BRANCH EF #OCT PDT. &
242 @ 3 37 GGSP TP OR, ¢
8492 3 B APTTER RETIPY FRERE TR RT a
sls ecg es caus Ce ueus SUE ktaGa woke in wakee sheen Suet kee FAT ada eth ees
AG R“RDYA 3B WOO03, ARR
22HRT7IG STACG7O SIOTTIO 2BRPR71 PROG ID OrWw<b
§771513 571937 S74580 571565 PAGE aR
at
e988 2 8 0 O.0,0.0:'0:0: 4.8:
THA RATUTERANCR BT AGHOSTIC panaran
BO4u4
Pre Lor
4209
y2pp
12F1
¥2E5
1279,
V2eC
- 12P0
12048
12PR
12°C
9300
TIO4
(107
13208
130°
4342
9995
49
Vata
TdT
WIT
V3UF
1323
1325
nTsK PRY ie reat
OBIFCT CONE
34
30
30
4c}
F2
“46
8
nn
30
Ic
a
F2 9
9
F2
39
v2
2 CO.
R7
V32A
1809
TAOR .
1083
18
178
3 9328
1A09
TAOR
TAB.
ANA
0222
C006
020A
55
00
08
1792
138”
1837
00000000
BD
F2
36
co
7 01
a0
FF
01
02
R7
TACT
00.
C8
17C6
O21A
TIs8aPRT70
5971912
ADOR S7AT
SUBROUTINE SENSES THE CORRESPONDING HRTYP?S
STATUS BYTES AND CHECKS FOR SRRORS,
THE SUBROUTINE ®RANCHES BACK,
“S2T UP FOR SPIENDL® -2- CHECK.
PART #0,
5120608
PAG? 9
SAVE NOT READY RETURN ADDPESS.
SENSE SPHDL A STATUS BYTES 09 6 1.
SENSE SPNDL A STATUS BYTES 2 € 3.
SET UP POR SPINDLE -1- CHECK.
GO ANALIZE STATUS BITS.
SAVE NOT READY RETHRN ADDRESS,
SENSE SPHDL A STATUS BYTES 0 6 4.
SENSE SPNDL A STATUS BYTES 2 6 3.
INTERVENTION RIT OW ?
JUMP IP NOT, .
AR® REST OF THE BITS OFF ?
JUMP IPF NOT.
AWY BITS ON
JUMP IP $0.
Iw BYfe 2 ?
PRINT. SPINDLE HOT READY.
1p ~Aa0PE- 2
EPROP RALT -FE-.
PPTNON TO NOT READY BRARCH.
DP FSSSSSSE FS SSSESSSSSSSSESSESSKESESSEESEEESESE EES HOSE SSE SESS SS SESE SHEESH SESESEESSESD
IP Of,
FREON ERE ESE SES ESEREEEEe EEE SED SE RES SEESECOEE SEDO EE CED OCEOSOCESeOOeSS
2marrre
source STATPREUT
at? st enve3,an7 -_
ayn SNS = STSH91, 2°42
Ate. SNS. STSHY3, 3°43!
820 AVI 0s SPDNR-10, 08 FI
a2t 3. cxour
R22 NTROTA A 2003 ,aR2
823 st RDVS? ARR
“826 SNS STS8Y1,2°n2¢
825 SWS) s- STS BY3, ¥° R39
‘826 °° | AVI SPDwA-10,X°P2?
827 CKOUT TRN . STSBYO,X*40
*_ 82a JP paP
‘#29 TBP S°SBTO, X°BFe
“840 IP? DPP
831. TRF STSSI2,z7°88¢
932 -- JF. pap . ee at:
833 © NOT READY ERRO BESSAGE: a
ee 8 so PF I"T oe
1319 835. DO ELT#CHS
T34a AI6- pc. = FL4eR78 oe
WIC RA BC AL2(SPDNR)
T3942 938 pc XL2*a0ree
839° 'B WALT
1324 «980 oc £1L2° a0ree
Rat RDY 8 e-¢
Ru?
943 * STSOK ©
RaQ Seesee248
RUS @
ABs ©
8a7 ©
Rug
REO STSOK ST IKST#3, ARR
10DC 850 SZZ = SA#1T, TLSIOS
10pC 851 #ZZ2 «= SBT, TLSIOC1
R52 AVI STSCK-13,C* 2°
953 TSK ILSIO¢1, 1° 10°
954 IT ee7
A55 AVI STSCK-13,C°18
AS6 SA SNS STSBY1, 1° A2°
257 SR SNS STSRY3,x°A3°
B58 TSF STS2T0, K° Pre
859 JF sTsPe
R60 TRY =- STS 9V2, X° Gut
861 JF sTsre
R62 OKST B e-e
R63 © STATUS BYTE FPPOe AVSSAGF ©
1AB3 864% DMP avC)|0OSTSCR- 13M, SFDWR-10
A6S STSEFR 8 PPTRT
136C R66 pc XLt9¢c7
1346) 967 pc YLV*20¢
VIAF ABR DC AL2(STSCR)
1371 ABD 2. OE 1L2°a0978
R70 TaN say-r2,ssei?
a7 If es7s
Ay2 CLI 9(,3%2) 2 °PPe
873 ar eT
Are a BPC? X82
03 975 MVC = 0 9.2, 94, BA)
A76 B aTePr
138" RI7 pc XLe*oo0nn0coe
Q78 CLI Of, 2"%23,4°FP?
479 IRF ee?
890 A W092, 282
aay B Prrer
139" «aR? pc ELI°9OTe
139F Gay pc ILT°6ee
13a1 A948 pc AL2Z(C®8DAS)
OF APETO ?29AaY70 01a0G70 oIncTIO
571543 | 571580
571516
571531
571565
STORE RETTON ADDRESS,
BUILD COPRS SENSE CoNMANDS.
S"T UP 4FSSAG® FOR
TRIS DRT¥e 2 °?
JO@P TF SO,
DRIVE 2.
SET 1° MPSSAGE POR DRIP 9.
STOPE COPRS SENSE THPORMATION.
S?Tavus OK ?
PPANCH IP OT.
STATIS OF. ?
RPAYCH TP BOT.
RETORE “TO MATE PROGRAR,
STOPES SPINDL? 19.
PRINT STATOS CHECK.
19 ~anerv-,
€
ssu 17 sv? ? ;
SEITP CONFANS ID APSSAGE IF $9.
THIS A -FP- FLAG ?
J5ePp TF en,
DPTCRAEST POTETEP SORE HORE,
ST*See CUPMENT COSMAND SSS,
INTPRPRET CIRRELT COPSAND.
THIS & -PP-
JO9P IF ENP,
PESTIRG POTETER,
PRIGT SSW SETTING LABLE.
PLAS ?
PROG ID OROg-8&
PAGE | 7
eeeoes
©
@ ©0060 60006600 8 fb (a
©
ee ee ee: ee ee ee «> > > = > ee
TBA MAINTENANCE DIAGNOSTIC Procean
Bowe
ERR LOC OBJECT CODE
1342
13a6
13a?
1348
T3AA
13"0
13RnG
1385
1387
1389
13AD
13R2
730
13¢2
13C€6
137
138
33CAa
¥3Ccz
7302
13N6
‘W3DA
13pB
1321
1327
13°B
139PF
1373
1397
13FA
13Pe
1802
1805
1409
1809
1414
1815
1816
1418
101F
1821
1825
1429
182
$432
1833
1038
1836
IS3A
1&3F
DATE
Ec
wo.
ceeeoeeeoeeneneneneneaeneee
: |
oO
oO :
PART #0. $129608
PAGE 7a
DISK PRIENDS TEST J
ADDR STHT SOURCE STATENERT
co 87 O2tAa Aras a PRINT PRINT THIS COMMAND ID.
62 1306 6886 i L1*82¢
a W3ay Ra? DC IL1¢91¢
7943 309 = «6AAR BC AL2 (PRT)
OC SA 1923 1928 aAag fave PHT (919 , PRT CLEAR PRINT FIELD.
cO 87 021F - 4890 8 OWPACK YNPACK CORP IRAGE OF SIO CAND.
03 W388 86891 nc TL1#3° ;
10DD 13% 992 pc AL2 (ILS10¢2)
1B78 1388 86893 ne AL2 (THGP- 23)
co 87 0212 894 B UNPACK UNPACK CCRPF IMAGE OF CONTROL FIFLD.
O08 1385p 6895 DC TLI¢ue
10DAa 138F 8 6AGSK DC AL2(I=CC#)
1832 13c1 806897 DC AL2(I"G2)
cO 87 02178 - - 998 8 PRINT PRINT THF COR® IMAGE.
92 13c6 0-899 pc XL1*092°
32 43C7 900 pe :sCéaELL #508
1332 13c9 0901 DC AL2(19G*)
38 61 1807 902 ST SVIR1, 284 Save PFGISTER 3.
c2 01 81D 903 FSTS LA RTS0+2, 1281 LOAN TASLE ADDRESS IN runes R2G 1.
3c¢ 61 1397 9048 avVY TST049, 0°01? PRESET AIT POINTER POR BYTE 0.
38 00 180" 905 TSTO T3N STSBYO, 4° 00° CURSPNT RIT ON ?
co 10 1825 906 ST PRTSTS| G? PRINT ID IP SO.
D2 01 03 907 LA 3( ERD, TT INCPEGENT TARLE POINTER.
OF 00 13D7 13D7 908 ALC TSTOS1E1) -TSTOT SHI¥* ®I?T POINTER FO BERT BIT.
3D 00 13D7 909 CLI TSTO¢4,1°90° ALL ®"I7S TESTED ?
cO 01 13D6 910 Rae 8 86TSTO BRAKCH SACK IP #OT.
28 08 180a 911 TRW STSSY2, 2°08? 4FAD SETTLING PIT OW P
CO 10 1825 912 aT PRTSTS GO PRINT ID TF? SO.
D2 01 03 913 LA 3(,ER1) PI INCOFAFET TABLE POTETER,
3C 3a 1480D 914 Avi RGS, Xe sae “27 TO TRS OW GO RIT.
38 AO 1808 915 TAN STS8Y2, T° aCe MNSAPS QI" OW ?
2 90 OF 916 JF RSS Jv@P re #OF
3¢ 38 1860D a17 Avi RGS, 1° 3Re ser tO ene" OFF CO BIT.
co 87 1825 9qA B PRTSTS GO PPINT UNSAFE 1D.
38 08 1818 919 RGS SBF PFLAS,X*98° SPTsBeSer GO
CO 8&7 O21A8: 920 B PRINT SPACE TP PAPER.
16 1815 921 pc KL1¢168
8 01 53 17c& 922 ALC 83 (2,122), 4001 INCSFETE FRENF COUNT,
co 87 0222 923 B HALT ERPN® HALT -97-,
aoo7 1820 «6924 DC XL2*a097°
cO 87 OF07 925 B DOCAL GO STAPT ALL OVER.
926 * PRINT BIT IND ¢
38 OR 1439 927 PRT*STS ST SPT+3,AeP STOPE PFTUPHN ADDRESS.
1c 02 1835 00 928 avC SPT-1(3) ,0(,"219) STIPE CORRS APSSAGE ADRS/LENGTR.
cO 87 O21Ak $29 3 PRINT PRINT THIS SIT ID.
81 1832 930 pc XL7°97¢
00 1433 «931 DC KL1°00¢ RPESFRVED POR SPSSAGE LENGTH.
0000 1835 6932 pc XL2*00023° FESFRYTD FOV NFSSAGZ ANDRESS.
cO 87 0000 933 SPT B a-¢ CONTIQOS THE SIT CHECK.
: 934 SESESEEAESEETE CS SERESESHEDHSTEEESES EH OHOOEOOSHSHOFSOSHSHOOSOSOEOSOOESOSES .
935 © RTRPT ¢
*936 eeeseeses SURTOUTING INTEQPRYTS SEKRSF SWITCH SETTINGS ©
937 © INTO AN ENGLIS! PFANING. OUTPUT IS STORED e
938 © IN "PRT POTN? AREA, SUSROUTINE IS CELLED 2
$39 « BY- >
980 © es
9a1 6 R NTRPT e
982 Dc 2e KP ACTIAL SENSE SWITCH S"TTING®
*983 «© pc 2,X"NPEX™ SETTING IB TABLE, * °
Gan ¢ OUTPIT ITS FORMATED AS- ¢
9a5 6 :
*986 © SSUS COMMAND NISK ID LOCATYIOS e
947 © SSWS COMMAND DISK ID. LOCATION
*oan © 0000 ¢¢ END OF TABLE ee
*949 ¢
*950 SST SEESSHTESSEKSCEKS SES SHSHHEST SHEE SEHSE HEE SHOHOHESEEOSSS OS FEHSSS HOSHKEEOSESE
00000000 1w3nM 951 pc KL4’ *000000900°* SSWS STORAGE
36 08 17c8 952 MTRPT A N003, AR
T34AR70 O6APR70 228aY70 OTAUG70 019CT70 2BAPR71 PROG ID ORO8-&
571512 571516 571513 571531 577520 571565 PAGE 7a
wa
ia a ie
van
“gee
te
tJ
We
1 air ty RR
noes
-
: See. Loc
3882
4486
taec
+350
1358
1858
1aSE
3864
1967
TGA
€ T86E
i: - 48EP
ae 4871
oy hate tae
1 a7
3e85
9882
tuSP
4893
Ta99-
449F
28a5
WAd
Tsat
W480
78-36
TkBAR
78C0
acs
WSCA
WacD
1890
Tape
TODA
34nd
18E3
I8E6
38EC
18 F2
TaP6
urs
T4PD
WFE
1500
4 1502
; 1806
1508
150£
150F
; 1510
1512
S17
151B
ee 15%F
é 1523
?. 49528
< DATE
EC WO.
igiwes
be
3493: 3
> 687
DISK FRIEEDS TEST
OBJECT CODE
38 08 1885
@c 03 1832
36 08 T7C8
38 Of 1509.
38 01 1807
0D 61 1833
01 69
15 1968
9c
0212
18¢c8
+850
17P1
vr
1866.
170¢
17T?1 17c0
1981
TasR
oF @0
co sa
38 01 1898
ec 65 129% 0900
000000000000
08 03 1771 183A
C2 01 1823
¥2 87 oe
26 G1 17C8
OF OO 17F7
co 88 14~AC
oc 15 197C
1c 00 1596D
qc 06 797¢
7D pe? O01
F2 01 06
oc 08 7975
39 £0 143A
F2 10 09
8c 08 1989
¥F2 87 06
oc 08 1989
oc 07 1989
3D FF 143¢
F2 C1 09
CO 87 O2TE
01
4t83D
195,
35 01
co 87
T7Cce
IDDD
00
62
1DC7
TAE7
ADE
19RD
1807
9006
cO 87 O21A
01.
a0
1A07
2C 03 ISTE 03
cO 87 I&3E
co000000n
cO 87 OZ1A
02
58
T3IRAETO
571512
O6RPRT
571516
158 HAINTESAECE DIAGHDSTIC FROGRAE
hate laa NY A tae * nE ENE —aalge eiNE NMenee te ee ae tn
ADDR STRT SOURCE STATEREST
1862
9870
4872
TS FD
Tarr
1501
1502
150F
1571
Ste
1823
1528
$3 st *¢9,ARRh : :
8S4 av NTRPT-1 (6) ,O-* STORE SENSE SWITCH TO. BE IvTERPRETD.
955 a #001, aR :
9%6 ST RPT+3,aRNeR STORE RETORW ADDRESS.
‘957 st SVXR1,xR1 SAVE INDEX REGISTER 1.
58 CLC s- ET RET-3 (2) , HFOFO THIS THE RECAL. FLAG ?
$s9 SNE RECT - ' JOP IF KOT.
960 RVC PRT-59(22) ,STCKIB SET UP INITIAL STATUS CHK ID.
961 ; 3 RPT : ;
962 REGY 8 UNPACK ONBPACK SWITCHES INTO PRIBT AREA.
963. wc IZ1¢2¢
964 oc AL2 (NTRPT= 3)
965 pc. AL2 (PRT-86) ©
966 SBF TENP,X*PF® CLEAR WORK AREA.
O67... BNZ «= TENP WT RPT-8 BRING IN STITCH 1 POR INTERPRETATION
968. - Za # RVCHED, X21 SET POINTER FOR *#OVEt TABLE.
969 apps =A W006, X81 : INCREMENT POIKTER FOR NEXT SHOVE.
970 SLC TERP(1), 8009 DECRERENT SWITCH 1 VALUE. ~
971 BF ADDG6 CONTINUE TILL SWITCH VALUE IS ©.
‘972 ST: %49,zR1 3... STORE POINTER ADDRESS.
973 RIC 0 411 (6) ,e-2 BRING IN *NOVE® COMMAND.
O78 pe XL6* ONCeOOOOHONN © DO THE *HOVE* (INTERPRET)
975 anu) |= TEMP, NTKPT-38 BRIEG YK SWITCH 2 VALUE.
976 La IDHEAD, XR1 SET POINTER TO DISK ID TASLE.
977 J e797
978 ADD22 A w003,X81 INCREMENT POINTER FOR WEW ID.
979 SLC ‘TERE(1} , NOC DECRENERT SYITCH 2 VALUE.
980 BP ADD22 CONTIKUE TILL SWITCH VALUE IS 0.
9381 AVC) 8 =—- PRT- 39 (22) , SHELL STORE SHELL MESSAGE.
982 MVC PRT-S58(1) ,0(,XR1) MODIFS SESSAGE POR SWITCH 2.
983 AVC PRT-39(1},2(,XK1)
98a CLI 1(,XR1} ,C*R? THIS REMOVABLE FLAG ?
985 JNE 49 JUSP IF HOT.
986 AVC) «6 PRT- 865) , BAVBL STORE REMOVABLE FLAG. |
987 TBF UTRPT-8,K* £0% IS THIS A SEEK COMMAND ?
988 St DOSEK JUSP IF SO.
989 HvC 4 8=— PRT- 26 (9) , SCTR STGRE SECTOR LABLE IN OUTPUT ARFAR.
990 J #49
991 DOSEK AVC £PRT-26(9) , TRACK STORE TRACK LABLE IN OCUPOT AREA.
992 AVC =—s PRT- 26 (2} , PRT-8E6 BRING IK HEX VALUE OP LOCATION.
993 CLT NTRPT-2,X°PRPt THIS A MULTI-RELD/ERITE CCHSAND ?
994 INE ROMULT JUMP IF WOT.
995 B UNPACK USPACK SUSBER OF SECTORS.
996 pc ILiete
997 pe AL2 (RT RPT-1}
998 pc AL2 (PRT-7 3}
999 WORULT L SVXR1, X84 RESTORE INDEX REGISTER 1.
1000 RPT B e-¢ RETURE TO ROUTINE.
TOOT SFSEeeeKSSSSSSSHESSSSEKESESSSSSSSSE STEVE SHKSSESSSE SE SA STKE SSHETERASTESESESETEH AAAS
1002 © DUBPIT *# s
1003 *#eesee828 SUBROUTINE DURPS FOLLOWING INPORSATION- =
1008 * .
*1005 * SSWS COMSARD DISK ID LOCATYIOR
*1006 ¢ AXXX AXAXXXXX AXXXXIK AXAXKXXX
*1007 =
1008 © CORE IMAGE- CSSD XXXXXX CONTROL XXXXXZXX =
1009 *
*TO 1D SHESKSESSSSHESKSESSS SE SSSTSERESESESKTCESACEKTSEKSE SRLS STK ES SEK ST SASCEST SEES SERIE KAASCE SE
1011 DUMPIT B PRINT PRINT SSW LASLE.
1012 pc XL1°O9
*1013, Dc IL1*6a?
1018 pc AL2 (CERDSS}
1015 RYC HATE (9) ,3(,XH2) STORE CURRENT S¥ITCH SETTYEGS.
1016 B NTRPT IKTERPET CURRENT SETTING.
1017 HAIR pe XL8*'00000000°
*1018 B PRINT PRINT THE INTERPEETATIORN.
1019 pc XL1°02°
1020 pC IL17*99#
22mAY70 QC 1A0G70 010CT70 28APR71 PROG ID OBp0a-6&
571513 571531 571580 571565 PAGE 8
fee a a a oe a er Re A ER ite ca leat eacimas tole aici mE Naas
PART HO. 5129688
Pace . &.
{
eco oO oO oO oO oO OCloOC oll aoOCUCl aC aol aol kell aol col aol Ol Ol ol oOo ae ee
)
‘
onan aI meee Aen eR SoC: AD | uniatitNRinamRET
-aennvoeeexw®# @2eoesn7rneeeee e@ © © 8 © eo 6 oe @ OF
‘
nr ASE ne Re eB
oS oer
see Toe
EBS BSAISTERARCE DIAGNOSTIC PROGRASR
Boss
DISK PRIEWDS TEST
E9R LOC OBSECT CODE
4525
1527
152D
1531
1832
1538
153A
1538
153D
1537
1583
1588
1545
1587
1583
1588
1552
1555
1589
355¢
1560
1561
1568
1569
156C
156F
1572
1577
1572
ISTE
1582
1585
1589
158D
1593
1897
1598
1599
1598
15a1
1525
S29
TS5a€
1530
15B3
1587
1558
ISBE
15C2
156
15CA
15CE
15D2
15D5
ISDA
15DD
1550
1SE5S
ISEB
1SEE
15P2
DaTE
EC #0.
1943.
oc Sa
co 87 O2TE
1879
1848
3536 CO 87
1815
7832
co
01
32
87
1832
38
¥2
38
¥2
38
F2
co
41
¥2
6D
F2
BD
¥2
ED
F2
3c
3c
F2
3c
3c
oc
co
06
58
|
90
02
4108
ao
30
87
1943 7948 |
O21E
G21a8
1818
1818
0208
0212
87 3D
01
e1
TF
Ct
61
£4
€0
o1
87
5c
OG
3F
87
1922
oc:
co
38
F2
Ct
F2
cs
ct
F2
co
36
3D
co
35
F2
2c
BD
F2
2c
OF
F2
3c
co
IZERRTO
571512
Sa
87
10
1b
ao
87
87
BO
87
87
02
01
81
03
81
00
FF
Ct
00
96
87
00
87
O3 1721
19
02
o8
0S 17E%
1989
1599
oe
1969
1897
1988
O27
1689
1983
1058
Sas
DC
oB
12D5
or
ac
I2ZEC
04
1587
17D2
ODD
16CF
10DD
BS
1810 67
02
CE
180F 03
18OF 17C48 .
0a
180F
O218
ADOR
1526
1539
1833
1835
1538
18%
1532
1583
15488
1586
1569
1897
1598
159A
OGEPR70
571516
ee enn al ae SE ge Se OU a al at i det Une ete tte nt ee nie nm se hn a a OR I RR Be aig NS eile Ee A Nl ie I INL Ce ye Ria
dine sie 0
PART KO. 5129688
PAGE 8a
STAT SOURCE STATERETT
71022 se AL2 (PET) “8 : .
1022 nyc PRT (21) ,- PRTC CLEAR PRINT ARZA.
1023 8 arPack URPACK CORE IMAGE OF STO CSHD.
1028 pc TLI*3¢
3025 oe AL2 (TRPSTIO*?2} |
71026 pe AL2 (THGE- 2 3) :
2027 's UNPACK OHPACK CORE IMAGE OF CONTROL FIELD.
1028 oc IL7*s
*1029 pe RL2 (THFPCCH)
1030 ac AL2(19%G%}
1037 8 PRIST PRINT THY CORE IMAGE.
71032 oc ALI°O1
*1033 ac IL7°S0¢
1038 be AL2 (TAGE
1035 TBR TAPSIO¢ 1, % 404 * SIO BEAD BIT OF ?
1036 JF exoc JUSP IPF KOT.
9037 TSN THPSIOC1, K*2¢° WRITE BIT on 7?
7038 JT cxoo J0SP IF so.
1039 TBR SBSYTEY,SSui9 SSW 19 TURNED OW ?
7680 a? cx0o0 JVHP IF KOT.
3084 B PRIUT SPACE UP THE PAPER.
1082 oc RLI* 19? Ss
1083 J BSTOT BRANCH BACK.
7088 CKOO cLc¢ 3 (2,282) , #0000 WEXT COMMAND THE LAST ?
10485 JE LIKE JUSP IF So.
10a6 CLI 2(, X82) -X* FF THIS A SULTI-OPERATION COMMAND ?
103a7 INE teT1 Jusp YF XoT.
3048 ciLe § (2, X82} ,HO0GO THIS THE LAST COMBAND ?.
1029 JZ LINE JUSP IF SO.
1056 AVY PRT-26,C*-* GENFRATE A LINE OF *-* S.
71051 SvI SPS, %°S 1°
1052 J GcuxItT :
41053 LIBE avi PRT-26,5%°SCt . GENERATE A LIKE OF -*-'S.
1058 AVI SPS,X"*G65
1055 GRIT BYC PRT-27 (68) , PRT-26
16056 8 PRIRT PRIRT TAIS LIVE.
1057 sPs. Be IL1*o06
*1058 pe IL1*9te
1059 oe AL2 (PRT)
1066 AVC PRT (91) , PRT+1 CLEAR PRINT AREA.
1061 BSIOY 8B BSIO RETURE TO MAINSTREAS PROGRAS.
4062 SEEESES SE FECES SESE SHSSESESCSSSTSSSHKESSEKSESESESHEAHSTSESCESE SSE KRKSETTAESSESSES SSS SS
1063 * DSDATA * s
1068 *#*ses2%488 SUBROUTINE DETERMINES TYPE OF READ COMMARD
*7065 + ISSUFPD AND DUEPS THE CORRESPORDISG DATA. ef
*
tees SEVVEKSKTRE EST STEKESESSHKABDSE SVS KESSESELESRERKE SESE STEHT YF CE SA FCHHKESERESOESSS
19068 DSDATA TB ILSIO#71,x*10* LAST CHRD FROM SPINDLE -B- ?
1269 JIT RDYRY JUMP IPF so.
4070 RDYAY TIO RTRDYaA, X* ao?® BRANCH IF SPINDLE -A- WOT READY.
10714 J CKOK JUMP IF READY.
1072 8 RDYAY GO TRY AGLI".
1073 RDYBY TIO WTEDPT B, X* BO* BRANCH IF SPINDLE -8- NOT READY.
1078 J CKOK JUMP IF READY.
1675 B RDYBY GO TRY AGAIN.
1076 CKOK R WYGO2,XR2 SUBTRACT 2 FROS CAND TABLE.
1077 CLT It.STO*#?2, K*OF* THIS A READ ID CONHAND ?
1078 RE OTRERD JUSP IP so.
1079 CLI LS10+2,x%°*03* THIS & READ VERIFY COBSAND ?
3080 Jz STRE JUBP IF SO.
1031 NYC WRK2Z (1), 1(, XRZ} STORE STARTING SECTOR ID.
1082 CLI 2, XE2) ,X*FF* THIS A MOLTI-READ COMMAND ?
4083 JNE e17 JUSP IF KOT.
408a "vc WRKI C1), 3 (,XK2) STORE SECTOR COUNT.
1085 SLC BEK1 (72), BOOT SET VALUE FOR LOOP COURT.
1086 J 27
1087 RFI WRK1, x*Co* SET cCouNT TO O.
1088 B PRIBT PRINT DUAP EEADING.
22EaY70 O1AUG70 etocT7¢e ZSAPRT1 PROG ID OBGR-B
571513 §71531 5715806 §$71565 PAGE Sa
®
@
@
@
@
e
®
®
e
@
©
®@
@
@
e
@
@
@
&
®@
®
©
@
3
@
@
@
@
®
®
@
@
@
e
wm meet OM AER “aaa oie ct = “NI ain AIR mi 0 Sal Nar ale NG es oe
— | at im, 288 | elie. , a oe
-toM SRINTERAUCE DIAGHOSTIC enocnas cru _ oe “se. 4 part #O. stassee TBH narerce FARCE : pracsostre = procera 8 — "oO. 5129688 =
: 30G8 «DISK PREENDS TEST et a 3088 DISK FRIENDS TEST .
ERR LOC OBJECT cope ADOR STST SOBRCE STATERERT 6 e ERR LOC OBJECT CODE &DDR STRT SOURCE STATEREST
18 | e ‘224 a “$6D3 62 16D3 1187 oc £L9°920
‘lens es | 156 ‘ase te tear @ 6 46D9. 09 16D4 1158 DC OTL Yeg¢ 3
1SP8 1BPS 1579 1091 BC OF AL 2 (DEPOP) . 16D5 15Pa 16D6 1155 DC AL 2 (DEPOP)
IPA 38 61 0202 1092 TRY 86- SBYTE2, SSW17 ssa 77 SET ? . 16D7 36 014 0204 - 4960 TBN 4 «6SBYTE2,SS897 Sse %? SPT? ~
‘ee F2 10 1D 1093 3T Ise SKIP HEADING IF $0. 6 @ 16DB F2 10 23 1164 ST UPCCE SKIP AFADING IF SO.
4601 2c 03 16D 03 1096 HVC 046128} 3 (,%82) STORE OLD SS® SETTING. _ 16DE CO 87 0248 sebs ie a ee PRIST COMMAND ID BTADIBG.
1606 CO A7 1832 1095 8 ETRPT INTERPET THE READ COMMAED. e 8 ie 01 aces eee ee ae ~
160a 00000000 160D 1096 DC XL8*0000G000° eee eer eee eens a ihe +a eee ce ao fi ocesces)
1842 ro ee 1612 pd Re Gees @ 16E6 2C 03 1672 03 1166 AVC 8 =—- 6. 12 (8) 6 30, KR) STORE THE SWITCH SPTT IGS.
1613 6&6 1613 1099 _ oc TLI*68¢ So 16EB CO 87 183 4167 3 WTRPT INTERPRET THE CORHAED.
1618 TACT 4615 1400 DC AL2 (CHEDHS) IGEF 00000000 16F2 1168 pc KLS*90000000¢
1616 CO 8? O27A 9964 B PRINT PRINT CONHARD INTERPRETATION, @ .® ate 87 0278 oe A ae os PRINT COMMAND ID.
1618 92 164A 1402 pc sees on =. aa RS = ertiaes
y | } 2 ; ¢
aie aes ten aie ae pe ; i @ 16F9 1943 IFA 41172 Dc AL2 (PRT)
+1 CLEAR PRINT AREA o 16PB OC SA 1923 1928 1973 RVC = PRT (915 S PRTS4 CLEAR PRINT FIELD.
WIE OC SA 19A3 19a8 9105 YERD AVC PRT(91) PRT . tea eaeeerne coe Bee an oes
1628 C2 01 IDEA 1186 LR READIN- 1,%R1 INITIALIZE READ IN ADDRESS. | 1701 CO 87 0212 aio ee ee persce ¥ i"
4628 3c OS 1872 1107 DHORE AYI #RK3,8 SET COUNTER FOR 8 LOOPS. co ®& 1705 64 Seas a a eee
162C 36 071 47D0 1108 INCBLK & NO32,2R1 INCREMENT READ IN POINTER. scan 10DdAa a eee tase oe asttae ce,
1630 38 O67 7638 1109 ST UONPK, X81 STORE A -32- BYTE BLOCK ADDRESS. pa SS asuk saa ; eer ? saves ets coeenai eee
9638 CO 87 O272 47110 B UNPACK UNPACK THIS BLOCK. oe ie = doge nae . a .
1639 0000 1638 1942 UIPK DC AL feee) 170F 1D 170P 1180 DC | «TLt#29"
1633 1943 163C 1113 DC AL2 (PRT) @ 4710 40715 W711 79184 pc AL2(IDFLD}
“463D CO 87 O27a 1918 B- PRINT PRINT THIS BLOCK. 0 1712 CO 87 168: 1982 B STRE RETOUR TO HAINLIBE.
1183 SVSOSKSS SSCS SSS SISSETOESSSHKS HIS SSE FSERHESEESSTS EK EKRSEEHSSESZOOSEEO4EEESSEOEBOS
1681 01 1681 1375 pc XL1°078 . ieee anes :
a 2
scar ae teas Ha ne ic a o ®@ 1185 #seseec¢ SUBROUTINE IS CALLFD SHEN A BUSY ERROR e
teas oc e on 1186 ¢ OCCURS POR EITHER SPINDLE e
1645 OC 5A 1983 19A4 1918 MVC = PRT ($1) , PRT +1 CLEAR PRINT FIELD. Ps eee | 3 :
aca a oe Seoe ute? eee rg Stceee. anes eeaeiane Gcae ce cea POSITIVE. ° : § 1788 SESSLER DES EESS SES SESESEOES 98659995809 S8C CEES HEERESESEOLESE0900080009
1655 CO 87 029A 1921 B PRIEST SPACE UP THE PAPER. Hs = pe es ae BUSTA ae io SET UP FOR SPINDLE -%-.
1659 114 1659 1122 pc XL1°478 1 ? ) 6 oe
165A GCF 00 1ROF 17c8 1123 SLC wWRK1(1) ,8001 Seer ace edgar achat 0 6 aie ac F2 ie ie BUSY — eree ree es ee oo
1660 F2 82 27 1124 a8 STRE JUMP O NE. : $s f ‘
1663 OF O60 18106 17c4 9925 ALC 8K2(1),8O001 INCRESENT SECTOR COUNT. O a 1725 CO 87 O22 1193 8 PAINT . fe reeae ERROR.
1669 CO 87 O21E 1126 B UNPACK UNPACK SECTOR ID. i oe nae “2 = arisce. .
7 D 14 1°49
1668 1810 166P 1128 DC AL2 (#RK2) i 172B 1C88 T72C 1196 bc AL2 (BISZY)
1670 AE? 1671 1129 pc AL2 (CRSCT) oO sd 472D 4098 3728 1197 DC XL2*a098
*1672 90C OA 1989 1AE7 1130 HYC 8 =©PRT-26(9) ,CRSCT STORE LABLE. bad od 0222 ee oo a es caeas PRROR HALT -96-.
sere 4 ey 167C 1s se 71.403" Eee enna ae, eee 6 6 1735 CO 87 CEO7 1200 B DOCAL GO BACK AND RECALIPFRTE.
167D 5B 167D 1133 pc IL1°94° 1739 38 10 10DC 1201 NOBSY TSE YLSI0O+1,x°10" THIS CAUSED BY SPYDL ~-2- ?
167E 1923 167F 1138 pc AL2 (PRT) O @ 173D F2 10 07 1202 St +10 JUSP IPF SO.
1680 OC 5A 19A3 19A8 4135 AVC 8=—- PRT(91) , PRT#4 CLEAR PRINT ARBA. i. soae Ss a T oo he a re SET UP FOR SPINDLE —1-.
js |
ican < ao iaee +437 STRE i; 1002, x82 pestoue CHAS TAbid POINTER 1787 3C F2 IC4UF 1205 AVI WNBZY-16,X*F2* SET UP FOR SPINDLE -2-.
: ECT : Go: ®@ 7 87 178 1206 B DNOP GO DUMP CONMAND IN =P80R
168E BD PF 00 1138 CLI 0O{ ,XR2) ,X*FP? THIS A SULTI-SECTOR. DUAP ? 178B CO 8 c pec eetcntacce SESSREE. °
1691 F2 01 08 1139 JNE CKPRS JUMP IF Not. 174F CO B87 O21A 1207 B PRIST : seen
1694 8D 01 03 1757 1180 CLC 3(2,XR2) ,#0000 THIS THE LAST CONBSAWD ? o '¢@ aces - wae ao saa acs I
1699 F2 81 13 1181 JE GEL JUMP IF SO.
169C 8D 01 01 1781 1182 CKPRS CLC 1(2,XR2),H80000 NEXT COMMAND THE LAST OBE ? ee — ue ba se ara ieceey €
7641 F2 81 OB 1143 JE GEL JUNP IF SO. }
1648 3c 60 1989 1188 NVI PRT-26,c*-°* SET UP A LINE OF *-* s, o ® ee el 0222 en ae a er srcaeek ERROR HALT -99-.
e § =
ae ; —o See of saat = 0 @ 175P F2 87 26 4218 J DOCALY GO DO RECALIPRATE ASAIE. ‘
I6AF 3C 5c 1989 1187 GEL NVI PRT-26,cte* SET UP A LIWE OP *#* 5s, ue > : soe 20 TOLKNG = SFr ostent ret Bat cavers BY SP¥DL -2- CHWD ?
1283 3c 06 16C1 1188 AVI WOMB, X*'06* 2 ! "1 -
1687 OC 3F 1988 1989 1189 HVC 8 =PRT-27(68) ,PRT-26 GENERATE THIS LIE. 0: e aS os - ede ae oie de SET UP FOR SPNDL -t— HESSAGE.
nece oo ee Key AISA BUMB Be Tiron’ pangs Hee rene 1770 3c F2 1831 1219 M¥I BSYLNG-148,x'F2?* SET UP FOR SPNDL -2- SESSAGE.
16C2 5B 16C2 1152 pc TL1*998 1774 CO 87 178C 1220 B pD#oOP GO DUNP COMMAKD IN EPPOR. | : ~
16C3 1943 16C& 1153 pc AL2 (PRT) o @ 1778 CO 87 027A 1221 B PRIST PRINT BUSY CHECK. “
16CS OC SA 19A3 1944 1158 AVC) = PRT. (91) , PRT*1 CLEAR PRINT AREA. 177¢ C6 477C 1222 pc xL1°C6s : ID -AOBE-.
16CB CGO 87 OEFS 1155 8 CLRCCW BRANCH BACK TO SAIN ROUTINE. oe 177D 15 177) 1223 pc IL1°21 | ‘a
16CP CO 87 021A 1156 OTRRD 8 PRINT PRINT DUSP OPTION. IW7E IBBF WTF 1228 DC —-_—s« ALL (BS LEG) . i
DATE §$13HAR70 O6APR70 22mAY70 01AUG70 010CT70 28APR71 PROG ID opoa-, © e DATE 134AR70 O6APR70 22NAY70 01A0G70 010CT70 28APR71 _ PROS ID a
EC WO. 571512 571516 571513 571531 571540 571565 PAGE 9 EC RO. 571512 - 571516 571513 571531 571580 577565 PASE
6 ® .
a ea
Ao Der BPR ce ABB TR Se en det msi ame ee ne i el eR a ee ete ne ae a ae eee aie Rf
‘PAGE 70 PAGE 10a
BOSS DISK FRIENDS TEST B0a8 DISK FRIEWDS TEST
ERR LOC OBJECT CODE ADDR STHT SOURCE STATERENT ERR LOC OBJECT CODE ADDR STAT SOURCE STATERERT aa
1780 a0se 1781 1225 pe XL2* aOSE
*1782 CO 87 0222 1226 B HALT ERROR HALT -8E-.
1786 AO0se T78? 9227 pc XL2* 20048?
7788 CO 87 OF07 1228 DOCALY B DOCAL GO START OVER.
1229 ¢ DUMP CONSAND ID THAT AAS SUST ERROR.
478C 36 08 17C2 1230 DHOP st 4P+3,AaRR STOPE RETORN ADDRESS.
1790 38 01 020a 1231 TBN SPEYTE2,SSHI7 SSW17 SET ?
1798 F2 10 28 4232 oT ap SKIP COMMAND IB DUMP IF SO.
1797 2C 03 1703 03 1233 AVC = PH (8), 3 XB) STORE CURRENT OPTION.
779C CO 8? 483F 9238 B ATRPT
17a0 00000000 4703 1235 PS pe XL& * 00000000"
17A4 CO AP OZIA 1236 8 PRIEST PRINT HEADING.
17A8 01 V7aR 1237 pc ¥L1°018
F7A9 4O 47A9 93238 DC IL1*68¢
F7AA 1A07 T7AB 4239 BC AL2 (CHBDAS}
I7aC CO 87 O2TA 1280 8 PRIEST PRINT CURRENT OPTION.
1780 02 1780 12481 pc XL1°092
*1731 58 : 1784 1282 DC IL1*94e
77B2 1943 1783 1243 pC AL2 (PRT)
17B8 OC SA 19413 19A08 1248 HVC 8 =PRT (91), PRT+1 CLEAR PRINT FIELD.
17PFA BE 01 53 17¢C8 1285 ALC 83(2,XR2) ,N001 INCREMENT ERROR COUNT.
17RF CO 87 0000 1266 MP B t-s
- 9287
1248 @¢ecee¢eesesesseseses
1249 © CONSTANTS
*12590 FSS FOES ESEESEEESESEESHS SESEE SESE SESCEESERESTSEEE FEES SERS SEBS SES SESSEHSESTEOVOSS
17¢C3 0001 17c8 1251 "001 pec IL2¢17°¢
17¢c5 0002 17C6 1252 W002 DC IL2¢2#
17¢7 0003 17CB8 1253 N003 DC IL2*3¢
*17C9 0004 T7CA 125% 8008 pc IL2*a
*17CB 0006 17CC 73255 "006 DC IL2°6
*17cD 001A TICE 1256 N02 pc IL2*248°
17CF 0020 17D0 1257 "032 pc IL2*32°®
17D1 PRFFE 17D2 1258 NEGO2 pC XL2*PPrFe? NEGATIVE 2 VALUE.
17D3 PFOO 47Du 1259 NFG256 DC XL2*PFOO® REGATIVE 256 VALUE.
17D5 F1 17D5 1260 DECO? pc CL1*42
T7D6 OA18 17D7 1261 BYPAS DC AL2 (BESI +8)
T7D8 VIDA ; 17D9 1262 CKID DC AL2 ({ IDCCW-3)
17DA 00000000 17DD 1263 IYDCCW DC XL4*90000000°
180D 1Z89 1802 1293 LSTADR DC = AL2 (READTW258) | 2
18OP 66 180F 1298 ERKT DC XL1*60° 4
1810 00 1810 1295 BRK2 DC = XL1°00°
1811 00 1811 1296 WRK} DC = EL 19008
1297
FPFGR SCHKESSHSASHSESE SS SCHSESBMESTERS OHS SSSCH SELES ETEECSHHS KUSH SETH HSE OETSEOHSR~ GETHEOESS
1299 & TFSPORARY STORAGY ARFA FOR RE NISK aT °
1366 * T/O COSMARD ANTM IF*S CONTROL PYIYELD. ®
| 4301 © °
RPRET THIS OPTION. 1812 00000000 1815 1302 THPCCH DC = =—- XL4* 00000000" ~ CORTROL FIELD STORAGE. 8
oo A RTEREF 1816 06 18%6 1303 DC 8 XL7*00* - CLEAPING SYTF, °
1817 F3 00 09 1304 THPSIO SIO x*00*,x*00* ~ START I/O STORAGP. e
: TICS SEKTESS SSSSSSHTSSSESATCSSHAHSESSSHVSTSE SHESS SS SSEHHSHHHSSE THK E HE HOOESEOEDEOHEI4G8E39
1306 :
TIOPF KHSEKRTTAKHSSSSKESCSSEESHSSHHSTSH SESS HESSERESSHOESHOHROTSE SOSH SHES EFS HTEEOHSCOSSEROSEY
18 1a 00 181A 1308 FLAG pc = XL1"9008 DRIVE SSAGE FLAG.
: 1309
1310
*
* RIT O - SPECIAL SEP COMPARD USED.
1311 @
1312 ¢ BIT FT - WORMAL SEFK COMM@AKD USED.
1313
BRANCH BACK. 1314 BIT 2 - SPECIAL SPZK COPAARD ISSUED,
1315 ©
1316 BIT 5S - FORCES STO TD CLEAP STATHS
1317 « .
1318 © 6.
1319 ©
1320 7
1321 ©
1322 ©
1323
1328 34468239
1325 * TABLES ¢
9326 SEELSEES SSE STE LESTER HESS EEKEE KEES ESTES SHSHEEEEHES SE ECOSEHSSOEESESESESEROSEED
181B 1327 BTSO Fou # TABLE OF STATUS BYTE 0 INS
181B OA 1878 1328 pc IL1*108 sIt 7.
11C 1CD1 181D 1329 pc AL2 (BT07)
3BIe 15 1B1E 1320 pc ILit2t¢ BIT 6.
BIT 6 = DRIVE 2 CO™SANDS UDS¥D.
BIT
2
e
e
s
3
3
* eae
2 ed
s
2
s
e
- DPTVE 1 COMSARDS OSES.
*s
*
ESET SESSEESTE EEE KTKSESSHSES SHVESCSEHTSESETSEKESESTHNS CE SESHHES SEEK ESTSTHSETENTBSOE
i 2 ae _ : . z : 3 ‘ etter - 3 §
IRM MAINTEMARCE DIAGROSTIC PROGRAG ae PART 80. 5129688 | _ 18M MAINTENANCE DIAGNOSTIC PROGRAA a : . PART #O. 5129688
|
184? 4CC7 7820 1331 pc AL2 (BTO6)
!
000000000008 00060 F000 ee @ @
a oo Oo
17DE 00000000 17£1 1268 HOO000O pC XL4*00000000°* 3A24 OF 1821 1332 pc IL1*15* SIT 5.
1782 ODDD 17£3 1265 BSYTIM DC XL2*OpDD* READ/WRITE BUSY TIME-OUT VALUE. 1822 132 1823 1333 Dc AL2 (BTOS)
17E8 1870 17¥5 1266 ENDOT DC AL2 (FILD) 1623 OA 1828 1338 pc IL17*10¢ BIT &.
V7TE6 182 1727 1267 ENDO2 DC AL2{ (PILDe2) 1825 1Ck3 1826 1335 pc arzterey)
1728 109A 17£9 1268 ADRO1 DC AL2 ("OVS+1) ADDRESS OF BYTE LOCATION. 1827 OF 1827 1336 DC IL1*15 ‘BIT 3.
I7EA 18CC 17EB 1269 ADRO2 DC AL2 (CHEDS) ADDRESS FOR OPTION SETTINGS. 1828 1€99 1829. 1337 DC AL2 (BTO3)
IVEC DEB 17ED 1270 ADRO3 Dc AL2 (READIN) ADDRESS OF READ/SRITE AREA. caee aces sese ee =< an BIT 2.
1271
1c FFE 0459S $0FE9E FE TSESE 3982p 15 182D 1340 pc IL1°29°9 BIT 1.
1273 © RESERVED AREAS * W2F 1079 182P 1384 pc AL2 (8T0 1)
1274 SO EFE 0 $56 £44644 S FEES KEEEKEEEEEES ESSE EEEEESERESEEESEDEEE EEE OOOEOEESBERD 7830 05 1830 1382 Dc ILit5¢ BIT 0.
I7EE 00000000 17°71 1275 TEMP DC XL& *00000000* TEBPORARY 1831 1C68 oe Nice meee ee Bez (ere®) i te teen EA ee al ete
17F2 1276 SEEKO EQU ¢ z a
17F2 000000FF V7FS 1277 DC XL&* O00000FF* CONTROL FIELD TO SEEK CYL. 0. 1933 OD 1833 1365 pc IL1*13° BIT 5.
V7P6 17F2 17F7 1278 RCALA DC AL2 (SEEKO) . 1938 ices 1835 1386 pc AL2 (BT35)
17P8 1DEB 17F9 1279 DARA DC AL2 (READIN) 7836 06 1836 13487 oe IL1*6 BIT 0.
17FA 00 17FA 1280 UDT DC KL1"00* UDT FLAG BYTE. 1837 1¢D7 es Den. eee iPtse) Sore decane ene miRee
17FB 10D7 17FC 1281 CCW DC AL2 (ILCCw-3) CONTROL FIELD ADDRESS. 1839 1349 OPTSW1 EQU) ® : ; ots cot ; .
17FD 1DEB I7FE 1282 DAR DC AL2 (READIN) READ IN FIELD ADDRESS. C 1839 FPP? 183A 1350 bc Breet ee UNDE De
17FF 0000 1800 1283 LSEKA DC X1L2*00008 LAST SEFK CHND’S F & C BYTES FOR -a- 1833 a060 183C 1351 DC XL2 apoo* SEEK.
1801 0000 | 1802 1284 LSEKB DC xL2*0000° LAST SEEK CMND’S F & C BYTES FOR -B- 183D A700 163E 1352 3 eee Bein Losers
1803 0000 1808 1285 COUNT DC xL2*00008 BUSY SIGNAL COUNTER. a 183P A109 a980, 1339 oe. ee eis Gricancee
1805 00 1805 1286 SWANL DC XL1°00° SENSE SWITCH ANALYSIS BYTE. = 1881 A162 1882 1358 Dc XL2 n02 RED pater °
1806 0000 1807 1287 SVXR1 DC XL2°0000* STORAGE FOR INDEX REGISTER 1. ae a103 a“ ie Be See Cee
1809 00 | 4809 1289. STSBY? pe | XLWODe STATUS BYTE 1. Oo. 1807 A203 waae 1357 De XL2"A201" WRITE IDENTIFIER.
; c 7 A100" MULTI-READ.
180A 00 180A 1290 STSBY2 DC =‘ XL1°008 STATUS BYTE 2. 1889 4100 ace aaes oe aera aa. SULTI-WRITE
190¢ 00 180C 1292 eae De ar isbo: aannee Breen : Co iaab noes — 1BRE 1360 DC —_—soXL2* A000° SPECIAL SEEK COSMAND.
MBER SFCTORS ABLE TO READ. | 1ABD A000 oe .
DATE §13MAR70 O6APR7O 22MAY70 01A0G70 010CT70 28APR71 PROG ID osou-3 CO DATE %39AP70 = O6APR7TO = 22NAY70 = =01A0G70— OOCT79 Oeere be TD Cenges
BC WO. 571512 571516 571513 571531 571580 571565 . ° PAGE 10 FC WO. 574512 571516 571513 571531 —§71590 57156
Co | Ce
|
|
I
: ; G
IBM MAINTERANCE DIAGNOSTIC PROGRAS PART FO. §129668 ‘TBH MAINTESANCE DIAGNOSTIC PROcRAaZ PRET 8O. $7929688
ae 3 PAGE 79 oo: °e “ PAGE W738 5
BOSe DISK FRIENDS TEST BOSG 8 _ DISK FRIENDS TEST
ERR LOC OBJECT COPE ADDR STHT SOURCE STATERENT o 8 ERR LOC OBJECT COPE ADDR STNT SOURCE STATENP ST “
188F FPF 1850 1362 BC XL2¢PPPrs UNDEFINED. ©: 38 99A8 4&0 7949 1829 pe XL1* aoe ws
1851 PPFP 1852 1362 BC XL2¢°PFFFP* | UNDEFINED. 1 18306 ~
1853 FFP 1858 9363 oc XL2¢*PPPrre UNDEPINED. 1821 sececeesesessseceses
- $855 PRFF 1856 1368 BC XL2* Pree UNDEPINED. @ 8 1832 # RESSAGES * ee
9857 9365 OPTSw2 £00 Py SWITCA 2 PLAG TRELE. 41823 SSSSESHSSSVESESCHS SESS SHSSTIWIS SOTO SESS SK STSE HOSES SESSH HTS FE 8OHESESEEEE SERED ‘wi
1857 FP 1857 1366 pe XLI¢ Pre UNDEPINED. TDAS E2CSESUODEDIEICE 19C? 41638 INTRO DC CL3S*SF™ OPTIONS IN SWITCHFS, PESFET HALT?
1858 ao 1858 1367 pc XL1°a0? DRIVE 1 - RAVBL - BD O e o ISAD B6DSEZNOCODSHOE? 7238 m
1859 at 7859 1368 oc XLY*a%4* DRIVE 7 ~ RAYBL - #D 1 19BS FEC9OEIC3CBCSE263 1% 38 "
FASA AB 785A 9369 pc XLi*age DRIVE 1 - PIXED - 8D 2 198D SOD9CSE2C5E360C8 1838
1855 aS 1858 1370 pc XLitase DRIVE 1 - PIXZED - aD 3 ei1e 19C5 C1ID3E3 1438
9785C BO 485C 1371 pe ELV! aos. DRIVE 2 ~ REYBL - HD O 18CR DEDTF3CSDEDS4HONO I9FP 71835 pe CLO6*OPTION CONBAND DRIVE READ?
185) Bt 185D 1372 oc XLI*pt? DRIVE 2 ~- RHYSL - HD 1. 1SD0 ¥OsOCc3DED4SDECIDS 1835
185E 36 IASE 1373 pc ZL1* pgs DRIVE 2 - FIKED - 8D 2 ele 19D8 C&h404040L20408080 1835
1857 BS IASF 1378 pe XL7°BSs DRIVE 2 - FIXED - BD 3 I9EO0 80808 0408048 0C4aD9 1835
1860 FF 1860 1375 pc KL’ PP? UNDEFINED. 19E8 CIESC5&O8048 04040 1835
1867 FF 1861 1376 pe XL1¢° Pr UNDEFINED. 6:¢ 1SP0 CUCIE2ZD24G8 ONOKO 1835
1862 FF 1862 4377 pc XLIC Prt UNDEFINED. 19F8 C8C5SCICHHOSONORO 7835
1863 FF 1863 137A oc XLY°FF? UNDEFINED. 1809 D3DE6C3ICIEICIDEDS 1407 1436 CHRDNS DC CLS* LOCATION?
qRER PP 1864 1379 pc XL4‘*Pre UNDEFINED. a TA08 CSE7TCSC3ESE3ICIDS 1811 1837 pc CLIO*EXSCHTING
*1865 FP 78965 1380 pc XLU¢FPre | UNDEFINED. ¥ 1A10 C740 1837 ;
1866 FF TRG6H 1381 DC XLI‘¢ Pre UNDEFINED. VA12 C3DEDALSCIDSCSE2 1421 1838 SUM pc CLIG*COWSANDS SUS@ARY®
1866 1382 RYCSND EQU ¢-4 SWITCH 1 DEPINITIOWS TABLE. C & TATA BOEZESD4EDUCIDIEB 1838
7867 OC 03 1956 TaAR5S 3393 ‘ VO PRT-77¢4) SK SEEK. oo IA22 COEQEZESCSCK4OAO 14830 14839 SUN2 oc CLIS*ISSUED CHECKS?
186D Oc 08 1958 1AuE V3ARY HVC = PRT-72(9) , RDDAT READ DATA. ; JAZA GOC3C8CSC3D2ZE2 1339
1873 OC OC 195P 1A5B TIPS MVC = PRT-~68(13) ,RDIDR READ IDENTIFIER. es @ 1A31 FOFOFOFOPOFO4040 1437 1840 SUR2 DC CL15*000000 0090008
1879 OC OF 1961 AGA 1386 MYC) = PRT-66 (15) ,RDDIAG READ DIAGROSTIC aan 1039 SOPOFOFOFOFOFO 1840
187F Oc OA 795) 1A75 13A7 MVC PRT-70(11) ,RDVR READ VERIFY. 1A80 E3D6E3C1D3IE2 TASS 3441 SUMH DC CL4*°TOTALS?®
78285 oc 09 195C 4A7F 1388 MVC PRT-71(10) ,WRDAT WRITE DATA. a TASH DYCSCICUHOCKECTES TAME 1842 RDDAT DC CLO*READ DATA?
1888 Oc 07 195A 1A87 1399 HVC) 8 =—s- PRT-73 (5) , WRID WRITE IDENTIFIER. TASE Ci 1882
1891 OC OF 1942 1CP& 1390 MVC PRT-65(16) ,RDMUL READ MULTIPLE. VASP DICSCICH4DEIDIC1 4A58 1843 RDIDR pC CLII*READ TRACK Ip?
1897 OC OF 1962 1p04 1391 AVC PRT-65(16) ,WRMUL WRITE MULTIPLE. © Cc 1A57 C3D240C9CH 4843
7189p Oc OC 195P 1AA5 13S2 YC PRT-68 (13) ,SPCLO1 ONE-TIME SEPK. TASC DSCSCICHHOCRCSCI 1A6A 1444 RDDIAG DC CLIS*READ DIAGNOSTIC?
18A3 1393 IDHEAD Eou ¢ SWITCH 2 DEFINITIONS TABLE. TAGE CTDSDEEZE3CIC3 TaG8 :
1843 FIDSFO 1BAS 72398 Dc CL3*1R0¢ DRIVE 1 RAVBL HD O nn TR68 DICSCICREKLOESCSDS 1475 1445 RDVR DC CLIT° READ VERTFY?
*TRAG FIDIPI 18AA 1395 pc CL3*iRV DRIVE 7 RAVBL 8D 7 se 1A73 C9C6FS 1445
1849 FIC6F2 WRAR 1396 pc CL3°1P2¢ DRIVE 1 FIXED #8D 2 1A76 EGDOCSEICS&OCHC1 TA7P 4446 WRDAT DC CLIO*WRITE DATA?
WAC PICHFI 18AE 1397 pc CL3*1F3* DRIVE 1 FIXED #D 3 0.66 WAVE £3C1 1496
TAP F2D9FO 1881 13998 DC CL3*2R0* DRIVE 2 RAVBL 8D O FASO EGDSCOIE3CSAOCICS 1A87 14647 WRID DC CLS*WRITE ID®
1882 F2D9F1 18348 1399 DC CL3*2R1° DRIVE 2 RSVBL 8D 1 { R88 C3ICIDSYODEDSDIEB 7A98 14648 Dc CL17*CAN OWLY HAVE 1, °°
18BS F2CHF2 4687 1200 pc CL3*2F2* DRIVE 2 FIXED HD 2 ° 7A90 SOC8CTESCS4OFIEB 1988
¥RBR F2ZC6F3 WABA 1801 pc CL3*2F3¢# DRIVE 2 FIXED #D 3 G 4A98 40 1848
18B8 1802 "AXSCT EOD # CORE VS SECTORS TABLE. 1A99 DEDSCS6OE3ICIDSCS 1AA5 1449 SPCLO1 DC CL13* ONE-TIME SEEK?
16B8 PP 18BB 1803 “oe XL1* Pre CORE SECTORS 06° TART SOF2C5C5D2 1849
7aBC FP 18BC 1408 pc XLi¢ Pre = TAR6 “OD6BD7E3C9D6DS5 TAAC 1850 YNAN pC CL7* OPTION®
IABD O02 18BD 1805 pc XL1*02? 08 K 2 TRAD CUDSCUESCSYOE7T4SO FABD 1851 SPDNR DC CLI7*DRIVE X KOT READY?
1BBE 10 18BE 1806 DC XL1°708 12 K 16 G 1AB5 DSD6E340D9C5C1C4a 1851
183F 20 18BF 1907 oc XL1°20° 16 K 32 G JABD ES 1451
18C0 FF 18CO 1808 pc XL1*PPe TABE CSD5SCUKODECE4OE3 1AC9 1852 LSTONE DC CL12*EXD OF TABLE?
18C1 30 1R8C7 1809 pc XL1°30¢ 24 Xx a8 3 TAC6 C1C2D3C5 1852
18C2 FF “18C2 1410 pc XLItrre Cc JACA E3ICIC2ZD3C540C6C9 TADS 1853 FILUP DC CL12*TABLE PILLED®
18C3 30 18C3 1411 Dc XL1°30# 32 Kk a8 TAD2 D3D3C5CH 1853 ~
18CG PP 18C&’ 1412 Dc XLI°FPFe = S IAD6 EIDICICIDZ4OROFO IADE 1854 TRACK pC CLO*TRACK 00
*18C5 PF 18¢5 7613 pCO s«XLY °F Fe ad TADE FO 1458 |
18C46 PF TACK 1414 pe XL1°PFe JADP E2CSC3E3DED94OFO 1AE7 1855 SCTR DC CL9O*SECTOR 00?
18C7 FF 18C7 1815 pc XL1°FPe O 1AE7 FO 1855
18C8 PP 18C8 1816 DC XL1‘*Pre Cc : 1AE8 CUDICIESCSYOE7T4LO 1800 1456 BRATE pc CL25*DRIVE X RECALIBRATE CHECK®
18C9 FP 18C9 1417 pc XLI'FFe TAFO DICSC3CID3C9IC { NI 1856 . Bye
1418 © MISCELLANEOUS STORAGE AREAS. cS TAFB CIE3CS¥OC3CRC5C3 1856
18CA FOFO 18CB 1819 pc XL2*FOFO? RECALIBRATE FLAG. c 1B00 D2 1856 2
18CC 1820 CANDS EQU ®* 1801 CIDEN9CSHOC9ID4EC1 1B32 1857 INGE DC CLSO*"CORE IMAGE - COMMAND XXXXXX CONTROL FIELD XUXXXKXXX
*18CC I8P3 1421 DS CL40 DISK COMMANDS TABLE. ~~ 1B09 C7C5K060L0C3DEDa 1857
18FO 1422 FILD ¥EQU) *-a wo 1B11 D&CIDSCK&OETETE? 1857
18Pa 1918 1423 Ds CL&0 SUMMARY COUNT TABLE. 1B19 EVE7E740C3 D6DSF3 1857
191¢ 1943 1428 Ds CL40 ERROR COUNT TABLE. _ = 1B21 D9D6D3480CECICSD3 1857
1944 19485 1825 SIs DS CL2 SUSMARY OF CNSDS ISSUED. ce 1B29 CUHOETETEVETETE? 1857
1946 1947 1826 SCK DS CL2 SUMMARY OF CSNDS CHECKS. 1B31 EVE? 1457
19288 1948 14827 DS CL1 CLEARING BYTE. 1B33 C4UDICIESCSYOETUO 1B46 1458 STSCK DC CL20°DRIVE X STATUS CHECK
*1949 1943 1428 PRT Ds CcL91 PRINT AREA. ec Cc 1B3B E2E3C1E3E4E240C3 1458
DATE 13¥8AR70 ‘O6APRT7O -22"aY70 01A0G70 010CT70 28aPR71 PROG ID OB0a-8 c 36 DATE 13MART70 O6APR70 22NAY70. 01A0G70 010CT70 28aPR71 -PROG ID OR0u-8
fC WO. $71512 571516 571513 _§71531 571540 571565 PAGE 41 EC WO. 571512 571516 571513 571531 571540 571565 PAGE VIA
2 7 elie | | | 2
IBA MAINTERANCE DIAGKOSTIC PROGRAR . PART #O. 5129686 | IBA MAINTENANCE DIAGNOSTIC PROGRAN : PART WO. 5129648
ay PAGE 12 - ao, : PAGE Fa
mee a Pe @ie 2
- pO84 DISK FRIENDS TEST | BOYS . DISK FRIENDS TEST
ERR LOC OBJECT CODE ADDR STHT SOURCE STATENENT eis ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT
4883 CB8C5C3D2 1658 € 6 1D15 SOE3DEU0E2CSD3C5 18863
1B&87 E26B80C9ODSCSEICE 1850 1459 STCKIN DC CL10°S, INITIAL* IDID CIEZSOCBCSETRODS 1883
TBSP C1Dp3 1859 : 1D25 ESDeC2TSD9NODSCE 1883
1851 E2ZE6C9EICICBUOE? 1364 1460 BIGSSH PC CL20*S#WITCH xX IS IN FRROR* ¢ | 6 ID2D SOE2CS5C3EIDSEDIEZ 1883
1859 &O0C9E240C 9D54 0C5 1660 ! 1D35 4&6 1483
1R61 DIDINSDI 1460 1D36 EID64UOOUNROLOSO ID3D 1488 SECSET DC CLAtTHE
1B65 EZE6C9IEIC3ICBCSEZ2 1889 1461 LRGSS@ DC CL37*SHITCHES 3,4 TOO LARGE FOR THE® se ID3E C3ICIDSUODSDHE3K80 1D65 71485 XCED DC CLOOTCAN WOT SPECIFY #ORF T4HRN 4FX xR SECTORS?
IBAD 4OF36RF4S0E 3DEDE 1861 ¥ 1D86 E2D7C5C3C 9CKERSO 1885
1B75S BODICIDSCICSHOCE 19614 IDE DEDEDSCS4OE3CBCI 3585
iB7D DEES4OFICKC5HOKO 1864 Cc 6g 1D56 DSSOCBCSETROEVET 1485
4PAS 4ONORDHO“O 9461 ¥ IDSE BOE2CSC3E3DEDIE2 4885
1BBA C6CIETCSCHROCYCS 1897 7862 pc CLIG*PIXED DISK OF ? IDh6 E2EICIDSE3CIDSC? 1093 148h VRUB pc CLUG*STARTING S®*CTOR PLIS WIMRFH YS GREATER THAN &R?
1B92 E2D2KNO0D6CHR0 1862 oc 8 ¢e IDGE SOFICSCIEIDED9NO 1486
1B98 CUDOCSIESCSSOF2Z40 IBAA 41463 NOSPB pC CLIG'DRIVE 2 ROT DEFINED® ve 1D76 DIDIEME2QVODSESDS 1486
TRAO DSDGE340CEC5SCEC9 18663 IDTE C2CSDIBOCSIEZKOCT 1886
IBAB DSCc5cu 9663 GC @ 1D86 DICSCIEICS DIBOEI 1886
TBAB CULICSFSCSSOFT7T4UO IBBP 14648 BSYLES Dc CL21*DRIVE X BUSY TOO LoRG* = IDBE CACTIDSSOPUFS 18 86
1B83 CZ2ESF2ERS OE 3D6 DG 1868 1D94 CBCSCICSKOE2ZC5D3 IDAT 14887 HDBD pc CL20*° HEAD SELECTION CHFCKE
1BRBB YODIDE6D5C7 1866 o e 1D9C C5C3EICSDED5SHOC3 1887 oT
IRCO CICIDSDSDEEIBOESR IEP 1465 STUPID DC CLUR*CANNOT DSE TRACKS 4-6 OP &7-4B ON REMOVABLE DISK* * IDA CBC5C3D2 1087
IBCR E2CSHOEIDICICIN2 1865 IDAS C3ICIDSDSD6E340CI IDC2 14888 MIXOP DC CLZ7*CANYOT INTEP!ITE OPTIONS T,A°
IBDO E280F860F 640D6 D9 "94865 r. e 1DBO DSEICSDSODUECIET4UO 1888
1BD8 SOF&PT60F4C250D6 14965 i IDBS DED7TE3ICIDEDSE2Z4NNO 1488
IBEO DSYONOCSDEDGESCI 1065 DCO P16BC1 188A
IBEB C2DICSVOCECOF2D2 1865 es € 1DC3 DIDSESC2D3 1DC7 1889 RMVBL pC CLS*RAVBL?
IBFO CUCTEICI“VOCUEY DS BFR 1466 DEPOP DC CLO*DATA DUMP? = 1DC8 CUDICIESCSAOETKO IDDD 1490 SHELL DC CL22°DPRIVE x YYXED uD xe
IBFB D7 1466 1DD0 SO“OCECSETC5CB84UD 1890
1B?9 C3IDADSEIDIDEDI4O 1015 1867 IDFLD nc CL2Z9*CONTROL FIELD READ — XXXXXXXX! o 1DD8 BO“OCACRSOET 1890
1C01 C6C9CSDICAHODICS 1067 ke € IDDE C3CIDSDSDEESMOEN IDEA 14691 KNOTO pC CL1I3*°CASNOT USE 90°
1009 CICUUNEOROETE7TET . 1867 IDE6 E2CSHOFOFO 1494
1C11 EVEVEVEVE? 1467 QO 1492 CHESHESSSSSESE SEES SES ESSE SESE SEO E SES ESEES ESET OESENESEHSESSESEDESS OSES
1C16 DICSCICUKOCICKSO 1039 1868 SKITCK DC CL36*READ ID CHECK, EXPECTED XK ACTUAL XX* & 1DE83 1493 READIN EQU *
*ICIE C3C8C5C3N263480C5 1868 1494 K8eteeeseseoes BEGINNING OF DIS READ/WRITE FIELD.
*1026 EVLD7CSC3EICSCHHO 1868 : 1895 * =
IC2E EVFETLOCICIEIESCI 1868 Ss @ 1496 SKFEKTEE SKSSSETSSSHSOKSHHSESTAE SESS SHEHKESEHKHEEES HEHE SEKHEEEEREEEEKEEEEEEEEE ED
1C36 DINOETET - 9468 —s IDES DICTETCIDBESPHRO 1£E1B 1497 HDSUB DC CLYO*MAXINUM NOSBER OF SFCTOPS TO READ/SWRITE IS HEX xy?
1C3A CUDICIFSCSHLOPT7T4NO 1C4HB 1869 RISZY pC CLIS*DRIVE xX IS BUSY?* on e IDF3 DSEUDEC2ZCSDINODS 1497
1C42 CIE2ZUOC2ZFUEZEA 1869 i IDF3 Ch640E2CSC3E3DED9 1497
ICUI CUDICIESCSHOETKO ICS" 1470 NRZY pc CL23*DRIVE X DID NOT GO 3uSY* 1E03 E24OE3T640D9C5C1 1497
1€51 C¥C9ICS4ODS DEF300 1870 n 1E03 C4U61EBL9SCIE3C54UO 1497
1€59 CTDA4YOC2ZEGE2ZES 1870 Me ts Sc 1E13 COEZ4OCBCSETUOE7 1497
1C60 D5D660D46D7 1C64 1871 BTOO pC CL5*NO-OP* 8 1F18 £7 1097
1C65 CIDSEICSDIESCSDS 1079 1872 BTOI Dc CL21"° INTERVENTION REQUIRED? oe sie TEC CUCTE3CIMOC2ESE3 TE4C 1498 ALTPAT DC CLUO*DATA BYTE -FF- AT XXXX GEKEPATES WRITE DATA FIELD®
IC6D EICIDSDSRODICS DB 1872 . ~ 1228 C5¥060C6C66040C1 1498
1075 Eacopscsca - 9072. 1E2C EXUOEVEVEVETUNCT 1298
IC7A DSDE4OCICUCUNICS 1ICBA 1473 B8TO2 pC CL17*NO ADDRESS MARKER® ry 1E34 CSDSCSDICTE3CSE2 1498
1C82 E2E280pac1D9DI2Cc5 1873 bo VY 8 1E3C 4OE6DICIE3C540CH 1898
JCBA DI 1473 TEUB C1E3C1TR0CECIC5D3 1898
1CK8B CSDSESCIDIDACSDS 1€99 14748 BTO3 DC CLIS*EQUIPMENT CHECK®* O TE4c ca 1498
1093 E34¥0C3CKCSC 3IP2 1474 3 c JERD C3CSYOE3D9CIC3D2 IESE 1499 CFLOC DC CLI8*°CE TRACK IS HEX xx
*IIA CUCTEICINOCICRCS 1CA3 1875 BTO’ pc CL10* DATA CHECK® 1E55 4OCSE2Z4OCACSETES 1499
1CA2 C3D2 2 14875 mm fom 1E5D EVE7 1499
1CA4 DSD640D9C5C3D6D9 1CB2 1876 BTOS nC CL15*NO RECORD FOUND? Mee TE5F EZEACIEIC3ICBUODG 1£78 1500 STERT DC CL29"°SWITCH OPTIONS STORED AT XXXK?
AICAC CUSOCHKT6EERDSCSE 1876 | IEG? DIEICIDEDSEZUOE? 1500
1€33 E3D9C1IC3D240C3D6 ICC? 1877 BTO6 oC CL21* TRACK CONDITION CHECK® a 1E6P EIDEDICSCH4OC1E3 1500
ICBB DSC&CIFICIDSDS HO 1477 SL 1E77 SOEVEVE7F7 1500
1CC3 C3IC8CSC3D2 1877 ; TETC DICSCICRETE6D9CO TE9F 1501 STRFLD DC. CL36*RFAD/WRITE DATA FIFLD STARTS AT XXXX°
1CC8 E2C5CSD240C3CBCS ICcD1 1478 BTOT pC CL10"*SEEK CHECK® co | in TE8K EICSHOC8C1TE3C140 1501
ICDO C3D2 1878 — Me ee TERC C6CICSD3ICK4OE2ZE3 1501
1CD2 EYDSF2C1C6C5 | 1CD? 1879 8T30 c CL6"UNSAFE?* 1294 CIDOFIEZNOCIE340 1501
1CD8 CSCSCICULOE2ZCSES 1CE4 1880 BT35 nC CL13*HEAD SETTLING* age SE Sse 1E9C EVEVETET 7501
I1CEO E%D3C9N5C7 1480 $5 a = 1EAO FSFSUFSFUROCUCIE2 1EB4 1502 BHDBOS pC CL21°54¥4 DISK FRIEND TEST®
ICES DICSCICSHOGOFOFO ICF& 1481 RDEUL DC CL16*READ O00 SECTORS® TEAS D2UCCED9C9CSDSC4 1502
ICED 4YOE2ZCSCIE3IDED9E2 71481 ele see 1E80 SOE3CSE2F3 1502
ICF5 E6DSC9IEICSYOFOFO 1D08 1882 WRATL pC CLI6*WRITE 00 SECTORS*® Mee > ee 1£85 CUCSEZD240EUCKHE3 1EC2 1503 UDTCK nC CLIU* DISK UDT CHECK®
ICFD SOF2ZC5C3IE IDEDIE2 1482 | 1EBD 40C3C8C5C3D2 1503
1D05 EWVE2CSHOE2ZERCIES 1D35 1883 pc CL&9*USE SWITCHES 3,4 TO SELECT H®X NUMBER OF SECTORS? , a cae 1508
IDOD CICKCSE2ZKNOFIG6BFS 1883 C ae 1505 FEES EKESESES ESE ES EHEREREEE SE EEERERE CEE CEES SER ESESEEREREEE SSE TORRES EDS
DATE 13MAR70 OfAPRTO 22MAY70 0 1A0G70 010CT70 28APR71 ' PROG ID OB04-8 c o DATE 13M ART70 O6APPT70 22"AY70 01A0G70 010CT70 2RAPR7A PROG ID OROG-4
EC NO. 571512 571516 571513 571531 5715480 571565 PAGE 12 EC NO. 571512 571516 571513 571531 5715380 571565 PAGE 2A
cis
bob sate ines soe waa “Se 2 oo = : * 7 bea 3 = é 3 os
@
©. @ | see r J = oe ~ © ne @ & @ @ s@: © @ @ @ re chats © © @ & ©. a @ ir > = @ - © : @ ; @ . @& e S&S _ @ ,
i | | 9/0 | | : Ss
ws SRINTERANCE DIAGKOSTIC PROGRAN PERT RO. $729688 | IBA HAIVTERARCE DIAGNOSTIC PROGRAT . i. oer #0. :
i ee . <9 pace 30 ¢ |e P 3
“pOee DESK FRIENDS TEST | | | | sous = DISK FRIZWDS TEST a | 2
Pa , ; : 2 : i { S. . ; oa se .: ° a:
ERR LOC OBJECT CODE ADDR STHT SOURCE STATESERT 6 { : ERR LOC OBJECT CODE | ADDR STAT SOURCE STATERERT ‘ ; es
in . , | 1506 © SETODT * & 8 ° sep 38 20 1!rat VS74 TSR 8 UDT,%*20* THIS 1/2. CAP DISK ? am
. +oo8 WE ONY FIN 2 1FS1 F2 90 68 " 9975 SF 0 a7 _ « JOSP IF wot.
*: ns tees a Pe Sue ae. SET eee cae Lat erat iccorernne: * TPS8 3C 67 I7F1 ; 576 avi TEMP, 103 SET UP FOR 1/2 CAPACITY.
ae 1509 © 8 € ° 1F58 CO 87 0212 : 1577 8 GePACK . OWPACK CE TRACK ID.
*1510 © UDT FLAG BYTE ‘ODT’ IS AS FOLLOUS- e coe es ee oe me oe |
1511 «© or . * : ;
s sITt MEANING * 1PSP TESE aF60 1580 pe AL2{ CELOC)} eo
*sea * . , « 9 6 1762 CO 87 021£ 1581 B UNPACK UNPACK SHITCH STCRASF ADDRESS.
151n © 0 SPINDLE -1- DEFINED. * 1F65 02 1F65 1582 _ ee IL1#2° :
1515 «© * e TF66 1728 1F67 1563 pc AL2 (ADRO2) 2
1516 *® 4 SPINDLE -2- DEFINED. e 6 P68 TE7B 1F69 158¢ pc AL2 (STENT) z
S17 © * 1F6a CO 87 0212 1585 8 UNPACK UNPACK RFAL/SWRITE FIELD ADDRESS.
1518 * 2 SPINDLE -1- HAS HALP CAPACITY. * 9/0 ce pee bike a S a eae a
qa51ic ; * i ‘ .
1520 * 3 SPINDLE -2- HAS HALF CAPACITY * i 1F71 1E9F IF72 15886 Dc AL2(STRFLD}. : na
1923 © - * o| © ¥F73 3C 60 1978 1589 AVI PRT-80,ct-* G2MFRATE LIRE OF *-*S.
*1522 ¥EOROO ESOT 8666S EEEE ESTE EEE EESEEES EEE RENE ESE 6 EES6EEECEEDSOESEEE BO ae ee 31 197A 1978 : ~ SVC = «—-PRT-&1(50) , PRT-a0 Said OS eee gi
9523 , tT? cO 87 O2i7A 1591 B PRINT : - " e -*S.
1520 FOCESSCE FEE SEEESEEEEES FE EEE SHEE EEEEEEEEEEEEE ES EEE ES FEHRESESESEESEESESEEOE Oo ® 1FRt 01 FBI 1592 DC XL4*01
*1525 PROGRAM NOTE ; _ tFA2 SB IFB2 1593 pc ILa*9O1* .
1526 THROES SEEEEESSEESESEEEHEE SOEEEEEESEEESEESESESE HESS SEEEESEE ES SRESSEESESS 1F83 29A3 TFB 1594 pc AL2 (PRT) . as te ze -_
1527 * THIS SUBRODTIVE IS RUN ONCE AND THEN IT IS DESTROYED. AFTER * Oo @ 1F85 cO 87 021A 1595 8 PRINT : PRYNT PARTIES SECTCS TO READ/SUPITE.
1528 «© THE FLAG BYTE IS DEFINED, THIS SUBROUTINE BECOMES PART OF * see = ae. oe a as
1529 © THE DISK READ/WRITE AREA. * :
1530 SOS S EES EEE ERE EEKESEEREREKS EEE EOEEESEEEES EE KO EE EEE S EG 4ESOEEEKESSEKEEES ER CG ! e 4FSB 1518 FRc 1599 pc AL2 (HPS93) . ey
VFC3 38 20 OAOR 1531 SETODT TBS AUDT-1,%"20° SPINDLE -A- DEFINED ? a | 1F8D CO 87 O21A 1599 B PRINT : PRINT CE TRACK LOCATION.
VEC? F2 90 O48 1532 J? *+7 sump IF wot. 1791 01 1F91 1600 pc XLi*O91
VECA 3A BO ITPH 1533 SBN uUDT, x*80! TURN ON SPINDLE -A- FLAG. GC : @ 4F92 42 4F92 1601 DBC IL1*18
**ECE 38 20 OADGE 1534 TBN BUOT~-1,X'20* SPINDLE -B- DEFINED TO DCP ? 4F93 IESE 1F94 1602 pc AL2(CELOC) Len ss
TED2 F2 906 08 1535 JF +7 JUGE IF ROT. ; 4F95 CO 87 O2TA 1603 _. B PRINT PRINT ALTER ADDPESS.
1205 3A 80 17PA 1536 SBN UDT,X*SO° | SET SPINDLE -B- FLAG BIT. Co @ 1F99 01 1F99 1604 DC XL1°OT
*T£2D9 39 CO 17FA 1537 TBF uDT, x°co? ANY FLAG BITS SET ? : Sioa aene ace oe st hoses
A4EDD P2 10 £3 1538 JT ERUDT GO PRINT MESSAGE IF NOT. 60 RLTERTY f. os
VE5O0 36 02 GAOT . 4539 TBN ADDT,CaP2 100 CYLINDER FIT ON ? oO 6 1P9D CO 87 O2ZTA 1607 3 PRILT PRINT ADDRESS FOP SWITCH STAPAGE,
; EES F2 390 O8 1540 JF *+7 JUSP IF WOT. TFA1 01 IFA? 1608 pc XLIUGI
_ EF? 3A 20 17PA - 15481 SBN UDT,x*20* SET SPINDL -A- HALF CAPACITY FLAG. hey quae 7 ice 6s Ris eteesi
TEES 38 40 17PA * 7582 TBN UDT, X* 40° SPINDLE -B- DEPINED 7%
TEEF F2 90 08 1543 JF PARE JUMP IF NOT. c1¢ 4PAS CO 87 021A 1611 R PRIET PRINT PEAD/WRITE ADDRESS.
TEF2 38 O02 OAOF 1544 TBR BSUDT, CAP2 190 CYLINDER BIT OW ? ie a. aaa acts os ae nee
4EFA F2 90 G4 7. 9505 JF *+7 JUMP TF NOT. ; A /
TEFO9 3A 10 T7FA | 4546 SBN UDT, X° 108 SET SPINDL -B- HALF CAPACITY FLAG. 0 6 FAB 1TE9F 1Fac 1614 BC AL2(STRFLD} oe
SUT OES EAESEEEHERESEEE EEE EEEEEEK EEE EEEKEESSEEEEEEEEHE SEED OEE EEEEEHEEEECESREEESE IFAD CO 87 O21TA 1615 B PRINT PRIN® LINE OF *-*S.
1548 © PRINT PROGRAR TITLE AND INPORMATION FOR THE CE. * Q @ 1FB1 048 : 1FB1 1616 pe XTL1°OS* uo, : a
FSU SEEEESSEEETEEE ES EKEEEEEEEEE EERE EKEEE EEE EEEEEES EE EEE EEE ED EEEEEESEEEEEEEESS 1PB2 SB 1FS2 1617 bc ILO
TEFD OC SA 1943 19A4 1550 PARE AVC PRT (91) ,PRT+1 CLEAR PRINT FPIELD. ie Spa sents TF BR a ae eee ay ene cee) Gp ete aniiee wees
1FO3 OC 14 196R EBS 1551 avVC PRT-~59 (21) ,HDPOS BRING IW TITLE. O oS , ; ° one - ‘ “ 7s
, 's r 7 v BEGIN¢ BYPAS MODIFY BRANCH INSTESCTION.
Coogee | apap 4853 De «xLIF018 See ore 7 iFPP CO 67 OAI4 1621 3 60OBEGIN GO START PROGRAS.
'. 4POE 58 FOE 1554 pc IL1*°91° ole 1FC3 CO 87 O21A 1622 ERUDT B PRINT PRINT ODT CHECK.
fa POF 1943 4FI0 1555 pc AL2 (PRT) TFC? C6 1FC7 1623 pe XL1°C6* ID -AOPA-.
pe F117 68 O2 17F1 0202 1556 ANZ TENP,SIZE-1 ISOLATE CORE SIZE. ' IFC8 OF FCB 1624 pc IL157a
*Ue WFI7 C2 01 1ABB , 1557 LA MAXSCT, XR1 LOAD TABLE ADDRESS. 0 | 3 FCS 1EC2 1PCA 1625 poe AL2 (UDTCR)
1F18 36 04 17F1 4858 A TEMP, XR1 INCREMENT POINTER TO CORRS TO CORE. | 1FCB AOEA 1FCC 1626 pc XL2°AOEK* en AL? <Eaq
_<IFIUP 7D FF 600 1559 CLI 0 (, XRT) ,X* FF THIS AW INVALID SELECTION ? : ice 7 87 0222 — alee ae Be he ERROR H °
- 4F22 F2 01 07 1560 JNE wosOo JUMP IF NOT. 5 FDT AOEA
~ + 4F25 3C 02 180C¢ 1561 SVI SAX,X*02° SET MAX SECTORS FOR READING TO 2. 6 0 4FD3 CO 87 1EC3 1629 B SETUDT GO TRY IT AGAIN.
“ ) VF29 F2 87 05 1562 J *+8 : ee Ss aouhers
ies iF2c 1¢ 0 00 1563 Koso avec MAX(1),0(,XR1 STORE MAX NUMBER OF SECTORS TO READ.
co AP co 87 onte 1564 : B ONPRCK’ Pate, UNPACK MAXIMUM NOMBER. oOo. .6°8 1632 ##8E8KS £EESET EERE EEEEES ESE SEES TEES ESE RENEE SEER ES SE ESSSEESO SESE SS EES SS
pa SF35 OF 1F35 1565 pe ILi*19 0008 1633 ARR EQU x*o8
*fo 4F36 180C 1F37 1566 pc AL2 (SAX) O Q 0222 1634 HALT FQU x* 222°
} .. SF38 1E16 4739 1567 DC AL2 (HDSUB) 0216 1635 LINK EQU x*216
*pas IF3A OC 01 1D5D 1£18 1568 NVC KCED-8(2) , HDSUSB SAVE FOR LATER REFERENCING. O21A 1636 PRINT EOD X*21A°
o- “F420 CO 87 OC21E 1569 B UNPACK UNPACK ADDRESS FOR PRINTING. a Q 0212 1637 TEST EOu X*212
*bi IFGR O2 1F8a 1570 be ILt*2°* = O21E 1638 UNPACK EOD X*21E
*Le . VFR5 FTES TFR6 41571 pe AL2 (ADRO1) 0001 1639 XR1 EQU x*o7
*ot TFaT 1E31 IFaR 1572 be AL2 (ALTPAT-27) Oo oC 0002 16480 XR2 EQU x*02°
. "tFuUS 3¢ CB ITF1 ' 4573 AVI TEMP, 203 PRESET CE TRACK ID. VEEA 1647 FIL EQU READLR+255
ae = a-4
DATE 13MARTO OEAPRTO 22MAY70 01A0G70 010CT70 28APR71 PROG ID opou-n O G DATE 13MAR70 O6APR70 22MAT70 01A0G70 e10cT75 2RAPRII eae ID a ete
“Ec wc. 571812 571516 571513 571531 571540 571565 PAGE 13 EC WO. $71512 571516 571513 571531 5715860 571565 S
| o 8
es Oo .¢
_——— nes et Ream wares Nm a ee eee :
a Ss ee ast : : aoe ‘ - : a sgh ode fog as 3 ae iPad sia ‘ ‘ . A ate Cm ee eee
BE et ae RE ae MMe Sg ae a et nS MEL AUN om aml inte te IM ap Sn te Goebel ae ne 7 : : , e re : "2
neal at se ht Bo er ga a Ba a a a Nite een ca Spica: a atte it Sea ee AL ak dee ah i OE), eee oe s ; we Peet eo Se) Bas ee
t
i
}
|
f
set wm ee wr we me Ne Ee ow
ke
ror RATUTEMANCE DIAGNOSTIC PROGRAN ' ‘PERT ROL §129688 ISS MAINTESARCE DIAGKOSTIC PROGRAG . . PART FO. 51279688 |
% : : : ted
Rose = CDISK FRIEWDS TEST | 8088 8 = DISK FRIENDS TEST :
eer Loc opsecr cope ADDR STRT SOURCE STATEMENT G : 9° | . CROSS-REF ERENCE .
W7E1 17682 5000 Fou #0000 aa .
0208 1488 SBYTE3 FON x*O0208¢
0001 1685 ss¥1? EOD x°01* | eens : eee eae SS ee
0080 1646 ss#18 00 8 x*80* 6; 0 ADRO®T a 002 1759 1268 1574 “
0080 1687 ssH19 EOD x*uo* ADRO2 A002 ‘47EB 1269 1583
PC20 1648 SSWIA EQD xX*20° ADRO3 A 002 I7ED 1276 1587
ey ti aeee ss#i¢ £08 ee = 6; 0 ALTPAT A 089 1E8C 3498 1572 1606 . . 2
cee sees sda ee Nd . " ARR C 001 0008 1633 OR816* O9617 0922* 0823 0889 0927 09528 0953 0955¢ 0956 1230
dace: sees aero. ‘Eee eae, ele AUDT & 003 DADC 0020 1531 1539 a
Sos ace oe eae grees A34 a 008 0C68 0266 0259 . ks
NaeY Acta ches cue, eee - 7 BADHD a 003 OSE 0171 013% 0163 0166
1A3P 1655 DECOO FON SUn3 €;c caste ; ose age aca Seee Uae One Pe
*: saee a - c Es ita BEGIN A008 OA14 6062 1261 1620* 1621 1692
: qauaceees bo a 3 clio BIGSSHY a 020 1868 1860 0326* 0328¢ 0332 “
. tees ices ace ee? aoe BISZY & 015 1C88 1469 VIRD® 1199¢ 1196 «
tems SECO SRT ee! cen ae a BRATE A025 800 1656 0569¢ 0877¢ 087% OU7B8 1665
sors teen cnpee woo tram | C/o Srey tem iit Soot 188
co vce oe oo ag BSYLNG A021 IBBF 1868 1217* 1219¢ 1228 ‘
; TAPA 1668 RCLB EQU BRATE-6 6; 9 assis ; aa i763 toes ace -
IBAA 1665 NODISK EQU wWOSPB 6
BTSO A 00% 1818 1327 0903
WA19 1666 HDO2? £09 Soni-s Cc O BTS3 A 002 1833 1388
aoe ee BTOO a 005 1¢68 1871 1383
1669 SSRN SES CERES eeEEKSeESEES SESE SES REREeSTESeEs ae : pe — ee iad
1670 eee SETESKE $F FEKESESEKS ESEKRECEEEE Cc C BT02 A 017 CBA 1873 1339
BTO3 a 015 1€99 1878 1337
as ae BTOR a 010 CA3 1875 1335
acne eats els BTOS a 015 1¢€82 1876 1333
. teae pa BTOR aA 0241 1CC7 1877 1331
. BTO7) a O10 IcD1. 14878 1329
f aoe TREP cle ST30 A 006 1CD7 1879 1388
1676 TREP BT35 a 013 ICES 1880 1386
oe TREP BSUDT a 003 OAOF 90021 0106 1538 15484
hte ed clo BUSY a 008 140F7 0652 0650¢
seas ies BUSYA A 008 1716 1189 0839
BUSYB A 008 71D 1193 0857
sees pals elo BYPAS A 002 17D7 1261 1620
es eaee CAP2 C001 0002 1661 1539 1588
seae eee ccw a 002 17FC #1281 0635
a ee els CELOC A 018 ESE 1899 1580 1602
eeee saa . CKHD1 & 003 OB36 0157 0158
aa z CKID A 002 17D9 1262
sees ce oie CKSUL a 003 OS8C6 0212 0198
oes ooee CKOK a 008 15C2 1076 1071 1078
oo. CKOUT A 008 1300 0827 0821
eos nee 010 CKPRP A003 Oacd 0126 0101 0105 0107
Aeieaees: P CKPRS A005 169C 1182 1139
2 END SEGIN CXSEK A005 Oc&3 0257 0189 0196
0 0 CKSWHD A 003 CB2A 0153 0133
CKSW3 A008 O575 0183 0127 0129 0136 0152 90168
CKTHS aA 00S OaABE 0099 0096
° CKOO a 005 1568 1088 1036 1038 1080
o CX1S a 008 «#11830 0711 390707
CK16 aA 008’ 1053 0601 #0593 0596
°° CLC A 003 OC76 0271 0262* 0263 0268* 0265 0268* 0269 0270
*CLRB2 A008 OF57 0451 0432
CLRCCW A 006 OFFB 0500 0892 0507 056% 0718 1155
ee. PN CLROK AO0& OF1IA 0511 0505
vw CHNDMS A 008 1A07 1836 0376 0747 0888 1018 1100 1165 1239
. C™NDS A001 18CC 1820 0063 0377 0825 0890 0781 1269 1652
O CO COUNT A 002 1808 1285 0651* 0654a¢
. | CRSCT A009 1AE7 1656 1129 1130
DAR & 002 17FE 1282 0636
alse DARA A002 17F9 1279 0821 1663
‘ DARB A 002 17F9 1663 0859
DATE |
ee a5: aye ee 22mAY70 = OTADG7O = O10CT70 = _28APRII PROG ID opou-4 CO | S DATE 13SAR70 G6APR70 22"AY70 010670 010CT70 28APR7I PROG ID OROG-8
rs 571531 571540 571565 PAGE - $8 Ec NO. 571512 571516 571513 571531 571580 571565 PAGE 1a
ci?
QO Ce
@ @ & & ©. @ @ @ @ & @ Ss eS & @ @
—-
IBS MAINTESARCE DIAGHOSTIC PROGRAA
YT
SY“BOL
DATRK
DECOO
DECOT
DISK
DMADATA
DROP
DYORE
DEP
DAPOP
DOCAL
DOCALY
PONE
- DONE
DOSEK
DOO
DUENY
PUMPIT
ENDIT
ENDO
ENDO2
FRCNT
ZRLRG
ERMNY
EWuDT
ESCTR
fSTS
ESWi
ESW2
FTRK
PIL
FILD
PILup
FLAG
GEL
Gtyuit
GNIT
GOA
GOB
GOCLR
GORTN
HAIR
HALT
HANG
HDSD
HDBO4
HDSUB
HDO2
HDTH
HEROT
HF? FF
HFOFO
RLTFA
H0O00
Ipccw
IDFLD
IDHEAD
TLccw
ILSTO
INGE
INCALK
ITNCER
INCSW1
DATE
EC NO.
“¥
Pewee ew Py wy Sw yD ee yw & mY DD ww Oe we ae Be ot oe oe he OY
A>» » wy w > »
>p—pprpnprrrnwrpy yp»
pw we SS
» » » »
DISK FRIEWDS TEST
LEN VALUE
003 oc9R
015 WA3P
001 17D5
061 o000
0048 75a5
004 178C
004 1628
006 1362
009 11BFre
908 O£07
O98 FRA
00& ODAG
006 TORY
006 18E6
605 4215
008 OCE9
008 150A
008 1CE
902 I7ES
002 1787
00h 1290
008 0C37
004 oc2c
008 1°C3
006 ODIC
004 13CE
004 OCFD
004 OD04
006 0D25
001 ‘tTEEA
S01 1AFO
012 TADS
C01 ‘81A
004 ‘THAP
008 ODFD
006 58D
004 OF24
004 OF69
004 TICA
008 OFAAR
008 151F
001 0222
004 1109
020 ‘DAT
021 EPG
049 861F1R
016 1A19
004 OFDS
003 0855
001 183A
001 18CR8
008 0D12
004 1751
008 17rp
029 1c15
001 18A3
004 10DA
003 10rR
050 1832
008 162C
005 118P
003 OoFr23
T3MAR70
§71512
DEPR
0290
1655
1260
0003
1066
1230
41107
Of 64
1466
04836
122"
0373
0631
6994
0758
03747
1071
0722
1256
4267
0780
0249
O2n4u
1622
0337
09063
0326
0328
0339
1641
1822
1853
130R
1987
0392
1055
083A
0656
0718
0550
1017
16 38
0656
1887
1502
1897
1666
0565
0167
1651
16452
0334
1266
1263
1067
4393
0680
0641
1057
1108
0703
0513
O6APR70
571516
REFERENCES
0277 0279
0395
0778 0782
0717
1192 1206
1136
0828 0830
70941 1159
C486 0699
1218
0077
0607 0625
09A8
0759 0793
0293 0297
0602
0503
9358
0360
0777
02348
0227
1538
0200
0871
OOR2 0086
009% 0098
0272
0608 0611
1266 1267
0371
0072* 0185
0433 043A
11890 1943
0388
1052
0438
0852
0713 0715
0546
1015¢
0073 0114
0724 0796
(0669¢
0175
1551
1567 1568
0422
0560 0562
0168
0501
0131 0956
0208 0315
0066 0076
1140 «1982
1262
1177-1181
0976
0632* 0663
0631* 0633
0712 O718
0893 0897
1120
0658 0660
0515
22mAaY70
571513
PART ¥O.
PAGE
CROSS- REFERENCE
0281 0283
1220
0832
0925 1200 1228
0618 0617
0187# 0194 0300 0362* 0303 0312* 0314% 0426 0430 0431
0449 0857 G456* 0561 0565* 09192
0123 0177 0221 0322 0334 0385 0362 0401 0484 0697
0939 0923 1198 1212 1226 1627
1598
0372 0387 0502 0754 077% 0776 90780 0790 1088 10K8
1642
0665 0677 0679 O684 0896 1176 1281
0634 0637 0647 06489 0650 0657 0659 0661 0671 0675
0850 0851 0853 0892 1068 1077 1079 1201 1215
0901 1026 1030 1034
0662 0664 0667 0680
O1A0G70 010CT70 28APRT1 PROG ID
571531 571540 571565 PAGE
OBOU-4
15
— $4296468
15
oe” ®© @ @ 6 8
¢y
{ 3
cy
o)
Cc)
Ay
a)
eeeeeeececcece
|
C4
o oOo 9a
O
oOo © 8
©
oOo @® @e8 ce
3
a)
a)
(4
2 @ © @ @
IS MAINTENAHCE DIAGHOSTIC PROGRES
0967
0703
1245
28APR71
571565
Boas DISK PRIENDS TEST
CROSS- REFERENCE
SYRBOL T LEX VALUE DEFR REFEREWCES
INCSw2 A 903 OF32 0522 0528
INCT R 006 %26C 90773 0765
INC2 A 003 GDAT ©0386 0390
IWRD A 006 1612 7105 1093
I®TRO A&A 035 19C7 1438 0676
®XOTO 4&4 013 “DEA 149% 6282
LDODAR A 008 40D0 O636 O63u4
LDODFCR A 09% 70CC 40635 06334
LIWE A 608 7585 1053 1085 7089
LINK C 00% 6216 1635 0203 6798
LPCLR A 006 1272 O778 07848
LRGSSH A 637 1889 4461 0337* 0339% 0383
LSEKA A 002 1800 14263 O488* 0564 0574 0584 0679¢
LSEXB A 002 1802 129% 0466* 0542 0572 0582 066770
_LSTADR A 002 180E 1293 06248
LSTONE A072 TACO 1852 0354 0768
HARRY A 00% OBBB 02563 07195
MAX A 001 780C 13292 G622h OF09 0612 0615 15414 45H328 9566
SAXSCT A001 78BB 1802 1557
RIX A 008 occR 06305
fIXO0P A O27 WDC2 146A8 0308
"9D3 c 001 0001 1653 0106
fOVS A 008 1099 0622 0618* 0619* 0620% 0621% 06245 1268
ap A 008 ‘478F 1246 12304 1232
“NUCH A008 OD73 0368 0359 0361
MNVCAIND A 001 1866 1382 0968
"VIN 8005 Opec 0378 0391
NBZY A023 1C5F 1870 1203* 1205* 1210
NZGO2 A 002 «17D2 = «1258 0130 0139 O878 1076
N¥EG256 A 002 17D4 1259 0626
NEWLPG A 006 1016 0579 0576
NEWON A 008 4289 0785 0775
NEXT A 9G3 OD3E 0351 0201 0237 0288 03048
NOBSY A 00% 1739 1201 0653
NOCL A 003 OAF3 0137 0132
NOPEF A 004 O2BS9) 0118 0703
NODISK A O19 BAA 1665 0112
NOK B 006 122A 0760 0755
NOL A 903 OB4SO 01690 0738
NOMULT A O04 1502 0999 0994
yoso A 005 1F2C 1563 1560
NOSPR A O19 “RAA 1863 0723 1665
WOT95 aA 064 0C2% 0239 0225
NTRDYA A 004 1255 0816 0435 0592 1070
NTRDYB A 00% 1T2EC 0822 0453 0595 1073
NTRPT A 008 183E 0952 0379 0767 0876 0954* 0958 0964
1095 1167 1238
Nos8 A001 160% 1151 1145* 11488
NXTST & O03 OCAT 0294 0291
wOOS RB 00% <47E1 1682
wOO1 A 002 17C8 1251 05714 0523 0543 0621 0654 0696
. 0970 0979 1085 1119 14123 1125
XNO02 A 602 1706) 1252 0135 O880 1137
XO03 A 002 17C8 1253 0816 0822 0952 0978
WOOK A 002 17CA 1258 0157
wOC6 A 002 i?cc 1255 0969
WO246 A002 17CE 1256 0231
NG32 A 002 1700 1257 1108
OKST R004 135EF 0862 0849
CON A004 1285 O788 0781
OPTSKi A OG1 1839 7349 0517 16514
OPTSW2 A OGT 7857 12365 0520
ORG A 008 on98 6380 03784
OTRKRD A OG& 16CF 1156 1078
OUTHER A 00% 0823 0151 0748 0159
PARE A 006 TEFD 1550 1543
DATE T3MNAR70 O6 APR70 22MNAY70 O01AUG70 010CT70
FC NO. 571512 571516 571513 571531 571540
0987
o779
: a
Sd
PART #0. 5129688
PAGE 95a
i es
0993 0997 1016
0783 0922 0955
PROG ID
PAGE
OR04-8
T5A
ee Pitty ase a me a RR er ae eee eg Mage dae I mee ee
— t
4
¥
i. : a 7 fag a a | Ole " | Peete | are 3
- 28M MAINTENANCE DIAGHOSTIC FROcRAH sf BS ae . PaRT HO. 3729686 IBA MAINTEWAWCE DIAGNOSTIC PREGRAT oR Bh: Se PART WO. 5129688
| ° 9 88 PAGE % »@ o . : PAaGR 168
BOG8 DISK PRIENDS TEST : 3084 DISK FRIENDS TEST
CROSS-REPERESCE © 0 CROSS- REFERENCE 2
SYMBOL T LEN VALUE DEPN REFERENCES @los SYMBOL T LER VALUE DEP REFERENCES ws
Ps A 008 17A3 1235 12330 SPCLO1 A G13 ‘ARS 14489 4392 1656
PRINT C 6004 O21A 1636 0967 0109 01718 6172 6203 0277 0239 026% 0289 0305 0317 956329 Silo SPCUP A 00% 42c6 0798 0791 ‘
, 0340 0368 0373 9381 0396 0419 0475 0895 0690 0782 0789 0785 SPDNR A Ot? WABD 1851 0820¢ O0826¢ 6837 Of64 s
0798 6838 0865 06881 0885 0898 0920 0929 1011 1018 1037 1081 SPs 2 007 15897 1057 4051¢ 10568
1056 10468 1097 12701 1118 #%$%+141127 1137 «#1159 #1756 1162 +1769 «7178 @ 6 Spr & 00% 1836 0933 0927% 0928 us
41939 1207 122% 4236 1240 4552 15914 1595 1599 7603 607 1671 SSH1A C CO1 0020 7648 O73? &
1695 1622 . SS¥wic ¢c 001 OCOR 1649 6606.
PRT & 09% #1923 74628 0068 0065%* 0384 0385 0385* 0392 6393 03939 0398% 63954 0399 0400 € me SSW17. C 004 00014 1645 049% 0661 0870 1092 4940 1233 :
G200e ON2H ONQEe O4934 0498 O29N* O498 OF99 GN995% OCTRI* OF 88S 0752 aa SSW18 C001 6680 . 1646 0706 ,
0753 0753* 0761* 0762 0762 0763* 0764 0773*% 0778% O782€ 0798 0789 SS¥19° C 001 O040 1687 0716 1039
O0789% OfBR O8BS O88S9* 0960 0965 0981 0992* 0993% 0986* 0989% 69974 g f STCKIN A G10 74850 7859 0960
09352 0992% 0998 %921 1022 1022* 1056* 1053* 1055 1655 1059 17050 3 STERT A 029 ETB 2500 3588 7610
1O6O* 41108 1105 %4705% 4713 1117 1118 1778 1330% 11738 1435 1735* | STNVS A 098 12087 0618 0627
1168S 117% 1749 4789% 4153 1158 1159% 1172 1173 11738 3283 1288 Ela STRF 8008 168A 1137 47080 4128 14482
1289 T3B3% 1384% 74385* 1386% 1°87 1388* 7389* 1390¢ 132978 1392¢ 155¢ i _ STRFLD A 936 ‘4E9F 1501 9588 1646
1550* 15517 1555 §1589* 1590 71590 1594 14618 ‘ STRIT A 006. 1030 0586 0578
PPTSTS A 004 1825 0927 0906 0912 9918 ra sie STSBYD A001 4808 1288 0480 0827 0829 0858 0905
PCALA A 002 17P7 4278 O4N0 1662 i STSBY1 A 001 1809 1289 O443% 08UR O4UK OBAT® OBA? OBHE O72 0472 C81 Co2uUe O9568
PCALB A 002 ‘I7F7 1662 0858 STSBY2 A 001 480A 1290 O4RZ 0837 0860 0917 0995
RCLB A025 APA 1664 ££ os STSBY3 A 0071 780B 1291 0470* 0473 0819¢ 0825e ORS7e
RCLCKA A 008 OFA3 0872 0487 bas STSCK A 020 1886 1858 DS7G* 0852e 08955* 08649 OAR
RCLCKB K 008 OF98 0469 0465 : STSFR A 008 1368 0865 0481 0483 0959 98h1
RDDAT A& 009 ANE 1442 1388 Cc ~ STSOK A 004 1329 0889 0695 0708
RDDIAG A 015 TAGA 1464 1386 Sa STUPID A 048 ‘BEF 1865 0320
ROALT A 002 OD6E 0363 03487 0352 0358* 03564 . . SUB A 006 1146 0709 0710
RDIDR A013 ASR 1883 1385 Se -. sum1 A016 1A27 1438 0745 1666
ROZOL A 016 ICFH 1481 1390 1659 - sus2 A 015 1A30 1839 0748
RDVR A077 1A75) 1885 1387 Ssum3 A015 1A3F 1846 0773 1655
RDY A 008 1325 Of84 0817* 98234 $66 su“a A 006 A885) 1841 0761
RDYA A 004 103D 0592 0594 SVXR1 A 002 1807 1287 0902* 0957% 0999
RDYAY A 0048 15aC 1070 1072 SWANL A 001 17805 1286 0099% 0100 0108 0183 02578 025A 0276 0278 029 5282 0512¢ OSi4ue
RDYB A 008 1088 0595 0591 0597 Cc 6 0521* 0523¢ :
RDYBY A 008 1587 1073 1069 1075 TEMP A 00% W7F1 1275 0066* 0083* 0084* 00385 0037 0128 09180* 0141% 0182 11908 0191% 0192
READ A O16 1CF9 1659 02148 i 0228* 0231% 0232* 0233 0357 035R 0360 0533¢ 0533 953R¢ 0535 05358
READIN A 001 ‘DER 1493 1106 1270 1279 1282 1293 1681 oe! Ss 0538* 0539 0572% 0S578* 0575 05776 95799 0592° 05538 0596 0708 0709¢
REGY A 004 146A 0962 9959 ‘ 0760* 0769% 6770% 0771 0772 0778 O776 0779¢ 9799 97938 09640 09K70
RZINIT A 6048 OEDS 6890 0850 0867 0727 0970* 0975* 0979* 1556* 1558 1573¢ 15768 1579
RETRY A003 OAUS2 0075 07116 0125 0179 0324 0336 03648 °o.s6 TPST C001 0212 1637 0711 0726
RGS aA 008 140D 0919 0918* 0916 0917¢* TXPCCH R 008 1815 1302 0500 0500* 0539* 0542 0544s 05478 0548e 0550% 05°38 05542 05688 05496
RMVBL A 005 IDC? 1889 0986 ' 0575 0577 0579 0555* 0586 0632 0663 Off 1929
RND A 008 11D8 0726 0723 c 6 TNPSIO A GO3 1817 1304 0501* 6516* 0527*% 0528 0590 0551 0570 0580 0599 96313 1925 1035
RPT A 008 1506 1000 0956* 0961 1037
RTNOT A 001 OA10 0058 0018 TOLNG A008 1762 1215 0655
RTNO2 A 001 ODEB 0815 0060 ~ a TRACK A 009 ADE 1858 0991 1658
R7NO3 A 001 1163 0736 0817 iors TRCK A009 ADR 1658 0339
SA A 008 1388 0856 08502 TSRDY A004 1036 0590 0552 0555
SAFE A003 OcB3 0298 0295 . Go: - TSTO A 908 13D6 0905 0904* 0908 0908* 0909 0910 |
SB A 00% 138C 0857 0851* v vor A 001 17FA 1280 0102 0260 0266 1533* 1536 1537 15419 1542 15860 1578
SBYTE2 C 001 O20A 16483 04941 0601 0870 1092- 1160 1231 : UDTCK A 018 ‘1EC2 1503 1625
SBYTE3 C 001 02038 1648 0606 0706 0716 0722 1039 oc UNMR A 005 12489 0766 0757
SCK a 002 1987 14826 0065 0065* 0740 0740* 0760 0772¢ 1619¢ = UNPACK C 001 021E 1638 0682 0686 0890 089% 0962 9995 1023 1027 11M «#1126 «1174 «18648
SCTR A 009 1AE7 1455 0989 1658 1657 1569 1577 1581 1585 eet :
SECSET A 008 1D3D 1488 0214* 0216* 0220 = as : ~ UNPK A 002 163A 1112 11094
SECTOR A 009 1AES 1657 0337 — Upccw A 008 1701 1178 1161
SEEKO A 001 27F2 1276 O888 O466 1278 ‘ YRUN A O86 1093 188 . 0252
SETS A 008 OBDB 0217 0253 , as Gos WATA A 008 O£37 0443 0845
SETMA A 008 OC3F 0253 0283 0288 ae WATS A 008 OETC O861 0463
StTT A 004 OFSR 0527 0525* 0526 RRDAT A O10 1A7F 1846 1388
SETUDT A 008 1EC3 1531 0062 1629 me WRID A O08 4A87 1447 1389
SHELL A 022 DDD 1490 0981 a te WRITE A O16 1CF9 1660 0216
sIs A 002 1985 1825 o771* WRK A 001 180F 1298 1084* 1085* 1087% 1123
SIZE C001 0203 1650 1556 ~~ « WRK? A 001 1810 1295 108%* 1125* 1128
SK _ A 013° TAAS 1656 1383 a Wek} & 001 1811 129K 1107® 11198
SKFLD A 003 OFC1 0559 0529 WREUL A O16 1D08 1882 1391 1660
SKITCK A 036 1€39 14868 0685 0689 0693 a os xcrD A 040 1065 1895 0247 1568%
SNS A 004 113R 0672 0671* 0674 - vy XR1 Cc 001 0001 1639 05171* 0513 0513* 0516 0520* 0522 0522 0525 0535 0556 0608® 0611¢ 2
DATE 13HAR70 #O6APR70 22MAY70 01A0G70 010CT70 28aPR71 PROG ID OR0S-4& ¢ 6 DATE 134AP70 OSAPR70 ‘22MAY70 O1A0G70 #$010CT70. 28APRT71 - PROG ID OROU-& |
EC NO. 571512 571516 571513 571531 571540 571565. PAGE 16 EC NO. 571512 571516 571513 571531 ~ §71540 571565. PAGE 16A
| S$ ¢
: Pak : ze f oe i. . Sy ee = ~ 8 ;: ae Be a ts ‘
ao Sea cot
- DESK FRIENDS TEST
a
a
a
A
0002
OBuF
OstD
1OfF
TAAC
- V38AR70
Ԥ71512._ -
SYMBOL T LEN vaLUP DEFN
T6450
8165
0189
- 0658
1850
OBAPRTO
571516
TOTAL STATEMENTS FLAGGED IX THIS
REFERENCES
06TH O617¢
(9928 0957
1708* 7109
0063¢ 0075
0131 0133
0155 0157
0191 0197
0226* 0257
0372 03778
0506* 0512
0703 0705
0792 0792
1076¢ 1084
0161
0185
0652 0656
0206
22MAY70-
571513
0618
(0378 0396
TSE PRINTENANCE DIAGNOSTIC PROGEAR
_ CROSS-REFERERCE
9679. 0620
0968* 0969% 0972
15S7* 15589 7599 .
0076 98081 0084
0135 0137 0139s
9160 0762 0165
0199 0222 0223
0271 0290 0292
0527 0533 0545
0705* 07419 0754
0872 08748 0875
1082 1088 10694
ASSEMBLY =
010670
571534
O38 6%
06260
09760
1563
0689
0140
067
02248
0294
0387
0587 ©
0756
o878
1137* 1138
—010CT70.
571580
0962
8095
O14
0170
8228
0298
04254
0559
0758
0922
1740
- 9903¢ 9907
0983
6097
0186
01704
6229
6310
0490
6563
0766
7045
1182
09076
o96u
6099
0149
0171
0232
0351
0502
056 3
*0769
1084
4166
0913.
99998
0126
015 t
01718
0235
0351s
05048
0569
0770
1086
1233 .
© meee oo - Siz06e0
PAGE See
99130
2060
0130
0153
0788
0236
0357
0506
0696
“0790
1088
1285
PROG ID
PAGE
® o
<a --eaeeameresetne—ent caetanamateatios ee ete
200000000000 000600 06 @
— Ae Se ae rae NERO
200028 0COC40C 40 eO eR OOOO oO MeO we wm em ee OO
oO Sore 9 006000
BOGa
THE CHARACTER
DISK FRIENDS Test
OBJECT CAND LISTING
PART 80.
PAGE 17a
INDICATES A BLANK COLUMN AND THE CHARACTERS DE H INDICATS sUeFRIC sHIF?:
CL 17 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 88 CL 89 THROUGH 6&8 CL 455 THROUGH 50
T¢-¥:%D6 6 ByC
T+-25""E¢ si-8.
T+-DOA.-H | HEAsD
T+-,, SH-a*BcBu.
T+-€W (-HP1?HG-,7
Te-_sany.> Dar
T+->*/0HE1/&) Z:C
T¢-?P¢H OF 2HEE]H
Te-OK1 HGRCBGCVS
T+-#0<¢.<083"HGBC3
DATE.
EC NO.
13MAR70.
571512
P C3?
KSAE=DAOHD (-.x
G <BECEEY 1-E CA
/OHE1/<SDDCHOR
** PHAIZQBE°HS An
a s e =
F> DD@Z Y> DDa,
YOH* BHDCYON*HE TS
GX.S JHEPSSP *5H
9GL7 /OHSY+=0 +
B YBGCL# /OHE-—4 ):?Hcpase /DBHAS
@PO17BY*RI<%<) "H GDT--E",20 #9R01.
+-a/-PavDcay:T?60 A@YEF?E<AGYIB2N&
G /, FF17BY#S98 C 20 *#Ea-Eaven+s
QOH*SFS0NFEK-:<8 G SH-:<ssBun<ag>
Aco#2p” *aes5>ays i J+H(STESE*D( J
AE=G¢ /ORE U FAH BF<OS 060 aBGEca
XOH* (TC 1#FOU< (JH HPQUCBIV2PEDC 1¥
Ev/Yaviincoywrrit B /TH+OSOFTE-PAY
PI3PUI"X3Y OY/- I#A OB* SCT#SEA-
#AA- EOSHPGL F6ENS 1_A~998 <.HOBL-
1F>80Y1-.C $+, >OnsBFSoReOB-c7x
O6APR70 22MAY70 == 01A0G70—
571516 571513 571531
/18CO-H03 1EPE<
0 < €C}4a ~A-1H 4H
EF P2-T48EA—: 2Z
BHDCWOHSHE,X- 48
1 K8 E"NCyI-Po-~H
| <OH*.HE-A LHEBS-
DF P2/ *:. J-Eays
DCJI3 /04=0n*BFEO
ee
* 42-K=( <oc}H
- 010CT79 —
571580 |
RZ TtePmeRK OAE"D
PIE "Rs 10HECHLY
$15*QanHP. 3-an-=
BYTSHE"G2-2%6 /-
DG.-A | HESSUAAY A
A PHSD?HGA,-A 7H
De-HOF,X- | HE_TO
VFD2-:<BSCJHOD C
DésO ENDA> D ay
VaY*HOH*BFYA>GRy
FaYeD|<€<p 44 8
ADTEFINOADYE6>H
OP?HGH®BG /,F<a?
IF>L2/00CAI>IF_?
1B=22-3< ( IJa1z=-
‘@=2e eee
OH*3 F- ESPEC
(PT" JOHEAVSRYO1 |
Ta@ZaRc DO av3+ A
&? KX 'D 99+D OB-H
"F T UA (Y+OSOBEB.
28aPRT71
8 J-E2ZAE+ SOF?H
571565 |
PREQE /ZFHIKGYS
GE@32 fea FOCNC
QUT ONE WSNENDC
KTSOAFC?2 S49 6.
FR AGA,S- ARLE OCD
S8S4R PHGPOYR >y
- ERY Yat cytreg
20 JCRAS*G4L2709
PC- PPI~OL- PARC
/O7EH CORE *ag-
DDLSAF P2-J-8 /-
°
*a/ GU OF 2HGACD
PY¥e~ /OHSY*> 702
ieiaastoie
bce, Jonsecs yor
<oseTPELS -H( 60
EeScezcag si-aan
SBOF-D_P2s9L 708
QP2HE=T-DEA, 2D ?
EBEOAP HPO"HGYL3
4
ED6T /OHSY # 703
PROG ID
PAGE 478
plevseeeeeeveveesese «
Tm marerenance Dracrostie Procrae
5129686
CL 87 THROUGH 96
3 A- 33980880001
D & "OFRON40002
YOH® ~-8B0840003 = -
2UGH )LUBOSNONNN
‘BE@Y )$ 80880005
n'x" “arénoeao00s
2" EY KL B0uR0007
<AAY 2C<30840008
"<a® EH-80880009,
raya’ n,oF0se0019
Sap ;£B08%0011
“FAY *S#2080012
11D a¥430"40013
BHD 32480480018
ROH® NS@R0440015_
PAnH 9498080016
6 /Q PQ0B0840017
‘R405 KIQR0840018
AZAH 622808480019
2P>8 & H30840020
GO-H #K"30440021
ORnDu-4
o £2. £h. . Bg.
. Bas
eerie ost ona Tc aihagae Ng Tn Te oa AB Sem mye RR SSN ple erm a wt URE me a en Sa et ce Meet OE eM ae te atin oot i MCI a ted atte ee re
5 : : + : % Boi 7 5 oe
EWES Le os P es ; a
WE ek fet f a : 5 Sethe Sa! tsk we tesdy: ea PSs eon ‘em ee
‘ Oo - 3
: : ; i
EBA MAINTENANCE DIAGNOSTIC PROGRAA . PART RO. 5129688 IB! MAINTEWANCE DIAGNOSTIC PROGRAA PART 8O. $129688
PAGE 18 ses . PAGE 18a 9
Bose DISK FRIENDS TEST BOeS DISK FRIENDS TEST
OBJECT CAND LISTING OBJECT CARD LISTING 3
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 88 CL 89 THROUGH 64 CL 65 THROUGH 80 CL 91 THROUGH 96 : CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 88 CL 49 THROUGH fH CL 65 THROUGH RO CL 81 THROUGH 94 3
|
° ° « e e @ * s : as 3 ° ° . ° ‘ius e 2 e ® ° eo ou ome
T+-BIP<O0B8 EHHAZ QOFEORSEN"FO-RS*B G /YAOWWTCEYRY1# BC <QEI-OC DOPJ- iTEDAE=G -3G+?-8 @-D KAHBOSS0022 T¢+/ETD'> J] Os & OBL EEBPK &<?+/E (+H ORPHEBCOSE 7 /IEVAOEOPTRSG vY IT-ELEaL /OHSYI~ /GA IDEBCHSOOSH “
T+-*CASHB LBGC?T R 3-98 HOAGCK 8H | A-FESL / @TG D OFEGB J/PH <OASC K SD! A-EE@L / @ =G =1<80850023 | T+/I;A3BHECI® /& 5 <BG /DA Ons GBA~H{ - SXOOCECH COHF@F. YRATT( NDOAOBAECE O2°9 PREROEHOOES 4
° oe e , » e a 2e e oe e | e ° ° ° Cy s . * eoeved
T+-=GC5M ¢OD]NLY FA-9A1-O9/AS. PaED+ AW1TE"D+ Aw TE"EB EC2ZU Er-Ak- 1C OFA-1+R CPLH EBEO NTUBOLSOO24 T¢+/KR SUKEIVYFSC 2793 /OH; SESFRS #91518 HPGIESO-D ORTQAEDO] A-TESL /AKA( Da OETA sa-Rosuoous 9
T#-"B J-LF 22/00 < J-LF B'"0,2 68 % A-8 O@ FAMP1}H GACO YAM* /-RO-P A. OBEDE#A-N@Y) SH NEYBONSO02S T¢/Lh CO 45 12C,B IST@Y*D(-D P2 @ E*PPICADEHO <*.3¥3G) 4° AV_ AQ FPORWVNAS-DPC & R)Ie 1HEBOSHNDRT 4
T4-99 |Hept--Pa,
T+/ BCE PaJ-LayA
T+/A3FIHEBOF-D_P
T+ /BOC{ HAACHAI 3
P4+/CI5<RGDHC JC
T4+/DU7 - DI-£7 0
T4/E+6 A~LOYEU+EC
T+/FEOH* BG-DE6A0
T+/GNeH BEY HECT.
T+/HE/OHSY+L /0H
e
T+/I.FECRZHGA Jo
T+/HPNe] s/1E=
T+/.AW/-NCODPR 14
T+/.Q0H*KE*BG /Y
T+ /<79/D3+D OBIH
T+/(27C32F 3U8DAC
“tase eniasanrna
T4/1YFEL sOH: 1€
DATE AZHARTO
EC NO. 571512
20 358 -. s088+S"
ICO pad-Lay*-c
ioe fare nae
'<2-CO-DDO-E (2 TE
)PAU< ICEFAMH AC
AF GPA@FSDI" /1#
65"HE.?2?HGO-- DLO
90H* BG-DOD1070H
*E"D{ J-1TEOL /AP
KOH®45E< "RC TY
OFX-R { HEACD FAC
Pad-L+h OF|HEBER
GA<BGDD-8 SHHOA.
ADION JBS( DEY 2
(D(OH ACID{ 01Z/5
SCODOAA-DOHHPOSF
ETCBSP UBDA-TOA
BFZQUGCW-BSAGD2W
WOH*BDTUBD(320 a
GFNTB /THOH*BFUH
& A-L L-fPFATZU 0
e @
Z"DO 7HGA-@ FD
NSBT-H -?2DE.B a”
ew e
ADH P1C3" <"9
acEep"?iica sc
SD13S /CeBZARe D
3¢3-5D(320 UC J-
¢ N<P1<BG SH-BTS
8 JC*3Z HeD 8Ba
&EPSP-¥-0"FO-EFA00
/OYD(278 @DW8-H BOH*KESOCE"DRIOO EPRHEIL1¢ PQU< (39
“"ROAE=3,. DPON< + JVEE=¢ JVGE"D <C/wTPTa( I=1E=G
DCEDPOIA/@YD<AV- RYI-NCODPAI“DOH® K*KSG /YAOINTCEY
OOH*BHDCVOH*BETO HF@-OBACYCHHOBLA TP %2aJD397eR(--
EO3W"F T2UEE9/A- HOZA(OH*RFROIF,6 -"€BG SH-"%8G
*a/ DIJDS4LBSP U OY1-.+,aQBIHEDLY ve ,20, 70 Cc
“@-DD(-#P¥SOCDBa COn*R}- B**OC 2 666 /-FOH*RF-E
PI? /OR;AACEF3. /OHE THSCTEAP ~ 8 J-)} DLS3- FT
O6APR70 22NAY70 01A0G70 O010CT70 28APR71
571516 571513 571531 571565
5715480
< ATP .2/00€ A-
Q CYAPAS< a-NE"D
DIJ OCPHAACHA. SY
( aB-P 02-6-
oe
3 9AICeasacB
£7186) CHAD (72 08
BD(T2/00¢ J- d(T
GC-34 K¢PI<RGD2x
SEP /00868 BR°R
eFECECCBS /YBO1W
HPQU<BIV2PRX2/2¢
2-K3( J-?E=62-60
RY 1WUTEDAE=G2-6-
P2C6HD2-0%/-I<.<
SBA(/B LKIC#S
1P_QS-B04#0026
ADA~ ULOBOSEOO27
*HA- KY 80480028
6 J* 9850440029
JB/ KLEB0840030
(a 3,8808%0031
2/28 3: 80480032
S -H 13 80840033
BAS WCOB0S40034
TCEY 51¢€308480035
© 18 9$D80480036
FPMAU #@0880880037
Sgt ” 30890038
O0B30 *HDBO480039
LLJI 38680840080
S¢SDIOH*BPRHRFAE -v3- LY¢B0S80081
“Pew /OHE-VERYOI EFE< K3<B0840082
iene 184i PIE E9XBOKAODN
PROG ID OB08—4
PAGE 18
ee
0 0000000008000%808808 0 80 8046 060860 6 6
CQ
©
o © @ @eeeeoee@eoeeee e@ e® 08 8&8 @ 6 @6@—6mGmUMOUCU®
oO
Q
@
G
T+/MP13X-EC,2D U
T+/RHF-*% M3 2B
T+/OE@Z O+ HOPIH
2
T+/P PAWI} ONVON
T+/P#_30BE'H® JC
T+/06 -,2DASR% 10
Te/RUGS AWTOH
*Ts+/E"C -RSI, XO?
T+/E$X/0-@PAWI] 9
Te S/F SSP HCOHFET-
T+/)) E83 /OHE1-2
T*/ sQWAHGIT-ED(3
T+/-~LE:<COH*4 J-
72
T¢/-¢ | DHFA=F
eev»neoecorneod
T+//T c
T+/SD RR Y Creasy
s
T+/S"C URPAZ"C
*TBRUT. M3ICNC | ee oe
DATE 13M AR70
EFC WO. 571512
<BAWIFS-2/00CSAN
GECA OH*BF-T
€C3/Y -?2U T /OR
*FO-RS*BG /YFOW
) ORDO338CD(72- $s
@ae#weoesa
( @8GEC8 OH
*BY-ESPFE<<O/¥TFEG
BF-ISFE<<O/WTFEL
OOEO"FO-RS*3BG /Y
eoo0
C /OHE VERYO1
*KHBQOH* BHD BOOH
*2D *@@I>13Y*DI EA
C /OHE § EAQ@B
zepeeocasea
(JITOFIR
eeoen
3 B/3JEI3G6C 12
wane nnn=~YESZE. PF
IF_8< JWIPAG? #45
SFEC<O/WTFEL /0H
ED~HG} OWA 1~/3YD
TCEYRY 1WUOH*E03-
% a-6 $7" ?HACSO
BF-E F-~ /OHE Ve
{ A-JE@L /AQSOH®
” /V0Y (-HP1,7" 1H
“ OINTCEYRY1WOOH®
EFECRZ<BG /SDD(Y
+A3-6D(32D *22J1
$¥*BGE83 /OHE1/%
G /YBO1WTCEYRY18
EW/<G;% OS
2B/2TC 12RDI2HEI1
A>AMNAHHHNMAS FY
RO/DGC @RO/34C 2 RO/HDC ORPIDVA) xX
eencptStsS~S e@eeee?seaeseeseeeaeaneeeee
O6APR70 22MAY70 01A0G70
571516 571513 571531
010CT70
571540
BO-DIOKSRG-DAY IY
$ T-RP9? SOS RA-
8 2~053-DHTEDPE=6
£D(32D 2AYA.NaY®
“acco oct-pare
PYO TEFECPZCHAG3Y
BP/D1 A-| E9L2-S¢
ABHUA 15/9YDLTED
¢=€BG /YBBI78¢ D
*E*ES /YAGJONOH®
12Y*D) | R*LABGES3
$?: B+OH*BHDB+0He
UT-ELEaL sO. D
*45263% D(#) 20
Terre
OFDS<BAVSFUS<CAV
0a) X1a*$22*$3a_X
e@eoeoceeetnveaneanen
' 2BAPR71
571565
2 °
F(SDCAPAG Cc 70H
YFY. SOHNE LHS<T-
P-FTROAWTE DNVOH
{ O48 <POD>32/01
Dt OCARG /YBBI?
BRA-IT(-DPYCEAET,
¢ A-GEAL /CHs J-
AE=G2-E%230AWT] D
SS?HL HERG /SYASAY
OSTIIGDC2/0533/1
JOHE1/**P: BRO H®
*A3SHE@HS SHHO/
- C 6 A- Q 38C
- HD Y&F/ DDCY-B
AFVSCC/V/FUY<B/V
08_X197$20%S3""a
enreneaeneneosneeeeaen eos
e @
= "sonoesoogs
AFA- QKSRO0880089
GBCO OL<B0840050
"18" £2" poe80051
8+ D ©3-80880052
"708 4% £30860053
EF>* 514830840058
00-8 :€6R0880055
G. < # <B0840056
“OH® 92630840057
BHD =3D80840058
y. < 91980880059
"e2a )K230840060
“g>0 a0-B0880061
s ED $K0B0440062
) FXM OHEBOSL0063
BDB N9-804840068
@veoe
07<808 40065
PROG ID OBO&-4
PAGE | T8A
oe . ‘ 3 jo Ft ‘ A wm, 83 4
Wek @™ Bc is ok Si S Fe rae zc ete es @ vee & cee me é = -
By = : = rat - . : BS : oat <2 = ac
o
+ Ge kee
eee pig oe EE Ee 2 0 : oe noe eo), 8 ne | | Bg ote 3
“yeu MAINTENANCE pracKOSTIe PROGRAM - part wo. 5320608 «6 f= (sR MATHTERANCE DIAGHOSTIC PROGRAR PART HO. 5129688
Be et eg a Oe eee Pace % ele —o oe . PAGE 9A 5
8084 «= DISK FRIFWDS TEST | | gg (Poee | CREE Ee nee ona * |
a | | OBJECT CARD LISTISG ® 6 OBJECT CARD LISTIAG >
cL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 89 CL A1 THROUGH 96 @ | ® CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THRONGH Ge CL SS THRONGH 80 CL 81 THROUGH 96 5
eau eucceucesei IS_PSECKNES. #25] C2<PSESCRI3.2AUC HOY 1TS_~72) $HEDA "Ec}05 (LASS EDA "ep’ “ openouaooss ® ! ° 76/0025.KEsLDBUC C2<PCAT--B-720' s-AnzeB HC?HSACZ « EWY9OAsravCTe # HCiHEACY-e*rREA~ :az 2-9RO8R0088 ~
wefenena bok 8G tens cocaes epa” G¢TEO®S” EDA “u*$c0s115_PE9aP C901 150) “osesce ‘wis po-neaene? e ¢ 1¢/2,B3-BB-"20 & :DAT:CEYRYIWUCAG REA:NONSDF-ESFEC A /31-.R JS@(-> P27 |HARIONF 3 2/0" KCDBOBUNDSD >
Te/2H54.05(LAG;T 18>.01%3 EDCC2<P c4>.021C09)4 EDC OajCOaICTS>{ AG=. RieGdE<LanacRies Dee esasossonss B © tesswe OCC /08 3 a-<6/8C 959672" 7ONs srzETDE2Is tos P=7Heaciresa "yan; a=t0v6 von; ve’ pa Roasnosn 2
she aecesesats ZO8S 1 XA1' POR] uaursies otenase YO_XIAQN IKETOS$ R2z} EG<KDOAGNE (S nu=-'g9-nossoocs @ © T+/=/21980H*BG-H P8I-1F R;OO1PPY OBC /YAOIWTOH® BP-D1G/? /OHF 34H gP¥ac vyaczecons aF-> p1aBp0880091 2
T+/sHECTAG#N BO_ S_PEQ*ITSCN OEP EUVCOS=|IS_PD6*X VINCKE(PORUCRI®G D:<PHIECOTCTOS. 11;< 8$-B0840070 @ @e 7(A"0GI9#0H*BF-D UGZ" /OHEAETRY30 F-< EYPE'> OY MOH@RPECSGER-:4R 5 SH-:eRaGeC a cRouBoO92 -
Sie eeninceas eeicacnun vik S194 75_V B I . RE9B0880103. -
T+/642<GNECTESSC XOUCS1#ITS_XSA> AGs115*) BEPCArS (RE (ALO*T 5S: LBOSP pecusceaiene te * ga" arnpown0002 6 @ #9" -" po" nuts ECTOR WRITE. Ig eis eons p0so108
Ga phioye “iauies bos csuseuaxene C2<PCHS|AS) POBUC 153426) LT9BCOS=] 15_PSEyE,0) 4N98. iia wunesiest oc ¢ Sins eRe gs, nee Pee eee, ee an gp ee Ne «”""" orapouno10s-
14/802; PEB+) EDC F2;3EIDA ECTDES~ CO) PHS ( 9¢.26]C 05<6X2) LUSDCN9 (L B1)V SER BtPCA'S rev )RpBousooss F > ge SS ser SWITCHES TO -0000- TO INDICA TZ 2ND CF OPTION se 39a B0880106
T+saese R SePAIFG WS*XTINCIBUCH1IS) 3 9=~D0; | AE<. Y8AN sane eer X6<~F5¢PRO; | LATC weeu 8dE80840085 Cc ®@ SEESEEEEEKESEARE ERE RERERESSEREE | FESESEESEEEREEES «= 60494484448 8988S seeseeeeseeesess * 8-HB0400107
“T4/9:89N IKGTONC P2*PLICIEFS{ RO*] KECKSECTESWCK9=. W2z1C2DCOS=|15_P SEe.TS_xeiDcAgUC x9=8 szxnouscoss CO Ba” sense swrtcHEs, SHEN SET, DICTAT E THE FOLLOWING) ~~~ *~-~—«92830480708
“peyas9exe0+g/9_4 18aN 1<GTONCF2*P LIDCSBSGRB=1 03 ( “genx9O"PUtys 1¢x SHUCP6eKES®] BaP seac”*2a50840087 o ¢@ o47~ rae’ prsk” SIO AND ITS CONT FOL FIELD ARE PR INTED BEFORE BEI sc EXECUTED. 277" Ranoaaor09 7
“parE <agurae O6APR70 22MAY70—O1AG70_ o1ocr70 oe paoaiae seee Ce ‘pate ata Bateeior salice. cwiacere, uakeniee Coenen PROG ID OROU-4
EC WO. 571512 571516 571513 571531 5715004571565 PAGE ws ss | EC WO. 571512 571516 571513 571531 571540 =: 571565 PAGE 19A
~ @® ® @ @ a
i
TO BRE rae Seen emamie ee nl ale a IE ta AL nee one ee a a eg alae eerir qh ape ten AT THEN Re he A Oe
TOM MAIWYERANCE DIAGNOSTIC PROGEAN
BOGS DISK PRIENDS TEST
CL 1 THROUGH 16
* 18 ~ THE PROGR
* 19 + AFTER A&R
* 1A - PROGRANS H
* iC ~ PROGRAS W
SOT SSERSSECSLES ESE
EB/J*E7#=~DC" PHS
CL 17 THROUGH 32
AM READS THE CON
EAD COMMAND IS E
ALTS -FU- AFTER
ILL NOT CLEAR TH
SHEGASCTAS ESSE HEKS
EM TMEF 4 ! Cc
OBJECT CaRD LISTING
CL 33 THROUGH 48
SOLE SWITCHES AS
XECUTED, THE DAT
EXECUTING ALL ST
E READ/WRITE PIE
SESASASSE SSE SAHAKKRS
CL &9 THROUGH 64
°°
a” penay arree =
A IS PRINTED In”
ORED COMMANDS.
ey even ns
COTES TA SSeS OSS
eee eaeseaana2ss
so.
see Rel nel! ee ett Seca tebe eet atlas = me ay al ph vent alten
TF peed ee Ee
PART 0. 5129688
PASE 20
CL 65 THROUGH 80
e#2o0
ACH COMMAND.
@enaoeaenceeosa
HEX.
eoeaoveonoasces e838 0900
ese00
G A COMMARD.
FERSCKSE SAKES SHKS HS
sgeacece
15950501700
CL 87 THROUGH 96
® L$ 880680110
* $/4B0880471
© 0£8B0880712
eoe
* *x8B0880113
aeee
* F0D20840114
617719£GB08490115
oe
a e® @®& @ @® @ © © © ® © @ @ @ @:.
priate mn
. 3
€ a
7 <
. .
co -
. is
: =
€ -
| Cc :
‘ !
Cc S
CTR e mee nnt mem eam eae ee me we a a Son eee ee LAST PAGE o--------- +--+ +--+ +--+ ee worn eee =
© DATE 13MAR70 OGAPR70 =—-s-228AY70 ©=—-—«010G70-~—«soO10CT70.-—«s«-28 ART _. PROG ID opos-4 2
EC WO. 571512 571516 571513 571531 571540 571565 st: PAGE 20 | is, "YE oe eet 7a
. c , his | geek ese is as, YS | a : gS be Ss es ee a se
a = o a = | . 7 a - 2 : | fae : ee iz of ee uae = 3 a 7 | : ‘ a, : | a “ey ae seo 7 oe . as : oe | -—
@ e @ @e @ @ @ @ « @ eo e® @ & ©@ 7 @ oe @ @ @ €@ @& @ © © @ & & & @ & & & &
-
pe
IBM SAINTESANCE DIAGNOSTIC PLOCSAN eee. ae PART NWO. 5129650 IBA SAINTE"AUCE DIAGNOSTIC PROGRAR PAST 80. 5129650
ee 7B ee a . coos PAGE 1 . 4 PAGE ma
ERR LOC OBJECT CODE ADDR STAT SOURCE STATENENT . ERR LOC OBJECT CODE ADDR STHI SOURCE STATESEST
3 DECK 1 0a50 F2 90 07 70 oF SET 100 SUNP IF 8O0T
0000 3 DISK START 0 0453 3A 10 OF95 71 SBu PFLAG, X* 10* SET HAL? CAP FLAG.
oagd a ORG x*a00* OAS? F2 87 26 72 J LOKS
5 FEE SSE ESESESS OFS SESS SHOES SEEEOEOES SHE EEEEEDSE4E SE EEE FOE ESSEE EERE EESE OASA 3C 64% OFEB2 73 SET100 AVI TEMP, 100 SODIFY I8CR FOR FULL CAP.
6* 9417/72 LAST UPDATE s OASE C2 01 0£32 9a HEY LA CENDS ,3R1 SET POINTER TO CONSARDS TABLE.
J FPR SSOESESE SES EE EEE EE SEREOEDE SED EEE OE SEESEESESEERTEREEDE SEO SESESSEETS Oa62 YE OC O4 OFB2 7s. ALC & (1, ZR1) ,TESP SODIFY THE COMMANDS TABLE TO CORES
B* DISK SYSTEM TEST MODULE os OA6&7 4E O00 O68 OES2 7 ALC 6(1,X81) , TEAP TO A FOLL CAPACITY DISK { ADD 100).
Q FREREEE ESS SEEREEEEE EEE SSS BSEESEESEERESOEEEESSESEDSEEES O6006640060499928 OA6C &E 00 08 OF82 m7 ALC 8(1,%81) ,TERP
10 * SECTION PREFACE * 0871 4E O00 OC OFS2 738 ALC 12 ({ 1,XR1) ,TESP
42 O88 £9SS F865 68 SES SOSERESEEEEEEES EEEEESEEECEEEOSESEEEES SESE OO 940800792802 ree - ae a. os ao) 43 ALC 16 (1,281) , TEP
On00 AOF6 oaot = 12 DC ZL2*a0Fr6® PROGRAMS ID AND REVISION LEVEL ATB 4E 6 OF82 so ALC 22(1,%R1) ,TEBE
-*~ eons . OA80 38 20 OAOE 81 LOKB TBH BUDT- 1,X* 20° SPIFOLE -2- DEFIBED?
0402 90 — oa02 89613 DC —s-XL1°00 SECTION FLAGS 0A8% F2 10 07 82 aT = 86.10 30%? IF BOT. |
0a03 01 0a03 14 ac XL12401° CURRENT ROUTINE NUSBER 0487 3C 00 ODB4 83 #VI JRP4¢2,X*00* BODIFY JUBP COMMAND IB *SIO
*Oa0Q4e 0000 oaos 15 pc XL2*0000* RESERVED Oat8 F2 87 13 88 J BUSY
Oa06 0A11 GA07 = 16 DC = AL2 (RT#01) FIRST ROUTIHE ADDRESS OASE 38 02 OAGF 85 TBE =6BUDT ,CAP2 SALF CAPACITY DISK?
OA08 OEAD goa0g 8017 pc AL2 (ERTAB) ERROR TABLE ADDRESS QA92 F2 30 OC 86 JP BUSY . @UBP IF 207.
OADA 204000 exec 18 ADDT DC XL3* a0ugon* SECTION PREFACE UNIT DEF. TABLE Oa95 3a 20 0895 87 SBa FLAG,X*20* SET SPIEDLE ~2- HALF CaF. FLAG BIT.
OA0B 861000 OAOPF 19 BUDT BC XL3* BO1)00* SECTION PREFACE OBIT DEF. OASS F2 87 05 88 J BUSY
2D HSE SELESES EES SEREHESEREEE DES O4SESSSHESETESES EESEESS $0088 5240880040054 89 senecese
21 *& PROGRAM ROTES _ 2 90 * BUSY
*2Q SHEERS ESE SOE SOEEESEEEELESESSEESE ESE SEEES SEE 4EEEEES ESSE EEE TESST EOSES eee seeeseane
23 * WARNIKG - DO NOT ALTER PROGRAM WITHOUT CAREPULLY STUDYISG HOE? ; 97 FESS EEE SESEE EE SOKEERECES ES FOEERESS $089 OE 49988454 O608E50099
2a * **eeeee 8 8€6©6IT RUNS. TO CONSERVE CORE, FONNY THIAGS ARE DOHE;' * 52 * PROGRAN CHECKS TO BE SURE THAT
*25 * ~BE CARE?FUL-. : s 93 * THE SPIEDLES ARE BOT IRITIALLY
*26 * 2 $4 * BOSY. s
27 * TO CCASERVE CORE, PROGRAB PAETS -RTNO1~— -CHPAB- -BUSI- -—BALF-* : G5 SESSSESSEEESE SE FOOSE S94E O9E9FSSEESTESEERDESEEEEEESESEESE £0448 6006588 5E SEER
26 * NEED BE RUN ONLY ONCE. THEREPORE THEY WILL BECOME PART OF THE* oagc CO 87 OFS2 96 BISY B ERROR LOG ERROR ~ BUSY CHECK.
29 * BEAD IH AREA. NOTE, A BRANCH TO -GOOF- OR BUSY- IRSTRUCTION * OaAd 02 GCaao = =97 BC IL7°02° *ID -02-
30 * XS PLACED WHERE -BEGIN- IS. THIS WILL ERANCH OVER TSE READ * OAAl 3B 10 OFE3 98 BUSY SBF ALTID-1,x%*10* SET UP FOR DRIVE 1.
31 * IN AREA. @ QaaS C1 A2 OASC 39 TIO BISY,X*a2!* BPRAKCH IF SPINDLE ~-1- IS BUSY.
32 CHEKSSEEEKESES SOG OEG 2EETSEEEEEOSEEEEESEEEEES EEREDREEEEEEOGES EES EEEEEDBEVES GAAS 38 20 OADE 106 TBE BUDT-1,%°20* SPIFDBLE -2—- DEFINED?
33 * OAAD F2 30 08 sOq JF Cupar JUSE IF WOT.
34 * GaBO 3a 10 OFE3 102 SBN HLTID- 71, x* 108 SET GP FOR DRIVE 2.
= RECLDLS: OABY Ci B2 0A9C 103 TIO BISY,X*B2* BRANCH IF SPINDLE -2- IS BUSY.
J] SHESSEE SES SSESSERESESELEDHESERS CHEESEEEELE SEE $OOESEEEESEEKEED O59E285008 104 #48 86¢¢40%
38 * PROGRAM SENSES STATUS BYTES OF * 105 * CAPAR * ;
339 * TEE SPINDLES AND CHECKS FOR ANY *# * 106 FF4 SEE SSEE SS EESESS ORESESEOEEEEEEESESESEEEERSE OS EE OE E9SEESEREESEROERERED
ge ie 40 * . ERROR CCHDITIONS. * 107 * PROGEAR LOADS AND SENSES THE DISK? eo
Q] SE SEESESE EEE EES HSS OSEDS SEES EEEEEEREESSTEEEEEOESERESEEESEEESEEETEEEEERET : 108 * BEGISTERS. A CHECK IS MADE TO e
0at0 00 Q0a170 42 Bc XL1*° 00° PAD : 109 * EdSURE THAT THE LOADED DATA COs-
*OAtl 01 oA 11 43 BTNO1 DC XL1°01° ROUTINE SUMBER 110 * : , PARES WITH THE SERSED DATA.
*Oa12 00 OAt2 && pc ZIL1T° oo! HO SANYAL INTERVZETION REQUIRED VTL SHS BSR SHERSEEEEEES EHEEKE LES OCHEERESEEEEES EES ESEEETEEEEEESEOSTTEDERESE
OATS FRFF Gals 4&5 ac XL2°*FPEF* EASL ROUTIRE OABS 3B 10 OFE3 1312 CMPAR SBF BHLTID-1,x° 10° SET UP FOR DRIVE 1.
0A15 30 A2 OE9P 86 BEGIN SS STAT1,X* A2* SEESE STATUS BYTES 0,1,2,3, FOR OABC C2 01 ORGB 9113 LA PATER, XB? _ LOAD TEST PATTERH ADDRESS.
OA19 30 A3 OEFAI 87 SES STAT3, X*A3* SPINDLE -1-. GacdO 71 a& 60 114 Lio} LIo 0(,XR1) ,X*aa* LOAD DATA ADDRESS REGISTER.
0A1D CO 87 OA3B &8 B CKST GO ANALYIZE THE BYTES. 0ac3 71 AG OC 415 LIO O(, 281) ,X°a6* LGAD COBTROL REGISTER.
0423 38 20 OAOE &9 TBR BUDT-1,%* 20° SPISDLE -2— DEFINED? OAC6 30 AY OEDF 116 SNS STaTtT1, xX" aa* SENSE DATA ADDRESS REGISTER.
0a25 P2 90 24 50 JF HALF JUNE IP Ot. OACA 30 a6 OzAI 117 SNS STAT3,X*A6? SENSE CONTBOL REGISTER.
Oa28 3A 10 OFE3 51 SBu HLTID-1,X*10° SET UP FOR DRIVE 2. OACE 4D 61 60 OESF 118 CLC 0(2,XR1) ,STAT1 DATA re aoe REGISTER AS EXPECTED?
OAD3 F2 01 &9 119 JNE AaSTK JURE IP wot.
OazC 30 B2 OEIF 52 Sus STAT 1, X*B2° SENSE STaTOS prTg5 Oe le293 FOR OAD6 4D O01 00 OEA1 120 CLC 0(2,XR1) ,STAT3 CONTROL REGISTER &S EXPECTED?
0A30 30 B3 GEA! 53 SNS STAT3,X* B3° SPIBDLE -2-. GADB F2 01 41 421 JWE ssTK JOSE IF BOT.
0a34 CO 87 0a3B 54 B CKST GO ANALYIZE THE BYTES. OADE 7D a&B 00 122 CLI 0 | CEAu 60006006 GEA? 488 CCHE bc EL4S* 290900009 TEAPORARY CCH STORAGE.
& GE3a 670900 0E3C 421 Dc XL3* 6700005 . BRITE SECTOR 0 OEAS 00 GCERB 489 Dc XL17*°008 CLEARING BITE.
ee OE3D. a2 . O£3D 422 : pc xL1*%a2° GQ SSE SESS 49 OTHE SSEHES CLES ESCHSE SEK SSEVESEAECESELESTRFSTHE SOLES SEE RIOKSEREESE
: 3 GEO 423 De XL37670000* . SEEK CE TeacK | &91 * ERTAB + _%
OfRt 424 BC ZL7°ao* | | 482 sesseeess ERROR RECORDING TABLE FORSAT - ¢ 4
OBNS 4825 pc ¥L3*670000* READ SECTOR 0 ' 893 % s
OBYS 826 | BC XL1¢g7¢- : oe £94 * S4u4 ERROR LOG
Q80:05F OB88 &27 DC 2L3*08005F* - SEBR TRACK 8 | aos * HALT STATUS BITES SIO
BE#9 40 CE&9 - 428 DC XL1*a0° ' 496 * Ip 0 42 3 «96 B
OE4A O80800 - OFSC “429 BC XL 3* 080800* . BEAD. SECTOR 2 |
OEAD AT : OEYD 83 pc XILI*atse | 497 2 B008& 00 38 23 08 AO 03
OENE OFO107— 0250 431 pc XL3* OFO707* SEEK TRACK 15 498 * A004 OO 38 23 08 ~aO 01
OE51 a0 0251 432 pC XL 1"A08 | 499 * BOOS 00 38 23 08 BO 04
OES2 OF2800 - O0£58 833 pc 1L3*OF2800* BEAL SECTOR 10 500 * .
CESS Al O£5SS «634 Bc XLi* ate | S01 FFF S69 68 FS EREKE SEE AEKS SHETE SKOSES SES ESS OE S49 9EEESESEESEEOOEEEROEGE EO i
GES 460137 0256 435 pc XL3*860137* SEEK TRACK 70 , pg OEA9 502 ERTAB £QU
*0E59 AO OFS9 436 pc XL.7* ao*t : GEASS 8005 OFAA 503 Dc X41L2*8C008
*OESA 460000 OESC 437 bc XIL3* 460000* SCAB EQL SECTOB O OEAB FSPAPYFYXOD3ZE6C7 OEB2 504 pc CL8*5aua LOG?
OESD A3 OBSD 436 pc XL1*a3* ‘ : QEB3 8016 OEBY 505 Dc XL2 "80 16°
OESZ 3CO00K OEGO 4839 pc XL 3* 3C0008* SEEK TRACK 60 : CEBS C8C IDZEZ4OE2ZE3C1 OFCA 506 Bc CL22*HALT STATSS BYTES Sio
*OF61 a0 OZ6% 440 pc XL7*a08 OEBD ESESE24O0C2EB8E3C5 506
GE62 3€c5c00 , OE68 441 pc XL3*3C5C00* BEAD SECTOR 23 QOECS E24 080E2C9 D6 506
QE5 al OF65 4842 BC XL7°aAt® O£ZCB 8017 oEcc $07 De X¥L2*8017
*Q£66 280014 GE68 4&3 pc XL3*280018* SEEK TRACK 4&0 OECD 4OCSC&4ONOFOUOKO OEE3 508 DC CL23" iD G© 12 2 3 Q rR
Q5E69 AO OE6S9 484 pc XL1*a0* OEDS FIGOKOPZ4O40DF 380 . $08
OEGA 290101 OZ6C 48a5 Dc IL3*290101° SEEK TRACK 41 OEDD 40460480D84040D9 508
OB6D AO O£LG6D 886 pc XL1*a0° OBES 8017 OFES 509 pc XL2*8017°8
OEGE 270002 OE70 8Uu7 Bc XL 3* 279062° SEEK TRACK 39 OCEEG SBYBSBYBYOSBEBUO OEFC 510 LG dc CL2Z3* cece 0s oe ce ce te ce®
O0E71 AO O£7% 848 _ oe XL1*a0¢ : OFEE YBaBsOeBUBSOUBUB 510
a QE72 48C0125 OF7& 8a9 pc XL3*8C01725¢ SEPK TRACK 76 OEF6 8040884 BYOUBSB 510
' OE75 Ad 0E75 450 DC xL1°20° OEFD 8017 OEFE 51% pc XL2*80178
OET6 3€0010 0£78 451 pe X1L3*3C0010* SEEK TRACK 60 OEFP SB4B4B4BYOSBYBSO OF15 $12 LG2 pc Chl 3 eiw ick: Sa. we ee. sae bee
OE79 ad OE79 4852 DC XL1*a0* QFO7 4B4Be04B4B 40GB 4B 512
OE7A FF OE7A &53 ac XLi¢*FF? $* 23D OF TABLE #*%
B54 £449488848845 OFOF SOU0KBY BEDS BAB §12
@55 * COSSTAITS * OFt6 8017 OF17 513 Bbc ZL2*8017
*456 SSE SITES SS SESS FS SHEETS SESSSSSHISSSSSSHSSRILSSECKSESSSAKSESETSESKSE SEKRESRSREKELS LE OF 18 4B&BEBE BUOYS BY BSD OF2ZE 514 LG3 Dc CL23* weae co ease! ae ase eo
*OE7B OE9A OE7C 457 TSTID dC AL2 (CC¥Y-5) : OF2Z0 S5E4YBYOSBSBLORB SB 51a
' OE7D OEI6 ‘ OE7TE 458 DFCR pc AL2 (CCEA-3) OF28 SO404B54 BUOGBNB 514
Oo OF2F FFFF OF30 515 pc XL2*FFPPF
*OETF OA19 . OE80 459... pc a2 (para) OF31 SB4UBYOUBSBSOS BSB OF42 516 LGCLR DC CL1B*.. co oc co co on®
OE8? 0000 OE82 &60 BEAD ac AL2 (#~#) OF39 SONBUBROYORBYB SO : 516
OE83 0828 OE84 &61 pc AL2 (ITBSY) $ OF4S1 4&BYB 516
OE8S 0B19 OB86 462 LSTAD DC AL2 (DATA¢256) 517
OES7 0C28 OFE88 463 LSTWR DC &L2 (ITBSY +256) 518 FFE FFKOESSEEESEEEIERESESERSESESERSESRORSSEETETESENEESEEE SESE OEE E$S9494S S89
OEB8S O0C29 OE8A 464 nc AL2 (ITBS%#¢257) 519 * ERROR * ;
*CESB C087 OBBC 465 cc IL2*C087* 520 *e¢ eed. * SUBROUTIBE STORES ERROR HALT ID *#
ooo OESD OEN6 OBSE 466 JNPP BC AL2 (JPR) , 527 * ' LB THE ERROR LOG-CUT TABLE AKD s
$ OESF AO OESF 467 TIOA pe XL7*a0* — 522 * THEN HALTS.
*# : CESO ODD5 0B91 a68s pc AL2 (SBATA) SQZ> SCHESECSRESSKKRERSSSESELSSEHEKSSE SCAKSERKECHKEESKSEESSEESSOSEEEEKSESEEEKSESEEREROSOSEEE
OE92 BO OE92 469 TIOB oc XLI*BO° OF43 3B 10 OFE3 528 ERROES SBF HLTID-1,x*10* SET UP FOR DRIVE 1.
0£93 ODEO OESa 470 BC AL2 (WHATB) a OF47 38 10 ODAO $25 TB TICIT<?1,x* 10* THIS A DRIVE 2 ERROR?
QT 88S 898 8SSS SES EEEEEKEEREREEES OES OOS EE OEEEEEEEESOEOKEO 8785549 09S SEESE4 OF4B F2 990 O48 526 oF #47 JUNE IF BOT
GE95 00 OE9S 872 FLAG pc ZL1*OGQ* | : FL&G BYTE. * OFSE 3A 10 OFE3 $27 SBR HLTID-1,x* 10° SET UP FOR DRIVE 2.
a73 * : BIT 2 ~ SPIEDLE -2- HALF CAP. 2 OF52 3% O08 OFS5SB 526 ERROR Sf *¢+9 ARR STORE ERECR ID ADDRESS.
a74 , BIT 3 - SPIABDLE -1- HALF CAP. = OF56 OC O00 OFEY OCOD 529 aVC HLTID(1) ,*-* STORE THE ERROB ID.
B75 FECKEREEKE SEG ETEESE SEE EOS TEEEESSEREEESERESESORESTEES $2988 5E82 895 SEOESS 530
476 @ - 531 & UPDATE ERROR TABLE LOGOUT.
G7] $6894004866040404402968 532
OFSC Oc 16 OEFC OF15 533 aYC LG1(23) ,LG2 ; BOVE UP PREVIGUS ERRORS.
DATE O6OAPB70 $22ma¥70 0 1A0670 010CT70 28aPB71 ISHART2 V7IVLI2 PROG 1D OAOF-6
EC WO. 571516 571513 §71531 571549 $71565 §71591 571634 PAGE : 4 DATE O6APR70 228A170 O1AUG70 0710CT70 28 APE71 ISHABI2 W7IOLI2 PROG ID OAOF-6
& ; EC WO. 571516 571513 577531 5715u0 571565 571591 5716348 . EAGE aA
EE EEE E_ SSS SSS gence
“aie maIBTEWANCE ‘BLacwost 1c ape
€e
5
2 PART 40. zie IBA sh sesaiece placKostic PROGEAA PART 20. 5129650
‘ mse s. PAGE 5a.
nore” “DISK SISTEA TEST SCDULE AOF6 = DISK SISTER TEST ACDULE
BRR LOC OBJECT CODE ADCR STAT source STATEMEST CROSS-REFERERSCE
OF62 OC 16 0F15 OF2ZE 530 ave LG2 (23) ,LG3 . : | SYSBOL T LEN VALUE DEPH BEFEREWCES
OF68 CO 87 021E 635 B GRPACK HOVE I8 LATEST ERROR. fe Bae ;
OF6C 02 OF6C 536 REC 4L 12 i AF A 001 OFA3 0487 025%* 0277 0326
OF6D OFES OF6E 537 DC AL2 (HLTID) ALTTRK A 006 OCCO 0277
OF6F OF1B OF70 $38 pec AL2 { LG3-19) ARR € 001 0008 05848 0057 0368 05286
OF71 Oc 11 OFZE OP42 539 MVC) =. LG 3 (18) , LGCLE CLEAR LOG ouTPUT. aSIO A CO3 ODAB 0357 0158 0177 0179 0181 0798 06202 0232 0252 0259 0260 0261 0267
OF77 3D 04 OFES 540 Cll &#LTID,& SKIP THE REST IF THE RALT ID DOES 0320* 0321* 0322* 0329 035C 0358 0396 Q566 0576¢
OFTB F2 82 61 581 JL SKIPIT NOT PERTAIBS TO A SIO COSSAND. AUDT A 003 OAOC 018 0063
OF7E 3D 06 OFES 5482 CLI HLTID,6 BEGIN A 008 OATS 0046 0137* 0573 0586 0598
OF82 F2 81 SA 543 JE SKIPIT BF A 003 OEAZ 0486 0256* 0279 0383
‘OF85 38 10 OFE3 Sua TBH 8 =ALTID-1,X* 10° THIS DRIVE 2 ERROB? BISY A 00% OASC 0096 Coss 9103
OF89 FZ 10 OB. 545 JT SESB JUEP IF SO BRNCH2 A 002 OB27 0143 0137
OF8C 30 A2 OE9OF 546 suS stTaT1,x*a2* STORE DRIVE 1 STATUS BYTES. BSYTIN A 003 CDSE 0592 6265 0361
OF90 30 a3 OFA1 547 SNS STAT3,X*~a3* é BUDT a 003 OAOF 0079 0049 0081 0085 0100 0126 0161 0206 0352 0398
OF94 F2 87 08 548 ag ee11 BUSY A 004% O4a1 9098 0084 0086 0088
OF97 30 B2 OEOF $89 SNSB SES STAT1,X°B2* STORE DRIVE 2 STATUS BITES. CaP2 CC 001 0002 0594 0069 0085
OF9B 30 B3 OFA} 550 Sus STAT3,X*B3* 7 CCWA A 004 OES9 0480 0192 0251 0323* 0324* 0326* 0458 0575" 0593.
| OFOF 3c 04 OEB2 551 SVI 8 TEMP,4 SET LOOP COUNT TO & cC#B 864 004 0£99 0593 0383
*OFA3 Cz 01 OESE 552 La STATO ,XR1 INITIALIZE INPUT/OQUTPUT ADDBESSES. § CCWX A 004% OFA? 0488 0251* 0256 0256 0257 6275
OFA7 C2 02 OF IE $53 La LG3-16 , X52 3 CcwY a 00% OESD 0481 0257* 0258¢ 0275 0457 0588
OFAB 34 01 OFB9 554 LOP& = ST UNPK 1,XR1 STORE CURRENT ADDRESSES. CKDATA A 004% OBCO 0202 0187 0189 0191 .
OFAF 34 02 OFBB 555 st UNPK2,XR2 fa CxiT A 001 OBED 0213 0209
OFB3 CO 87 O21TE 556 B UNP ACK OSPACK CURRERT STATUS BYTE. CKLST A 004 ODAE 0358
-OFB? 01 ; OFB7 557 pc “yLaew | CxOUT A 004 ODES 0385 0382
OFBB 0000 OFB9 S58 UNPK1 DC AL2 (#-#) _ CKSEEK A 006 OC4B 0281 023€
OPBA 0000 OFBE 559 UBPK2 vc AL 2 (*-*) CkST &€ 0048 OA3B 0057 0088 00548
OFBC D2 01 01 560 LA 1(,XE1) ,3B1 ISCRESEST ADDRESS POINTERS. CKYB A 906 OCSE 06256 0253
OFBF E2 02 03 561 LA 3(,XR2) ,XR2 . CKYICK A 006 O0C64 0257 0255
OFC2 OF 00 OF&2 OA11 562 SLC TEMP(1) .NO001 BECREMENT LOOP COURT. CKOC A 004 OBFE 0218 0215 0222
OFC& CO 01 OFAB $63 BSZ LOFa STAY TILL DONE. clit A 008 OB11 0136 G127) 0129
OFCC CO 87 O21E $64 B UNPACK URPACK TH SIO COMSAED. CauDS aA 001 0O£32 0816 607% 0208 0211 0290 0574
OFDO 02 OFDG 565 DC ILi¢2¢ CHPAR A 004 OABS 0112 0101 0135
OFD1 ODAD OFD2 566 pc AL2 (ASIO#2) DAFLG aA 008 OAEB 0126 0123
OFD3 OF2D -OFDS 567 Bc AL2(LG3-1) DAR A 001. OEA1 0587 0183* C185* 0186 C188 ©0190
OPDS OC 01 OF2ZE OF2D 568 HVC =: LG 3. (2) , L1G 3-1 SPACE OUT THE Q Aly BE BYTES. DABCK & 004 O0B62 0177
OFDB 3C 40 OF2C 569 BVI LG3-2,c* ¢ DATA aA 00& OA19 0586 6204 0216 0220 0319 0459 0462
OFDF CO 87 0222 570 SKIPIT 8B HALT ERROR HALT -AOXX-. DECID ~A 008 O0B36 0156 0153 0204 0319 0362
OFE3 a000 OFES S71 HLTID DC XL2*a030* DFCR A002 OEVE 0458 0355
OFES 38 4O OESE 572 TBM 8 STATO, X*40* INTERVENTION REQUIRED? DISK A 001 0000 0003
OFE9 CO 10 0A15 573 BT BEGIN ~ BRANCH IF SO. ' DBOITB A 006 OD71 0343 0336 0338 0340
OFED C2 02 0£32 574 La CHEDS, XR2 RESET CONBAED POISTER. DOXIT 2 096 ODBS 0361 0359
OFF1 2C 02 O£99 02 575 AVC) = CCWA,, 23, XR2) STORE COBTBOL FIELD. DOO A 008 OD04 0305 0302
OFF6 3B 07 ODAC 576 SBF ASIO+1,X°07" MAKE LIK# A SEEK. DUMYB A 004 OE20 0402 C397
OFFA CO 87 ODA3 577 B LIOA GC RECALI BEATE. BNDFF & 003 OBSB 0166 0162 0164
578 teesseeenes ERROR A OOS O0PF52 0528 006C 0996 0740
579 * EQUATES * ERRORS A 004 OF43 0524 0158 0200 0218 0223 0242 027C 0282 0288 0399 0393
SEQ FECEteC SSS HEE EEEESEESEEE EES SERESONS 6405888505408 £4 4940850888 OREREEEE ERROE & 004 OCD7 0284 0262
OA0A 581 SYS EQU) ss xX OAOA® ERTAB aA 001 OEAS 0502 0017
0001 582 ER1 EQU) x*018 | E209 a 004 OBBB 0200 07193
0002 583 xXR2 ECD Os x* 02 EXIT A 00S ODC2 0368 0156 0239 0266 0395
OOOF S84 ARR @cGo x*08? FLAG A 001 OE95 0472 0071* 0087* 0339 0341
0222 585 HALT E00 x*02228 GOOF a 008 OCDC 0290 0138 0143 0167 0399 0405
0219 S86 DAYA EQU BEGIRCS STABT OF CISK REAR I8 ASEA. GOSIO A 004% OEZE 0406 0401
OFA 587 DAR EQU) 3s STAT3 GOXIT A 004% 0C91 0266 0272
O£SS S88 PATBN EQU cCHY-2 HALF aA 004% OASC 0069. 0050 0055
0282 589 IESP EQU- REAL HALT C€ 061 0222 0585 = 0570
OA11 590 8001 £QU) RBTHO1 : HEY A004 OASE 0074
ODSE 591 SKTIS EQU TIAVAL+1 CODING USED FOR SEEK TIME-OUT VALUE... HLTID A O0O2 OFEN 0571 0051* 0098* 0102* 0112% 0734e 0524 0527*% 0529* 0537 0540 0542 0548
ODSE $92 BSYTIN EQU) TIMVAL¢1 CODING USED FOR BUSY TIME-OCOT VALUE. INIRNC A 003 ODBS 0360 0342
0£99 593 CC¥B EQU CCWA ITBSY A 006 OB28 0152 O16C 0165 0216 0220 0861 0863 0868 0596
0002 S94 CAP2 £EQD x#028 HALF CAPACITY FLAG. | ITSA aA 008 OBS? 0165 0159
0001 595 HOD3 E£QD x*01° HOD 3 COFIGURATION FLAG. JHP a 003 ODB2 0359 0083
*0B27 596 WORK EQU) ITBSY-1 WORK AREA FOR TIME-OUT VALDES. | JEPP A 002 OEF8E 0466 0392
O21£ 597 UNPACK EQU xX*21E® SSPR a 004% OEO06 0395 0353 O466
0a!sS 598 END BEGIN | LGCLR A 018 OFS2 0516 0539
LG1 A023 OEFC 0510 0533
*| LG2 A 023 OF15 0512 0533 0534%
| LG3 A023 OF2E 0518 0534 0538 0539* 0553 0567 0568 0568* 95692
|
DATE O6APE70 22MmAY 70 0140670 010CT70 28APB71 1582872 17J0L72 PROG ID OA OF-6 DATE O6APR70 22s8ar70 017A0G70 010CT70 28APR71 ISHABRT72 I7IUL72 PROG ID OA OF-6
EC WO. 571516 571513 571531 571540 571565 571591 571634 PIGE EC NO. 571516 571513 571531 571540 571565 571591 571638 PAGE SA
78m sAzyurEnawce piacuosTic PROGEAN
AOF6 DISK SISTEM TEST #ODULE
SYMBOL T
LIGA
L1OB
Liot
LOKB
LoP4
LSTAD
LSTMR
AOD3
uSTK
NT BDY
#001
OOPS
PATRN
“RDWET
READ
REG ©
RAVBL
aTBO1
SEKBOS
SET
SETR
SET 100
SIO
PP Pe Pe Ph ee Pe he Oe me eb pe
SIOB
SKIP
SKIPIT
SKTIM
SNSB
SNSIT
STATO
STATI
Be te > fe be be > De
STaT2
STAT3
STCK
STHDA
oe sY¥S
TEMP
TISVAL
TIO
TIOA
TIOB
TIOID
TIOIT
TSTID
UNPACK
ONPK1
UNPK2Z
VER
WHATA
#HATB
WORK
X FER
xIT
XR1
QO OF Pee he ee POP eh ep OD Dh
XR2
LEW VALUE
004 ODA3
004 ODA?
003 oaco
004 0aso
004 OFAB
002 OE86
CO2 0888
001 0001
004% OBIP
006 ODFB
001 Oal1
004 ODP6
004 OE9B
006 OD7F
Qu2 OEF82
005 OBEG
004 OCFZ
001 Oat1
006 O0C1b
004 OoD25
004 ODzy
004 OA5A
006 ODIA
006 OD51
003 0524
G04 OFDF
003 ODSE
004 OF97
004 OoCciCc
001 OE9E
001 OE9F
001 OEAO
001 OFa1
00% 0443
004% 0D32
001 OA0~
002 OE82
003 OD5D
00% ocag
001 OES8F
001 O0E92
004 OCcK0
004 OD9F.
002 OE7C
001 O21E
002 OFBY
002 OFBH
003 ocas
004 ODDS
004 ODEO
006 0827
004 0C11
004 OpD1
001 0004
001 0002
DEFN
0355
0356
Os
0081
0554
0462
0463
0595
0140
0392
0590
0390
0538
0346
0460
0213
0300
0043
0231
0321
0322
0073
0319
0334
0403
0570
0591
0549
0232
0482
0483
0484
0485
0059
0324
0581
6589
0337
0272
0467
0469
0262
0354
0457 ©
0597
0558
0559
0264
0380
0383
0596
0223
0372
0582
0583
CROSS- REPERENCE
BEFERENCES
0327#
0328
0125
0072
0563
0186
0188
0352
0119
0388
0152
0386
0113
0330
0214
0207
0297
0016
0178
0157
0296
0076
0180
0309
0541
0231
0565
0281
0385
0046
05468
0387
004u7
*0057*%
0301
0371
0073
0591
0267
*0325
0338
026 1%
0273
0263
0535
0554%
05558
0259
*0468
O47C
01529
02C5
0368
*CO74
*0122
0166
04 03%
0348% 0577
0345
*0128 0130
0190
0121 |
0392%
0280 0268
0306 0308
0590
0163* 02918
0298* 0300¢
0199
0406
0203
0583
0552 0572
0052* 0058
05498
00537 91176
0303* 0305
0075 0076
0592
0269
0325* 0334
0556 0564
0260
0231* 02400
0370
0075
0124
0208
0404
0076
0124%
0211
0553
*TOTAL STATEMENTS FLAGGED IW THIS ASSEMBLY =
DATE
EC NO.
NOAPR70
571516
Z22MAY70
571513
01A0G70
571531
010CT70
571586
0131* 0122 01336
0562
0310% 0385 0386* 0349
0400* 04029
0210 021912 0217 0221
01168 0118 3196* 0196¢
0120 0361 0388" 05472
6077 0078 6079 0080
0351 0525
0265* 0268* 0361
*0077
0136
02908
0555
0078
0136
0320
0561
0079
052s
0323
0561
*0080
0558
0335
05744
28aPR71
571565 571591
C5519
1SMART72
0349* 0356 0589
0276 0278 0280
0234* 0236* 0237
0550* 0587
0562¢
O113® 0118
0560 0560
0337 0347 0360
0575
0115
“1730L72
571634
PAST BC.
Pas
0299 96308
0380 03839
0118 0120
0360* 0803
PROG ID
PAGE
3129650
6
_ OAOF-6
6
Fn teat one
‘
;
IBA MAINTENANCE DIAGNOSTIC PROGRAa
AOF6 DISK SISTEM TEST MODULE
THE CHARACTER
OBJECT CARD LISTING
PART uO.
5129650
PAGE 6A
INDICATES 2 BLASK COLUM® AND THE CHARACTERS D E H INDICATE BUMERIC SHIFT.
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 4&9 THROUGH 64 CL 65 THROUGH 80
T<SY1¥jQ 6 B/D
IXEZTCDG /OVear
*T<EDNA :BL- FCYI
T<6,GH :B3Y*E0H
*T<-,:CZG0Z-:/LED
T.-SZBSD2D { Dey
T< _EB2*HD~ EDA‘
7<6><?-8 OADEICS
T.0>8 6:/CIT2KS
$c yee Wek,
T.-0* &:Daz 4Cna
ep taek cee
T-C19CZUBD 6xa/-
eae
T.-2YB <-66%05
T<& 3EOEH<US 0CC.Q
TCKEUCCRHBCTH: 54
T.04eD *: & Day?
T<55> <:OCD<8D 6
oe J
T< 6~UDE< = :OCDH
T<O7L <EQ¢—TF
T< 8D CBSCZa0x9:
O6APRT7O
571516
DATE
EC NO,
ee e eee e
+DEA .& aA 4®
J( -HoT-8CZ" 5
¢ -¢-08 C
: BL-
|a-H8D "TOPBAXC-
"CZ"2 AV( & ¢¥58
HIZYEBRE:D “TORS
GC &<CHOH*® (OTYACKM
e
GCE32DH&8 O6%08
{ &:/CY,2-KB* :
ECJY (*0OSBIT 2-8
oF OYOHD (PRBGC4<
¢X"HGACBSCZ@B8D :
Ic 6¢¥0: Uarerc
<S3FWUCE33YED< EE
(I- ( 2:¥C2?
¥> D{ H~HEAIZACKK-
DeODey/ 3°B1-< (KO
U+tt (DC-&CE320B8
2D 6047 (D OACYH
UCY.3 8D 6%az
/al*H< H*#X3B3CDD
22NA170
571513
0180670
571537
NCHH¢X3BICDG /OY
“OHe4s-DB -¥<az
ECYI¢ AQ+-T--B-#
-B-#20 -:D "T0SH
LEROY jHAA*HA *B
H?EOIA-*< OYQB2~
8D 6%a/ KOER. GC-
(FT-8CE32D *02 :
OdYDO+A (, { HEA3B
@H ¥eaz <TéH CU.
<C+2.F OXOHD (PSB
~a2 LOH® (0-aaB2¢
*I-2UC <exEsx0"S
XCH® /O7BB <D-6
2-NY{ 27 C2 MD
50s cues visa
“CEocet (,crsCEO
< -6SC2K8 64 2DAK
#-.6S “HAA-OACYH
C8-HDC D.105;08
*9?-2;8Z GQ +Y}H
O10CT7IO
571549
€e
28APR71
577565
ten Ec?isicrec=<
Gt/ 4¥nHGrt10C¥.
2D #8 64ar*L+ B
HICKEC=|B 8:3*EE
GBX 8H Y*@Z =~4A
/703*0H*{ B-] £03
~B-¢20 &8 S4VaYe
/Ol*D<.€¢ YESACDD
SCZ"2/0608-:-~08
*2-67 sO¥EIEH CUS
GB"? s0°CE-OaE2
*ED*BDCA3 /0*CA00
X&- CHU(, - CHS
RCOD. TCYI@IEE CH?
( 3s
C2 at /0°
*GAIRACL.2/10: E46
-:B T> Cz-< -6
8-420 8&< :Nay
#/C-QCE320 *8 SY
= (TEHC)&*Y ¥ ayD
SA*BGCAKEC <("-:
TSMART2
571591
OB-s~<.< Ba, IB
B EB2L- .2%0GI-
HC"HECCY .KQ~F1Q
” 8B <ES HKS/GI¢
RO-HEPCY& _ISE
*COD BOXHVe) EID
DOSH.H OHKH;E1<
¢/7HA ( & CRUXBAD
(F3BG oKOSF1&
SUE¢ 2E2Q~E1
(PT- .EEWH/GEPA<
@e2eeed
ccbe >EKA/G IR
(o _B2*vB3J2sE18
{ 60- .KCUSASEE/&
Ca<BSC&< <KOTP/<
2¢ Desy8 <BOVG/sY
SCZD< BBXHB<C4F 19
Gt~ ¢¥~H <BURE1
1@/AX0E RIKD~EI<
DOX*HBRBG VHI4
#08*j60 O.BYVG/s
*W7WIOL7F2
571634
FROG ID
PAGE 6A
CL 81 THROUGE 96
*F 0G9CaA0F60001
&C BA) -420760002
JC *B=LYA0F60003
KC-UBQSEAOFE0008
KB-HA9R AOP60005
( BEBAELSACP60006
| B~<A63DA 0F 60007
BDEYFOADAOF60008
(BOSE 1, BA 0P60009
¢B-QABR1S00760010
}BOCBPT ACPEOOII
BD OBKS-20F60012
#C RA®KSA OP 60013
(BERC7S AQFGOO1S
JBE*C) BHAOF60015
LC -DS-4A0P60016
KD OBsBEAOF60017
<B &B*IUA0F60018
| BO*E;LAACP60019
$DEYPI/%A0560020
LCO-Des OA 0F60021
OAQF-6
pow HOS Ge SS eee, Se ee a (bean) oad Bee eee eee eae Ses Sa ee
icagssipains
oer te
Dak: Cee gee tae.
rea
ae
Shen ain aie. a
or PMG pepe tet eee
mid Tingesassalegeie nla mee, mts it:
;
Sag en BE ote
: Pe Ge
ee RN ae Rae Np tpnpeTipER at mn tags ye
4
IBM HAIUTERAUCE DIAGHOSTIC TROGEAR =
A0P6 DISK SYSTES TEST BODULE
CL 1 THROUGH 16
T<-GS7AZBGC*HSD 6
¢@e-92H:ax BSRO
™ 3s& KO-j 6112
. Sbewees e
Tess 8B Bye
Te-ans y 6(e EA,
es =
TjO*IKS_ KO_ KS_
T.b4"( -gO00 C=&
T< =0C=L2-NY8D ©
r<s"sce? /0H; &
TR-@ty 86 350A
EB/N* E7%=-DC*PES
OD ee A ETD SE EOD LS AS LES SF EE IES OE ID
DATE O6APRT0
Bc HO. 571516
CL 17 THROUGE 32
Sas eB HCRBEC CO
“yrs” Gpa BB -
¢u-:0B/0 SYBW
&543 4*3C-ASEO) |
56 54 KG a_
“xa KG_ 6D_.8D_
00C704 EE0OC 18
Ta/ -<Hue X38TCDG
Cx &GS -<{ =:
GEe*sscrds -:8 T2
="7 NGF ji t c
22HaT 70
Qtaus70
-~
=
OBJECT CARD LISTIZG
CL 33 THROUGH 46 CL 49 THROUGH ov
@ Gavareee—D(158
WSaaa: JE B/I-D
<H OZOHSeaD (55
164.1651) USUCB:¢4
*ga_"sD_.6D_.-a)
.*"9 KA KGAL KOA
|<%BG /SBC<s { P00
2/0~0%—-2-7<. <4 YL0
BB/G &=,0B*BG-5
6cE3 sost
BA.7" <BAC (3 /08%
F1DQ 8<@ D-12BC
(8 Duuv
EeUA 8&X0-a) 23
-K&_.6D_.D_.ED_
naa ea_"maxen ©
3C28 ,ETSDC=L2- 3D
pCi. B &2;0-HIGTS
(s68_C DI.-a_1D
208628222 SHSEBSCE
eno eee Seed
FR asc RBA _ sO Q
otoct790
571513 571531 $71540
28 aPa7t
§$71565 5715891
1SHBP TZ
PaRt 30.
§129650.
a8 PAGE 4q
CL 65 THROUGH 80 CL 84 @HROUGE 96
Z crea BOYGs* LCO-DSTZAOFG0022 |
IK- EB Z 6P-10 BDO :X0ACF60023
@eengen eed
/G/RPEIK ICERI3-BA0FEO0ZS
“gyn 548 611 54( SD 7BSA0FEOOZS
.6D_.EDA.KRA.K8 PEAK 27640760026
rea (ryBeacrsc=< (3 %) LDAOFG0027
ta- B-0H/8*EI< jCS*cRLuA0F60028
aceus - >HSQSG/Z LCO-aALDOAOF60023
[-<BG SH .KUXH2D EB/&A0HBAOFG0O30
Seneeseeaeaseen
¥/Q JCEUE) OHA 0F60031
@2eeed
” 40520501709. 62172523A0F60032
ee rere ee res
17IOLIF2 PROG ID 0a OF-6
571634 PaGi 7
-
ene
cee oe gM ne wg a a a ee iene ga Sen Ee
IBM MAINTENANCE DIAGNOSTIC PROGRAM
FFS3 SCE
ERR LOC OBJECT CODE
0000
OACO
OaA00O FF53
OAOZ CO
OAQ3 G4
OAOH COOO
OAO6 OAGD
OAO® 0000
OAOA ADICOO
OAOD
OR OE
OAQF
01
00
OCES
pate ©
EC NO.
O6APRIO
5715 16
5129658
PART NO.
PAGE 1
DISK INITIALIZER
ADDR STMT SOURCE STATEMENT
2* DATE OF LAST REVISION OR UPDATE, 09-29-70
3 PFE START 0
Ui DECK 4
5 SHARE KE RSE SCHSHE SSE EESKKEKKKSESEEEEESEER SEKEKKE SE EKEKSEEKEESEEKSEKSEEKSEES ES EKEEKEKEKEE
6 * SYSTEM/3 CE DISK INITIALIZZR
*7 « -
8 CRG x'OA0O!
9
OACO 610: INIT EQU) *®
41 KREEECERSEKESESESKRESIRECSKRSSKSEKAEARKSEKSTKHESKESEKTAAKST HVA SROREKSEEKKEEKEHAEKE KEK
4 * =
13+ SFCTION PREFACE te
14 *® ‘
*Oac1 15 DC XL2'*FF53¢
OA02 16 bo] @ XL7!'O008 SECTION FLAGS
0A03 17 dc XLi*o1 ROOTINE NO.
OA05 18 pc XL2'008 RESERVED
OAO7? 819 IC AL2{ INITA) ADDRESS OF FIRST ROUTINE PREFIX
O0A09. 20 DC AL2(*- *) ADDRESS OF ERROR RECORDING TABLE
OADC 21 DC XL3*A010008 SPUT
22 * x
23 KRSSEKEKEESHKRESESKAKREREREEEEKSEREE AEE REKESEKRERAKEEEEKEASEESE REESE EKKEEERESESSE
24 |
25 RVD EKAROEREHEEEREEKEEEEEEEEES EEKEEKE KE OESEE EEC HRESE KE EEEEESEERSEEESTES EEREESD
26 *
*27 * ROUTINE PREFACE
*28
OAOD 29 INITA DC XL G18 ROUTINE NO.
OAOE 30 DC X1.1'008 ROUTINE FLAGS
OA10 31 DC AL2(RTNO2) ADDRESS OF NEXT ROUTINE
32 4
*33 KEKE ESE SHEE SETH EKEEEE EE SES SHEE EEEETE EE HE EE SHEE EE TEASE RERESEEEEERE EASES E
22M AYT7O O1AUGT70 010CT70 PROG ID OFFS-3
571513 571531 571540 PAGE 1
4
Sf
oO Oo Of OY ©
r"
co cn fy ey ny ey ty fy
cry
ey
a)
ae eo @ 8 8& & 6
G
€y
é%
€3
€Y
cy
oO
YBS HAINTENANCE DIAGNOSTIC PROGRAR
FF53
ERR LOC OBJECT CODE
OAT2
OAT7
OA78
OATA
OA7E
OAaY
0A91
OA9Z
OA9a
OA98
OASC
DATE
EC NO.
Cc
co
3C
3C
3C
E
03
10
87
00
81
a7
DIS K
OF314
1772
1773
1774
VITA
1775
1774
4778
OF 30
166D
THEC
020A
1075
166D
occk
1773
27
1776
1D
OF30
cc
166D
OATE
OF 30
OA35
1075
166D
1272
1778
48
O6APR70
571516
sche
PART WO. 5129658
PAGE A sy
INITIALIZER
ADDR STMT SOURCE STATEMENT ,
35 % OPERATING INSTRUCTIONS "i :
36 * s
37 * RT THE FIRST HALT, SET THE FOLLOWING SUITCHES, e
38 * 2
39 # 4. SET SWITCH 10 TO RUN ON THE RFSOVARLE DISK -OR- °
uo * 2. SET SWITCH 11 TO RUN CH THE TIXED DISK
*a1 * s
42 * 3. SET SWITCH 12 TO RUN CE DISK DRIVE 1 °
42 * 4. SET SWITCH 13 TO RUN ON DISK DRIVE 2 ®
uu * S. SET SWITCH 14 YO INITILIZE ALL CYLINDERS IF T4YF RES OVABLE °
y5 * DISK HAS BEEN SELECTED.
*uG * 6. SET SWITCH 16 TO MAKE 5 PASSES ON EACH WRITE AND VERTFY
*47
48 B INITAA SETUP FOR INITIALIZATION
49 * SET INITIAL VALUES PRIOR TO BEGINNING DISK IKRITIALIZATION
SO INITAB MVI WRTDFC,00 SET FLAG RYTE TO 00.
51 MVI WRTDPC+1, 00 SET CYLINDER SUMBEP TO OO.
52 MVI WRTDFC+#2,00 SET HEAD AND S£CTCR TO OC.
53 * TEST ONE TRACK WITH DATA PATTERN 55
54
55 PROCED BVI WORK,X£°558 SET DATA PATTERN I® WRITE AREA
56 INITAC MVI WRIDFC+3 ,23 SET NO. OF SECTORS TO FOUAL 26
57 SBF &RTDFC+2,X'7F* SET SECTOR BITS TO ZEFO
5@ MVI ERRPLG, 0 ZFRO FLAG
59 MVI RETRY,8 SET SEEX RETRY COUNTER
60
67 INITAD B STRTIO TC I/O SUEROUTINE TO SEEE
0A39 62 ie XL7°00! FUNCTION CODE
OA3A 63 DC XL1°00!° CONT ROL CODE
OA3C 64 DC AL2(ARTDFC) CONTROL FIELD ADDRESS
65 B SEEKER ERROR RETURN
66
67 TBN SECTSH,X'40* TEST FOR RUNNING CW FIXED
68 3ST INITBB JUMP IF YES
69 MVI DISKTP,X* 08° SET FOR FIXED DISK
70 B STRTIO TO READ IG
0a50 74 CC XLI°O1F FUNCTION CODE, (READ)
0A51 72 pc XL1°01° CONTROL CODE, (ID)
0a53 73 pc AL2 (RDDFC) CONTROL FIELD ADDRESS
74 B. READER ERROR RETURN
75
1777 76 CLC WRTDFC+1(1),RDEDFC+1 COMPARE ACTUAL ADDRESS WITH EXPECTED
77 JE INITBB-4 JUMP IF SEEKED TO CORRECT ADDRESS
78
79 TBF RDDFC,xX* 03! CHECK BOTH FLAGS OFF
80 JT *4+6 IF OFF, RETRY COMMAND
81 J INITBB-4& CTHERWISE CONTINUE
82
83 CLI RETRY,0 CHECK RETRY COUNTER
84 JE IDERR JUMP IF 8 RETRIES HAVE REEN MADE
85
86 RB STRTIO TC RECALIBRATE
OAT6 87 Dc XL1*0# FUNCTION CODE, (CCNTROL)
OAT7 88 DC XL1°4° CONTROL CODE, (RECALIBRATE)
OA79 &9 DC AL2 (WRTDFC) CONTROL FIFLE£ ALDRESS
90 B *+
91
17D c2 SLC RETRY(1) ,ONE DECREMENT RETRY COUNTER
$3 EB INITAD GG SEEK AGAIN
Sy MVI DISKTP,O SET FOR REMOVABLE
S5 INITBE RB Si RTIO TO I/O SUBROUTINE TO WRITE ID.
CASO a6 pc XL1°G2* FUNCTION CODE
0A91 97 pc XL1°01! CONTROL CODE
0A93 98 pc AL2 (WRTDFC) CONTROL FIELD ADDRESS
99 E STEP12 ERROR RETURN,
100
101 CLI ERRFLS,O. WAS THERE ANY ERROR?
102 JNE INITAF JUMP IP YES
22M AY 70 01AUG70 07CCT70 PROG ID OFFS-3
571513 571531 571540 PAGE 12
(
¢
é
| | fie | | }
IBM MAINTENANCE DIAGNOSTIC PROGRAZ , PART NO. 5129658 IBM MAINTENANCE DIAGNOSTIC PROGRAR ~ s . tae 3% “PART NO. 5129658
. PAGE 2 . € | o . PAGE 2A a
FP53 cE DISK INITIALIZER FFS3 cE DISK IWNITTIALIZER
ERR LOC OBJECT CODE ALDR STMT SOURCE STATEMENT S ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT
OAOF 38 7P 1774 103 SBF WRITDFC+2,Xx'7F!* SET SECTOR BITS TO ZERO cle OFGA FBI3CIDSCHUC5SD94O 168 -
OAA3 3C 17 1775 104 NVI WRTDFC+3,23 NORMAL RETURN, SET TO VERIFY. OB72 C2C5CEDEDICS4OES 168
OAA7 CO 87 166D . 105 R STRTIO TO I/O SUBROUTINE TO VERIFY. OB7A CYCIEZCIDSCT4 OC9 168
OAAB 01 OAAB 106 Dc XL1°01° PUNCTION CODE Gilg 0382 Cu 168
OAAC 03 OAAC 107 cc XL1*03! CONTROL CODE 169
OAAD 1772 OAAE 108 DC AL2 (WRTDF) CONTROL FIELD ADDRESS 0B83 170 CYLTBL EQU)
*OAAF CO 87 1223 109 E STEP10 ERROR RETURN Cie OBB3 04050647 OB86 171 DC XL4* 04050647"
110 OB87 4B49uAuB OFSA 172 BPC. oXLU'UBHON ABE
OABS 3D OO 1778 114 CLI ERRFLG,O WAS THERE ANY ERROR? OB8B O0B&B OB8C 173 TBLEND DC AL2 (*)
OAB7 F201 2D 112 ONE INITAP JOMP IF YES Gcile OB8D 0000 OB8E 178 SAVXR1 DC XL2*0
*713 175
114 = TEST ONE TRACK WITH. DATA PATTERN 00. . 175
415 . © | e 176 * INITIALIZATION IS CONPLETE, NOW READ THE ID ON EACH TRACK
OARA 3D 00 177A 116 CLI WORK,0O HAVE BOTH DATA PATTERNS BEEN USED? 177 * AND COMPARE IT AGAINST THE EXPECTED ID
OABE F2 81 08 117 JE INITAQ JUMP IF YES | 178
OAC1 3C OO 177A 118 MVI = WORK,X*00! CHANGE PATTERN Cig CB8F OC 00 1773 177C 179 INITAH MVC WRTDFC+1(1), TRACKS SET CYLINDER NC. TO LAST ONE
OACS CO 87 OA25 119 B INITAC . | OBS9S 3A BO 1774 180 SBN WRTDFC+2,X'80* TURN ON TRACK 1 BIT.
120 4 0899 35 02 OF2D 181 i LSTADR, XR2 INITIALIZE POINTER
121% REPEAT 5 TIMES IF SSW16 IS ON <r oe OBID 34 02 OF2B : 182 ST LSTSAV,XR2 AND SAVE
122 OBA1 34 02 OF29 183 ST ALTLST,XR2
OACI 38 O2 020A 123 INITAQ TBN SWITCH,X*O2* CHECK FOR OBAS OC 02 1498 1774 184 INITAI MVC WRTSAV (3) ,WRTDFC+2 SAVE ORIGINAL FLAG, CYL & HEAD.
OACD F2 90 17 128 oF END16+44 SENSE SWITCH 16 ON Cc € OBAB 3C 08 (720 185 MVI.- RETRY,8 LOAD RETRY COUNTER
OALO 3D 00 176E 125 CLI countT,x'co’ INITIALIZE OBAF CO 87 166D 186 INITAN B STRTIO ’ TO I/O SUBROUTINE TO SEEK
OADY F2 01 06 126 JNE #49 COUNTER FOR OBB3 00 OPB3 187 |. DC XL7*°00# FUNCTION CODE
OAD? OC CO 176E 176F 127 MVC CGUNT(1),PIVE FIVE REPETITIONS c C OBRY 00 OBBS 188 pc XL 1" 068 CONTROL CODE
OADD OF CO 176E 176D 128 SLC COUNT (1) ,ONE WRITE AND VERIFY OBBS 1772 OBB6 189 DC AL2 (WRTDFC) CONTROL FIELD ACDRESS
OAE3 CO 01 CA21 129 END16 BENZ PROCED FIVE TIMES OBB? CO 87 T4EC 790 B SEEKER ERROR RETURN |
- 130 C . - 494 ;
131 * BOTH PATTERNS HAVE BEEN USED, NOW STEP TO THE NEXT TRACK : .OBFB CO 87 166D 192 INITAE B STRTIO. TO I/O SUBROUTINE TG PEALD ID
132 . OBBF 01 ORBF 193. DC XL1#O18 PUNCTION CODE
OAE? 38 80 1774 133 INITAF TBN WRTDFC+2,X*@O! IS TRACK #1 BIT ON? eee 3 OBCO 01 OBcCO 194 DC XL1*01°' CONTFOL CODE
OAFP F2 10 08 134 JT INITAG _ JUMP IF YES | OBC1 1776 OBC2 195 Cc AL2(RDDFC) CONTROL FIELD ADDRESS
OAFE 3A 80 1774 135 SBN WRTDFC+2,X'80! SET ON IF IT WAS OFF 0BC3 CO 87 OcCc4 196 B READER ZRROR RETURN
OAF2 CO 87 0A21 436 B PROCED PROCEED TO TEST NEXT TRACK aie 197 ed
OAP6 33 BO 1774 137 INITAG SBF WRTDFC+2,X'89!' TURN OFF TRACK #1 BIT ee OBC? OD 00 149A 1773 198 CLC WRTSAV-1(1),WRTDFC+1 COMPARE EXPECTED YS RECIEVED.
OAFA OF 00 1773 176D | 138 ALC WRTDFC#1(1) ,OXE ADD ONE TO CYLINDER NUMBER OBCD F2 81 45 199 JE INITAJ JUMP IF EQUAL
0800 33 08 O20A ° 139 TBN SWITCH, X*9Bt TEST FCR INITIALIZING ALL CYLINDERS e t = DBDO 3D 02 1776 200 CLI RDDFC, 02 DOES FLAG BYTE =G2, (DEFECTIVE) ?
OPO4 F210 2A 140 JT INITBA JUMP IF YES be OBD4 F2 81 Ag 201 JE INITAK YES, GO SET ADDRESS IN TABLE
ORO7 38 4O C20a 141 TBN SECTSW,X*'4SO! TEST FOR RUN ON FIXED DISK. A OBD? 3D G1 17756 202 CLI RDDFC,C1 5, x DOES FLAG BYTE =01, (ALTERNATE) ?
OBOB F2 10 23 Th2 JT INITBA. JUMP IF YES Che OBDB F2 81 B8 203 | JE INITAL YES, GO COMPARE READ ADDRFSS VS
143 a eS 204 * THE ADDRESSES IN THE LIST.
OROF C2 01 6B83 144 LA CYLTBL,XR1 SET XR1 TO POJNT TO TABLE OBDE 3D 00 OF30 . 205 CLI RETRY,G HAVE 8 RETRY*S BEEN MADE ?
6B12 1D 0O 1773 00 145 CKCYL CLC WRIDFC+1(1),0,XR1) CHECK THIS ADDRESS Ce OBF2 F2 81 1C - 206 JF INITAO JUMP TO PRINT IF YES
OB17 F2 01 06 146 JNE STPPTR JUNP IF NOT EQUAL TO ONE IN TABLE ae ae OBES CC 02 1774 1498 207 MYC WRTIDFC+2 (3) ,WRTSAV RESTCRE CONTROL FIELD
OR1A OZ 00 1773 176D “487 ALC = WRTDFC+1(1) ,ONE STEP WRITE ADDRESS ONE CYLINDER ' QOBEE CO 87 166D 208 —- RB STRTIO DO RECALIBRATE IF NO
0B20 D2 01 01 148 STEETR LA 1(,XR1) ,XR1 STEP XR1 #1 re a OBEF 00 OBFF 209 pc XL1°O# FUNCTION CONE (CCNTROL)
—0B23 34 01 OBSE 149 ST SAVXR1,XR1 STORE FOR COMPARISON Re OBFO 01 OBFO 2106 pe XLi"01" | CONTROL CODE (RECALI ERAT £)
0B27 CD 01 OBBE OB8C 150; CLC SAVXR1(2),TBLEND CHECK XR1 FOR STEPPED TO LIMIT ; OBF1 1772 OBF2 211 pc AL2(WRTDFC) _ CONTROL FIELD ADDRESS &
ORZD CO 01 OB12 151 PNE CKCYL | BRANCH IF NOT DONE . x. OBF3 CO 87 GBF? 210. . B #44 ;
152 7 OBF7 OF 00 OF30 176D 273 SLC RETRY(7) ,ONE DECREMENT RETRY COUNTER BY ONE
0831 0D 00 1773 177Cc 153 INITBA CLC | WRIDFC+1(1), TRACKS IS THIS VALUE HIGHER THAN MAX. OBFI CO 87 OBAF 2174 B INITAN TRY. TO READ ID AGAIN
OP37 F2 84 55 154 JH INITAH YES, PROCEED TO PART 2. ae 215
OR3A CO 8&7 0A21 155 - &B PROC: NO, USE THIS CYLINDER | . 0CO1 CO 87 021A 216 INITAO B PRINT GO PRINT DUE TO AN INVALID CONDITION
156 . 0COS C6 0coOS 217 cc XL1*C6! LAGS
OB3E CO 87 O21A 157 IDERR f& PRINT TO PRINT READ ID ERROR = e OCO6 2A 0co06 218 © DC IL1*42¢ LENGTH
0 BY2 Cb CBY2 158 DC XL1'c6* FLAGS , . .0CO7 OEBA OcoOs8 219. pc AL2(ERROR3) | ADDRESS CF LAST PRINT CHARACTER
OB43 31 0B43 159 rc IL 149 LENGTH OCOS. AOOA OCOA 220 pc XL2*acOaAt | MESSAGE IDENTIFICATION
ORU4 OBB2 OB85 160 pe AL2 (IDERMS) MESSAGE ADDRESS 2 1s OCOB CO 87-0222 221 B HALT TO DCP HALT.
OB46 AOFS OBU7 167. DC XL2"*aAOF9! MESSAGE ID OCOF ACOA 0C10 222 DC XL2*a00a! HALT ID
% 162 0c11 CO 87 0A11 223 B INITAB-& TO TEST FOR ENTRIES
OB4Ye CO 87 0222. 163 ee :) HALT TO DCP ERROR HALT : o 224
CRUC ADPS OBUD 164 DC XL2*AOF9! HALT ID a2 OC15 OC 02 17748 1498 225 INITAJ MVC WRTDFC+2(3),WRTSAV = RESTORE CRIGINAL F, C & S BITS
165 OC1B 38 80 1774 226 TEN WRTDFC+2,X'80! TEST TRACK ONE BIT FOR ON.
-OEUE CO 87 0A11 166 B INITAB-§ OC1F F2 90 08 227. JF “INITAM JUMP IF CFF
167 . . - A 0C22 3B 80 1774 228 SBF WRTDFC+2,Xx' 80" TURN OFP EF PREVICUSLY ON.
OB52 C3ICIDSDSDG6EZ4OE2 OBB2 168 IDERMG DC CLUS'CANNOT SFEK TO CORRECT CYLINDER BEFORE WRITING ID? 0C26 CO 87 OBAS 229 B INITAI GO READ ANOTHER ID
OFSA C5SCSD240E3D640C3 168 - - c OC2A 3A 80 1774 230 INITAM SBN WRTDFC+2,X'80" _ TURL ON TF. PREVICUSLY OFF
0362 DSDSDICSCIE340C3 168 oo . LO OC2E OF 00 1773 176D 231 SLC WRTDFC+1(1), ONE REDUCE CYLINDER VALUE BY ONE
DATE O6APR7O 22m AY70 OTAUGTO 010CT70 . FROG ID OF FS-3 i” DATE 06 APR70 22¢A170 01AU0G70 010CT70 2 PROG ID OFF5S-3
EC NO. 571516. 571513 571531 * 571540 © ‘ | PAGE - 2 EC NO. 571516 571513 571531 571540 . ae eae PAGE — 2a
é ° , :
ps See Ogg a Sine fier
’ B “nats oe: de eae nye in vibe enna Aho be ase Mig yg EE RE ag A
Jip ewes genirinr - aehiae ne cae papers + rs ae Serer Sued i
IBM HA INTENANCE DIAGNOSTIC PROGRAS
FF53
ERR LOC
OC 34
0c38
Oc3B
OC3F.
0Cc42
OCc46
OCCUR
OCUE |
ocs4
o0c57
OC5SE
0Co1
ocb
*OCc69
Oc6D
0c71
0c72
0c? 3
Oc75
oc 7S
OC7B
OC 7F
ccR0
Ocaeyu
- 0C89
OC8c
0C92.
0C96
OCSA
OCIE
OCA3
OCA6
OCAC
oc Bo
GCBY
OcBS
OCB&
OCEB
OCBA
OCRE
occe
occs
occs
occe
ocp1
ocDs
ocDS
OCDA
dCDB.
ocrL
_ OCDF
0CE3
OCES
- DATE
EC NO.
Cz pIskK
OBJECT CODE ADDR STAT
232
38 08 O20a 233
PF2 10 2A 234
38 40 O20A ‘ 235
P2 10 23 236
237
C2 01 OE2D 238
ID OO 1773 00 239 CKCYLI
P2 01 06 280
OF 00 1773 176D 2461
D2 01 01 242
34 01 OBBE 243
OD 61 OBSE 0F36 264
CO 01 OCK6 285
246
3D FP 1773 2U7 IRITAP
cO 01 ORAS 248
CO A7 O2Z1A . 289
06 0C71. 250
1B 0C72 251
1797 OCc7& 252
253
cO 87 0222 2548
AOFS COC7A 255
COQ 87 O22A 256
00 OC7F 257
258
35 02 OF2B 259 INITAK
ec 01 01 1774 260
PR TP 01 261
OF 01 OF2B OF2F 262
co 87 0C15 263
= 264
35 02 OF2S 265 INITAL
3B 7F 1498 266
2D 01 189B 01 267
268
*F2 01 OA 269
OF 01 OF29 OF2F 270
co 87 0C15 271
CO 87 O21A 272 PRIERY
C6 CCBY 273
30 ocBS 274
OFBA OCB? 275
AOFS © OCB9 276
CO 87 0222 277
AOFU OCBF 278
cO 87 0A11 279
280
3D 00 OF30 281 READER
F2 81 CA 282
OF 00 OF30 176D 283
CO 87 OBFB - 284
285
CO 87 O21A 286 READPT
C6 ocD9 287
2a ~OCDA 288
Of 60 ocDdDC 289
AOOF OCDE 290
c0O 87 0222 291
AO OP OCES 292
CO 87 OAT1 293
O6 APR70 22MaY70 01AUG70
571516
INITI
571513
ALIZER
SOURCE STATEMENT
571531
TBN SWITCH,X‘08
*JT INITAP
TBN SECTSW,X*4O!
IT INITAP
LA TBLREV,XR1
CLC WRIDPC+1(1),0(,X81)
JNE £49
SLC WRTDFC+1(1) ,OTE
LA. 1(,XR1),XR1
ST SAVXR1,ZR1
CLC SAVXR1(2),TELENE
BNE CKCYLI
CLI WRTDFC+1,X*FF
BNE INITAI
E PRINT
DC XL1°06"
pc IL1*27#
DC AL2 (MSG01)
B HALT
pc XL2* AOF8?
B LOAD
DC XL1*u0!
L LSTSAV,XR2
MVC 1(2,XR2) ,WRTDFC+2
SBF 1(,XR2),X'"7F
*ALC LSTSAV(2) ,TWO
P INITAJ
L ALTLST, XR2
‘SBF WRTSAV,X*7F
*CLC WRTSAV(2),1(,XR2)
INE PRTERG
ALC ALTLST(2),TWO
B INITAJ
B PRINT
re XL1"°C6
*pc IL1*us?
DC AL2 (ERROR4)
pc XL2"*AOF4!
EB HALT
DC XL2"AOFU!
B INITAB-4
CLI -RETRY,0
JE READPT
SLC RETRY (1) ,ONE
E -INITAE
B PRINT
cC - XL17*C6!
Dc IL1*42¢
DC AL2 (ERRORS)
DC XL2'AOOF!
B HALT
pc XL2"AOOF?
B INITAB-4
010CT70
571540
PART NO. 5129658
PAGE ng
TEST
JOMP
TEST
JUMP
FOR INITIALIZING ALL CYL.
IPF YES
FOR RUN OW FIXED DISK |
If , YES
LOAD TABLE ADDRESS IN XR
CHECK THIS ALEDRESS
JOSP IF NOT IN TABLE
REDUCE ADDRESS PY ONE
STEP XRi +1
STORE FOR COMPARE
CHECK FOR FINISHED
BRANCH IF NOT DONE
TEST FOR MINUS ONE
BRANCH IF ROT DONE
TO PRINT COMPLETION MESSAGE
see aa
LENG
ipsness OF LAST PRINT CHARACTER
GO TO NEXT SECTION
LOAD XR2 FROM SAVE LOCATION
FLACE ADDRESS FROM BAD TRACK IN
TURN OFF ALL SECTOR BITS
INCREMENT POINTER BY TWO.
GO STEP REQUESTEL ADDRESS
List
LOAD XR2 FROM SAVE LOCATION
TUPN OFF ALL SECTOR BITS
DOES SEEK ADDRESS EQUAL
ADDRESS FROS THF LIST?
IF NO, GO PRINT ERROR
INCREASE PCINTER BY TWO
AW
YES,
FLAGS
LENGTH ,
ADDRESS OF LAST PRINT CHARACTER
IDENTIFICATION
TC DCF HALT
HALT ID
TO TEST FOR ENTRIES
PRINT ERROR
HAVE 8 RETRIES BEEN MADE?
JUMP TO PRINT IF YES
DECREMENT RETRY COUNTER
REPEAT READ ID
TO PRINT ERROR ON READ ID
FLAGS
LENGTH
ADDRESS OF LAST PRINT CHARACTER.
MESSAGE ID
TO DCP HALT
HALT ID
TO TEST FOR ENTRIES
PROG ID
OFF5-3
PAGE 3
Oo am Oo AO
© @ 0 0
O
Oo ©
Oy Or. ey.
ay oO o
0)
)
wy
QO Cy
i)
09 00740" © © @ © 6 9 © © © @ @ @
c)
0
ey
©
Go 2
IBS BAINTEWANCE DIAGNOSTIC PROGRAR
FF53
ERR
Loc
OCE?
OCEA
OCEB
OCEL
OCF1
OCFS5
OCFB
OCFF
0D03
0D07
ODOB
ODOF
0D13
oD17
0D18
-0D19
OD1B
ODIF
0D23
OD26
OD2A
OD2E
OD2F
0D30
0D32
0D35
op3c
OD3F
OD&3
OD4&6
OD4&9
OD4D
0D50
OD54
0055
OoDS6é
0D58
opnsc
O0D62
CD66
-OD6A
. OD6E
OD6F
OD70
OD72
DATE
EC
kee gaa oT
NO.
cE
OBJECT CODE
02
00
FFFF
co 87
00
00
090
55
17
TF
00
3c 08
87
03
10
67
00
81
87
DISK
OF314
1772
1773
774
ATTA
1775
1774
4778
OF30
166D
14EC
O20A
1075
766D
occa
1773
27
4776
1D
OF30
5C
166D
oD5c
OF30
0D13
1075
166D
' ODCO
O6APR7O
571516
WIC
1777
176D
22MAY7
571513
ADDR STST
ODi7
0b18
ODIA
OD2E
OD2F
0D31
ODS4
0DS5
OD57
OD6E
OD6F
OD71
0
INITIALIZER
PART WO.
PAGE
5129658
3a
SOURCE STATEMENT
295 SESE EK EEE SEES EEEEER EES SHOES EEEKS HEE SH SS SS KEKBSHEESESEHESHESESE SEHESESEEHS ASSES
297 * THIS ROUTINE IS USED TO INITIALIZE THE CE TRACK ONLY.
*a * SELECTION OF THIS ROUTINE IS VIA OPTICN F202.
** e
300 SEKSSERERAASEKL KK SASH SELAH SSDVE $9 ERES SKIES NEES SSAHEBKHESSSESESEEFAS HPSS SSHSSESSEE
301 * ROUTINE PREFIX
302 RTNO2 Dc X¥L1*02° ROUTINE KURBER
303 pc XL1#00° NO INTERVERTION REQUIRED
304 pc XL2°* FFFF? LAST ROUTINE
305 * . &
306 SKREKREKESTANKASEKMKHKSE EKEKERSE SKKSSE SKSKRKSE ESTEE FES HSE SEKEKSTSE SAEHSERESGEOESSCEKS HOE SHES
307 XXX B INITAA SFTUP FOR INITIALIZATYOSR
308
*309 * SET INITIAL VALUES PRIOR TO BEGINNING DISK INITIALIZATION
310
*311 nYI WRTDFC, OU SET FLAG BYTE TO OO.
312 MYC WRIDFC+1 (1) , TRACK# SE: FOR CORRECT CYCLINDER NUHBER
313 BVI WRTDFC+2,00 SET HEAD AND SECTOR TC OO.
314
315 * TEST CE TRACK WITH DATA PATTERN 55
316
317 PROC? MMVI WORK,X#558 SET DATA PATTERN IN WRITE AREA
318 INIT13 AVI WRIDFC+3 ,23 SET NO. CF SECTORS TO EQUAL 28
379 SBF WRI DFC+2,X'7F! SET SECTOR BITS TO ZERO
320 NVI ERRFLG,O ZERO FLAG
321 BVI RETRY, 8 SET SEEK RETRY COUNTER
322
323 INIT14 B STRTIO TO 170 SUBROUTINE TO SEEK
324 pc XL1*00# FUNCTION CODE
325 pc XL7'00* CONTROL. CODE
326 DC AL2 (WRTDFC) CONTFOL FIELLE ADDRESS
327 B SEEKER ERROR RETURN
328
329 TBN SECTSH,X*40? TEST FOR RUNNING ON FIXED
330 3ST INIT 22 JUMP IF YES
331 MVI DISKTP,xX*08* SET FOR FIXED DISK
332 B STRTIO TO READ ID
333 pc XL1°01! FUNCTION CODE, ({ RFAD)
334 Dc XL1*O18 CONTROL CODE, (ID)
335 DC AL2 (RDDFC) CONTROL FIELD ADDRESS
336 B READER - ERROR RETURN.
337
338 CLC WRIDFC+1(1) , RDDFC+1 COMPARE ACTUAL ALDRESS WITH EXPECTED
339 JE INIT22-4 JUMP IF SEEKED TO CORRECT ADDRESS
340
341 TBF RDDFC, X*03* CHECK FOR BOTH FLAGS OFF
342 JT *+6 € IF OFF, RETRY COMMAND
343 J INIT22-4 OTHERWISE CONTINUE
344 ;
3a5 CLI RETRY,0 CFECK RETRY COUNTER
346 JE IDRR JUMP IF 8 RETRIES: HAVE BEEN MADE
347 ~
348 B STRTIO TO RECALIFPRATE
349 pc XL1*0# FUNCTION CODE, (CONTROL)
350 DC XL1°1" CONTROL CODE, (RECALIBRATE)
351 DC AL2 (WRTDFC) CONTROL FIELD ADDRESS
352. B *+4
353 é
354 SLC RETRY(1) ,ONE DECREMENT RETRY COCUNTEP
355 B INITI4Q. GO SEEK AGAIN
356 MVI . DISKTP,0 SET FOR REMOVABLE
357 INIT22 B STRTIO TO I/O SUBROUTINE TO WRITE ID.
358 De XL%*02° FUNCTION CODE é
359 pc XL1'01! CONTROL CODE
360 DC AL2 (WRTDFC) CONTROL FIELD ADDRESS
361 B ST EPCE ERROR RETURN,
362
€e xt
01A0G70 010CT70 PROG ID OFF5-3
571531 §71540 3A
PAGE
oy
oy
$e g
|
c °@ S
IBB MAINTENANCE DIAGNOSTIC PROGRAM yw PART NO. 5129658 IBS NAINTENANCE DIAGNOSTIC PROGRAK PART BO. 5129658
. | PAGE 4 GO 6 PAGE oA a
PF53 CE DISK IWNITIALIZER FF53 CE DISK IFRITIALIZER
: § G
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT
OD76 3B 7F 1774 363 SBF WRTDFC+2,X°7F? SET SECTOR BITS TO ZERO Cc 6 OEOD 39 28 176A 829 TBF STATUS-1,X*28° CHECK FOR MISSING ADDRESS #ARKER cy
OD7A 3C 17 1775 364 SVI WRTDPC+3,23 NORMAL RETURN, SET TO VERIFY. | O£11 CO 10 ODFB 430 BT S102 OR DATA CHECK
OD7E CO 87 166D 365 B STRTIO TO 1/0 SUBROUTINE. TO VERIFY. | 0£15 cO 87 O27A 431 B PRINT PRINT ‘ERROR
OD82 901 OD82 366 DC xXL1°01* FUNCTION CODE o 18g OE19 C6 OE1S 432 pc XL1°C6° OCCURRED WHILE c
0D83 03 CD83 367 pc XL1! 036 CONTROL CODE | DE1A 40 CFIA 433 Dc IL1*64? DOING A VERIFY
ODB4 1772 OD85 368 DC AL2(WRTDPC} CONTROL FIELD ADDRESS OEIB OF 27 . OEIC 438 cc AL2(SSGVRF) ON THE CE TRACK?
0D86 CO 87 ODDs 369 B STEPC1 ERROR RETURN e | e OEID ACFA GEIR 835 DC XL2"ACPA® 7
370 4 36
371 * TEST CE TRACK WITH DATA PATTERN 00. a OETF CO 87 0222 Q37 E HALT HRLT OF
372 cig OE23 AOFA OF24 438 pc XL2°aAOFA't -Pa- a
ODAA 3D 00 477A 373 CLI wWORK,00 HAVE BOTH DATA PATTERNS BEEN USED? | CE2£ 3c 00 1271 439 MVI ERCONT,X*008 RESET COUNTER
ODBE F207 73 374 SNE STEPC3 JOMP IP xo | 0£29 CO 37 0000 U4G ENDSTP B *-* RETU RN
0D91 CO &7 O21A 375 B PRINT PRINT cie 444 :
0DS95 06 0D95 376 DC XL1' 06° INITIALIZATION ; OF2D 4&42 TBLREV EQU
*0D96 1B : OD96 377 DC IL1#27° IS NOW OF2D 4B4A49KB 0E30 443 DC XLG'SBUANIYB?
0097 1797 op9e 378 rc AL2 (8SGO 1) CONPLETZ an 0831 47060504 OF34 Huy DC XL4'87060504"
375 | 0E35 0F35 OF36 445 TBILENE DC AL2(*)
0D93 CO 87 0222 380 E HALT HALT OF 446
OD9L AOFS ODSE 3871 Dc XL2°*AOFB! ~F8- < € O£37 CSDODODEDISOE6BCB8 OFES6O0 HT ERRORS DC CL&2*° ERROR WHILE READING ID, PROGRA® TEREINATED?
OD9SP CO 87 O22A 382 B LOAD LOAD NEXT SECTION : CE3SF C9D3CE4ODSC5C1Cs 447
ODA3 CO ODA3 383 Dc XL1*00* OE47 CIDSC7THOC 9C4EBYO 447
: 384 Cc #s€ OESF D7N9OL6CTDICIDY4O 447
ODAS 3c OO 177A 385 STEPC3 MVI WORK,X*OO! CHANGE PATTERN . OE57 E3CSD9DSCIDSCIE3 447
OPAE CO 87 ODO3 386 B INIT13 © , OESF cScy 847
ODAC CO 87 O21A 387 IDRR B PRINT TO PRINT READ ID ERROR Ce OE61 E3CB8C540CSC4HOD9 OESA 448 ERROR3 DC CL42'THE ID READ DOES NOT EQUAL THE ID EXPECTEL®
ODBO Cé - ODBO 388 Dc XL1°C6? PLAGS OF69 C5C1ICHSOCHDECSE2 aug
ODB1 31 ODB1 389 DC IL1"49" LENGTH - 0E71 SODSD6E340C5DBES 448
ODB2 0B&2 0DB3 «390 DC AL2 (IDERMG) _ SESSAGE ADDRESS ae OE79 CIDIHOE3ICBC540C9 4488
ODBS ADF ODBS 391 DC XL2"a0F?? MESSAGE ID 0£81 C4 8OCSE7D7C5C3E3 448
392 | OE89 CSC4 448
ODE6 CO AF 0222 393 R HALT TO DCP ERROR HALT Cle OE88 CSDIDSDESD94OCIDS OEZBA 449 ERROR DC CLU8* ERROR IN ALTERNATE TRACK ASSIGNBENT, PGM. TERM. °-
ODPA AOF9 ODBB 394 DC XL2*AOP9! HALT ID O0£93 40C1D3E3C5D9D5C1 449
ODBC CO 87 OCED 395 . E XXX RESTART ROUTINE | OESB EICS80E3D9CIC3D2 489
396 c jc OLA3 GOCIE2ZE2C9CT7DS5D4 449
396 OEAB CSDSE36B40D7C7D8 “yg
opCO CO 87 021A 397 STEPCE B PRINT PRINT * ERROR OEB3 SBYNE3CSDID“UBIO 849
ODc4’ Cb Opc& 398 rc XL1*Cc6! OCCURRED c c OFBB C5DIDSDEDSNOD6C3 CEE7T 450 BSGWID DC CLS5* ERROR OCCURRED WHILE DOING A WRITE ID CO#SAND®
opces 2D opc5 399 Dc ILi'ase WHILE DOING OEC3 CI EYDSTSCSCUUORS 850 :
ODC6 OEE?. ORC7 400 DC AL2(MSGWID) WRITE ID COMMAND* CECE C8C9D3C540C4D6C9 450
opcs acgc Opc9 401 DC XL2*a09C# Soe OED3 DSC740C14CE6D9C9 850
402 | OEDB E3C540C9C4480C3D6 850
ODCA CO 87 0222 403 B HALT HALT OF OEFE3 C¥LSC1DS5C4 850
ODCE a09C ODCF 404 DC XL2*aO9gc? -9C- gC ~ OFES8 CSD9DIDEDSEODEC3 OFOT 451 BC CL32* ERROR OCCURRED WHILE DOING A VER?
OrpO CO 87 OCED 405 P XXi RESTART ROUTINE OEFO C3 EYDIDICSCH4CES 451
406 oo OEF8 C8C9D3C540C4 DECI 451
406 7, OFOO LDSC74OCI“OESCSDY 451
807 * THIS SUBROUTINE WILL RETRY A VERIFY OFO8 CSC6EBLOCHCITE3C1 OF27 452 SSGVRF DC CL32*IFY DATA COMMAND ON THE CE TRACK*®
808 * UP TO A MAXIMUM OF TEN TIMES BEFORE : OFI0 4SOC3DED8L4ci1D5c4a 452
u09 * PRINTING AN ERROR MESSAGE Cue OF 18 SOD6D540E3C8C540 452
| #10 . OF20 C3C540F3D9C1C3D2 452
ODDS 34 OB OEF2c 411 STEPC1 ST ENDSTP+3, ARR SAVE RETURN ADDRESS ; OF28 COCO OF29 453 ALTLST DC XL2"08
OrD8 CO 87 1657 412 B SENSE SAVE Ce OF2A 0000 OF2B 454 LSTSAV DC XL2'00°
-ODDC 02 oppc 443 DC —-«. XL1°02' ‘STATUS oe OF2C 17F5 OF2D 4855 LSTADR DC AL2 (LIST)
ODD 39 28 176A aty TBF STATUS-1,X*28! CHECK FOR MISSING ADDRESS MARKER OPZ2E 0002 OF2F 456 TWO Dc XL2'02"
ODE1 F2 10 45 15 JT ENDSTP OR DATA CHECK <= ¢c OF30 00 OF30 457 RETRY DC XL1' 0?
ODES 3D 00 1271 816 CLI ERCONT, X00" CHECK COUNTER 3 458
ODES F2 01 04 417 INE *+7 458
ODEB 3C OA 1271 4318 NVI ERCONT, 10 36 459
*ODEF CO 87 166D 419 SIO1 8B STRTIO TO I/O SUBROUTINE TO VERIFY 460 * THIS SUBROUTINE WILL PRINT INSTRUCTIONS { ¢
ODP3 01 ODF3 420 DC XL1°01! FUNCTION CODE 461 * NECESSARY TO SELECT THE DESIRED DISK AND
ODF4 03 ODFH 421 | DC XL1'03° CONTROL CODE & &62 * SPINDLE THAT IS TO BE INITIALIZED.
ODFS 1772 . ODF6 422 © De AL2 (WRTDFC) CONTROL FIELD ADDRESS 463 * :
ODF? cO 87 OEODS 423 B SI03 ERROR RETURN OF31 34 08 1074 464 INITAA ST ENDSET+3, ARR SAVE RETURN ADDRESS
OPFBR OF 00 1271 176D 426 S102. SLC ERCONT(1),ONE DECREMENT COUNTER Coe OF35 3c 00 1761 465 MVI FRSTPS,O INITIALIZE SWITCH
OFO1 F2 8125 © . 4825 JZ ENOSTP CONTINUE OF39 3C OV O20A 466 MVI SECTS®#,0 ZERO SWITCH AREA
O£©O4 CO 6&7 ODEP . 826 Bo S101 TO VERIFY OF 3D 3C 00 176E 467 MvI = COUNT, 0 ZERO COUNTER
0208 CO 87 1657 427 SIC3. B SENSE SAVE crn OF41 3D 01 0A03 468 CLI CRTNO,X'O1" CHECK FOR ROUTINE 1
OEOC 02 OE0C 428 DC XL1"02° STATUS | ° OF45 F2 81 11 469 JE CONTUE JUMP IF CAME FROM ROUTINE 1
ae 2 oie . |
DATE O6APR70 22MAY70 01AUG70 010CT70 PROG ID OFFS-3 DATE O6APR70 22MAY70 01A0G70 010CT70 . - PROG ID ORO: ?
EC NO. 571516 971513 571531 571580 . PAGE — 4 ‘ EC NO.. 571516 571513 571531 5715480 - -PAGE SA
: €G : CG ae! Hee ; .
i
Ci
©®eoeoeo 02eoeeeeeees8ee ee 02eoeeeeeee@e8@e @ @
‘ab
&
*IBS MAINTENANCE DIAGNOSTIC PROGRAM
or
cy
ey ©
6
o
ERR LOC
OF48
OFaC
OF52
OFS6
or5s93
OFSD
OF63
OF67
OF6B
OP 6C
OF6D
OF 6F
OF71
OF75
OF 76
Or77
or 79
CF7D
OFTE
OF TF
OFRi
OF AS
OF87 .
OFSE
OF SF
OF92
OF96
OF9S9
OFOD
OFSE
OFOF
OFA
OFA3
OFA?
OFAS
OFAL
OFB
OFB?
OFBA
OFBE
OFCY
OFc8
OFCE
OFCF
OFD2
OF D6
OFD?
OFDB
OFDA
OFDC
OFEO
OFE2
OF E6
OFEC
OFFO
OF F3
OFFS”
OFFD
1003
1009
100F
1015
1018
DATE
EC NO.
Cc
OBJECT CODE
3¢
oc
“3c
F2
3c
oc
3c
co
42
00
E
ae
01
a4
87
31
61
38
87
10¢3
AOFO
co
01
2?
87
TOFC
co
06
248
87
1133
co
87
AOFO
c8
F2
O08
3c
C8
08
08
08
08
08
co
Fi
87
00
F2
00
00
00
00
00°
00
DI
GF6C
103D
1038
OF
OF6c
10 3D
TW38
O27A
O274A
O21A
0222.
0212
O20A
O20A
21
O21A
0222
Ors?
1075
116B
- 1075
1168
020A
O20A
21
O2TA
0222
Or s7.
16AT
1158
OA
16AC
1158
16B0
16B4
16B7.
16E4
1665
170F
O6APR70
571516.
S Kk.
1222
1220
1182
1190
1768
1765
16aC
T6AC
16AC
T6ac
T6AC
16ac
IRIT T
ADDR STHT
OFGB.
OF6C
OF6E
OF70
OFTS
OF76
OF78
OF7D
OF7TE
OF80
OF 86
OFOD
| OFOE
Orad
OFA2
OPAS
OFDE
OFD?7
OFDS
OFDB
OFE1
‘22MAY70
571513:
470
471
472
&73
47a
a75
u76
877
&78
479
480
481
482
483
484
885
‘4 BG
“8B7
468
88g
490
494
492
893
894
495
436
497
498
499
560
501
502
503
504
505
$06
507
508
509
516
511
512
513
514
ALIZER
SOURCE STATEMENT
CORTUE
MODY
SETDSK
SETRMYV
SETPXT
SETSPL
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
SETA
SEB
}
‘SETBTH
01A0G70
BVI moD1,78
“VC MOD5 (2) , HOD3
NVI 40D%,65
J e417
SVI MOD1,49
NYC MOD5 (2) , BOD2
BVI MODS, 56
B PRINT
boc XL1* 425
pc IL1?06!
pe AL2(STRTAS)
Dc XL2*aOFOQ®
B PRINT
DC XL7*O48
pc ILi* 39%
Dc AL2 (NODISK)
B PRINT
pc /KL1°068
Dc ILi? 36!
rc AL2(NOSPND)
B HALT
DBC XL2' AOFO?
R TEST
TBN SECTSW,X'80#
JT SETRE&Y
TBN SECTSW,X'40#
JT SETFXT
B PRINT
DC XLi'c6t
DC IL1# 57!
DC AL2(NODISK)
Dc XL2*AOF1
*B HALT
DC XL2‘*AOF1?
B SETDSK
NVI DISKTP,OC
MYC DSKPRT (14) ,RMDISK
J SETSPL
MVI DISKTP,X'O8?
MYC DSKPRT (14), FXDISK
TBN SECTSW,X'208
oT SETA
TBN SECTSW,X*10!
JT SETB
B PRINT
DC XL1"*C6!
Bbc ILi*55¢
De AL2 (NOSPND)
rc XL2*a0F2¢
*B HALT
pc XL2"AOF2¢
R SETDSK
ZZ LDFCR+1,SPNDLA
wVI RUNPRT-2,Ct1
*J SETSTH
NZZ LDFCR+1,S PNDLB
AVI RUNPRT-2,C'2!
BZZ LDFDR+1, LDFCR+1
NZZ SI0+1,LDFCR+1
MZZ. WAIT+1,LDFCR+#1
MZZ TSTERR+1 J LDFCR+1
MZZ SNS*1,LDFCR+1
8ZZ RLDFCR+1 , LDFCR+1
010CT70
5715480
571531
PART KO.
—-§129658
PAGE a
MODIFY
ROUTINE ONE
TO PRINT BEFORE HALT
FLAGS
LzZNGTA
SESSAGE ADDRESS
MZSSAGE ID
DISK
SELECTION
DRIVE
SELECTION
TO DCP HALT
HALT ID
GO READ CONSOLE SWITCHES
TEST FOR REMOVABLE DISK SELECT
YES, SET TO RUN REMOVABLE DISK
TEST FOR FIXED DISK SELECT
YES, SET. TO RUN FIXED DISK
NO DISK SELECT
PLAGS
LENGTH
ADDRESS OF LAST PRINT CHARACTER
MESSAGE IDENTIFICATION
TO DCP HALT
HALT ID
LOOP TO ENTER AGAIN
SET TO RUN ON REMOVABLE DISK
SET PRINT FIELD FOR REMOVABLE DISK
PROCEED
SET TO RUN ON FIXED DISK
SET PRINT FIELD FOR FIXED DISK
IS SWITCH 12 ON ?
YES, SET TO RUN SPINDLE A
IS SWITCH 13 ON ?
YES, SET TO RUN SPINDLE 8.
NO SPINDLE SELECT
FLAGS
LENGTH
ADDRESS OF LAST PRINT CHARACTER
MESSAGE IDENTIFICATION :
TO DCP HALT
HALT ID
LOOP TO ENTER AGAIN
' SET TO RUN ON SPINDLE A.
SET PRINT FIELD FOR DISK paiye. 1
PROCEED
SET FOR SPINDLE B.
SET PRINT FIELD FOR DISK DRIVE 2
SET
SET
SET.
SET
SET
SET
FGR
FOR
FOR
FOR
FOR
FOR
CURRENT
CURRENT
CURRENT
CURRENT
CURRENT
CURRENT
SPINDLE
SPINDLE
SPINDLE
SPINDLE
SPINDLE
SPINDLE
_ PROG ID OFFS-3
PAGE 5
o
°
Cc
©
©
.
oO
©
O © GO of) 8
>
e fy ey " C ee
€)
9 ©
ao oO ef a 8. @ @ @ 8 ©
oO 8 OB © ©
6
C>
cy
€)
OO
G
IBA MAINTENANCE DIAGNOSTIC PROGRAM
PF53
ERR LOC
1021
1027
1028
102F
1032
1036
103A
1038
103C
103F
10480
1044
1085
1046
1048
1OaC
1048F
1053
1054
1055
1057
10SB
105r
1061
1062
1066
106A
106D
1071
1075
1076
107E
1086
108F
1093
1098
10A3
10AB
1083
10BB
103
10C4
10CC
10D4
10DC
10E4
10FC
10F4
10F8
10FD
1105
110D
1115
274D
1125
112C
1134
113¢
1164
114C
1154
115¢
-115E
1166
116C
‘DATE
a se RES ee OA
PART NO. 5129658
PAGE SA ¢3
cE DISK INITIALIZER
' i
OBJECT CODE ADDR STMT SOURCE STATESENT y
08 00 1713 16aC (538 MZZ RSIO¢1 ,LDFCR¢1 SET FOR CURRENT SPINDLE 93
3C G6 10488 539 BVI HOD6,X*06!
39 08 O20R 540 TBP SWITCH ,X*O08* IP SSW 18 IS OW,
P2 10 048 541 aT *47 SETUP FOR EXTRA %
3C 02 1044 542 AVI “0D6,X*02° WARNING MESSAGE
CO 87 O21A 543 B PRINT TO PRINTCOT OPERATOR SETUP
42 1O3R 545 DC XL17*y28 FLAGS %
CG 1035 545 wob4a BC IL1*00? LENGTH
0000 103D 546 MODS pc AL2 (*-*) ADDRESS OF LAST PRIST CHARACTER
AOF3 103F 547 DC XL2*aOF3¢ oa
CO 87 O27~A 548 B PRINT PRINT .
00 1044 549 NODG rc XL1*00* CAUTION
3 1045 550 pc IL1*62? MESSAGE
11CE 1067 551 DC AL2(SGCAT)
39 O08 O20A (552 TBF SWITCH ,x'08* IP SSW 1a
F2 10 08 553 IT *+11 IS OX,
CO 87 O21A 554 B PRINT PRINT *ALL
06 1053 555 PC XxL1*06* TRACKS
50 1054 556 DC IL1* 80? WILL BE
1212 1056 557 pc AL2 (NSGALL) INITIALIZED?
*CO 87 0222 55e B HALT TO DCP HALT
AOF3 105c 559 DC XL2*a0Pr3* HALT ID
560
CO 87 1657 561 E SENSE . TO SENSE SUBROUTINE
02 1061 S62. DC XL1"°902"* ASK FOR DEVICE STATUS BYTES G & 1,
3c CB 177C 563 BVI TRACK#,203 SET FOR FULL CAPACITY DISK
38 08 1768 564 IBN STATUS ,X*08* TEST FOR 1/2 CAPACITY DISK
F2 90 O48 565 JP ENDSET IF OFF GC TO END
3c 67 177C 566 - SSVI TRACKS, 103, SET FOR 1/2 CAPACITY DISK
cO 87 0000 567 ENDSET B +--+ RETURN TC ROUTINE
568
568
00 1075 569 DISKTP pC XL1200°
C6D6D940C 3CS40E3 1092 570 DC CL29'FOR CE TRACK INITIALIZATION, ’
D9IC1C3D240C9D5CI9 570
E3CICID3ICIESCIE3 570
CIDEDS6B4D 570
E2CSEZHOE2ZE6C9E3 10C3 571 STRTMS DC CLU9*SET SWITCHES TO SELECT DISK SURFACE AND DRIVE wO.°
*C3C8C5 F24 0E3 D640 - +571
E2C5D3C5C3E340C48 571
CIEZD240E2ZEU DICE 571
C1C3C540C 1D5C 440 571
CADICIFSC5XOD5D6 571
uB 571
D5D640C4C9F2D240 10F7 572 pc CL52*NO DISK SELECTED, ENTER 10 POR REMOVABLE, OR 117 FoR
*F2C5D3C5C3E3C5C8 572 :
€B40C5SDSE3SC5D9ORNO 572
FIFOSOC6DEDI“ODE S72
CSDSD6E5C1C2D3C5 572
6B40D6DISOP1F 140 572
C6D6D940 572
C6OC9ETCSCY 10FC 573 RODISK DC CL5*FIXED?
DSD640C4HD9CIESCS 112B 5748 rc CL4U7'*NO DRIVE SELECTED, ENTER 12 FOR DRIVE 1, 13 FOR
*4OF2C5D3C5C3E3C5 574
C4 6B4OC5DSE3C5D9 574
4OFIF2R0C6D6D94N0 574 -
C&D9CSE5SC54 0F16B 574
HOFIF340C6DED9 574
KOC4DICSESCS4OF2 1133 575 WOSPND DC CLO8* DRIVE 2* i
D7D9DECTDICIDSSO 115D 576 RUNPRT DC CLU2"PROGRAM WILL NOW INITIALIZE DISK DRIVE x,
*E6C9D3D340D5D6E6 576.
YOCODSCIE3CIC1ID3 576 2
CIESCSYOCUCSE2D2 576
KOCK DICIESCS4OET 576
6B 40 576
4O40404040804040 1168 577 DSKPRT DC CL14a¢ ‘
4D4ORONOR OND 577
.60C3CS4GE3D9C1C3 1174 578 CEIRK DC CL9"-CE TRACK
*O6APR70 22MAY70 01A0G70 0 10cT70 PROG ID OF FS-
57 15 16 571513 571531, 571540 PAGE SA
*
“=
e'o 9
| as 3
o'@ | | 9
IBM MAINTENANCE DIAGNOSTIC PROGRAR PART HO. 5129658 IBS MAINTERANCE DIAGNOSTIC PROGRAS PART WO. 5129658
PAGE 6 e@ @ - . PAGE 6a oO
PP53 cE DISK INITIALIZER e eae cE DISK IBWIFIALIZER
: . S
EPR LOC OBJECT CODE ACDR STMT SOURCE STATEMENT ZRR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT
4 . {
1174 p2 | 578 . ee 623 * AN ERROR WAS ENCOUNTERED DURING A WRITE ID OR, Qo
1175 DICSDSDGES5CIC2D3 1182 579 RSDISK DC CLIS*RENOVABLE DISK! 624 * A MISSING ADDRESS MARKER, O8
“VITIE CSHCCUCIEID2 579 | 625 * DATA CHECK WAS DETECTED DURING A VERIFY CATA OPERATION
1183 CHCSETCSCYHOCUCS 1190 580 PEDISK DC CL1S8* FIXED DISK ‘ e:'°9@e 626 *. THE NEXT AVAILABLE ALTERNATE TRACK WILL BE ASSIGRED 8
118B F2D200404040 580 627 * FOR USE IN PLACE OF THE DEFECTIVE TRACK AND THE DEFECTIVE
1191 CICTEVE3IC9DEDS60 1183 581 DC CL35*CAUTION--THIS PROGRAM WILL DESTROY * 628 * TRACK WILL BE FLAGGED TO PREVENT SUBSEQUENT USE
1199 €0F3CBCIE260D7D9 581 S | ) 629 : a
11A1 D6C7DIC1IDSUOE6CS 581 630 * DETERMINE IF DEFECTIVE TRACK IS AM ALTERNATE
V1A9 DILIGOCUCSE2E3DS 581 ive 631
11B1 D6EBUO 5814 eo 86 1272 38 08 1396 632 STEP12 ST ST12EX4+3, ARR SAVE EXIT ADDRESS. oe
1134 CIDID3ISOD7IDICSES 11CE 582 MSGCAT DC CL27*ALL PREVIOUSLY WRITTEN DATA® | 1276 35 02 1846 633 L TABADR ,XR2 LCAD ADDRESS OF ALT. CYL. TABLE. }
11BC CODGESE2ZDIEBY OES 582 127A 34 02 1771 634 ST BUFPR1,XR2 SAVE IN BUPPER. |
11C4 EYECIEZEICSDSHOCH 582 os 127£ 35 02 1771 635 ST12A L BUFPR1,XR2 LOAD XR2 FROM THIS BUFFER. 2
11CC C1E3C1 582 1282 8D 00 00 1773 636 CLC 0(1,XR2),WRTDFC41 COMPARE CURRENT CYLINDER.
JICF FICSDSE2ZCSSDE2E6 11F9 583 DC CLUZ*SENSE SWITCH 14 IS ON--ALL TRACKS INCLUDING® ; 1287 cO 81 1451 637 BE ST12E DEFECTIVE TRACK 33 AN ALTERWATE.
11D7 CIEIC3CB8UOFIFURD - §83 o:8e 128B OD 01 1771 14a8 638 CLC BUFFR1(2) ,BUFPR2 TEST FOR FINISHED COMPARING. cP
11DF C9E240D6D56060C1 _ §83 1297 F2 81 Oa 639 JE ST12B YES.
J1E7 D3ID34HOEIDICIC 3D2 583 129% OF 01 1771 176D 640 SLC BUFFR1(2) ,ONE NO, REDUCE COUNT.
TIEF EF2G0C9L5C3D3E4C4u 583 GS 6&6 129A CO 87 1272 641 B ST12A AND REPEAT.
11F7 C9DS5C7 583 682
JIFA 4OCID3C9C7D5D4C5 121E Sek NSGALL DC CL37* ALIGNMENT TRACKS WILL BE INITIALIZED' 129E 0c 03 1898 1775 643 ST12B MVC WRTSAV(4) ,WRTDPC+3 SAVE PARAMETERS FRCH INITIALIZATION
1202 DSE340E3ID9ICIC3D2 584 . Oo 6 12A4 3c 07 1773 644 BVI WRIDFC+1,01 SET CYLINDER NUMBER TO 01.
120A EF240E6C9D3D340C2 588 12a8 3c 00 1778 645 NVI «s- WRTDPC+2,00 SET HEAD AND SECTOR TO 00.
1212 C540C9D5C9E3C9C1 584 646
121A L3ICIEICSCH 584 Cc ¢€ 12AC OC 03 149F 1775 647 ST12C MVC ALTSAV (4), WRTDFC#+3 SAVE ADDRESS OF ALTERNATE TRACK
121F 1168 1220 585 mOb2 nC AL 2 (DSKPRT) 12B2 CO &7 166D 648 B STRTIO TO I/O SUBROUTINE TO SEEK
1221 1174 1222 586 HOD3 DC AL2(CETRR) | » 689% eee ace |
587 Cc G 12B6 00 1286 650 DC XL1* 00° FUNCTION CODE
587 12B7 00 12B7 651 Dc XL1*00° CONTROL CODE
587 12B8 1772 12B9 652 Dc AL2 (WRTDFC) CONTROL FIELD ADDRESS —
586 * AN ERROR WAS ENCOUNTERED DURING A VERIFY DATA OPERATION, Cc 12BA CO 87 14EC 653 B SEEKER ERROR RETURN
589 * THE DEVICE STATUS WILL BE ANALYZED AND THE OPERATION 654
590 * MAY BE REPEATED TEN TIMES. . : 12BE CO 87 166D 655 B STRTIO TO I/O SUBROUTINE TO READ ID
591 e ¢ 656 * OX ALTERNATE TRACK
1223 34 08 126P 592 STEP10 ST S10EXT+3, ARR SAVE EXIT ADDRESS 12C2 01 12C2 657 ve XL1°01! FUNCTION CODE
1227 CO 87 1657 593. B SENSE TO SENSE SUBROUTINE . ; 12C3 01 12C3. 658 DC XL1°01° CONTROL CODE
122B 02 122B 594 DC XL1*02¢ ASK FOR DEVICE STATUS BYTES 0 + 1. ¢ ¢& 12c4 1776 12C5 659 pc AL2 (RDDFC) CONTROL FIELD ADDRESS
122c 39 28 176A 595 TBF STATUS-1,X'28* TEST FOR MISSING ADDRESS MARKER, 12C6 CO 87 12CA 660 B +4 ERROR RETURN
596 * OR DATA CHECK. 661
1230 F2 10 39 597 JT SIOEXT JOMP IF NONE OF THESE ARE OW. c 36 12CA 3D 01 1776 662 CLI RDDFC,01 DOES THE F BYTE = 01, (ASSIGNED)?
598 ae Es 12CE F2 81 DA 663 JE ST12CA YES, UPDATE TO NEXT ONE
1233 3D 00 1271. 599 CLI ERCONT, 00 TEST FOR FIRST ENTRY : 412D1 0C 03 1775 664 BVC WRIDFC+3 (4), WRTSAV RESTORE ADDRESS CF DEFECTIVE TRACK
1237 F2 01 O04 600 INE #47 JUEP IF NO . | o $3 7 665 ,
123A 3C OA 1271 601 HVI ERCONT, 10 IF YES LOAD ERROR COUNTER TO 10 12D7 cO 87 166D 666 B STRTIO TO I/O SUBROUTINE TO SEEK DEFECTIVE
602 : ted. 12DB 00 12DB 667 Dc XL1*00* FUNCTION CODE me
123E CO 87 166D 603 S10A_ B STRTIO TO I/O SUBROUTINE © 6 12DC 00 12DC 668 pc XL1"00* CONTROL CODE
1242 01 1242 604 DC XL1*01* PUNCTION CODE, (READ) 12DD 1772 12DE 669 pc AL2 (WRTDFC) CONTROL FIELD ADDRESS
1243 03 1243 605 pc XL 1903" CONTROL CODE , (VERIFY) 12DF CO 87 18EC 670 B SEEKER ‘ERROR RETORN
1284 1772 1245 606 DC AL2 (WRTDFC) CONTROL FIELD ADDRESS © 9 671
1246 CO 87 1257 607 B $10C ERROR RETURN 12E3 0C 02 1775 149F 672 HVC WRITDFC+3 (3) ,ALTSAV PLACE ADDRESS OF ALTERNATE IW DFC
124A OF CO 1271 °176D 608 S10B SLC ERCONT(1),ONE SUBTRACT ONE FROM COUNTER 12E9 3c 02 1772 673 BVI WRIDFC,O2 ~ SET FLAG TO 02, (DEFECTIVE) ws
1250 F2 81 19 609 JZ S10EXxT TO EXIT IF 10TH TIAE oe Ss '42ED 3B 7F 1778 674 SBF WRIDFC+2,X‘'7F* TURN OFF ALL SECTOR BITS ‘ed
1253.C0 87 123£ 610 B S10a OTHERRBISE LOOP AGAIN 12F1 3C 17 «1775 675 BVI WRTDFC+3, 23 SET TO WRITE ONE TRACK wo
6911. 676
1257 CO 87 1657 612 S10C 28 ~= SENSE TO SENSE SUBROUTINE e 9s 12F5 CO 87 166D 677 B STRTIO TO I/O SUBROUTINE TO WRITE ID OR os
125B 02 125B 613 Dc -XL1°02# “ASK FOR DEVICE STATUS BYTES 0 ¢ 1 678 * DEFECTIVE TRACK
125C 39 28 176A 614 TBF STATUS-—1,X'28° TEST FOR MISSING ADDRESS MARKER, 12F9 02 12F9 . 679 pc XL1*02° FONCTION CODE a
615 © OR DATA CHECK. o os 12FA 01 12FA 680 pc XL1°01* CONTROL CODE ]
1260 CO 10 124A 616 ET S10B BRANCH IF NONE OF THESE ARE O8 12FB 1772 12FC 681 BC AL 2 (WRTDFC) CONTROL FIELD ADDRESS
1264 CO 87 1272 617 B STEP 12 AT LEAST ONE WAS ON, GO ASSGB 12FC CO 87 1301 682 B +4 ERROR RETORR
618 AN ALTERNATE TRACK 6 Ss 683
1268 3c 00 1271 — 619 — MVI ERCORT,0O0 ZERO ERROR COUNTER 1301 CO 87 166D 688 B ST RTIO TO I/O SUBROUTINE TO READ ID
126C CO 87 0000 620 S10EXT B- *-* EXIT oA 1305 01 1305 685 DC XL1*01* PUNCTION CODE — =
1270 0000 1271 621 ERCOKT DC XL2" 00° 6 ¢e@ 1306 01 1306 686 DC XL17*O1* CONTROL CODE iG
3 1307 1776 1308 687 DC AL2 (RDDFC) CONTROL FIELD ADDRESS
1309 CO 87 1397 . 688. B . $12D ERROR RETURN ow oi
Co 9d 639 . . 7 :
130D 0c 03 1775 1489F 690 MVC = WRTDFC+3 (4) ,ALTSAY SET DPCR TO ADDRESS OF ALTERNATE TK.
| : : .
DATE. | 06APR70 22MAY70 O1AUG70 -010CT70 PROG ID _OFFS-3 i DATE O06 APR70 22MAY70 01AUG70 010CT70 PROG ID Orrs-3
EC NO. 571516 571513 571531 571580 | PAGE 6 Ly a EC NO. 571516 571513 571531 571540 PAGE 6A a
&.@. €
See sc : . ©
,
ry
en
IBA MAINTENANCE DIAGNOSTIC PROGEAS
cz DISK
FFS3
ALIZER
SOURCE STATEMEST
IsgitrTtyr
ERR LOC OBJECT CODE ADDER STST
1313 cO 87 166D 691
1317 00 4317 692
9316 00 1318 693
4379 4772 ~~ 4372 694 —
1318 CO 87 HEC 635
V37F OC O02 1775 1898 656
$325 3¢ 01 W772 637
$329 3B TF W778 698
1320 3C 97 4775 659
$334 ¢O 87 166D 790
701 #
F335 62 41335 7O2
9336 07 1336 793
3337 3772 1338 7048
93339 CO &7 133D 765
1330 CO 87 7799 706
4347 Fase 1342 707
1383 WorE 1344 768
709
1345 38 R80 is9p 7Fi0
73489 F2 10 O09 Fi
V34c OC O48 14855 THAB 742
1352 F2 #7 06 743
91355 OC O& 1855 14B0 71a
715
135B CO 87 17995 716
135P 199) 1360 717
1361 4873 1362 718
719
1363 38 80 1498 720
1367 FP2 10 09 721
136A OC OW TU7TR TURB 722
4370 723
3373 724
725
1379 726
137D 01 137D 727
1372 25 1372 728
TI7TF IW6A 1380 729
730
1381 CO 87 O21aA 731
J3Af5 06 4385 732
4356 2D 1386 733
V387 1897 1368 734
735
T3R9 OC O03 31775 1898 ~ 736
V3RF 3C FF 1778 7137
1393 co 87 ©G000 738 STI2ZEX
739
1397 CO B87 O21A 740 $12D
139B c6 1398 741
139C 34 139C 742
139P Tuas 139E 7&3.
139F AOF6 1320 744
13A7 CO R7 0222 745
1T3A5 AOF6E 13A6 786
13A7 CO 87 OA11 7u7
748
V3AE OC 03 1775 149F 7&9 STT2CA
1381 38 80 17748 750
1385 F2 10 08 751
1388 3a 80 1774 752
138C CO A7 42AC 753 -
13c0 38 80 1774 758 ST12CB
13C& OF 00 1773 176D 755
13CA 3D O08 1773 756
13CE CO 01 12aAC 757
13D2 CO 87 O2TA 758
DATE 06 APR70 22M AY70 O1AUG70
EC NO. 571516 571513 571531
TBR
HVC
AVC
Dc
TBN
Mvc
RVC
BVC
SBF
010CT70
5715480
STRTIO
XL1*00°
*XL1°00°
AL2(WRTDFC)
SEEK ER
WRTDFC+3 (3), #RTSAV
WRIDFC ,07
WRIDPC+2,X'7F
*WRIDFC?3 23
STRTIO
XL7? 02!
XLIt or!
AL2 (ARTDFC}
Re &
CYD
AL2 (WRTS AY-2)
L2(DEFECT- 28)
BRTSAV-1,X*80!
*+ 42
DEFECT-21(5) ,OPPER
*+ 9
DEFECT-21 (5), LOWER
CYD
AL2(ALTS AV-2)
AL2 (ALTPRT-36)
ALTSAV-1,X"80"~
+412
ALTPRT-29 (5) , UPPER
*49
ALTPRT-29(5) , LOWER
XL1°01°
IL1* 37°
AL2 (DEFECT)
XL1°06!
IL1'a5e
AL2(ALTPRT)
WRTDFC+3(4), WRTSAY
ERRFLG ,X*FF?
*-
*XxL1°C6
*Ini'52
*AL2(*RRORS)
XL2'AOF6
*HALT
XL2"AO0F6
*INITAB-4
WRIDFC+3 (4) , ALTSAV
WRTDFC+2,X'80?
ST12CB
WRTDFC+2,X*60"
ST12C
WRTDFC+2,X*80!
WRIDFC+1 (1), ONE
WRIDFC+1, 04.
ST12C
PART NO.
5129658
PAGE q
TO I/O SOBROUTINE TO SEEK ALT. TK.
FONCTION CODE
CONTROL CODE
CONTROL FIELD ADDRESS
ERROR RETURN
PLACE ADDRESS OF DEFECT. TK. I8 DFC
SET FLAG BYTE = O01, { ASSIGHED}).
TURN OFF ALL SECTOR BITS
SET TO WRITE ORE TRACK
TO L/0 SUBROUTINE TO WRITE ID OF
ALTERNATE TRACK
FUNCTION CODE
CONTROL CODE
CONT POL FIELE ALQDRESS
ERROR RETURN
TO CONVERT DEFECTIVE CYLINDER EC.
ADDRESS OF SOURCE
ADDRESS OF DESTINATION
TEST FOR TRACK 1 BIT OR
JUNP IF OW
SET "UPPER!
PROCEED
SET ‘LOWER' IN MESSAGE
IN MESSAGE
TO CONVERT ALTERNATE CYLINDER HO.
ADDRESS OF SOURCE
ADDRESS OF DESTINATION
TEST FOR TRACK 1 BIT OR
JUMP OF OR
SET "OPPER®
PROCEED
SET *LOWER'
IN MESSAGE
IN MESSAGE
‘TO PRINT DEFECTIVE TRACK ADDRESS
FLAGS
LENGTH
ADDRESS OF LAST PRINT CHARACTER
TO PRINT ALTERNATE TRACK ADDRESS
FLAGS
LENGTH
ADDRESS OF LAST PRINT CHARACTER
RESTORE ORIGINAL PARAMETERS
SET ERROR FLAG
EXIT
TO PRINT MSG.
-PFLAGS
LENG TH
ADDRESS OF LAST PRINT CHARACTER
MESSAGE IDENTIFICATION
TO DCP HALT
HALT ID
TO TEST FOR ENTRIES
PLACE ADDR.
IS TRACK #1
JUMP IF YES
SET ON IF IT WAS OFF.
GO SEEK NEXT ADDRESS
TURN OFF TRACK #1 BIT
ADD ONE TO CYLINDER NUMBER
HAS CYLINDER VALUE REACHED 4&?
NO, GO SEEK NEXT ADDRESS
YES, NO ALTERNATE TRACKS LEPT
OF ALT TK. IB PIELD
BIT ON?
PROG ID OFFS5-3
PAGE 7
© 8 © @ @ @
6
oOo Oo A
oe GB ©
Oo 9d
ie)
an
oO oO FA
oe oe Aa
09 9 OO Oo
© 6® 8® 8® ® 6® © © % ®
€®
oO
Q e 9
i
i
IBM MAINTEMANCE DIAGHOSTIC PROGRAR
PART WO. 51259658
PAGE 7a
PP53 cE DISK IRITIALIZER
ERR LOC OBJECT CODE ADDR STAT SOURCE STATERERT
13D6 Cé 13D6 759 pC XL1°C6¢ FLAGS
33D7 2c 13D7 760 Dc TLitgge LENGTH
13D8 1674 13D9 761 DC AL2(ERROR2) ADDRESS OF LAST PRIMT CHARACTER
V3DA aB0F5 13DB 762 DC XL2°*aOFS* MESSAGE IDENTIFICATION
13DC CO 87 0222 763 B BALT TO DCP HALT
13E0 KOFS 13251 768 pc XUZ*aAOFS* HALT ID
13E2 CO 87 OARW1 765 B INITAB-& TO TEST FOR EXTRIES
766
I3E6 DSDESOCID3E3C5D9 1441 767 ERRORZ DC CLS4"*NO ALTERNATE TRACKS LEPT, PROGRAM TERAINETES®
V3EE DSCIE3ICS40E3D9Ci1 767
13F6 CIDZE26OD3IC5céE 767
13FE 6BYOD7DSDEC7TDSCI 767
1406 DU4OE3CSD9DACSDS 767
WOOF CIE3ICS5CE 767
1412 CSLIDIDEDSHOESCE 1445 7668 ERRORS DC CLS2"*ERROR WHILE READING ID ON DEFECTIVE TK. DROGRAR TERNS
VH1A COD3CSLOD9ICSCICE 768
1822 CIDSC7THOCICHHODE 768
142A DSUOCECS5CEC5C3E3 768
1432 CSESCSHOE3D24B4a0 768
1&3AR DIDOLECTDICIDYYO 768
14482 B3C5D9DA 768
1446 EXSD9CICSD24OETE7T 146A 769 DEFECT DC CL37*TRACK XXX, XXXXX SURFACE IS DEPECTIVE®
1WAE EVEBSLETETETVETET 769
1456 WOEZE4D9C6C1C32C5 769
1Q5E VOCIE2NOCUC5C6CS 769
1866 C3E3C9ESCS 769
146B EILICIC3D24OE7E7 1497 770 ALIPRT DC CLUS'*TRACK XXK, XXXXX SURFACE IS NOW THE ALTERFATE®
1873 EVEBSOETETETETET 770
187B SOEZE4D9C6C1C3C5 770
1483 YOC9E24ODSD6E640 770
THBP F3C8C540C 1D3IE3C5 770
1493 D9D5C1E3C5 770
1498 00000000 148B 771 WRISAV DC XL4*00t
149C O0CO00009 149P 772 ALTSAV DC XL4U*008
ISAO 070203 74A2 773 TABL12 DC X¥L3*010203' TABLE OF ALTERNATE CYLINDFSS
1QA3 T4UA0 14A4 774 BUFFR2 DC AL2 (TABL12-2)
TBAS 1422 1486 775 TABADR DC AL2(TABL12)
TGR? EQLTDICSDY 14AB 776 UPPER DC CLS* UPPERS
18AC DIDEEBCSDYO 1480 777 LOWER DC CL5*LOWER®
778
14B1 3C 01 1772 779 STI2ZE BVI WRTDFC,01 SET FLAG TO INDICATE A DEFECTIVE TK.
18ES CO 87 166D 780 B STRTIO TO I/O SUBROUTINE TO WRITE ID OR
781 * ALTERNATE THACK
14B9 02 16B9 782 DC XL1*02¢ FUKCTION CODE
14BA 01 10BA 783 DC XL1¢018 CGOKTROL CODE
WWPB 1772 14BC 784 DC AL2(WRTDFC) CONTROL FIELD ADDRESS
T4BC CO 87 14C1 785 B +4 ERROR RETURN
18C1 3C 00 1772 786 MVI WRTDPC,0 SET FLAG BACK TO NORMAL
198c5 CO 87 1799 787 B CVD TO CONVERT DEFECTIVE CYLINDER BO.
1ucd 1773 tUCA 6788 DC AL2 (WETDPC#1) ADDRESS OF SOURCE
14CB 184F 14cc «46789 PC AL2(DEFECT- 28) ADDRESS OF DESTINATIOR
790
IUCr OC O08 1455 1480 791 MYC DEFECT-21(5) ,LOWER SET "LOWER*® IM MESSAGE
1453 38 BC 149A 792 TBN WRTSAV-1,X°80! TEST FOR TRACK 1 BIT CW
16D7 F2 10 06 793 JT #49 JUMP IP OR
18PaA OC O48 1855 18AB 79% RVC DEFECT-21(5) ,UPPER SET *UPPER® IN MESSAGE
795
18P0 CO 87 021a 796 B PRINT . TO PRINT DEPECTIVE TRACK ADDRESS
1BEL O01 1wES 6797 ¢ DC XL1°018 PLAGS
WES 25 1UE5 798 pc IL 1°37? LENS TH
14E6 196A 14E7 799 DC AL2 (DEFECT) ADDRESS OF LAST PRINT CHARACTER
18E8 CO 87 138P 800 gf STIZEX-8
DATE O6APR70 22m AY70 01A0670 010CT70 FROG ID OFFS- 3
EC NO. 571516 571513 571531 571540 PAGE 7A
eee ®@
x °
@
re
J
me]
s v 2 sees arg a Qo
t ele °
IBM MAINTENANCE DIAGNOSTIC PROGRAS PART NO. 5129658 IBM MAINTEWANCE DIAGNOSTIC PROGRAS PART BO. 5129658 |
te: PAGE 8 eo eo PAGE 8a
PPS3 cE DISK INITIALIZER o| FFS3 cE DISK INITIALIZER °
. ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT © ERR LOC OBJECT CODE ADDR STAT SOURCE STATESERT cee
5. 802 * AN EPROR WAS ENCOUNTERED WHILE SEEKING, SC 6 1599 CO 81 OCED 870 BE XXX IS PRESENTLY EXECUTING 9
803 * THE DEVICE STATUS WILL BE EXAMINED AND 159D CO 87 0A11 871 E INITAB-4
804 CERTAIN RETRY PROCEEDURES WILL BE DOSED ; | 872
Cc 805 * IN AN ATTEMPT TO ELIMINATE THE FAILURE. GS @ 1541 34 08 15D0 873 RESEEK ST EXTS AV, ARR SAVE RETORW ADDRESS. Qa
| 806 15a5 CO 87 166D 874 B STRTIO TO 1/0 SUBROUTINE TO RECALIBRATE
14EC 34 08 1582 807 SEEKER ST SEKEXT+3, ARR SAVE RETURN ADDRESS 1549 00 1589 875 DC 8s XL7*00" PUNCTION CODE
c 14FO 3c 00 15D1 808 AVI CHKRTY,00 ZERO SWITCH CG @e6 1SAAa 01 15AA 876 pc XL1*°07° CONTROL CODE 9
1WWF& CO 87 1657 809 8 SENSE TO SENSE SUBROUTINE 15AB 1772 15AC B77 DC AL2 (WRTDFC) CONTROL FIELD ADDRESS
TUFB 02 18F8 810 DC XL1702? ASK FOR DEVICE STATUS BYTES 0 & 1%. 15aD CO 87 15B1 878 B +8 -ERBOR RETURN
3 811 o ¢6 15B1 CO 87 166D 879 B STRTIO TC 1/0 SUBROUTIKE TO SEEK 9
14F9 38 10 176A 812 TBN = STATUS-1,X* 10° IS EQUIPMENT CEECK BIT ON? 1585 00 15B5 880 pC —sa&KL1*00" PUNCTION CODE |
T4PD F2 10 2A 813 ST EQUC HK JUMP IF YES 1586 00 15B6 881 pc XL1*00* CONTROL CODE .
1500 38 40 176A 814 TBN STATUS-1,X*40! IS INTERVENTION REQUIRED ON? c ¢6 15B7 1772 15B8 882 DC AL2 (@RTDFC) CONTROL FIELD ADDRESS 3
1504 F2 10 4E 815 ST INV REQ JUMP IF YES 15B9 CO 87 15C1 883 B EXITER ERROR REIURN
1507 38 01 176A 816 TBN STATUS-1,X'01" IS SEEK CHECK ON? 15BD CO 87 15C8 884 B EXITOK CK RETURN 7
. 150B F2 10 63 817 oT SEEK CK JUMP IP YES Cc ¢ 885 2
150E CO 87 O21A 818 B PRINT NO, PRINT ERROR 15C1 35 02 15D0 886 EXITER L EXTSAV,XR2 LOAD XR2 WITH RETORE ADDRESS
1512 C6 1512 819 DC XL1°C6! PLAGS 15C5 £0 87 CO £87 B. 0 (,XR2) ERROR EXIT 7
; 1513 13 1513 820 pc IL1*198 LENGTH Cc ¢6 15C8 35 02 15D0 888 EXITOK L EXTSAV, KR2 LOAD XR2 WITH RFTUR® ADDRESS . 3
1594 15E4 1515 821 DC AL2 (ERRORA) ADDRESS OF LAST PRINT CHARACTER 15cc £0 87 08 889 B 8(,XR2) GOOD EXIT Sa a
1516 A009 1517 822 DC XL2*A009# MESSAGE IDENTIFICATION 890 ee :
1518 CO 87 0222 823 B HALT TO DCP HALT G @ 1SCF o¢o0 15D0 891 EXTSAV DC xL2*00" &
151¢ A009 151D 828 DC XL2*a009* HALT ID 15D1 00 . 15D1 892 CHERTY DC XL1 "00°
151E CO 87 15A1 825 B RE SEEK TO REISSUE SEEK. ISD2 CSDIDSDEDIVOEECS 15E4 893 ERRORA DC CL19"ERROR WHILE SFEKING® =
: 1522 CO 87 t4F8 826 B SEEKER+8 REPEAT Co eg ISDA C9L3C580E2C5C5D2 893 o
1526 CO 87 157P 827 B SEKE XT TO EXIT. 15£2 C9D5C7 893 -
828 15ES CSDBEXCIDTDSC5DS 1604 894 ERROR6 DC CL32*EQUIPMENT CHECK OWN WHILE SEEKING® °
152A 3D FF 15D1 829 EQUCHK CLI CHKRTY,X*FF? TEST RETRY FLAG @ 15ED E3S0C3CB8C5C3D240 8948 Is
152E F2 81 10 830 JE CHKPRT IF SET GO PRINT 15F5 B6L540 F6C8C9D3IC5 894
1531 3¢ FF 15p1 831 MVI CHKRTY,X*FF? IF ZERO, SET. ISPD 40E2C5¢5D2C9D5C7 g9a 4
1535 CO 87 15A1 832 B RESEEK TO REISSUE SEEK Sc ¢ 1605 CODSE3CSD9FSC5D5 1624 895 ERROR? DC CL32*INTERVENTION REQUIRED ON CE DISK* ne
1539 CO 87 14F4 833 B SEEKER+8 REPEAT — 160D E3C9D6ED540D9CSDS 895
153D CO 87 157F 834 B SEKEXT TO EXIT 1615 ESCODICSCURODEDS 895 7
— 835 Cc 6 161D 40C3C540C4C9E2D2 895 =
1541 CO 87 O27~ . 836 CHKPRT B PRINT PRINT EQUIPMENT CHECK ERROR 1625 C3D6DSE3CIDSCSDE 1656 896 ERRORS DC CLSO*CONTINEOUS ERRORS ON RECAL AND SEEK, PROGRAM TERR.
*15485 C6 1545 837 Dc XL1°C6*. FLAGS a - 162D EXE240C5D9DIDEDI 896 | 2
1546 20 1546 838 BC IL 1* 32: LENGTH c¢ ¢6 (1635 E240D6 D540D9C5C3 896 &
15487 16048 1548 839 DC AL2 (ERROR6) ADDRESS OF LAST PRINT CHARACTER» 163D C1D340C1D5C440E2 896
1546 AOF7 153A 840 Cc XL2*a0F7* MESSAGE IDENTIFICATION 1645 C5C5D26B40D7D9D6 896 “:
154B CO 87 0222 841 “Bo «HALT TO DCP HALT GC h6¢ 164D C7D9C1D44S0E3C5D9 896 2
154F AOFT 1550 842 DC XL2*AOF7! HALT ID 1655 Deus 896
1551 CO 87 1535 843 B EQUCHK+11 REPEAT ss
; Buy : g . e sie
1555 CO 87 027A 845 INVREQ FE PRIBST PRINT INTERVENTION RECUIRED
1859 C6 1559 846 DC =—_s«-xXL1°C6" FLAGS fa
155A 20 155A 847 le TL 1° 328 LENG TH © @e6 A
155B 1624 155¢ 848 DC AL2 (ERROR7) ADDRESS. CF LAST PRINT CHARACTER . € ,
155D AOFE 155E 849 DC =—-« XL2" AOFE®* MESSAGE IDENTIFICATION ies
155F CO 87 0222 850 B HALT TO DCP HALT GS ¢ o
1563 AOFE | 1564 851 DC sd XL2 *AOPE®* HALT ID |
1565 CO 87 15A~1 852 B RESEEK TO REISSUE SEEK. Ze
1569 CO 87 14F4 853 B SEEKER¢8 REPEAT © «@ oe
156D CO 87 157F 854 B SEX 2XT TO EXIT
855 :
1571 O£ 00 15D1 176D 856 SEEKCK ALC CHKRTY(1),ONE INCREMENT ERROR COUNTER SC Co 2
1577 CO 87 15A1 857 - 8B RESEEK ‘ATTEMPT A RETRY :
157B CO 87 1583 858 B SEKRTY ERROR RETURN ae |
157F CO 87 0000 859 SEREXT B +-* EXIT Cie . ; 3
: 860 : | |
1583 3D 98 15D1 861 SEKRTY CLI CHKRTY,08 CHECK RETRY COUNTER .
1587 CO 82 1571 862 EL SEEKCK REPEAT IF LESS THAW 8. cae 2
158B CO 87 021A 863 B PRINT PRINT ERROR . |
158F C6 158P 864 BC XL1'°C6! FLAGS a
1590 32 1590 865 DC IL1*50° LENGTH 0 6 3
1591 1656 1592 866 DC AL 2 (ERRORS) ADDRESS OF LAST PRINT CHARACTER | .
1593 AOEF 1598 867° pc XL2*AOEF* _ MESSAGE IDENTIFICATION * ‘a
. 868 : 8 Ge 2
1595 3D 02 0Aa03 869 CLI CRTNO,X*02* DETERMINE WHICH ROUTISE a
DATE QO6APR70 = 22HAY70 = =—--01AUG70 G10 T70 PROG ID OFFS-3 DATE O6APR70 22MA¥70 01ADG70 0 10CT70 PROG ID OFFS-3 eat
EC NO. 571516 = 571513 571531 371580 PAGE 8 EC NO. 571516 571513 571531 ‘571540 | PAGE | bs oO
; Se } | ae) | ey Pag | G;
9 2o
ore: eos ees oe vedling. “f
ua | _ IBS SAINTENAGCE DIAGHOSTIC PROSRAN : : PART BO. (5129658
6 93 | > a ; ae = PAGE a
_ PPS | ce PISK FRITIALIZER J °° Frs3 fcr DISK THITTALIZER
<@RR LOC OBJECT CODE ADDR STAT SOURCE STATESENT ERR LOC OBJECT CODE ADDER STHT SOURCE SiaTrHET
: 898 * _ SENSE ‘Yo ‘SUBROUTINE oe ¢ 7 : 966 as .
= 899 a 1738 3a 04 1774 967 FUDSEK SBN URTDFC+2,01 SET BIT ON FOR FORWARD SFEK
1657 38 08 166C¢ 900 SERSE ST §SRSXH2,AaRR SAVE. ADDRESS RECALL REGISTER. 1738 0c 00 17SE 1773. 968 BVC = SCRCH (1) ,WRTDFCe1 PLACE WES ADDR. IW WORKAREA cs
6SB 35 O2 166C 901 - L SNSXB2, XR2 LOAD XR2 WITH VALUE FROA ape. eo s VW73E OF OO I75E 17682 969 SLC SCRCH (1) , LASTAD _ SUBTRACT LAST ADDR. ee NEW ADDR.
I65F 28 03 1665 00 902 SEK SHS*1,0(,XR2)} MOVE I” FUNCTION CODE. ey 17488 £2 87 07 970. 3 SETADB PROCEED
¥6% 30 00 1768 963 SWS SkS STATUS,X*00* SERSE 10 ; 971
]. 96668 £0 27 01” 908 2 2€,XR2) | exIr oe 06 1787 3c 00 1775 972 SOSEEK SVJ &URTDFC+3,00 SET WUNBER OF TRACKS CROSSED
i 7668 0000 166C 905 SNSZR2 DC XL2*9° . - poe 1788 F2.87 6c. 973 J AaBRExt TO ExIT
me 906 : ; , ; 978
907 « START 170 SUBROUTINE e 6. WIRE OC 00 1775 175E 975 SEIAPB SYC ¥RTDFC+3(2) ,SCRCH PLACE IW HUMBER OF TRACKS CROSSED
; 908 2 ' ak 1752 OC 00 1762 1773 976 BVC LASTAD(1) ,WETDPC+1 SAVE WEW ADDRESS.
(%66D 34 06 1760 909 STRTIO ST $$ SETZR2, ARB SAVE ADDRESS RECALL REGISTER. | 2758 CO 87 90000 977 ADREZT 8B + 2xIT
4677 35 02 1760 ST0_ L - SETER2, XR2 LOAD XR2 WITH VALUE FROF ane. © ,9 175E 00 1752 978 SCRCH DC XL1°90
*“3467S 28.03 1684 00 911 MR = $T044,0(, 282) | SET FUKCTION CODE T7SF coo0 1760 979. SETXR2 DC X1L2* 008
167— 2C OD 1685 01 942. ave | SI.0+2.(1} 3. E82) SET CORTROL CODE If SIO | 1767 60 1761 980 PRETPS DC XL1*°00"
3O7F. 2C OY 1767 03 913 AVC) = BFE R( 2) , 30, 2 RZ) SET CONTROL FIELD ADDRESS ois 1762 00 3762 981 LASTAD DC XL1*00°
$688 OC 00 1763 1775 a1 SVC DFC3SV (1) ,wRTDFC?3 SAVE 1763 00 1763 .982 DFE3SV DC XL7°00"
"$662 BD 60 00 915 CLI 04, XR2) ,00 i: - TEST FOR SEEK 983
468D CO 81 16E9 916 BE SETADR es I? YES, GO SET ADDRESS e:¢ 00a2 988 BUSY FOB x*a2®
4691 36 08 1075 917 TaN DISKTP,x*OB* TEST FOR RUN ON LOWER DISK , | GOAO 985 WTEDY FOU x*a~O
*1695 F210 O83 918 3T SETFIX JUMP IF YES i O0A6 966 CTLRES FOU x*a6
*~. 4698 3B 08 1685 919 SBP SIO0#1,%° 08° SET FOR REMOVABLE DISK eis . 987
= + 169C 3B O08 1713 920 SBF RSI0+41,2°08* SET FOR REMOVABLE DISK 1768 a0 1768 988 SPEDLA DC XL7* Ao?
1620 F2 87 08 921 a LDFCR | PROCEED 1765 BO 1765 989 SPRDLB DC XL1* 50°
2 1603 34 08 1684 922 SETFIX SBN SIO+1, "08" SET FOR FIXED DISK © |s 1766 1772 1767 990 DPCR ovDc AL2 (ERIDFC)
" 16a7 3A O08 1713 923 SBN RSTO+1,x°08* SET FOR FIXED DISK 1768 W77A 1769 991 DFDR xc AL2 (WORK)
cs 16AB 31 A6 1767 924 LDFCR LIO DFCE,CTLREG LGAD CONTROL REGISTER i 1764 6000 1768 992 STATUS DC XL2"90* STATUS FROM LAST SEKSE
m 16AF 31 aa 1769 925 LDFDR LIO DFDR,X*AG* “LOAD DATA REGISTER ¢ #9: 176C 0001 176D 993 ONE pc XLZ* 01°
Ss 1683 F3 AO 00 926 SIC SIO x*"00*,x*a0e ‘START I/O OPERATION: pe 176E 00 1762 998 COUNT DC x1L1°00°
16B6 C1 A2 1636 927 WAIT TIO *, BUSY @AIT TILL COMPLETE | VI6F 05 176F 995 FIVE DC X1L1°05
*16BA BD 00 00 928 CLI 0(,XR2),0 WAS THIS A SEEK ac ¢ 1770 GO000 1771 996 BUFFR1 DC XL2*00°
AGB CO 01 16E3 929 BNE ‘TSTERR BRAKCH IF WO i 397
-16C1 OC OO 1775 1763 930 HVC) 8=—- BRIDFC+3 (1) ,DPC3SV RESTORE 998 * DOLPHIN WRITE CONTROL FIELD
t 1607 38 01 1776 931 SBF WRTDPC+2,01 SET FOR/REV BIT OFF Go ¢ 1772 00 1772 999 WRIDFC DC XL7"00° ‘FLAG BYTE
16CB 3D 00 1752 932 CLI SCRCH,O TEST FOR SEEK MOVESENT 1773 00 1773 1000 DC XE1*00* CYLINDER 0-202
https://archive.org/stream/bitsavers_ibmsystem3_47662652/ .46CF P2 81°11 933 JE TSTERR JUMP IF NONE 1778 00 1778 1001 DC XL1*00° HEAD & SECTOR
, -96D2 CO 87 1657 934 DELAY1 B SENSE TO SENSE 2c @ 1775 00 1775 1002 DC XL1°00* SECTOR CCUNT
16D6 02 16D6 935 Dc XL1*02* ASK FOR BYTES 1 AND 2. 1776 00 1776 1003 RDDFC DC XL1*00* FLAG BYTE
16D7 38 10 1768 936 TBN STATUS,X*10* TEST FOR SEEK BUSY 1777 00 1777 1008 pc XL1*00" CYLINDER 0-202.
16DB CO 10 16D2 937 ET DELAY1 LOOP TTLL BUSY DRO Cc 3 1778 CO 1778 1005 pe XL1*90° HERD & SECTGR
16DF 35 02 1760 938 L SETXR2, XR2 RELOAD XR2 1779 00 1779 1006 pc XL1*°00* SECTOR CCUNT
. 939 1774 00 1778 1007 BORK DC XL 1°00"
16E3 F1 AO Ou 940 TSTERR TIO 4%(,XR2) ,NTRDY BRANCH IF ERROR Cc 6 1778 00 177B 1008 ERRFLS DC XL1*0°
16£6 EO 87 08 981 B 8(,XR2) EXIT 177¢ 00 177C 1009 TRACK# DBC XL1*00°
942 177I C9ESCIE3CICID3C9 1797 1010 HSGO1 DC CL27* INITIALIZATION NOW COMPLETE
*943 © SUBROUTINE TO SET THE NUMBER OF TRACSS AND THE Oo s 4785 EIC1TE3CIDEDSAODS 1010
944 © DIRECTION (FORWARD OB REVERSE), TO SEEK 178D D6E64OC3DEDADID3 1010
9a5 : : 1795 CSE3C5 1010
t 16E9 38 08 175D 946 SETADR ST ADREXT+3, ARR SAVE EXIT ADDRESS e cs 1011
1GEL BD 01 01 987 CLI 1{ ,XR2),01 IS THIS A RECALIPRATE 2? 1012 * SUBROUTINE TO CORVERT A NUMBER TO DECIMAL.
a 16FO F2 01 08 948 INE 47 JUMP IP KO 1013
16F3 3c 00 1761 949 NVI FPSTPS,O SET SWITCH TO REQUEST RECAL. cle 1798 00 1798 1014 BXEYT DC xL1°0°
: 16F7 3D 00 1761 950 CLI ¥F©STPS,00 IS THIS FIRST PASS | 1799 36 08 176D 1015 CVD a ORE, ARR ADD ONE TO BET FIRST PARAMETER.
ee 16FB F2 01 17 951 JNE SETADA SKIP RECALIBRATE IF WO 179D 34 08 17BA 1016 ST FROR+5, ARB INSERT THE FROM ADDRESS.
e 16FE 3C 01 1761 952 NVI. FRSTPS,01 SET FIRST PASS SWITCH cia 17A1 36 08 OF2F 1017 a TWO, ARR ADD TWO TO GET THE SECOND PARASETER.
1702 3B O01 1774 953 SBF WRTDFC+2,01 SET FWD/REV BIT TO REY. I7AS 34 08 17C0 1018 ST TY BOT+5, ARP INSERT THE TO ADDRESS.
bo 1706 3c FF 1775 954 BVI «-« SRTDFC+3,255 SET NOMBER OF TRACKS CROSSED 1749 38 08 17C6 1019 ST OTORZ+5, ARR
; 170A 3C 00 1762 955 MVI LASTAD,0O SET OLD ADDR TO 0 Cc; e I7AQ 36 08 176D 1020 a ORE, ARR ADD ONE FOR EXIT ALDRESS.
170£ 31 AG 1767 956 RLDFCR LIO DFCR,CTLREG LOAD DATA CONTKOL REGISTER i 17B1 348 08 17E9 1021 ST TIXE+3, ARR STORE EXIT ADDRESS.
‘rs 1712 F3 a0 00 957 RSIO SIO 00,X*A0! SEEK REVERSE 17B5 Oc 01 17CC 0000 1022 FRCMN SVC FROBYT+5(2),%-
*EY 956 Cc 68 17EB OC 01 17DF 00CO 1023 TYEOT BYC TOBYT+3(2) ,*-
*f 1715 OD CO 1773 1762 959 SETADA CLC WRTDFC+1(1),LASTAD COMPARE NEW ADDRESS WITH LAST 17C1 0C 01 17D0 0000 1028 OTCRZ MVC ZROTO+3(2),*-
*fe I71B F2 81 29 960 JE NOSEEK EQUAL, SEEK IS ROT NFCESSARY 17C7 Oc 00 1798 0000 1025 FROBIT MVC HXBYT(1) ,#-* PUT BYTE IN WORK AREA.
| T7IE F2 84 13 961 a8 FWDS EK NEW ADDR. HIGHER, DO FORWARD SEEK Q & 17cD CH 20 9000 17F4 1026 ZRCTO ZAZ *-*(3) ,UNITS(1) ZERO THE TO AREA.
1721 3B 01 17748 962 SBF WRIDFC+*2,01 NEW ADDR. LOWER, SET BIT FOR REV. SK 17D3 OF OO 1798 17€D 1027 DECGAN SLC HXBYT(1) ,OKE DECRENENT THE HEX BYTE.
~-+ 1725 0C 00 175E 1762 963 MVC) =6SCRCH(1) ,LASTAD PLACE LAST ADDR IN WORKAREA 17D9 ¥2 82 OA 1028 JL TIXE JUMP IF BELOW 1.
f- «172B OF 00 1758 1773 964 SLC SCRCH(1) ,WRIDFC+1 SUBTRACT NEW ADDR. FROM LAST ADDR. C Oa 17DC G6 20 COCO 17za 1029 TCEYT AZ #-* (3) , DECONE( 1) INCREMENT THE DECISAL COUBT.
i 1731: F2 87 IA 965 J SETADB PROCEED V7TEZ CO 87 17D3 1030 B DECGAR
Pa Go es
| DATE OGAPR70 22mAY70 01A0G70 010CT70 PROG 1D OFFS-3 DATE O6APR70 22HA¥70 01a0G70 0 10CT70 PROG ID Orr :
* EE KO. 571516 571513 571531 571590 PAGE 9 EC NO. 571516 571513 571531 571580 PAGE
Co 9
: GC oO
“f
=
©
e |
* YBS SAINTENANCE DIAGNOSTIC PROGRAE : ‘PART HO. $129658.
z a _ 1 s PAGE - 10
a PYS3 ce DISK IWITIALIZER
“. BRR LOC OBJECT CODE ADDR STHT SOURCE STATERENT
Be 1726 CO 87 0000 1031 TIXE 8B o-* EXIT
a WEA FI : 17EA 1032 DECONE DC cL1i1
ie IWWEB FIFZP3EGFSPSF7Y6 17F4 1033 UNITS DBC €1L70*°1234567890°
ns 17F 3 P9OFO 1033
& 17P5 1036 LIST EQU «
2 VTFS 181C 1035 DS CL&O
Fe OOG6F 1036 AO EQU xX" 6F* HALT DISPLAY 0
0003 1037 #1 FOU) x*:03° HALT DISPLAY 1
Z | 0076 1038 H2 £05 x*768 HALT DISPLAY 2
re 0057 1039 H3 eOD) 830 x* 57 HALT DISELAY 3
001B 1040 HA. FOO) =x" 388 HALT DISPLAY 4&
OOSC 1041 HS EOD = x* Sc HALT DISPLay §
007D 1042 H6 FOU) =x? 7Dt HALT DISPLAY 6
0007 1083 H? EOU 07
OO7F 1044 HB EQU) =x" 7F¢ HALT DISPLAY 6
OOSF 1045 H9 . EQD. xSP HALT DISPLAY 9 |
003F 1046 HA EOD) = x*3F! HALT DISFLAY A
0079 1087 HB EQU = x#'798 HALT DISPLAY 8B
o06C 1048 AC 200 x*6ce HALT DISFLAY C
4s 0073 1089 HD FOO = xx#739 HALT DISPLAY D
re 007€ 1050 HE EQU) = xx*7C* HALT DISPLAY E
be 003C 1051 HF Foo) k* 3c" HALT DISPLAY F
; 003B 1052 HB EOD 86. x*3B HALT DISFLAY 8
0001 1053 xR1 EQU)
0002 1054 xRz £00 2
0008 1055 ARR FOU 08
020A 1056 SECISW FOU x*20a°
020A 1057 SWITCE EQD x*20a°
0212 1058 TEST EOD x*212"
0216 1059 LIXK FOU Xx*2169
O21A 1060 PRINT EQU x*21a~A
*022A 1061 LOAD EOD x*22a°
O21E 1062 UNFACK EQU x*21E
*0222 1063 HALT EQU x*2229
OA03 1064 CRINO EQU X*OA03¢
FFFP 1065 END :
{ +
f.
:
3 :
f
$
:
3. DATE 06 APR70 22m AY70 01A0G70 010CT70 PROG ID OFFS--3
j. BE No. 571516 571513 571531 571540 PAGE 10
0 06600000000 6 0 6 @
oO 9 © © Oo 9 08 08 Oo 968 9
©
o Oo
tigecMnetes
o ®@ @ o © a © © © © ©.0@ 6 8 @ @ eo @ @ @
oO ©
C
oOo 98 9 0 @
ISH SAINTEWANCE DIAGNOSTIC PROCESS
- ¥PS3
SIss0L T
ADREXT
ALTLST
ALTPRT
ALTSAYV
ARR
BUFFR1
BUFFR2
BUSY
CETRK
CHRPRT
CHERTY
CKCYL
CKCYLE
CONTUE
COUNT
CRTNO
CTLREG
cvp
CYITBL
DECGAN
DECOWE
DEFECT
DELAY1
DFCR
DFC3SV
DPDR
DISKTP
DSKPRT
ENDS ET
ENDSTP
END16
EQUC HK
ERCONT
ERRFLG
ERRORA
ERROR 2
ERROR3
ERROR
ERRORS
ERRORG
ERROR7
ERRORS
ERROR
EXITER
EX ITOK
EXISAV
FF5
PIVE
FROBYT
FROM
PRSTPS
FWDSEK
FXDISK
HA
HALT
ANFANAAAQAQ AN ww >» w» Dp pe DD pw D> pe De pe BD» pw BD De De Dw DP fs Dy pe De fee fe py De fe De fe Be De De fw Dt ee fee 7) () be De ee Be te Be pe OO) te ey te ee ie
DATE
EC xO.
cz
DIS kK TsrrTrartzrzeR
CROSS~ REFERENCE
LEN VALUE DEF REFERENCES
004 4754 0977 0946 0973
002 OF29 0453 0183* 0265 0270
085 1497 0770 0718 O722* C724 07348
008 189F 0772 0687* 6672 0690 0717 0720 0749
007 o008 1055 0411 0464 0592 0632 0807 0873 0900 0909
1018 21016 1020 1021 ;
002 1771 0996 0638* 0635 0638 d640¢
002 18A8 0778 0638 .
001 OOA2 oO9688 0927
009 #41178 0578 0586
008 1841 0836 €830
601 15D1 0892 O80R* 0829 0831* 0856* 0861
605 03812 0185 0151
005 ocs6 0239 0245
004 OFSS ou74 0&69
001 176E 059% 0125 0127* OT28¢ OR67¢
001 OA03 1064 0468. 0869
001 O0A6 0986 0924s OSSE
*004 41799 1015 0706 0716 0787
001 0883 0170 0144
006 17D3 1027 1030
001 1I7E£A 1032 1029
037 186A 076° 0708 0712* 07148* 0729 0789 0791* 0794%* 0799
008 16D2 0934 0937
002 1767 0990 0913* 0924 0956
001 1763 0982 0974 0930
002 1769 09914 0925
001 1075 0569 0069* 0098* 0331* 0356* 0507* 0510* 0917
014 1168 0577 0508* 0511 0585
008 1071 0567 O464* 0565
OC’ OF£29 O440 0817* 0815 0825
004 OAE3 0129 01248
004 152A 0829 0813 0843
002 1271 0621 0416 O418* O82U* 0439% 0599 0601* 0608* 0619
004 14778 1008 0056* 0101 0111 0320* 0737
019 15E4 C893 0821
O48 1411 0767 0761
O42 OFBA 0448 0219
O48 OEBA oO4ag 0275
052 1485 0768 0743
032 1608 0894 0839
032 1628 0895 0848
050 7656 0896 0866
J42 OE6O O847 0289
Coe 15C1 0886 0883
oo4 15C8 0888 0B 84
002 15D0 0891 0873* 0886 0888
001 O0000 0003
001 176F 6995 0127 Ps
006 17C7 1025 1022
006 1755 1022 1016
*001 1761 O9386 0465* 0949% 0950 0952
O04 1734 OS7 0961
014 #1190 os80 0511
C01 OO3F 1046
00% 0222 1063 C163 0221 0258 0277 0291 0380 0393 0403
C558 O7485 0763 0823 O841 ©O650
oc1 0079 1047
061 O0€C 1048
ect Ooo73 10689
601 o07C 1050
Cot 003c 1051
001 OO3E 1052
001 1758 14014 1025* 1027
*OG1 OCEF 1036
OC1 C003 1637
OGATRTC 22" AY7O C1AUG70 010CT70
571516 571513 571531 571540
PART #0.
5129658
PAGE 104
0946 1015 1016 107728
4
0437 0490 06503 93522
FROG IB Orrs-3
PAGE TOA
e0eu0a0n00a00ea0ee0e20e08e8eeoeeeeeeeeeeeeeeeee e888 @ @
|
a ee oye eee sae eee esate te . - en one sone a 3 #4. 49 2 “gp .
@ @ @ @ @ ® eo eo | @ @ © @ . @ re es) a ade ies Soa cee vee ee aed sate aed Nd ett |
= , of ee 2 ees & ins fh BS ae Cae: OT ao 9
Ze
|
| | are , a4 1° nr
IBM MAINTENANCE DIAGNOSTIC PROGRAM . PART NO. 5129658 IBS MAINTENANCE DIAGHOSTYC PROGRAS PART WO. 5129658 |
. | : PAGE : 11 6 | 3} a2 PAGE | Wa. ‘g
i Prs3 CE DISK INETIALIZER © ot cE DISK INWITIALIZER
CROSS-REFERENCE CROSS~ REFERENCE :
SYMBOL T LEN VALUE DEFN REFERENCES G @ SYMBOL T LEN VALUE DEPN REFERENCES _ C
H2 € 001 0076 1038 PROCED A 004 0A21 0055 0129 0136 0155
#3 C GC1 0057 1039. © @ proct a 008 OCFF 0317 &
HS Cc 001 0018 1080 PRTER4 A 00% OCBC 0272 0269
HS C 001 005C 1041 RDDFC A001 1776 1003 0073 007€ 0079 0195 0200 0202 0335 0338 0381 0659 0662 0687
H6 C001 007D 1042 © @ READER a 0C4’ occ4¥ 0281 0074 0196 0336 | ce
H7 c 0C1 0007 1043 READPT A GO0& OCDS 0286 0282 .
8 C001 OO7F 1048 RESEEK A 00% 15A1 C873 0825 0832 0852 0857
#9 C 061 O05F 1085 ea. : © @ RETRY A 001 OF30 0457 0059* 0083 0092* 0185* 0205 0213 0281 0283¢ 0321¢ 0385 035% £
IDERMG A 089 Of82 0168 0160 0390 RLEFCR A 008 170£ 0956 0537* .
IDERR A OCS OB3E 0157 ooem RSDISK A014 1182 0579 0508 Sa
IDRR A COS ODAC 9387 0346 GS @ Rsto a 003° 1712 0957 0538* 092C* 0923* £
INIT aA 604 6a00 0010 a RTNO2 A OC1 OCE9 0302 0031 a
IHITA A001 0a0D 0029 0019 * - RUNPRT A042 115D 0576 0527* 0530¢
_IWITAA A 008 0F314 O68 0088 0307 a © | @ SAVXK1 A 0C2 OB8E 0174 0149% 0150 0243 0244 £
-TNTTAB A 006 0A15- 0050 0166 0223 0279- 0293 0787 0765S 0871 SCRCH A001 1752 0978 0932 0963* 0964* 0968* 0969* 0975 :
‘THITAC A 004 0025 0056 0119 SECTSW C 001 020A 1056 0067 0141 0235 0329 0466* 0494 0896 0513 0515
IWITAD A GO8 OAIS 0061 0093 C ! @ SEEXCK A 006 1571 0856 0817 0862 c
INITAE A OCS ORBB 6192 0288 Pes | SEEKER A004 18EC 0807 0965 0190 0327 0653 0670 0695 0826 0833 0853
INITAF A 008 ODAET 0133 0102 0172 ~~ SEKEXT A 008 157PF 0859 0807* 0827 0834 0854
INITAG A 008 OARF6 0137 0138 C | © SPeRTY a 908 1583 02861 0858 .
INITAH A 006 OB8F 0179 0158 SENSE A 008 1657 09300 04812 0427 0561 0593 0612 0809 0934
INITAI A 0C6 OBAS 0188 0229 0286 . | SETA A006 OFE6 05256 0514
INITAJ A 006 0015 0225 0199 0262 0271 © | © SETADA A 006 1715 0959 0951
INITAK A 004% 0Cc80 0259 0201 | SETADB A 006 174E 0975 0965 0970
INITAL A008 0C96 0265 0203. i SETADR A 004 1629 0946 0916
INITAM A 00% OC2ZA 0230 0227 : © i @ SeTB A006 OFF3 0529 0516
INITAN A 00% OBAF 0186 0218 . oe 7 SETBTH A OC6 OFFD 0532 0528
INITAO A 00% 0CO1 0216 0206 ace SETDSK A 004 OF87 0493 0505 -0528
INITAP ACO’ OC6S 02467 0238 0236 C @ SETFIX A 008 1623 0922 0918 :
INITAQ A OCH OACY 0123 0717, * SETFXT A 004 OFBA 0510 0497
-INITBA A 006 0831 0153 0140 0182 SETPMY A 004 OFAD 6507 0495 |
INITEB A 004 CASC 0095 0068 0077 0081 C € SETSPL.A 004 OFC4 0513 0509 a a of
IwIT13 A 004% 07303 9318 0386 . SETXR2 A 002 1760 0979 0909* 0910 0938 .
INIT1& A O08 0013 0323 0355 SIO A003 16B3 0926 0533 0911* 0912* 0919* 0922%
INIT22 A 008 OD6A 0357 0330 0339 4333 © © soi a 004 ODEF 0419 0826 €
INVREQ A004 1555 0885 0815 mS 2 S102. A 006 ODFB 0424 - 0430 ,
LASTAD A001 1762 0981 0955* 0959 0963 0969 0976+ . - SI03 A 00% OF08 0427 0423 i. 7
LDFCR A 00% 16A8 0924 0526* 0529* 0532 0533 0534 0535 6536 0537 0538 0921 Cc @ = sns A 008 1664 0903 0536* 0902 £
LDFDR A 00% 16AF 0925 , 05326 : . SNSXR2 A002 166C 0905 0900* 0901.
“LINK C001 0216 1059 s SPNDLA A 001 17648 0988 0526 .
“LIST A 001 17F5 1034 0855 a C € SPNDLB A001 1765 0989 0529
- LOAD C€ 001 O22A 1061 0256 0382 st STATUS A 002 1768 0992 C414 0429 0568 0595 0614 0812 0814 0816 0903* 0936
LOWER A 005 1480 0777 0718 0724 0791 : STEPCE A O0C4 ODCO 0397 0361 ; .
LSTADR A002 OF2D 0455 0181 C © = Sstepci a 004 opps 0411 0369 : ; re
| LSTSAV A 002 OF2B 0458 0182* 0259 0262¢ STEPC3 A 00% ODA 0385 0374 » 4
MOD1 a 001 OF6C 04879 0470* 04749 : STEP 10 A 004 1223 0592 0109
, BOD2 A 002 1220 0585 0975 ; C © StTEP12 a 008 1272 0632 0099 0617
: MOD3 A O02 1222 0586 0471 STPPTR A 003 08320 0148 0146
‘004 A 001 103B 0545 0472 0476% STRTIO A004 166D 0909 | 0061 007C 0086 0095 0105 0186 9192 0208 0323 0332 0348 0357
8ODS A002 103D 0546 0471* 0975+ C'e@ 0365 0819 0603 0648 0655 0666 0677 068% 0691 0700 0780 90878.
:8OD6 A 0OT 10848 0549 0539* 0542¢ 0879:
voMSGALL A 037 121E 0588 0557. STRTMS A 049 10C3 0571 0480 .
“MSGCAT A 027 11CE 0582 0551 €C © svi2a A 008 1272 0635 0641 a i
» SSGVRF A 032 OF27 0452 0434 ST12B A 006 129E 0643 0639 ;
-OMSGWID A O45 OEE? 0450 0400 ' St12C A 006 12AaC 0647 0753 0757 .
| 8SG01 A 027 1797 1910 0252 0378. , © © ST1I2CA A 006 13AB 0749 0663 a
¢, NODISK A 005 10FC 0573 0285 0501 ST12CB A 008 13C0 0754 0751
, WOSEEK A008 1787 0972 6960 ST12E A 00% 1881 0779 0637
.MOSPND A 008 1133 0575 0489 0520 € ¢ ST12Ex 2 004 1393 0738 0632* 0800
y NTRDY C001 OOA0 0985 0940 SWITCH C 001 020A 1057 0123 0139 0233 0540 0552
p OWE A 002 176D 0993 0092 0128 0138 01487 0213 0231 0241 0283 0354 0424 0608 0640 S10A A 004 123E 0603 0610 :
L 0755 985€ 1015 1020 1027 C C sS10B 2.006 124A 0608 0616 :
| OTORZ a C06 17C1 1024 10194 $10C A 00% 1257 0612 0607
? PRINT C001 021A 1060 0157 0216 0249 0272 0286 0375 9387 0397 0431 0877 0482 0486 SI0OEXT A 00% 126C 0620 0592* 0597 0609 . a
on 0498 0517 0543 0548 0554 0726 0731 0740 0758 0796 0818 0836 © 2 $12D a 00% 1397 0740 0688 co
ed 0845 0863 TABADR A 002 14846 0775 0633
i. . Cc 36 oO
| DATE 06 APR70 224AY70 01A0G70 010CT70 PROG ID OFFS-3 DATE 06 APR70 2 2MAY70 01AUG70 010CT70 PROG ID OFPS-3
| BC NO. 6577516 571513 571531 571540° PAGE 11 EC NO. 571516 571513 571531 577540 PAGE 11a x
: oc #8 ¢
Oo ©
vw
Eee
cyte
CSS aS
gy
i
r
be
i
4
®
Eg .
wRTDFC
rPr53
SYMBOL
TABL 12
TBLEND
TBLENE
TBLREV
TEST
TIXE
TORYT
TRACK®
TSTERR
TWO
TYEOT
UNITS
UNPACK
DPPER,
WATT.
WORK.
WRTSAV
xR1
XR2
XxX
ZROTO
DATE
EC NO.
SRPn POs wy ree er erae wpe +3
c
_¢
A
A
Cc ez
LEN V
003
002
002
001
001
004
006
001
003
002
006
010
001
005
008
001
001
0048
001
001
004
006
OGAPR7
5715 16
DI
ALOE
14A2
oB8c
0£36
0E2D
0212
1726
17DC
177C
16E3
OF 2F
17BB
174
02:12
1HAB.-
16B6
VITA
1772
1898
0001
0002
OCED.
17CD
0
$s Kk
DEFN
0773
0173
0445
0682
1058
1031
1029
1009
0940
0456
1023
1033
1062
0776
0927
1007
0999
0771
1053
1054
0307
1026
22MAY70
571513
IBA MAINTENAKCE DIAGNOSTIC PROGRAM
REFERENCES
0774 O775
0150
0248
0238
04893
1021* 1028
- 10230
0153
0535"
0262
10188
1026
0179
0929
0270
0732 0722
os3ue
0055
0050
0133
0207
03126
0606
0675
*0752
09318
O1aus
0792
01448
0181
*08 86%
0928
0395
10246
0116
005 1
*0135
0211
031736
0536
0681
07544
0953
0198
0145
0182
0887
0938
ouos
O1AUG70
571531
IVITIALIZER
CROSS- REFERENCE
0312
0933
10 17
0798
0118
0052
01376
0225
*0318
0643
0690
*0755
*0954
0207
0148
0183
088 8
*0940
0870
TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY =
05634
0317
*0056
01384
0226
0319
*O64us
0694
0756
0959
0225
0148
0259
*0889
0944
0 10CT70
571580
05664
0373 0385
*0057. 0064
0145 O1N7
*0228* 0230
*0326 06338
0645* 0687
0696* 0697
*0779* 0784
0962* 0964
0266* 0267
0149
0260
0901
*0947
02359
0261
0902
0991
0076
0153
023%
0351
0652
0698
07 86
*0967
*0643
0239
0265
*0904
0089
0179¢
0239
0360
0664
0699
0788
0968
0668
0242
0267
0910%
0098
0180
*02481#
0363
*0669
070%
0877
0972
*06 S6
02482
*06 33%
0911
pce ae ERS le Ct tele Hr ware a anlalemle, Rs KT Re Cale nd me a
=e
01034
01864
0247
03644
0672¢
0736
0882
0975
0707
0243
06 34
09142
Pr
AGE
PART ¥O. .
01080
0189
0260
0368
0673
0749
0918
0976
0710
0635%
0913
PROG ID
PAGE
$129658
12
0108
0198
03114
0822
06744
0750
0$30
*0990
0736
0636
0915
OFFS-3
12
Ae hel ie tte my ee
900900000000 CH C2008 00 KC FCeFXHF0 8 C806
©
= + aetna
2 0 0 @© © 8 80 86 8 ee © © ee 8 8 ee ee 8 Fe
Qe 0 O08 Oo 9
oO
o
TES MAINTENANCE DIAGROSTIC PROGRAS
Fr53
THE CHARACTER INDICATES A BLANK COLUBR AND THE CHARACTERS D E H INDICATE WUMERIC SHIFT.
cL
T+-¥2"5< & Bu
T+-ZSE7. /1LK4D.
T+-D0 DP*EZBGBxS
T+-, ,DSC* A). #a-D
T+-uD -:-a) 4OH®
T+-_/CED.T-><0 D
T+->#5_XR 1%] TE<|
T+-2P( HL H3EBC2U
T+-OK J) 62YF 816
T+-1(B/D< _/) SEIS
_'T+#-2HCO P*1)_4-D
T+-3C>7@AC-D{ HO@
T+-3=|6 |<'HAB-@
T+-49}] EME; TOPE7NA
T+-SGE772-K*9 1)
T+-620C_"E769E1)
T+-7D 11D .-DC90H
*T+-8V} YK**BGEWS
T+-9- AII0H*® D_
T+-: S8TEE<XDE (X
T+¢-Z20 7 NCT6*GC4UC
DATE
EC NO.
06 APR70
571516
HE oD cex soa
BB?7HEJCOHDGP /1R
{ @0E67 /0Y5}
_1& P;?HABCO £7,
HRL> B7&+ A) 3E69
-D-4§ E7<P-]HDNSB.
Y4OXN 1<PREC.E1_$
< /KSE7E@B @00R
*1<1]HAG OBE7ENWAB
B-a)4az H+8 P)<B_
A( D.T-4ABB8+ (%
20H*<ELMBC2UR—~1K.
C3 P$*BGBE? /0H
#2154) Ps 30HC3C
6ay Care) 16 1<18
S0H*O$EDCE7. /07
BHDC9OH*<#*BG /,
» 1) 20H*+B @ DXD
HKM/GA-MDCT PE6) X
E0*3 1($EBUCN5> (
A8>.21°PM1) PTESC
22mMAY70
571513
a eat ee ee KU
01A0G70
571531
yer ae BE ie sien
cE DIS K InITtTrIaLtra2~aEerR
see Se
a ee en ee
OBJECT CARD LISTIRG
1) P*TO E7<a A)
” SDP) RBGC<E (A)
6) *BCEWeB 3) 208¢
” OYV+ HBB2HEE34
85 Hay D+D BB?H
GESG /OHEITD -DC
R1HCW6*XT2) PGE<X
OSG £7. /1LKOHS
GEWS J) 20H*."0a
GB:M:-A)4CO P*1)”
“
ACDQ*"1) 30 D.Z*B
$.EDMWOG2 5Y+ ba
E1SY+OH | OH*BHD
JRL
AF<BGER4S J) 20H
*N{ & P; 7HAD@SG /Y
F.&*#XYI3 /OHSYI3
P$-HAI*BGC;™ /1R
CEMCH2<XLINCRI*¥G
1)TUO) ( 8@TES<x
P1°J.6+4|E6)J.&6<P
010CT70
571540
P*%BGE+0
8) ESPsTOPE7 & 6~+1)
32732-K*9 1) 68/7
Kes 2772 R-€s1)
“682 GO< a) >E6a
EHOHABS<) ay3 4H
9OH*BADC9IOH*HD*}
DA MFJ8/IKU%.SO-
OSEDAETS /03DCE_
"C3" ps*aca:" yon
_* -BB?HEHT/ -,
-
G /YFF1; POH*BHDC
ZC2" /OONOH*BFRQ
{ OH*HDEH "*" soa
86 HH@/AD} -5) 78
(P a C3 P$*BSCIK
erdipenssubceons
"703_( -+.<BGEV
*P TUYEG, D 780H
*D2) PGE<XDE4CP6) $
DE<PxX5aPC82 PDI) X
R6) SRE ($CO=LRG6*P
PART NO.
PaGE
1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 648 CL 65 THROUGH 80
by P3;30HC3C sR
Cave) 16 )<jHa3<B
&) ASP) *BCEBSA 1)
1 a)>£67 6Y/0H
AA-8 E7<P$)RA LE
AS) POBUCS1* PRES}
"Cc peaaey Pye
W/) 3 YEE) ERP) 2H
E1s¥+sD HOH®PHD
2DB1B 68_G& P*0C
80H*BA- 5 -a,T D
0C,D-'<BG SH-"<B-
GEWSA 3) 60H8<1 &
@ AASOH*OSEHAET.
BH- @ a):0E¢( aB
euyoansabore pee
BP&R C2:-=%BG SH
G6*GHE +] £6) LI5*G
RS_V 2) 0)4T1)X
DE ¢$H2) | E6<LO2) P
1) P*-0 E7<P-CcO_
PROG ID
PAGE
12a
CL 81 THROUGH 96
GEwe 610FFS30002
208* $C<PF530003
P)}H O90FF530008
ABS8 73-FF530005
Ob<< 39<FF5 30006
seas sierpsaouey
ADLY L9OFF530008
HOH® EIQFFS30009
2 €Q $9QF?7530010
AE7E =.YFF530011
GB/D 2-&FFS30012
_E7& Q2YF?7530013
E7< =QQFFS30018
/08 32RFP530015
G /Y * MPPS30016
2°66 LL-FP530017
~=T0 K,&FF530018
T1*E OTYFFS30019
NO;< ~DaFP53002¢
GE<D 0: PP530021
OrFrs-3
12a
5129658 |
mA Oe @:
mo
“BHF?F5S 30001 |
.
i
%
Be
oa
ow
18 oe},
. OR.
*.
“4
rs
re
re
wa
ey
re ee ON
“FP53
Pee yc--
DATE.
cE
CL 1 THROUGH 16
(T4-OI64SR2 ; | EB<X
T+~*C5_L#O) PDE (S
T+-=G J ‘DSHBEI
T+-"B/OHK+H BB?A
«
-~,2DA%
T+/ 8 AEOELOH AF
oo
T+/A3F 08 B- 228
T+/B> CPS_V 0@N
T+/C ZB>LRIXGC1 AC
«P+ DUGAN,E (SREIG
T+ /E~6 1G 36<$06BC
T+/FEEIA GDA EDA
+ H+ JEN 2CXSE (AR5F-
T+ /HEIRXTOA/S @-J
4/1. 0%N 2) PIBAX
T+/HFDXDPS~HAF*B
T+ 7. AOBDNSESAETD
T¢/.@ EDP) SBGDKY
_T+/<7T0H*L *BGEWS
T+/(2*8BGD37 /1;
T+7+_C GNZ/KOOH®
T+) 1) K-08 P) 1H
DIS «K
O6APR70 ©
- £C WO. 571516 |
“IBM MAINTENANCE DIAGNOSTIC PROGRAM
InIgty.
CL 17 THROUGH 32
DE<}05 (LAS*LE6) X
NE +] HISCCINCTO*G
#OY%+)CDI$S OADCS
EP3/ ~-,2DBG /0H
-8D HH@ys /OR*EPSO
4EDOHW AETEDOH AS
6 /Y 176++6-BB?
A541 (2198 5) R
16 <SO6NCF2; E11 (P.
Dé*xv1Hc25 *x01"x
"EDA Q<|EE+) ROI
RO) J ORXLUNCDI:.
231 5_N-Q<GLUAC
AN@XZ1*EGE1EN( -
GDT# /1RP TUYE6,
MZ] HAB-@ AE7 DPS$*B
* 3) 6@YGEC <P) Ji .
A 3) 60H*LVOOCET7N
REIUMLTS EI,2D U
BP-DVEF, /OHEASS
EBCD EVL. /1H%+8
-22MA¥70
571513
B8°*XAO* I 2) PI8AxX
01A0G70
571531
ALIZER
CBJECT CARD LISTING
CL 33 THROUGH 48
OE€NCOCA] U6) XE1DC
wee we
ca- P's BCE
KHCOBDC? /OHEE-
EB ITDE" HC 10H*BHDC
TEL+-a%EG SH-a%B
BEBO’ aRVEDOH a
*GECBG /YFHAH;OH
*huax20 51 15_n, 6+.
.5) R 1<xS40CS1) |
OB<LR2;PEE+. E4aP
ASDCW2) | L& (POITC
K €*PRS>PAO_|ES<L
T6) SYE<GLYRCPH*eP
T6*GCU>I 2)PCR=L
K $@EGRV* B+K-PE?H
DAIHOH*K*TO DXG
GDXB< IK$SE7HA 3)
SOH*OSE ET. /1L
RX@BGEWS A) 208
*<ARINEH?2/00<AAJ
nvooce7#AW33"277
bia ereveravaal
7) aA
-010CT70
571580
CL 4&9 THROUGH 64
B2<XLIMCDSSXNINC
HDGE@ A) /} BBTO
60: COOH*BF-D xD} 3
40H*4/30 DGN<CIE
GceeH AENESE@OIE
JEDOH A*LEDO@A/A
BHDC308*ONOH@21)
ES4CS 9RXTOST ESUC
FO=]}E1F_ 1)PT1)¥
C8@PDESCES; | B6NC
I5*XT2*GL2; XEE<L
I8_.F2;~+E1DCD2;~
V2) $08_[Y&+$R2;}
D2) PGE<XGL2*+N5S<P
&+L4 DXG2 668B/I
° eacene
7o 4BA+0(EH
31 P) OCEL@P) +B
SC HP) JK-| HP*T_
M& OBETMNWSOAE7H
RE.C /1; REIS #35
/0 OH*BFRQ4EDO
JHSOR* BES QKEAP
PART NO.
PAGE
| CL 65 THROUGH BO
AS +PEG *XP2DCDOs}
"E68" sycayDJ}D8
" /OHEASEI<@BS SH
,D0.2/0Y@BAASC 4
$ay*iB 0, A)VIIH
D+&-BB ?HEACOBDDL
d+ -PE“HEACIXE73
' T5UCS1) JEO=( 1<X
@-A 1_$RE (XES{ $
VUCFS_V 1(X194N
I8_I 1(X19*N 96_
KEDA &<jA9+}I5_N
T1)N 1<GTO;.E5;.
NBUCTE*GCHDTI IRX
1OH*OSEDCE?. /1I
MZTEBETDS /)1T&
GEWY =A) 20H*H8<B
"E7E @E 1) SOH*OSEH
#>1) GJA®P) *BGEWS
EI#2D U<AAJ:EH?
~"SBG SH-* %BGB/D
13
CL 81 THROUGH 96
AE<< &S~FF530022
1$ 0 OL&FP530023
-a< KUFPS30024
JEWD =-<PF530025
JO0- 3-%FF530026
" JOH ) LYPF530027
"/0 02 FF5S30028
S40 8A*FF530029
VO*H SCDPF530030
aaa eaeese oon)
"sD 8CYFF530032
-Q+< ©:9FF530033
ES+tH 7S$DFF530034
L&4 = UFP530035
PCO 62<FF530036
"B7< $8*FP530037
GEW’ SC8FF530038
AETE =SBFF530039
B J* 6IYFF530080
2/00 a0<FF530081
< 1# =99FF530082
-"*BG SH-"*BGB/G NSU A&YFF530043
‘PROG ID OFFS-3
PAGE . 13
5129658
6
0 00000060606¢60806hmUCUGUmUCOOWUUCOUCOUUULUCUCUCOUCOOOCOCOCUO DO o 0 8® © 0 Oo
renee ens yrenantenanieennentnsncmaemchtseenemastineniettiatemeeetiasicm, messushamcaemeannitente nttncentmamenetatnm imran eintntinen
<LI .
0000000000000 80880088000 0 8 © & © @ @
a a caren cement! ete ei Ht ett ot then sername = Hama ne
IBN BAINTENANCE DIAGNOSTIC PROGRAS
FP53) CE
CL
1 THROUGH 16
T+767O) | T1) XNOs4
T+/33 7NCIIDCOSNC
T+/KR23I 1<PF IF]
T+/L& -&H
T+/M{ EI,2D Q<AAT
T+/NH /,FDIPUY X
T+ /OEVH* BH DC7 O8
*T+/P 4*BBEPG /OH
xijea eunaeee Go
1+ /061NC$1*PK2) P
T+/R15_N 6*PCO) {
T+/E% /)-— <o_
T+/S$XE6*1ZA)Z0:
T+ /*SBCERE5S6" &G
T+/))ETVE< a) sE6H
@maenevecree e
T+/3Q Y.
T#/-L (--PSLEHESY
THASG A3QE672--Y
ENUM #E7#=—DC" PHS
06 APR70
571516
DATE
EC NOG.
DISK
IWiTtT
CL 17 THROUGH 32
EG+ | RO*| KEUCLI*$
D1*$E0=| 194N 8'T
T2;PE8*XA0'I 9=5
CEH BY>LPSaPRa'$
NEH? /OHE KMMESB
JOHSY X /10/08
*N(*BG /,FHAQUY| #
E1THONDC?}EHH 2B
BE)C-/08 ” CHB) xX
G2) PT1) XV1) PT2) $
" 0) PDS 4.21) 1,6 (>
% AES KOAE6*CC
“OEHO_,4 < AED<
2 588 A)/1& POH
| A) sE7)2/1¥: 3)
Pty): BE
6B a?{ -POCSHEAQ
E=, /1-~LOH
*571531
ALIZER
OBJECT CARD LISTINC
CL 33 THROUGH 48
a Eucb6) $c6ecne+
- &(>B5%-80) 3 8aP
XEACX9=—K9NCS9 (X
¥1)Ua J) 20H*0SsH
GIBG@4BAOB] N4*B
M*<BGEP@*"1PJayYD
JOHSY | # /10/08
AC+7 sOYI( -NU<B
O6MCW2<XL1NCS14P
NE(XE6+*LI6*PDE (S$
R5%-R0)J S@PRSDS
PC1)57& OHDO:L-
< A)SE6<# Jas |
AF3ZOAE6D# J) 44}0
uC =PP/)3C0 PP/)
<x
6BA)_( -P:50AEa0
FH 161927] 4*~$7=|x
="7MEF} | C FR asc RA
eoe--- + +--+ --- +--+ +--+ +--+ ++ - = ---- LAST
_ 22ma¥70 01A0G70 010CT70
571513 571540
CL 49 THROUGH 68
£6) LI5*GT1*L£6) x
BS¢ |RO%]KE+=296_
FO*| EECISE (POIUC
AE7. /1LA] PSB
GEvepea PEASE,
E,pa@N4*BGEEG /1L
B'<BGEPa+ APJE67
GEWS 3) 20H*NR*B
F2) PG1) T02) +81) P
N&<| EE<LI8_.C5_P
' PART NO.
PAGE
CL 65 THROUGH 80
C6 MCW2<XLINCR ISG
: wsteey casubiee
T2<N 0){ T1)XNO3]
GEQUP? 134C EMRIK
cpesdhade spook
NOH®N~2BG /, FHAQ
"/10/0H*N-aBG
GEWa” a) 20n*HOeR
TE< | HI*1] KE (SNES
T2)PE5S>LSE<PRE) $
PAGE
on -
eeeeeeeeaoe0qegoq0cge0de0dgeae5aeeaeonseoaedseoeeoaeoe@esgeedaeoeeoese @
ae ty as vee a ad po Oe he es” ee ate ne: aod: a He are : ia ee oat Paes oes ee RO be. head = hand -
5129658
13a
CL 81 THROUGH 96
D2 3CEPFS30088
Cin & YFFS30085
BE 6LOFP5S30086
O+H *$-FF530007
TOH® K2@PF530088
LY * -~3 FFS30089
«BAN -HOPP530050
GEe- 388FF530051
H2)< KS%PPS30052
R80 4-UFF530053
UBARS (SHOSB-CEWN “c pBenc 6 ('- pocn OKAPrS30058
HDGP2D %#BAE4+0- eiencnevie ernie wea ea Peeiebes
PP?HAD*BGEVS BA PE@ 5E_H5 /)-8E. DBH* @Y<FF530056
P)LO EGHIZ/) Xa: Ch Gea arsine Leon” 5,4FF530057
saves, p)-Hicc 0 “pnpp-0" EHP*aE co” “ongrrsz00se
M23 110) 112#672) $ NE (PO9UCCS_LP4uaP 16" orarrs30059
“""gagtaOAE* ett regs gat Maney oebeectaoed
po eae oe eae 7" a pps30061
Sos "°°" 24361022701 02670*Y8FF530062
PAGE --—------------~-------------------------------
PROG ID OFrrs-3
‘43a
: oe me Ged 8 aaa wn UE pte, at hae ede Beg wo Sun OS peg rh, stoic. os ; oe :
4 im a 2 . a 2p ae 1k BBA Aaa Gee oa ;
IBM MAINTENANCE DIAGNOSTIC PROGRAS PART 20. 5129661 |
: ; PAGE : 7
*FP67 pPIrsst EDITOR ‘
ERR LOC OBJECT CODE ADDR STMT SOURCE STATENEST
2 DECK 8 ®
3 GHEE KKHSS ARRAS HLSSHKHR ST SERE SVEKSLAS SEK SS KEK KSEKESLE KL S SISEKHRESSE CERES ELIS
a # SYSTES/2 DIAGROSTIC DISK EDITOR 2
5 * . et
- 9000 6 PFGE START 0
oa00 7 ORG x*9200?
OaOG 8 EDIT E65 #
9076 9 TAR g200 16
39 SRP RKIRESEKSSESCKSSASTSVAKRGRSESSE SLA SE SRERSE KK SHS ETERS SRKEKSRLERESECSLERS /
41 ¢ SECTION PREFACE iz
CACO FRST OA04 93 DC LZ *PFO7?
OaGz2 06 OROZ 128 pc ZLiS9Ge SECTION FLAGS
CAO3 067 0A03 35 GHE pc RL *G4- RGUTIRE #0.
DKON 0000 OA05S % DC EL2Z? 00? RESERYES
CA06 OAES On0? 7 pc AL2 (EDITS ADDRESS OF PIRST ROUTIHE PREFIX
Oa0s 0000 CROS 718 DC AL2 { #-*) ADDRESS OF ERROR RECCEDING TABLE
ORCA PFOCNOD OA0Cc 19 pe XL3°F9O00G6* ,
OAOB 20 SBNFCU EQU ‘-2 R
OAOD 160060 OAOF 21 pc XL3*° 100000°
OAOE 22 SH5971 EQU #-2 Z
OA10 A0T0CO0 OAt2 23 DC XL 3*201000*
*24 =
25 REKECAEEAERATSHAKVSSCEKLE SEK ESEKS KE SKES STS SEKAKESETTEASEKRSES HESSSEESSSSERKSSELSSESTS
OA13 34 08 1EE3 26 AAOS = ST ExITa, ARR
0A17 C2 02 0AS0 27 LA READIN, IR2
OAIA 28 READAD SOU) %-1
OA1B AC SF SF 60 29 NVC ©95(96,X82) ,96(, XR2) ZERO READIN AREA 4
CATF 35 10 TFE1 30 L ENTRYA,IAR
OA23 0000 OR24 31 STATUS DC XL2* 00° ‘
0a25 0c00 OA26 32 INDXLM DC XL2 *0c00 © ;
OA27 POP1 0A28 33 NUMOWE DC CL2*07
*34 * SUBROUTINE TO SET EORKFIELD TO * FF? * £
35
OA29 34 O8 OA3B 36 SETBOK ST SETEXT+3,ARE SAVE EX1f ADDRESS
OA2D C2 O02 1851 37 LA BORK, KB2 LOAD BORKAREA ADDRESS IN XR2 ri
OA3%? SC FF FPF 38 AVI 255 (,XR2) -X* PF? SET #ZORKAREA
OAZ& AC FE FE FP 39 MYC 254 (255,XB2) .255{ -E82)
OR38 CO &7 0000 40 SETEXT B +-% BxXIT é
a1
Oa3C E2C5SD3ICSC3EIWOCR OAS2 42 STRTKS DC CL23°SELECT DISK #25 SPIBDLE®
OAGS COR2D7450C 1DSC4HO a2 4
ORNC E2L7CIDSCHDICS a2 =
OAS3 DSDEXOCUCIE2D 200 OA62 43 WODISK DC CLI6*NO DISK SELECTPED®
OASB E2CSD3C5C3£3C5C8 83
OA63 DSDASOE2DICIDSCH OATS &84& NOSPND DC CL719°8O SPIBDLE SZLECTED® é
OAGB D3CSSOF2C5D3C5C3 ag
OA73 EB3C5CH ag
OA7T6 DOD3CH OATS u5 OLD pc CL3* OLD? &
OA7TS CIDE OAT7A 86 FPIGCON DC CL2*°cot
OA7B CODT7D3 OATD 8&7 IPLC DC CL3* IPL?
OATR CIDE OATF &8 CAPCOR DC CL2°CH* €
Ga8O a9 ORG EDI##128
OA80 50 READIN EQU
*57 * THE FOLLOGING ROUTINE IS ENTERED THE PIRST TIME AN ATTEMPT IS MADE TO €
52 * READ DATA FROM CARDS OR THE KEYBOARD. THIS ROUTINE FIRST CHANGES
53 * INSTR. AAO? SO THAT IT BRANCHES TO AAOG. IF SSH 18 IS OPF THE
5% * ROUTINE BRANCHES BACK TO AAO7 ABD PROCBESES. IF SSH 14 IS O8, €
55 * ( READ IN PROS ). THE READ ROUTIBE ILS MOVED IN OVER THB
56 * CARD READ ROUTINE, AND A BRANCH BACK TO AAY 7 IS PERFORMED. THIS
57 * WHOLE ROUTINE IS DESTROYED THE FIRST TINE A READ I8 IS DONE. €
58
OA8O 3D C2 0200 59 CLI SYSTES,C*B
*OABS F2 01 26 60 INE AAO7X €
OAS7 3D £8 0235 61 CLi X*235*,x*e8* §213 ?
OASB F2 01 OA 62 JNE 1LD5203
OABE CO 87 022A 63 B LoaD
OA92 08 0ag2 64 pc XL1*O0@¢
€
DATE 22MAY70 01A0G70 010CT70 O1APR71 17NOVT1 OIMAR72 7230872 PROG ID OFF6-7
EC "0. 571513 571531 571540 571565 571604 571603 571628 PAGE 1 G
saat.
&»
*
ee
ee e@ @® 3; 8 #®
€e
TBM MAINTENANCE DIAGHOSTIC PROGRAB
PP67
ERF LOC
9293
OR95
098
OASC
cAagsD
DROP
ORAI
ORAT
OAAD
GAB
OABS
OABT
OABD
oaci
O ABO
OAEO
DATE
FC NO.
PIs «K EDIT?OR
OBJECT CODE ADDR STAT
DFFD CASS 65
P2 87 CF 66
cl @7 O228 67
C8 OAgC 6&8
DF FC OA OF. 69
38 O06 UZ0A 70
cO &O GRAD 74
Oc FE O156 WCB7 72
cO 87 TOaS 73
co 87 t746 7&8
TAIE OABG 75
OC O01 OBA ORC? 76é
CO 87 OBA? 77
QAiS OACZ 78
73
8TH OROEC OAE3 80
22 MAY7C OTAUGTO 010CTTO
571531 571580
571513
SOURCE
LD5263
RAOTE
AAGTE
ARAOS
THREBK
STATERENT
ac XL2° OPPD
*d KAOTZE
B LOgD
bec XL 1° 98
*pe XL2*DPPC®
TBN SRITCH, X*O8®
BP RAOTE
nT
3 CHE Pas
5B SEEK
BC AL 2 (8RTDFC}
MYC AAG7 #32) -ABACS
B AAC?
Be AL 2 (2308)
ORG REBDI#SSS
BC Ci8* s
OAFR71 T7NOV71
571608
571565
HSG-HERTR+96 (BSG-HEXT Rt 1) , SSE
OMAR72
571603
‘
$129661
PART HO. ;
‘ 7A ‘
*PAGE
TEST SSE 146
BETURR IF OFP
BOVE I READ ROUTIES
TO SEEK SUBROUTINE
COHTROL FIBLD ADORESS
RESTGRE ADDR OF AAQS IE BAIE PROGRAK
RETURN TO HAIN PROGRAK
12IJUN72
571628
PROG ID
PAGE
OFP6-7
1A
IBA MAINTENANCE DIAGNOSTIC PROGRAS
Pr67
DISK
ERR LOC OBJECT CODE
OARS 01
OAES CO
OAEG
OAES
OAEC
ORED
OAKEE
OAFO
OAF2
OAF6
OAFR
OAFC
0B00
0B08
0807
OBOB
OBOE
OBI2
0813
OBS
OR 16
' OB18
OBIC
OBTE
0822
0B26
OB2c
0R30
0BI2
0B37
ORVA
OBSE
ORIF
0840
OBM2
O BGs
OB48B
OEGR
OB4E
0854
0F58
0B5C
OBSD
03f1
0B65
0B68
OB6C
OBT0
DATE
EC NO.
PFFP
OATS
co 87
AQF2
co 67
08
co
00
87
57
CA
08
90
66
C2
81
22MAY7T
571813
0222
OAFS
189E
1807
O20A
O208
Va
Gia
0222
0B26
3801
1958
TTBE
1033
OA24
‘04
1033
0200
OA
0
VASP
1290
EDITOR
ADDR
. OAES .
ORES
ORE?
OAEC
OAED
OAEFP
OAF 1
Oar?
OBT2
0OB13
CBI5
OBT7
OBID
OBZE
OB 3P
OBS4
OBS3
0 Bag
OBSC
OTVAUG7TO
5715531
PART HO. 5129661
PAGE 2
STMT SOURCE STATEMENT
82 * ROUTINE PREFACE
83 nox
848 EDITA oc XL 1°08 ROUTINE WOSBER
85 DC F——s« XZL7°008 ROUTINE FLAGS
86 MINDST pC XL2° PPPF® ADDRESS OF NEXT ROUTIBE
87 ;
88 ¢
89 23
90 * OPERATING INSTRUCTIONS
*91, * : =
92 * AT THE FIRST HALT, SET THE POLLOWING SWITCHES,
*93 * s
94 & 1. SET SHITCH 10 TO RON OB THE NENOVABLE DISK -OR-
*85 * 2. SET SWITCH 11 TO RUN OB THE FIXED DISK
*G6 3. SET SWITCH *2 TO RUN OR DISK DRIVE 1 =
97 * 4. SET SWITCH 13 TO RUN ON DISK DRIVE 2
*98 * 5. SET SHITCH 14 TO USE THE AS IS8PUT. &
99 « 6. SET SHITCH 715 TO SET PROGRAM HALTS IK END SECTOR
*100
4101 SETDSK B PRINT TO PRINT BEFORE RALT
102 pec XL1°s6* PLAGS
103 BC IL1*23¢ LEEGTE ©
108 DC AL2 (STRTHS) MESSAGE ADDRESS
105 pc XL2*AOPFO® HESSAGE ID
106 B BALT TO DCP ERROR HALT
107 pc XL2*a0FO* HALT ID
108 SELDSK B . TEST GO READ CONSOLE SWITCBES
109 AVI DISKTP, 00 SET TO ROH ON REMOVABLE DISK
110 TBN SRITCH, X*80* TEST FOR REMOVABLE DISK SELECT
111 JT SETSPL YES, PROCEED
112 TBN SWITCH,X*a0? TEST POR FIXED DISK SELECT
913 IT SETFXT YES, SET TO RUN FIXED DISK
114 B PRINT NO DISK SELECT
115 pc KL i*c6* FLAGS
116 pc IL1°16¢ LERGTA
117 pc AY,2 (SODISK) ADDRESS OF LAST PRINT CHARACTER
118 BC XL2*a0F1® HESSAGE IDENTIFICATION
119 B BALT TO DCP SRROR HALT
120 pc XL2*a0F1* HALT ID
121 B SELDSK LOOP TG BETER AGAIB
122
123 SETFXT MMVI DISKTP,X*08* SET TO RUB ON PIXED DISK
124 SETSPL #82Z LDPDRe1,SPNDLR SET FOR SPINDLE A
125 TBR SWITCH,X*20° TEST POR SWITCH A OF OKLY
126 3T SETBTB YES, PROCEED
127 TBH SWITCH, X*1C? TEST FOR SHITCH B OB GELY
128 aT SETB YES, SET TO RUN SPIEDLE B.
129 B PRINT HO SPINDLE SELECT
130 pc XE 1*C6? FLAGS
131. pc IL1°19 8 LENGTA
432 DC . AL2 (NOSPHD) ADDRESS OF LAST PRINT CHARACTER
133 Cc XL2*AOF2? MESSAGE IDENTIFICATION
134 B HALT TO DCP ERROR HALT
135 pc XL2*° aAOP2° HALT ID
136 B SETSPL
137
138 SETB AZZ LDFDRt¢ 1,S PNDLB SET FOR SPINDLE B.
139 SETBTH B SETSPN TO SET SPINDLE IN I/O SUBROUTIEE
140
144 B SENSE
142 pc XL7°028 ASK FOR DEVICE STATUS BYTES 0 & 1,
183
144 NVI TRACK#, 202 SET POR FULL CAPACYTY DIS
145 TBN STATUS ,X*08* TEST FOR 1/2 CAPACXTY DISK
146 JF 47 JUMP IP NO
147 MVI TRACK#, 102 SET POR 1/2 CAPACITY DISK
148 CLI SYSTES,C*B* :
149 JE LKBD JUSP IF YES
010CT70 OTAPR71 17NOV71 O1MNAR72 1230872 PROG ID OFFO-7
5§7154a0 571565- 571604 . 571603 571628 :
PAGE 2
SOURCE STATESERT
SWITCH, X*0S¢
5129661
PART #0.
za &t
PAGE
wD fe, 13
=. IBM MAINTENANCE DIAGNOSTIC PROGRAS
€ sy | |
: aed FF67 DISK FDITOR
ERR LOC OBJECT CODE ADDR STAT
0B73 38 0% 020A 150 TBH TEST SSW 15
0877 F2 10 03 151 3T BRALT JOSP TQ SET HALT
OBVTA F2 87 tO 152 3 EDITAA
~~ OB7TD 153 LKBD £EQD ¢&
OB7D 3C 78 Ic9S 154 BHALT AVX #HLT1¢1,¥°78°
*OB81 3C OC IC9A 155 AYI H8LT1¢2,x°0C
*OB85 3C 78 1CB8 156 MYX #8LTAe1,2%°78°
0889 3c 5a icBC 157 HVYI HALTA¢2,xX°58°
158
OB8D 0&8 3) TAN9 OR27 459 EDITAA ZAZ SBEOQNO(4),DZERO(1)
160 * Z2ZRO FLAG FOR DCP
OB93 OF 1P 1AR6E 1R52F 161 SLC ENDIPL(ENDIPL¢&~SAVID), ENDIPL
162 * ZERG PROGRAR ID LOCATIONS
163 * ZERO SECTOR COUNTER
164 2 ZERO DATA BODSLE SBITCH (DATSS}
. 165 ¢ ZERO PIECE SSITCH
166
OB99 3C 80 4454 167 NVI SYSPLG,C*
*OB9D 3C FF 1AB1 168 NVI LASTHO,E*FF?
OBA? CO 87 OABO 769 AAOF 8B READ1S TRE PIRST TINE THIS INSTRUCTION IS
170 * EXECUTED, If BRANCHES TO A TEP.
. 171 * PROGRAB IN THE READIN BREA. THIS
172 * PROGRAS MODIFIES THIS T3STROCTICN
sd 173 * TO BRAECH TO LABEL AAOB ABD
. : 174 * EVENTUALLY RETURSS TC DO THIS
175 * INSTROCTION AGAIN.
ts 176
< - OBAS OD 5P OADF OAEO 177 CLC READIW+95(96) ,READIN+96 CHECK FOR BLASK RECORD
OBAB CO 81 OBA1 178 bE ABO7 IF BLAWK THEN READ NEXT CARD
: 179 * NOW TEST CARD READ FOR COFTEOL INFORHATION
€ - 180
OPAF BL 5B 00 181 CLI O0(,XR2),C*$* DOES COLUAN 1 COWTAIB A $?
oe 6 CBB2 F2 81 37 182 JE ADDTST BRANCH IF YES
. ~ ORBS BD 61 00 183 CLI O(,XR2),c*/* DOES COLUSS 1 CONTAIN A SLASH?
OBBS P2 014 OD 184 JBE FLAGS JUNP IP HO
B OFBB BD S50 01 185 CLI 1(,%82),C'6* DOES COLUBW 2 CCHTAIN A & ?
g « OFBE CC 81 0216 186 BE LIEK IF YES EXIT PROGRAS
OBC2 BD SC 01 187 CLI ¥(,XR2) ,C*** DOES COLUAN 2 CONTAIN A * 7
2 OBCS F2 AT 1A 188 JE PAUSE TO PROGRAB HALT IF YES
€ ve - OBC8 39 FF 1876 189 FLAGS TBF RONFLG,X*PF
*OSCC F2 90 7D 190 oF FLAaGS1
» OBCF CO 87 021A 191 8B PRIET HO, PRIET ERROR.
€ “ OBD3 C6 OBD3 192 pc EL1°C6? FLAGS
COBDS 16 OBD&’ 193 pc IL7*768 LENGTH
” OBDS 1AC7 OBD6 194 Dc AL 2 @ERROR1} ADDRESS OF LAST PRINT CHARACTER.
€ OBD? AOEO OBDS 195 pc XL2°ROEO* ABSSAGE IDENTIFICATION
OBDS CO 87 0222 196 B HALT TO DCP ERROR HALT
: OBDD aAOEO OBDE 197 DC XL2*AOEO® HALT ID
€ $ OBDF F2 87 SP 4198 3 BARO?7
199
OBE2 CO 87 0222 200 PAUSE B HALT TO DCP ERROR HALT
€ 3 OBE6 ACE? @BE7 201 DC XL 2°A0E1® HALT ID
OBE CO 87 OBBD 202 B EDITAA RESTART PROGRAS
203
€ 3 OBFC 2048 ADDTST FOOD
OBEC 3C 00 1A76 205 AVI $RUBFLG,O
OBFO BD Ci 01 206 CLI 1(,XR2) ,C*a®
¢ OBF3 F2 81 UF 207 JE SETADD
OBF6 RD DY 01 208 Cir 1(,XR2} ,C*R®
OBF9 CO 81 1177 209 BE BEPPGH Iv YES, GO TO THE REP CARD ROUTINE
¢ 3 OBFD 8D 07 02 OA7A 2130 CLC 2(2,XR2},PIGCOW DO COLUANS 2-7 = CONFIG?
OcO2 CO BY 12~A5 2179 BE PIGDCP IF YRS, GO TO CONFIGURE ROUTINE
. 0C06 BD 01 02 1AA9 212 CLC 2(2,XR2),DELCO# DO COLUSNS 2-% =DEL?
g a OcOB CO 81 15Fa 213 BE DELETE IF YES GO TO DELETE ROUTINE.
OCOF BD D3 07 218 CLI 1(,XR2),C*L®
0C12 CO 81 1648 215 BE LIST IF YES DO A LIST.
€ 3 - 0C16 8D 01 02 OATF 216 CLC 2(2,XR2),CMPCON CH P?
0c1B CO 81 1337 217 BE comp
¢ 3
LATE 22mAY70. 01A0G70 010CT70 O1APR71 47NOV71 O1NAR72 123 9%72 PROG ID OPF6-7
< is EC NO. 571513 571531 5715480. 571565 571604 571628 PAGE 2a
a é
€e
~ =
+ Dagan oe Vane ta aera eee’ pee anne iin incre seinen pe then
Pe Bie siya : Av ana cone“ oan at i esi ico Reset tesa Serial aS Bane ne Sn “ote ag enti at ine? nai Sp ct. whl a dena as *ceftame ak We A s al |
198 marerzuance: pIaGNOSTIC PROGRAS mr Ho. ee IBA MAINTERAWCE DIAGHOSTIC wanda es eax? #0. st2s6e2
e668 6
atc2 sta HIGH OR BFQUAL a0c2 SCAM HIGH OR EBEQDAL
ERR LOC OBJECT CODE ADDR STHT SOURCE STATEREST @ O _ EfR Loc ossect coDE ADDR STHT SOURCE STATESERT o
218 * ROUTINE 80. O2, TEST SETTING OF THE SCAB FOURD ® OD7D F2 81 10 282 3E RTR2C2 PROCEED IF OX.
215 » CORDITION & BRABCHING O# A TIO * o 98 OD80 CO 87 021A 283 B PRIBT fO PRINT SECTOR COUNTER BOT STEPPED +)
216 * USING THE SCAN HIGH OR EQUAL CONAAED e Opes C6 opes «6288 DC ZL1°C6! FLAGS
217 « WITH AW EQUAL CONDITION * DD8S 2B epe5 «285 pc IL7°43! LERGTH .
; bd 218 an) OD86 OETF OD87 «286 DC AL2 (ERR02 8) RESSAGE ADDRESS o
OCE1 02 8CE1 219 RTH2 DC XL1°O2° LIUTINE BURBER opss a073 opss 287 pc XL2*2073° RESSAGE IDENTIFICATIONS
Oc£2 00 OCE2 220 BC ZL1°OO* ROUTINE FLAGS ODBA CO 87 6222 288 -: HALT TO DCP HALT A
OCE3 OE80 oces 224 pe AL2 (RTH3) ADDRESS OF SEXT ROUTINE PREPIX &$ @ ODBE A073 ODSF 269. pc 1L2*a073¢ HALT ID
222 290
OCES 3p OG OB09 223 CLI SETS#,6 HAVE PARABETERS BEEW ZWTERED? 0D90 3D 00 1995 291 RTH2C2 CLI ERTDFC+2,0 CHECK HEAD & SECTOR BO. AYTER 6
OCE9 cO 84 OAOD 224 . BE SETDSK BRAECH IF #6 2 e@ 292 * SCAN IS COMPLETED
OCED CO 87 0867 225 RTH2A B TSTSPE 0D98 F2 81 10 293 JE BTW2D PROCEED IP OK
OCcF1 3C OO 1993 226 BVI 8RTDPC+2,0 SET FOR HEAD OG, TRACK 0 0D97 CD 87 0212 298 B PRINT TO PRIST ZRROE C
OCPS CO 87 1828 227 B S EEKCE TO SEEK THE CE TRACK 6 8 0D9B C6 OD9B «295 DC XL1°C6! PLAGS “I
228 ODSC 43 Opec 296 pc IL1°67* LENGTE
OcFS CO 87 4788p 229 RTNZA1 8B TSTSEK TO CHECK POR A GOOD SEEK OD9D 1478 OD9E 297 DC AL2 (ERBRO2D) RESSAGE ADDRESS ;
230 @ 6 OD9P A074 ODAC 298 DC -XL2°A074" HESSAGE IDEWTIPICATION G
OCPD 3c 00 1256 237 RTH2B BVI 8ORK+255,0 SET WRITE FIELD ODA1 CO 87 0222 299 B HALT TO UCP HALT
Ob01 OC FE 1£55 1£56 232 HVC YORK+254 (255) , BORK4255 °° ODAS aG74 CDaAG 300 Dc XL2*a078* SALT ID O
233 : 367
OD07 3C 12 1879 238 HVI SWSID,X*12* PUT HESSAGE ID IM PRINT ODA? C2 02 1D57 302 BTR2D LA WORK, XB2 SET XR2 TO POINT TO WORK AREA
OD0B 3C 00 199¢ 235 BVI «6G RTDFC4+3,0 SET TO BRITE OWE SECTOR ODAB. BD 00 00 303 RTN2F CLI 6(,%82},0 CHECK WORK AREA POR BO CHANGE
236 @ 0 ODAB F2 01 1% 304 JHE RTB2E JUMP TO PRINT IP SCH. PLD. IS CEG. Q
OpOF OC O01 I1BOE 49BD 237 BYC DFDE(2) ,WORKAD SET WRITE DATA ADDRESS ODB1 E2 02 901 305 LA 1(,XR2) , £82 BOT DONE, INCREAEWT ER2
238 ODES 34 02 19BB 306 ST SESXR2,X22 @O CHG, SET TO CHECK EXT BYTE
0915 CO 67 19D3 239 B STRTIO TO I/O SUBROUTINE o G6 ODB8 OD 01 19BB 1904 307 CLC S¥NSXR2(2) ,WORK2 CHECK XR2 FOR BREACHED UPPER LIRIT. 3
0D19 02 0D19 290 pc XL1*02* FUNCTION CODE (WRITE) ODBE F2 81 14 308 JE RTH2G TO ROUTINE ERD.
ODIA 00 ODA 281 pc xL1°00° CONTROL COSE (DATA) Opc1 CO 87 OpaB 309 B RTK2P CHECK BEXT BYTE ©
Opis 1999 OpDic 282 pc AL2 (WRTDFC) CONTROL FIELD ADDRESS e@°¢8e 240
ODID cO 87 0D29 283 B RTE 2Bi GOOD RETURN opcS CO 87 621A - 311 BTN2E B PRINT TO PRINT SCAM PIELD GAS CHANGED
9D2% CO 87 0D25 244 B +4 opcs cé6 Opcd 312 pc XL1°C6° PLAGS o
0D25 cO 87 ODDS 285 B ZRTER2 ZEROR RETORP & eo ODCA 8&6 ODCA 312 pc IL1*6u° LENGTH
246 ODCcB 1838 Opcc 318 pc AL2 (ERRO2C) BESSAGE ADDRESS
0029 3¢ 72 1579. 247 RTN2B1 SVI SWSID,xX*72° PUT ID IW PRINT opcD 4075 ODCE 315 pC XL2*a075° BESSAGE IDENTIFICATION 0
OD2D 3c OO 199C¢ 288 BVI 8ETDFC#3,0 SET TO SCAN HIGH OR EQUAL OF 6 0 ODCP CO 87 0222 316 B BALT TO DCP HALT
289 * ONZE SECTOR ODD3 3075 Opps 317 pc XL2*A075° HALY ID
250 ODDS CO 87 OCED 318 RTH2G B BTH2A ;
6D31 CO 87 129D3 251 8 STRTIO TO SCAR ZQUAL eo 6 OpDS 3c 12 1B79 339 WRTER2 AVI SHSID,X*72° PUT ID IB PRIRT
0D35 03 0D35 252 pc XL1°03° PUNCTICH CODE (SCAR) ODDD CO 87 1852 320 B PRTSHS TO PRIET STATUS ERRORS
0D36 02 0D36 «253 pC XL1°02° CONTROL CODE (HIGH OR EQUAL) CDE1 CO 87 O21A 321 B PRINT TO PRINT URITZ ERROR °
0D37 1999 0p38 258 pc PL2 (WETDFC) CONTROL FIELD ADDRESS o @G ODES C6 ODES 322 pc XL1*C6! YLAGS
0D39 CO 87 0D69 255 B RIN2B2 RETORN POR WO SCAN FOUND ODE6 BA ODE6 323 pc ILi¢7a¢ LENGTH
OD3D cO 87 0079 256 B RTW2C1 RETURN FOR SCAN FOUND ODz7 14acS ODES 328 pe AL2 (ENRO2E) ESSAGE ADDRESS 0
257 ec 0° ODES £012 ODEA 325 pc XL2*a012° ESSAGE ID
0p81 co 87 198 258 RTH2C OB SHI?T TO SHIPT BITS FOR DECIMAL MURBER ODEB CO 87 0222 326 B HALT TO DCP ERROR HALT
0045 1999 ODs6 «6259 pc AL2 (@RTDFC) ADDRESS OF SOURCE ODEF a012 ODFO 327 pc XL2°a012? HALT ID °
0D47 CO 87 1CE9 260 B cvD TO CONVERT TO DECISAL NUMBER 8 °o OpF1 CO 87 OCED 326 ] RTN2A
Opss icDD Opsc 261 pc AL2 (CYLHO) ADDR2SS OP SOURCE 329 os
ODSD 0258 ODSE 262 pc AL2 (ERRO2a) ADDRESS OF DESTINATION ODFS E3CBCSS8OD7DICSES 0£28 330 pc CLS2*THE PREVIOUS ERRORS WERE PRESENT AFTER DOING A SCA 6
ODSF 3c 80 0£52 263 aYI ZRRO2A~2,C® * SET A BLAVK IM PRINT IMAGE 8 06 ODPD CIDSEVE280C5D9D9 330
0D53 cO 87 1852 268 B PETSES TO PRINT SENSE IFO. OZ0S DEDSEZ4OE6CSDSC5 330
0D57 CO 87 021A 265 B FRINT TC PRINT THIRD LINE OFOD 8ODTDICSE2CSDSE3 330 ~~
ODSB 06 ODSB 266 pc XL1°06* YLAGS 6 Oo O£1S &OCICEEICSD9NOCS 330 V
ODSC 60 Opsc §=267 DC IL1°96% LENGTH . O£1D DECIDSC780C150E2 330
ODSD 0858 ODSE 268 Dc AL2 (ZRRO2A) SESSAGE ADDRESS 0225 C3CIDSRO 330 : Q
ODSF CO 87 0222 269 8 HALT TO DCP HALT o oO O0F29 CECICTCBUDDEDINO OZ58 331 ERROZA DC CL&S*HIGH OR EQUAL COMND. USING HEAD 0, SECTOR XX
0D63 A072 ODp6&8 270 pc XL2*a072° HALT ID O£31 CSDBELCID3LOC3IDB 331
0D65 CO 87 0D79 271 B RT#2C1 , 0239 D&DSCUSBUNESE2ZCY 331 0
272 e 0 O81 DSC780C8C5C1IC880 331
ones CO 87 021a 273 RTN2B2 B PRINT TO PRINT NO SCAN FOUND CES9 FCEBLOE2ZCSC3E3D6 © 331
D6D C6 OD6D 278 pe XL1°c6* FLAGS OE51 DIBOPRTE? 331 my
OD6E 28 OD6E 275 pc IL1*93* LENGTH eC ¢6 OZ55 E2C5C3E3D6D9N0C3 O£7F 332 ZERRO2B DC CLU3*SECTOR COUNTER IN CONTROL FIELD NOT STEPPED® @
ODSF 1870 OD70 276 pc AL2 (ZRRO2F) MESSAGE ADDRESS OESD DGESDSE3CSD980C9 332
0D71 A076 op72 277 pc XL2°h076* ~ MESSAGE ID O£65 DSYOCIDEDSE3DINE 332 Q
0D73 CO 87 0222 278 B HALT TO DCP ERROR HALT °o 0 OZ6D D380C6C9C5D3C4R0 332
Op77 A076 0D78 279 pc X22* 00768 HALT ID 0£E75 DSD6E380E2E3C5D7 332
280 OZ7D DICSC4 332 °
OD79 3D FF 199C 281 RTB2C1 CLI WRIDFC+3,xX° FF? TEST SECTOR COUNTER FOR STEPPING. | S$ 8
BATE 13HAR70 O6APR70 22RAaY70 010670 PROG ID Oa0c-2 @ @ ovate 13maRn70 O6APR70 22maY70 01A0G70 eRog. 1) at =
EC WO. 571512 571516 571513 $71531 PAGE 3 EC WO. 571512 571516 571513 571531 PAGE
o
6 @
QO
8 98 '
Bern ugee ne,
IBM BAINTENANCE DIAGNOSTIC PROGRAS
_ a0c2
ERR LOC
0280
OE84
OE82
OEB4
OF88
-OE8C
OB90
GES
O£98
o£9C
OEAO
OEAS
OEAA
OEAE
OEB2
OEBS
OEBC
OEBD
OEBE
ceca
OECu
OECB
OECC
OZDO
OEDS
OEDS
OEDS
OEDA
OEEO
OEES
OFE8
OFEA
OEE
OEFO
OEF2
OEF6
OEFA
' OEFE
OErr
OFOO
Oro2
Oro6
Oros
OFroc
OF 10
Orit
OF 12
OF1S&
OF 16
OF 1a
: DATE
EC 0.
SCA H
OBJECT CODE
03
00
Orr3
3D
co
cy
3¢
co
co
3c
3c
oc
3c
3c
oc
co
02
00
co
&7
87
00
aF
87
OF
PD
12
00
0%
87
1999
co
02
87
87
87
72
00
87
1999
co
co
co
87
87
87
1999
co
87
1CDD
OFF2
3¢
co
co
06
SE
40
87
87
OFF2
co
87
a072
co
co
c6
2B
87
87
14F0
A076
co
87
A076
0809
OaAOD
0B67
1398
7B2e
¥8BD
TES6
YESS
1254
1B79
19SC¢
1BOE
39D3
OECC
OEC8
ODD
1B79
199C
19D3
OFoc
OP IC
1C98
1CE9
Orro
1B52
O21A
0222
OF 1c
O21:
0222
138AR70
$71512
01A0G70
ROUTINE WO. 03, TEST SETTING OF THP
XL1*03°
XL7°00"
AL2 (RTN&)
SETSH,0
SETDSK
TSTSPR
@RTDPC+2,0
SEEKCE
TSTSER
WORK+255,01
WORK+ 255 ,0
PART RO. 5129682
PAGE &
SCAN EQUAL SENSE BIT
WITH A SCAN HIGH OR EQUAL COBSARD
USING AN EQUAL CONDITION
ROUTINE SUMBER
ROUTINE PLAGS
ADDRESS OF NEXT ROUTINE PREFIX
HAVE PARABETERS BEEN EXTERED?
BRANCH IPF #0
SET FOR HEAD C, TRACK 0
TO SEEK THE CE TRACK
TO CHECK FOR & SOOD SEEK
SET WRITE PIELD
WORK + 253 (25%) , BORK +254
SNSID,X*12°
*WRTDPC+3 ,0
DPDR (2) , WORKAD
STRTIO
XL1*G2
*XL1°O0
*AL2 (WRTDFC)
RTH3B1
oeQ
YRTER2
SNSID,X*72?
*WERTDFC+3 ,0
ST&TIO
XL1*03°
XL1°02¢
AL2 (WETDFC)
BTN3B2
RTH3C1
SEIFT
AL2 (WETDFC)
CcvD
AL2 (CYLNO)
AL2 (ERRO3A)
ERRO3A-2,C*
*PRTSHS
XL1°06°
*IL1*9g98
AL2 (ERRO3A)
HALT
XL2*a072°
RTH3CI
XL1°Cc6
*IL1*43
*AL2(EZREO2PF)
IL2*a076°
BALT
XL2°a076°
HIGH oR Eeoa.u
ADDR STMT SOURCE STATESENT
334 ©
335
336
*337 ©
*338
OF8G 339 RBTH3 pe
OE8i 340 dC
O£83 341 bec
382
3483 CLI
248 BE
345 RTN3A 8B
386 NYE
387 B
346
349 RTN3A1 B
350
357 RTK3B AVI
352 KI
1E55 353 HYC
358
355 BVI
356 BVI
357
19BD 358 BYC
359
360 B
OEBC 361 bc
OEZBD 362 Dc
OEBF 363 pc
3648 B
365 B
366 B
367
368 RTN3B1 BVI
369 MVI
376
*371
372 B
OEDS 373 pc
OEDS 378 bc
OEDB 375 oc
376 B
377 B
378
379 RTN3C OB
OEE9 380 pc
381 8B
OEEP 382 pe
OEF1 383 pc
384 AVI
385 B
386 B
OETE 387 pc
OEFF 388 pc
Oroi 389 pc
390 B
Oro? 391 pc
392 8
393
398 BTN3B2 B
OF10 «6395 bc
OF11 396 bc
OF13 397 poe
OoriS 398 BC
399 B
OF1iB 4900 pc
801
O6APR70 22mAaY70
571516 571513 571531
eoeoeeeeecec5cee
PUT ID IB PRINT
SET TO WRITE ONE SECTOR
SET WRITE DATA ADDRESS
TO WRITE DATA
FUNCTION CODE (WRITE)
CONTROL CODE (DATA)
CONTROL FIELD ADDRESS
GOOD RETURN
ERROR RETORS®
PUT ID IN PBRIET
SET TO SCAN HIGH OR EQUAL
ON ONE SECTOR
TO SCAN HIGH OR EQUAL
FUNCTION CODE (SCAN)
CONTROL CODE (HIGH OR EQUAL)
CONTROL PIELD
RETURN FOR NO SCAN POUND
RETURN FOR SCAN FOUDRD
TO SRIFT BITS FOR DECISAL NUSBER
ADDRESS OF SOURCE
TO CONVERT HUMBER TO DECISAL
ADDRESS OF SOURCE®
ADDRESS OF DESTINATION
SET A BLANK IN PRINT IMAGE
TO PRINT SENSE INFO.
TO PRINT THIRD LINE
FLAGS
LENGTH
MESSAGE ADDRESS
TO DCP HALT
HALT ID
TO PRINT NO SCAN FOUND
PLAGS
LENGTH
MESSAGE ADDRESS
MESSAGE IDENTIFICATION
TO DCP ERROB HALT
HALT ID
PROG ID
PAGE
Oadc-2
a
*#oe
cee ne Fb i ee a rae nae ne i iter Oa RK Ss alee ae! ne he ET BS Oa a i Ml Tel AD RR ie Sinemet e en ORY cet Fe! eet a a OE eo me ANC BE ee
© 0 008hlUlCOlUlUCUCOWUCOWUCOOWUCOOUCOUCUCOWUCOOUCUCOOUCUCOUCOUCUCBOUCODUCOC OCC C“—C@—'@—tC (Ow Brsi—C CHC OGDSTCMGFC CC IS_— 0
mee
oss sermaeiomaints
ArT Ta aS ae pe Re a ETRE A Tae mm ale ee at ne rer ieee am HE Se
IBS MAINTENANCE DIAGHOSTIC PROGRAN
adc2
ERR LOC
OFi1Cc
Or 20
OF21
OF 25
OF28
- OF2C
OFr2D
OF2z
OF 30
OF32
OF 36
0738
oF3C
Or4aa
orac
OF5a
OFSC
OF6S
OF6C
OF70
OF78
OF8O
OF88
0F90
OF95
OFSD
Oras
OFAD
OFBS
OFBD
OFCS
Orcs
OFD?
OFDS
OFE?
OFES
OF?4
DATE
EC HO.
sca ys HIGS8&A oR EQUA
OBJECT CODE ADDE STANT SOURCE
CO 87 19a2 802 RTH3C1
02 GF26 &03
804
38 680 1989 &05
F2 18 10 806
CG 87 O212 ag?
c& QF20 46S
53 OF25 409
OF9k OF2P &10
4077 OF34 «(477
CO 8&7 &222 842
a077 OF37) 86413
848
CO 87 OE&C 815 RTE3D
416
Z2C3ICIDSYOCSDSES OFSF &17
CID34OE2ZCSDSE2C5 817
&0C 2C S9E36B4 68 DC2 817
C9E3ZUOFONOC 2ZE8E3 817
CS4OP15D6BRODS5SDE &i7
E340DED540C 1C6 £3 877
C5D940c4 §17
D6CSIDSC7TROCTSODS OF KR 418 ERROZB
DSC54 OE2ZC5C3E3D6 818
DSSOE2C3C1D580Cc8 418
C9ICTCB4ODEDSHOCS 818
DSEYC D360 418
EICS8CSYODTDYCSES OFCB 419
CIDSEXE2Z4OCSD9DS 499
DEDSE24 OEECBC5SDS 819
CS5&OD7DSCSE2C5DS5 419
E380C 1C6E3C5D9AG 419
C4D6C9D5C7&80C180 819
E2Cc3ciDs 819
&OCBCSCICB4ODEDS OFF2 420 ERRO3A
%OCSDS ERC 1D34OD6 820
D74BUDESCIEICERO 820
C1D54 0C5D8Ea8CTD3 420
8OC3DEDSCSECIE3CS 820
D6D5 820
<
Ce
T3NABR70 O6APR70 2254170
571512 571516 $7 1513
Ae ene ite naw RR REE ES NRE ae ene 0 ili ae ti Mie ah atte ad Teen 6 50 OMe Mae Se Sect il Ee ae et a Ned Rite RL ale MANN aml ee ak EN Beat te SU lap = we
L
STATEAERT
B SENSE
bc AL1(STATO1)
TBR STATUS, X* 80°
st 2TR3ID
B PRIRT
oc XL1*C6
*BC IL7*89°
*bc AL2 { EBRRO3B)
bc XL2‘a077
*B HALT
bc XL2*2077
*B ETH3A
oe
Dc
pc
pc CLa2
*01A0G70
571531
CLS2°*SCAN EQUAL SENSE BiT,
HIGH OR EQUAL OP.
PART WO.
‘PAGE
5129682
SA
TO SERSE DEVICE STATUS
ASK FOR SENSE BYTES 0 & 1.
TEST THE SCAE EQUAL BIT POR C8
PROCEED IF OK
TO PRINT SCAR EQUAL SENSE BIT HOT OB
PLAGS
LENGTH
SZSSAGE ADDRESS
HESSAGE IDERTIPICATIC®
TO DCP HALT
HaLT ID
(BIT O BYTE 2), HOT OB AFTER D®
*CL37*°OING & ONE SECTOR SCAN HIGH OB EQUAL®
CL52* THE PREVIOUS ERRORS WHERE PRESERT APTZE DOIRG A SCAR®
BITH AM EQUAL COUDITION®
Oa0C-2
aa
PROG ID
PAGE
#
Q
©
«)
eo 9 9 6 8 @
MO ©
@ @Q ?
Oo ©
Cae “pF 8. |. : ie : <: — 2 ate be 4
TBS BAINTERANCE DIAGNOSTIC PROGRAM - . PART HO. 5129661 | IBM AAINTFRANCE DIAGHOSTIC PROGRAA PART HO. 5129661
eet ge 24 Re aie PAGE 5. “ co Ee . PAGE SA:
Pre? DISK EpIrvToR F°67 DISK EvpIT aR |
ERR LOC OBJECT CODE ADDR STAT SOURCE STATESEST ERR LOC OBJECT CODE ADDK STAT SOURCE STATESENT
OFAS 6F 00 00 00 490 SLC 0(1,XR1} ,0(, IR2) SUBTRACT DISPLACEMENT OF THIS CARD 558
OFAC OF O71 TAA4 OA0D3 891 ADPOLP SLC RRIPTR(2),ONE © REDUCE VALUE IN READ RI POINTER 559 * SET WRITE PARAMETERS POR ADDING THE IPL/BRING UP PROGRARS
OPB2 OF 01 1AA0 0A03 $92 | SLC WRIPTR(2),ONE AND WORKAREA RI POIHTER BY ONE, 560
OFBS OF 00 1AA5 0003. 493 ALC =WRRICT (1) ,GONE ADD ONE TO WORKAREA RI COUNTER 1081 9C 01 TA80 1472 561 SETIPL SVC WRYDPC+2(2) , FOURZR SET FOR CYL. 3 TRACK 0.
OFBE CO 87 OF83 894 8 ADRPLD TEST THE NEXT LOCATION 1087 S62 PRNEXT EQU) EXIT BRAECH
495 1087 563 WRITEA ZOD
*CFC2. OD OF TA3A 1A72 496 ADRPLH CLC BUPPLG(2),POURZR TEST FOR EITHER A BRING UP O8 IPL 1087 564 C3c# e905 *# TO SEEK WJORK TRACK
CFCB CO 61 OFCS 497 BNE ADRPL9Y BRANCH IP EITHER 1087 CO 87 1737 565 B READ TO READ ONE SECTOR
OFCC CO 87 18A8 498 B COBPRS COMPRESS END CARD. 108B CO 87 175pD 566 B BRITE TG WRITE ONE SECTOR OP WEB PCH.
OFDO OC &7 1B92 DAD? 299 “VC = WORK 465 (66) , READIN+87 ROVE END CARD FROM RBEADAREA 108P CO 87. 190¢c 567 B STP FLD TO STEP TO WEZT SECTOR
OFB6 OC 7P 1€50 1CD1 500 MVC =WORK¢ LENGT H- END BOU +127 (LENGTH-ERDRCU} , LENGT B- 19 1093 1A3F 1098 568 pc AL2 (#BT DPC) CONTROL FIELD ADDRESS
OFrpC 3C CS 1351 501 “VI WORK,C*E* BAKE THIS SECTOR AS BND CARD 1085 CO 87 730Cc : 5569 B STP FLD TO STEP TO NEXT SECTOR
OFEO 3C FF 1A6C '502 AVI FINISH, X*PF® SET FINISH FLAG 1099 4A82 109R $70 pc AL2 (RDDFC) COETROL FIELD ADDRESS
OFEY F2 87 38 503 a ADRPL? TO BRITE ROUTINE 109R OF 00 1868 0A03 571 SLC SECCT (1) ,ORE REDOCE SECTOR COUNTER BY OWE
50% 10A% CO 01 1087 572 BNZ C3C8& GO SHOVE NEXT SECTOR IF NOT DORE
OPE7 CO 87 1980 505 BUPREC B IPLCRD TO CONVERT DATA TO IPL PORHAT 10A5 CO 8&7 OBAD 573 C3H3A 8B BDITAL
OPEB 3D PF 1A6E 506 CLI ENDIPL,X*PPF* HAS THE END CARD BERN REACHED ? 574%
OFEF CO 01 0C68 507 BRE ADRPLE BRANCH TO READ NEXT CARD IF 8G 574
OFF3 OC 03 1A52 1A72 508 AVC SAVID(4%), FOURZR 575 « ADD REPLACE PUNCTION
OFF9 3C CO 1A68R 509 MVI ENDIPL,O 10A9 28 08 10D7 576 CRKPAS ST CPASX@, ARR
OFFD F2 87 18 | 510 J ADRPL7? GO TO WRITE ROUTINE 1O0AD OC 01 1A80 1A84 577 MVC WSRYDFC+2 (2), PASCYL SET TO CYL? SEC 0
1000 CO 8&7 1980 511 IPLREC B IPLCRD TO SUBROUTINE TO CHANGE DATA TO IPL 10B3 OC 02 1A84 1A40 578 avC RDDPC+2(3) ,WETNFC+2 SET READ CONTROL FIELD
1004 3D. FP TAGE 512 CLI ENDIPL,X*FF! HAS THE END CARD BEEN REACRED ? 10B9 CO 87 1737 579 B READ TO READ SECTOR O (FAS)
1008 CO 01 0C&B 513 BNE ADRPLE BRANCH TO READ ANOTHER CARD IP #0 580
100C 3C FF 1A6C 514 MVI FINISH,X*FP* SET FINISH FLAG TO INDICATE END 108D 4D 02 02 1A80 581 CLC 2(3,X81),FAS DO BYTES 1-3 =FAS?
1010 38 08 189F 515 TBN DISKTP,x*08* TEST FOR RUN ON PIXED DISK 10C2 F2 81 05 582 Jz C3D2 BRANCH IP YES
1018 F2 90 Ca 516 JF ADRPL7 BRANCH IF HO 10C5 4c 04 04 1282 583 MVC 64 (5,XR1) ,IBTPAS WO, SET DATAFIELD TO INITIAL VALUE
1017 3A O8 1B62 517 SBN WORK+17,x°08° SET FIXED DISK BIT IN BOOTSTRAP 584 :
518 10CA 1C 01 TAKE 08 585 c3D2 NVC =©PASOLD (2) ,4(,XR1) SAVE FIRST AVI. SECT. ADDR.
519 * WRITE ONE SECTOR O8 DOLPHIN WORK FILE 1OCF iC 07 1A40 04 586 AVC 8 =—6p WRT DFC#2(2) , 8 (, X81)
520 10D4 CO 87 C000 587 B t~
*101B 521 ADRPL7 EQU # TO SEK 10D7 | 588 CPASX@ EOU) #1
1018 CO 87 175D 522 B WRITE TO WRITE DATA 589
-107F OF OO 1A6B 0463 523 ALC SECCT(1),ONE STEP SECTOK COUNTER 10D8 590 TSTPAS BQU.
*1025 3D PF 1A6C 524 CLI FINISH,X*FP® IS THE FINISH PLAG SET? 1ODB8 71 07 IAAT O04 391 MYC =6SCRACH (2) 4 (,XB1) PLACE IN SCRATCH AREA
102% F2 81 11 525 Jk ADRPLC YES, THIS PGS IS FINISHED LOADING TODD OC OO OABO 1A6B 592 NVC READIN (1) ,SECCT SOVE SECTOR COUNT TO TEMP. AREA
102c cc 8&7 190c 526 B STPFLD TO STEP T. NEXT SECTOR 1023 cC &7 190Cc 593 C3D22 B STPFLD TO STEP SCRACH AREA ONE SECTOR
1030 1A38 1031 527 vc AL 2 (WRTDFC) CONTROL PIELD ADDRESS TOE7 AAS TOES 594 Dc AL2 (SCRACH-2)
1033 528 TRACK# FOU *+1 10F9 OF CO OABO OA03 595 SLC RBEADIN(1),ONE REDOCE TEMP SECTOR COURTER BY 1.
1032 BD 00 01 529 CLI 1{ ,X82),%-* DOES TOTAL EYCEED LAST ADDR? . 10EF CO 01 1083 596 BNZ C3D22 BRANCH TO STEP AGAIN IF NOT ZERO
1035 CO 8& 1142 530 BH C3F3 10F3 2c 01 1855 02 597 "VC =WORK4+8(2),2(,XR2) NO, PLACE WEW PAS IN WRITEFIELD
1039 CC 87 0C54 531 B ADRPLB GO TRY AGAIN 10F8 OC 01 1A40 1A84 598 AVC WRTDPC#2(2), FASCYL
103D CO 87 10A9 532 ADRPLC B CAKFAS 10FE CO 87 175D 599 B WRITE TO WRITE DATA (NEW FAS)
10817 0C 01 1A84 AGE 533 MVC RDDFC#2(2), FPASOLD 600
1087 3D FF 1A3B 534 CLI TSTPLG,X*FF* 4402 CO 87 177F 601 5 SCABA TO INDEX SCAN SUBRODTINE
10GB F2 81 BA 535 JE TSTPAS yes 1106 110A 1107 602 Dc AL2(C3K2) ADDRESS FOR SCAN EQUAL
I0O4P 3D FF 1438 536 CLI DCPPLG,I*FF* IS PROGRAS A DCP? 1108 1723 1109 603 pe AL2 (C3H2) ADDRESS FOR WEYER SCAN EQUAL
1052 F2 81 23 537 JE SETDCP YES "608
1055 3p FF 1a39 538 CLI IPLPLG,X*FF* IS PROGRAS AW IPL LOADER? T10A OC OT TAKO TAU 605 C3K2 AVC WRTDFC+2 (2), RDDPC+2 SET TO READ ONE SECTOR
1059 F2 81 25 539 JE SETIPL YES 1110 CO 87 1737 606 B READ
105C 3D FF 1A3C 540 CLI LODPLG,X*FF?* IS PROGRAM THE DCP/SECTION LOADER? 1118 uc 02 07 OATS 607 NVC ©(7(3,XR1),OLD SET PGH ID FLD TO *OLD®
1060 F2 81 OA 541 - JE SETLDR YES 1139 CO 8&7 1710 608 B SEEK
1063 CC 87 0222 542 B HALT TO DCP ERROR HQT 111D YA3E W11B 609 ie AL2 (WRTDFC)
1067 AODES 1068 543 Dc XL2*AQES* HALT ID ; 111F CO 87 175D 610 B WRITE TO WRITE PGA ID #ITH OLD
1069 CO 87 OB8D 5484 ‘B EDITAA START OVER. 611 * SEARCH FILE INDEX (CYLINDERS 8-11), TO FIND
545 612 * 1ST AVAILABLE TRACK POR NEW PROGRARB
546 * SET WRITE PARAMETERS FOR ADDING THE DCP/SECTION LOADER £13
587 * TO CYL 0, TRACK 1, SECTORS 17 = 23 614 * SET SEARCH PARASETERS TO BEGIN INDEX SEARCH.
588 615
106D 3c CO 1A3F 589 SETLDR #VI WRT DFC+1,00 e 1123. 616 C3H2 EQU) *®
1071 3C C& 1A80 550 NVI WRT DPC+2, x" CQ? SET FOR SECTOR 17. 7123 OC 01 TAN4 1487 617 avC RDDFC4#2(2) , IDXCYL SET TO SEEK TO INDEX CYLINDER
1075 F2 87 OF 551 J PRNEXT TO EXIT BRANCH 618
552 F 1129 619 C3B3. ZOD * TO SEEK
553 * SET WRITE PARAMETERS POR ADDING THE DCP TO CYL 7, TRACK 0 1129 CO 87 1737 620 B READ
| 554 «| SECTORS 01 - 23. | 112D 4D CO 02 1a4C 621 CLC 2(,XR1) ,ACTCON
555 ‘ 1132 F2 01 21 622 JRE C3a4%
1078 Oc 01 1A80 1A7C 556 SETDCP MVC WRTDFC4#2¢2) ,DCPSEC SET CONTROL FIELD POR DCP * 623
107E F2 87 06 557 J PRAEXT TO EXIT BRAECH 7135 cO 87 190C 624 C3D3_—siBB STPFLD TO STEP TO NEXT SECTOR
, Ef
DATE 22NAY70 01AUG70 010CT70 O1APR71 17NOV71 OINMAR72 | 1239%72 Proc ID OFF6-7 DATE 22MAY70 01A0G70 010CT70 O1APR71 T7NOVT1 OMMART2 1230872 PROG ID OFF6-7
EC NO. 571513 §71531 571540 571565 571608 571603 571628 PAGE 5 i EC NO. 571513 571531 571540 571565 571604 571603 571628 PAGE 5a
Ce t
$=.
IBM MAINTENANCE DIAGNOSTIC PROGRAN PART HO. 5129667 . © IBN MAINTENANCE DIAGNOSTIC PROGRAH PART BO. 5129661
| PAGE 6 © wy iL ; PAGE 6a
FF67 DISK EDITOR = FP67 DISK EDITOR
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT
1139 A982 V13A 00 625 DC AL2(RDDFC) CONTROL FIELD ADDRESS 646 * ROUTINE TO ADD REPLACE CARDS TO PROGRASS s
113B BD OC 01 626 CLI 1(4,XR2),12 HAS SCAN VALUE EXCEEDED Lisrr? 687 * PRESENTLY RESIDING ON THE CE DISK
*V13E CO 82 1129 627 BL c3B3 BRANCH IF #0. 648
4182 CO 87 O27A 628 C3F3. BB PRIWT TO PRIBT WO SPACE LEFT 1177 2C 02 71857 06 649 REPPGR SVC SAVID-1(3),6 (,XR2) SAVE ID OF PROGRAM TO BE MODIFIED
1146 C6 1106 629 DC ¥L1°C6$ PLAGS 117C 2¢ 60 TRGB 650 M¥YI SECCT,O ZE20 SECTOR COUNTER
Sa ara ae 630 BO «IL9937" LENGTH 1180 OC 04 TA3C 123D 651 BYC LODFLG(5),LODFLG+1 #§ ZERO PROGRAR IDZNTITY FLAGS
B aS 634 pc AL2 (ERRORS) ADDRESS OF LAST PRINT CEARACTER 1186 8D 62 06 TAZE 652 CLC 6(3,%82),DCP IS PROGRAS FOR REP THE DCP ?
T1HA BORG 1148 632 pe XL2°a0E6* MESSAGE IDRNTIPICATION 118B F2 81 39 653 JE REPDCP JURP IF YEzS
148C CO 87 0222 : 633 B HALT TO DCP ERROR HALT " 118E CO 8? T77F £54 B SCENA TO INDEX SCAN SUBROUTINE
sao eaeee W457 $34 BC EL Z*aOE6* HALT ID : 4192 1747 193 655 pe AL2(REPPGC} ADDRESS POR SCAB EQUAL
1152 CO 87 OBS 635 B EDITAR 4196 1196 1195 656 Dc AL2 (REPPGB} ADDRESS POR HEVER SCAN BOQUAL
636 1196 0C 02 1Ba4 7551 657 REPPGB MYC 8SG02-12(3},SA¥ID~1 PUT ID OF PGH IN BSG
4156 C2 04 1851 637 C3A4S LA BORK. XR LOAD WORK ADDRESS Ye ERY 119C CO 87 OZIA 658 B PRINT TO PRIET PROGRAS #CT FOUHD
T15A OC 07 TA4O TARE 638 MVC WRTDPC#2 (2) ,RDOPCe!2 1180 06 1186 659 DC XL 17068 FLAGS
1160 Mc IF IF 1A69 633 MVC =«-32.{ , ARI), PNEC (5444441421) HOSE ACT, @, 1D, DAY, SYSFLG, PREC T4A1 17 V7A1 660 ne IL1&23* LEBGTE
1165 §C 00 OF 4A52 643 svc $f1,ER7} ,.aVID SEY PROGRAS LEVEL IW BRITB PILELD 71a2 13850 41283 661 pe AL 2 { 8S8G02} AESSAGE ADDRESS
V16A BC CO CB TASB 64 MFC) 08-8 4, ER1} ,SECCT ADD SECTOR COUNT VTAN F2 €7 62 662 3 REPEIT SUMP TO ROUTZHE EXIT
146F CO 87 175D 642 B URIFR TO BRITE O8E INDEZ sEectoR 11A7 663 REPPGC EOU
*1173 CO 87 OBBD 643 5 EDITAA 11A7 C2 91 1854 664 LA WORK, XRI
644 17AB 1C 1F 1869 1P 665 MYC —- PHEC (32) 9 317(,-XR1} SAVE ID,PB , EC
11BG 1C CO 1A52 09 666 HVC = SAVID(1) 59 (, £81) SAVE LEVEL
41B5 0C CO 1A69 OA87 667 MVC PNEC(1),READIR¢? ADD SUFFIX TO EC 6
11BB 1C 01 7A44 08 668 MYC RDDPC#2(2),4 (XR?) SET PROGRAH ADDRESS IW READ CONTROL
11C0 3C FF 1A3B 669 MVI -TSTFLG,X*FF* SBT PLAG TO INDICATE A TEST SECT.
11C4 F2 07 OA 670 J REP PDF PROCEED
11C7 0C 01 1444 4A7C 671 REPDCP MVC RDDFC#2(2),DCPSEC SET CONTROL PIELD FOR DCP
1100 3C FF 1438 672 BVYZ DCPPLG,X*PP* SET FLAG TO INDICATE DCP
11D1 OC 01 1275 1A84 673 REPPDP MVC SAV@(2),RDDFC42
11D7 CO 87 10A9 674 B CAKPAS
41DB OC 01 A448 1215 675 MYC RDDFC+#2(2),SAVa
: 11E1 676 REPPGD £EQU- * TO SEEK PROGRAM TRACK
11E1 CO 87 1737 677 B READ TG READ ONE SECTOR
1185 CO 87 175D 678 B BRITE TO WRITE ONE SECTOR
117E9 3D C5 1851 679 CLI wWORK,C*E? LOOK FOR END CARD
11ED C9 81 0C54 680 BE ADRPLB EXIT WHEN EXTIRE PROGRAH IS HOVED
7 41F1 OE 00 1A6B 0A03 681 ALC SECCT(1), ORE STEP SECTOR COUNTER
11F7 CO 87 190c 682 B STP FLD STEP WRITE CONTROL PIELD
11FB 1A3F 11F7C 0683 pc AL2(#RTDFC)
11PD 8D 00 01 1033 684 CLC 1(,XR2),TRACK#
1202 CO Bu 1142 685 BH C3¥F3
4206 CO 87 190C 686 8 STPFLD STEP READ CONTROL PIELD
120A A482 120B 687 pe AL2(RDDFC)
120C CO 87 11£E1 688 B REPPGD GO SO¥E ANOTHER SECTOR
689
1216 CO 87 OBBD 690 REPEIT B EDITAA
121% OC00 1215 691 SAV@ opC XL2*098
} Me
see aca oiage7s 010CT70 OTAPR71 1780V7%1=° «=—s- O1MAR72 1230872 PROG ID OFP6-7 DATE 22H AY70 01AUG70 010CT70 OVAPR71 1780¥71 01HAR72 1230872 PROG ID OFF6-7
| 571580 571565 571604 571603 5718528 PAGE 6 ‘ FC nO. 571513 571531 571580 571565 571604 571603 571628 PAGE 6A
€e
“SREB es
1 Paton OE ot
OCC pis cee om
€
ai gel Ge Se “Ng ode, : : ” : . LC
IBA BAINTERAWCE DIAGNOSTIC PROGRAN ee Daa: es za , ‘PART FO. 5129661 IBA MAINTERANCE DIAGHOSTIC PROGRAA. PART BO. 5129661
aa a os ed PAGE 7 & a 7 PAGE ™m™ &
FPré7 DISK EDITOR : PF67 DISK EDITOR i
EPR LOC OBJECT CODE ADDR STAT SOURCE STATESENT FRR LOC OBJECT CODE ADDR STSHT SOURCE STATERERT
693 * ROUTINE TO INSERT // CHAIN RECORD IN DCP s ~ 12E3 3D CO 99 761 CK CLI 0{ ,XR1),#-2
1276 CO 87 10a9 6946 CHRIKG B CHEFS . I2E6 FP2 8&7 1% 762 JE CGNFB TO SCAR EQUAL
421A OC 01 1088 FAIC 695 nAyC RDDFPC+2 (2) , DCPS BC : 12E9 CC £7 790c 763 B STPFLD
1220 CO 87 1737 696 R11 B READ ; T2ED 7A02 ¥2EE 768 pc aL 2 (RDDFC}
1228 7D c5 CO 697 CLI 0(,XR1}),C*E* FIED 42EP BD O08 907 765 CLI 1{ ,X¥R2},8 CHECK FOR CYL 8B
1227 F2 81 18 696 SE FS} A END, COMNSENT OR // CHAIN RECORD 12?2 CN 82 12DP 766 BL xT
122K 7D SC CO 699 CLI 0Of¢,XR1),c°s* #2P6 CC #7? 12c¢ 767 B ADDREP
122D F2 81 18 700 ae Psi s 768 * COME HERE WHEN DESIRED CARD TYPE HAS BEER POURD
*$230 7D 67 CO 701 CLI 0(,XR1) ,C* 7? : 769
4233 F2 87° 0C 702 Jz FS - V2FA OC 02 1280 TA484 770 CONFB #¥C WRTDFCe2 (3), R2DDPFC+2 SET UP READ CONTROL PIELD
1236 CO 87 175D 703 B @RITE 7300 Oc SF iBBC CADP 771 AVC 8 =6HORK495(96) ,READIN¢9S MOVE BEW CARD DATA TO WRIPEFTELD
123A CO 87 4291 Fou BB STEPEZ 1306 CO 87 175Db 772 B WRITE TO WRITE THIS CARD
123£ CO B87 1229 705 B R11 : 773
708 * 130A OC 00 1321 72zE6 7748 HVC 8 8=—- CK 9611) ,CK4+1 SET UP TO TEST POR CORRECT TYPE
4242 cO 87 490C 707 FS B STP PLD IF “/ CHAIN RECORD IS FOURD THEE 775 * OF CARD AND THEN ELIBINETE
1286 1AN2 1287 708 BC AL 2 (RDDPFC) INCREHERT TG NEXT RECORD : 716 @ ALL REHAINTHG CPU OR ODT CARDS.
1288 C2 02 0A80 709 PS1 La READIN, XR2. 777
128C CO 87 OE6A 770 B SETCAHE GO BUILD // CHAIN RECORD FORA INPOT 1319 CO 87 196C 778 STEPUR B STPPLD STEP THE WRITE COHTROL FIELD
1250 CO 87 175D Fil B BRITE WRITE CHAIR RECORD ON DISK - 7318 VA3E 1315 779 BC AL 2(¥RTDPC)
1254 CO a? 790C 712 8 STPFLD 780
1258 TA3E 1259 #713 pc AL2 (WRTDFC) ‘ 1316 CO 87 190C 781 STEPRD B STP FLD STEP THE READ COSTROL FIELD
1258 CO 87 1275 714 B RDURT BRITE REMAINING DCP TO WORKSPACE : T31A TAN2 131B 6782 td AL2 (RDDFC) :
345 2 : 131C CO 87 1737 783 B READ TO RERD OBE SECTOR
125E CO 87 10A9 716 B CHKPAS REWRITE DCP BACK FROM WORKSPACE é, 784
1262 0C 01 7A54 ‘1RGE 717 MVC RDDFC#2(2),PASOLD - mG 1320 7p CO 00 785 CK CLI 0(,XR1) ,e-* CHECK POR AHY MORE UDT OR CPU CARDS.
9268 0C 01 1A80 1A7C 718 NVC 8 WRIDPC+2(2), DCPSEC 1323 CO 81 1316 786 BE STEPED BRANCH IP ONE IS POOND
126E CO 87 1275 719 RAGNY B RDERT ; - 1327 cO 87 175D 787 B WRITE TO WRITE OSE SECTOR
1272 F2 87 30 720 3 FIGDCP GO CHECK HEXT CONFIG RECORD * * 788
721 *. 132B 3D C5 1851 789 CLI WORK,C*E? CNECK FOR END CP PROGRAS
1275 38 08 1290 722 RDWRT ST RDX@, ARB ” 132F CO 81 12A5 790 BE PIGDCP BRANCH WEEN IT IS REACHED
1279 CO 87 1737 723 RAGN B READ ¢ * 1333 CO 87 1310 791 B STEPBR TO SOVE ANOTHER SECTOR
127D CO 87 175D 724% B BRILL
1281 CO 87 1291 725 B STEP z =
1285 3D C5 1851 726 CLI WORK,C*E® © o
1289 CO 01 1279 727 BNE RAGN
128D CO 87 COCd ; 728 B +-* t 3
1290 729 RDXa EOD) €=4
730
*1291 38 O08 12zA48 731 STEPX ST STEPY@, ARR € 4
1295 CO 8&7 190C 732 B . STPPLD :
1299 1A82 129A 733 DC AL2(RDBFC)
129B CO 87 190°C 7348 B STPFLD € “=
129P 1A3E 1200 735 DC AL2(WRTDFC) bs
12A21 CO 87 0000 736 B +-2%
12A9 737 STEPK@ EOD *-1
*738 : € =
739 * ROUTINE TO CHANGE CPU,UDT,//CHAIN RECORDS Im DCP
*12A5 CO 97 0A13 740 FIGDCP B aa0ds TO READ THE NEXT CARD € z
12A9 8D 07 OF OEBY 741 CLC 7(8,X82) ,CHAIN TEST FOR AR // CHAIS
42AE CO 81 1216 742 BE CHSI8G EXIT IF YES
12B2 BD cS 00 7483 CLI 0(,XR2),C*E* TEST FOR aN *E* € 3
12B5 CO 81 OBS8D 744 BE EDITAA EXIT IF YES
12B9 BE ¢c3 00 785 CLI 0{ ,%R2),C*c* TEST FOR A *C* ( CARD)
12BC F2 81 15 / 786 JZ SVCCK JUME IP YES, INSERT A BEW CPU CARD c 3
12BF BD E4& 00 747 CLI 0O(,X82),cC*u* TEST FOR AN *U* (UDT CARD)
12C2 CO 01 T2A5 748 BNE ¥FIGDCP BRANCH IF HO
12C6 BD 80 03 789 clr 3{ ,3R2),c* * TEST COLUSN & FOR A BLANK € 3
12C9 P2 81 08 750 JE AYCCK JOSP IF YES, REPLACE ALL UDT CARDS
751 © IF NOT BLANK, THIS UDT IS Aw
752 * ADDITIONAL ONE, SO ADD If € 3
12CC 3c FP TA74 753 ADDREP MYI DATCD,X*FR* SET FLAG TO BYPASS WEXT READ
12D0 CO 87 11C7 758 B REPDCP GO TO ROUTINE TO ADD THIS UDT CARD
755 Pe
12D4 756 MVCCK EQU # | SET UP CHARACTER TO SCAN FOR € 2
12D4 OC 01 1A84 1A7C 757 - SVC RDDPFC#2(2) ,DCPSEC SET CONTROL PIELD FOR DCP
12DA 2C CO 12E8 CO 758 MVC) |. CK#¢1(1),0 (,XR2) SHOVE SCAN CHAR om
12DF 759 XT gous TO SEEK THE CYLIBDER POR DCP <
*12DP CO 87 1737 760 | B READ SET THE NUMBER OF SECTORS TO SCAN
; <z = .
DATE 22mMaY70 01A0G70 010CT70 O1VAPR71 178OV71 O1MAR72 1230872 PROG ID OF F6-7 DATE 22MAY70 01A0G70 010CT70 O1APR71 17NOV7 1. OWAR72 1230872 PROG ID OFF6-7
BC NO. 571513 571531 5715480 ' §71565 5716048 571603 571628 PAGE 7 é “ EC RO. 571513 571531 571580 571565 571604 571603 571628 PAGE Ta
‘
€
' IBS MAINTENANCE DIAGNCSTIC PROGRAR PART BO. 5129661 . pad TBA MAINTENANCE DIAGHOSTIC PROGRAS PaRt NO. 5129661
hy PAGE 8 co se wey PAGE 7
Pr67 DISK #FDITCR 2 ce res? DISK EBEDITOR. ‘
: . . ; a ‘
ERP LOC OBJECT CODE ADDR STMT SOURCE STATEMENT EPP LOC OBJECT CODE ADDR STMT SOURCE STATEMENT
13237 CO 8&7 101F 793 COMP 2B PEDOLD FIBD AN OLD VTOC ENTRY : 861 * DUPLICATE DISK ROUTINE
133B CC 87 °9737~—C 798 B _ READ ; 862
133F 1C 01 7A68 U9 795 MYC) 8=—- RITED (2) » 8 (, XR) . 1837 0C CO 159R 18C8 663 DSKDUP BYC SPHDS¥(1),SIO0¢1 SAVE EXISTING SPINDLE SELECTION
_ 1398 CC e@7 190C 796 STEPR 8B STPFLD 1437 Oc CO 41589 1898E. 868 BYC DSKSA¥V(1) ,DISKTP SAVE EXISTIEG DISK SELECTION
-13G8 TA82 1389 797 pc AL2 (RDDPC) 183D OC O02 159D 1472 865 AVC) 8 IPLS#(3),POU0RZE CLEAR IPL & RECAL SWITCH
13GA 8D OC 01 798 CLI = 1(,XR2),12 1883 3c AO 1598 866 aVI = READSP,X*AQ?® SET POR BEAD OS SPIUDLE A
39D F2 C2 68 799 JEL yToc 1487 BD c1 05 a67 CLI 5 (, X82) ,C*a?* IS READ SPINDLE TO BZ A?
7350 CC 87 1737 800 B READ 18GA4 F2 8 ID 868 Jz SETER J0aP IP YZS
1358 4D 02 02 1A8C 801 CLC 2(3,%81) ,ACTCON 18up BD C2 05 869 CLI 9(,XR2),C*S* IS READ SPIBDLE TO BE B?
41759 FP? 01 5P 802 JWE YTOC 1650 F2 871 13 . 870 JE SET RB JUSP IP YES
135C 4D 02 07 0a78 803 CLC 7(3,1R1),OLD 1853 CO 87 027A 871 B PRINT PRIWT ERROR, BO READ SPIEDLE SELECT
1267 CO 81 1394 8048 BE STEPR 19857 C6 1857 872 DC 1L1°C6? PLAGS
7365 OC O71 1AEC 1AKR: B05 MYC REKD|(2) ,RODPCS2 1458 15 1858 873 pe TL1* 249° LESGTH
136P OC C1 TASC 1AGG 806 SVC WREDFC#2(2) , ADDFC+2 1859 1536 195A «870 pc AL2 (HORDSP) ADDRESS OF LAST PRIET CHARACTYR
1377 1¢ Of TA84 08 807 AVC RDDPC#2(2),8 (,ER1) 185P AOET 185C 875 pc XL2* aQE7* BESSAGE IDEETIPICATION
1376 6C 01 O08 IAEA 808 NYC} =—6- (2, XR1) ,KRITBA 165D CC 87 0222 876 B RALT TO DCP ERROR HALT
137B CC €7 175D 809 B WRITE 1861 AOE? 1362 877 pc XL2* AOET* HALT ID
137F C2 01 1851 810 LA WORK, XR1 1463 F2 8&7 72 878 J DUP EXT TO ROUTINE EXIT
1383 1¢ 01 1089 048 971 SVC =- BRT DPC#2(2), 8(, 281) 1866 3C BO 1598 879 SETRB SSVI READSP,X*BO® SET FOR READ ON SPINDLE EB
13868 1¢ CC 1A94 08 812 HVC MOVCTR(1),6 (,XB1) 1962 3B 08 18P6 880 SETRR SBP READS1,x*03¢ SET POR REMOVABLE DISK
139D 813 BAGN E00 # TK62 BD FS 06 681 CLI 6(,XB2),C°8* IS READ DISK TO BE REB.WABLE?
138D CC 87 1737 6149 B READ 1471 P2 81 1D 882 JE SETSA JUAP IF YES
1391 CO 37 175D 815 3 WRITE 1878 BD FO 06 883 CLI 6{ ,XR2),C*9? IS READ DISK TO BE FIXED? .
1395 co €7 19¢C 816 8 STPFLD 1877 F2 81 13 884 JE SETRP JUSP IP YES .
1399 1A92 1394 817 pc AL2(RDDFC) 187A CC 87 OZIA ' BES 3 PRINT PRINT ERROR, NO READ DISK SELECT
139B cC 87 190C 818 B STPPLD INTE Cb 1672 686 pc XL1°C6* FLAGS
139F 1A3E 1300 819 pc AL2(@RTDFC) IQ7P 13 187P 887 pC IL1*#19¢ LENGTH
13A1 OF C9 1096 CAD3 820 SLC sOVCTR(1) ONE 1880 15¢9 1881 688 pc AL2 (WORDDK) ADDRESS OF LAST PRINT CHARACTER
13A7 CO 01 1380 821 BNZ AGE 1882 AOEB 1883 689 pc XL2"* AOES* MESSAGE IDENTIFICATION
13A8 OC 01 1044 1A6C 822 "VC RDDPC#2(2) ,READ@ 148% CC 87 0222 890 B HALT TO DCP ERROR HALT
1381 9C 91 106A 1A40 823 AVC WRITE (2) ,WRIDPC#2 4488 AOES 1489 «6891 pc KL2* a0 EB * HALT ID
13B7 CC 87 1344 824 B STPPR 198A F2 87 3B 892 J DUPEXT JUSP TO ROUTINE EXIT
825 * Z 893
13EB C" 87 9a29 © 826 ¥TOC. 8B SETWOK TO SET WORKAREA ~ 188D 3A 0B 19F6 894 SETRF SBN READS1,X°O6* SET READ SIO POR PIXED DISK
138F 8C 01 CO TA5A “827 AVC =. (2, IR2) , WRITES SET CYL. HEAD & SECTOR 1491 3C AO 159P 895 SETWA AVI WSREITSP,X*A0* S&T POR WRITE ON SPINDLE A.
13cCa Ac 02 02 1280 828 avC 2(3,%R2) FAS SET *Pas* 5 1495 BP Ct C7 896 CLI 7(,XR2),C*a* IS WRITE SPISDLE TO BE A?
ms 829 : 1898 F2 81 1D 897 JE S2TaR JUSP IF YES
1309 IC 01 1000 1A88 830 SVC 8 8=oWRTDPC+2 (2), PASCYL SET TO SEEX CZLINDER 7 (FAS) 1898 BD C2 07 898 CLI 7(,*R2),C*B* IS WRITE SPINDLE TO BE 8B?
13CP CO 87 175D 831 B WRITE TO WRITE NEW FAS ON CYL. 7. W49E P2 81 13 899 JE SET@B J0mP IF YES
832 = 1QA7 CC 87 C2IA 900 B PRINT PRINT ERROR, BO WRITE SPINDLE SELECT
43D3 CO 87 1818 833 B FSDOLD 18A5 C6 18A5 901 pc XL1°C6* FLAGS
13D7 9C C1 100) 1484 83a avCc WETDPC+2 (2), BDDFC+#2 , T8A6 16 BAG 6902 DC IL1*22° LENGTH
13DD CC 87 190C 835 STEPY 8B STPFLD VQA7 15DP 18A8 903 Dc AL2 (NOSTSP) ADDRESS OF LAST PRINT CHARACTER.
13E% 1082 1322 836 pc AL2 (RDDPC) V8aQ9 ACEI 1WAA 6908 pc XL2°ROEQ* MESSAGE YJDENTIFICATION
13E3 BD Oc 901 837 CLI 1{ ,%82),12 1448 CO 87 0222 905 B HALT TO DCP ERROR SALT
1326 F2 02 2A . 838 JNL vRDS 18AF ACEO 18B0 906 pc XL2* AOE9* HALT ID
13E9 CC 87 1737 839 3 READ . 163% F2 87 28 907 J DUIPEXT JUBP TO ROUTINE EXIT
132D 4p 02 02 1A8C B40 CLC 2(3,281) ,ACTCOS 18B4 3C RO 159P 908 SETWB SSVI WRITSP,X*BO® SET FOR WRITE OW SPINDLE B
13F2 P2 01 12 gat JBE WEDS. 18BB 3B 08 1553 909 SET@R SBP WRITS1,x°08° SET WRITE SIO FOR RESOVABLE DISK
1375 4p 02 07 9A78 , 852 CLC 7(3,281),OLD 14BC BD FP8 08 910 CLI 86,XR2),C*8* IS WRITE DISK TO BE RESOVASLE?
13FA CO 81 13DD 843 BE STEPV 18BP F2 61 IP 911 Jz COPYA JUMP IF YES
13P2 844 STPH BOD ® 18C2 BD F9 08 912 CLI 8(,2R2),c*9°* IS WRITE DISK TO BE FIXED?
13PE CO 87 175D 845 8 WRITE 1acS F2 81 18 913 JE SETUP JUSP IP YES
1802 CO 87 199C 846 B STPFLD & 14CB CO 87 C21A 914 B PRINT PRINT ERROR, NO WRITE DISK SELECT
1406 IA3E 1807 887 pe AL2 (3RTDPC) . 1acc C6 wcc 6915 nc XL1°C6* PLAGS
1998 BD OC C1 B48 CLI 1(,%R2),12 1acpD 14 18CD 916 pc IL1°208 LE"GTa
1803 CO 81 OB8D 849 BE EDITAA VACE 15P3 1WCP 917 pc AL2 (NOWTDK) ADDRESS OF LAST PRIEST CHARACTER
190P CO 87 13DD 850 8 STEPY 78D0 AOFA 18D 918 pc XL2*aQEa® SESSAGE IDENTIFICATION
1413 CO 87 CA29 B51 VRDN B SET#OK 18D2 CO 87 0222 919 B HALT TO DCP ERROR HALT
1817 CC 87 13FP 852 :) STPY 14D6 ACPA 14D7 9.20 pe XL2*aOEA* HALT ID
181B 34 08 1830 853 FNDOLD ST PNDX@, ABR 14D8 CO 27 OSA? 921 DUPEIT B AAO?
TWIP OC 02 1851 0A78 853 B¥C SAVID~1(3) ,OLD 922
1425 CO 87 177F 855 B SCAMA 18pC 3A C8 1553 923 SETSF SBN WRITS1,2°08* “SEP PRITZ FOR FIXED DISK
1829 142D 1428 © 856 pc AL2 (C9 A2) 18E0 3D CO 159C¢ 928 COPYA CLI &DRCAL,O HAS READ SPINDLE BEEN RECALIBRAT ED?
14628 O38D 1a2C 86857 DC. AL2 (EDITAA) 18E8 F2 017 OF 925 INEZ READB JUS? IF YES
182D CO 8&7 0C05 858 C4aA2 B e-8 1827 OC 01 TAGE 1A72 926 MVC PASOLD(2),FOURZE ZERO CulY LISIT VALOB
1430 859 PHDId EQU *%-1. IWED 3C FP 159C 927 AVI RDRCAL,X* FF? HG, SET SHITCEH
18P1 3c CO 18A1 928 a¥I FRSTPS,O . ZERO SWITCH FOR RECALIBRATE
DATS 22mAY70 01A0G70 010CT70 O1APR71 17NOV71 O18 A872 1230572 Pros ID OFF6-7 DATE 22mAY70 91A0G70 010CT70 OTAPR71 17N0V71 OMMAR72 1230572 PROG ID OFP6-7
EC 80. 571513 571531 571580 571565 571604 571603 571628 PAGE a .. EC NO. 571513 571531 571580 571565 571608 571603 571628 PAGE 8a
€e z iw e : 3
eoeceececeeoeoeoeeeeeeoeecece
, & & a
IBY MAINTENANCE DIAGNOSTIC PROGRAAS PAST BO. 5129661 a TBS MAINTENANCE DIAGNOSTIC PROGRAR PART BO. 5123661
b (, * PAGE 9 cs . PAGE an |
FP67 DISK EDITOR j ned FP67 «=DISK EDITOR
ERR LCC CBJECT COLE ADDR STAT SOURCE STATENERT ERP LOC OBJECT CODE ADDR STMT SOURCE STATEMEST
18P6 929 READS1 EQD #44 ‘ 985 * THE DELETE OPTION HAS BEER SELECTED
14P§ 3c OC 189° - 930 READB AVI DISETP,¢-9 S2ZT I/0 SUBROOTIBE POR RE&D 986 * DELETE THE SPECIFIED PROGRAB(S) PROM TRE INDEX
1aP9 08 00 1801 159P 931 8ZZ LDFDR+1, READSP SET I/O SUBROUTINE FOR REaD SPINDLE 387
1EP CO BF 1958 932 8 SETSPE 15P& #2 02 03 988 DELETE LA 3(.XR2) ,xR2 STZP READIN POISTER ¢3
1533 CD 91 TAGE 1A72 933 CLC PASOLD(2)-FOORZR TEST LISIT ADDRESS POR SORE WaLUE 15P7 34 92 15PF 989 st DELSAY,X¥R2 SAVE POR REUSE
1599 P2 01 18 934 JNWE READSEK IP HOM ZERO, SKIP READ OF *FaS® 1SF8 990 DELET1 FOU # TO SET SORKAREA
150C 0C 97 TA4S 1289 935 AVC RDDFC4+2 (2), PASCYL S&T POR CYLINDER 07 TO READ PAS 1SPE 991 DELSAY EQD *03
1512 CO 37 1737 336 B READ TO READ Fas 1SPR C2 67 0009 292 LA e-®, ER 1 LOAD POISTER In XR1
1516 1C 97 TARE 08 237 SVC PASOLD(2),9{ ,X8 4} POT PAS VALUE 15PP 7¢ 02 1A514 03 993 MYC 8 =SAVID-1(3) -3 (,ZR1) HOVE PROGRAM ID ITO BWORKAREA
1578 3¢ 52 7808 1872 938 MYC RDDPC+2 (3), FOURZR SET TO START READ AT CYL. ZERO 1608 ¢) 47 177P 994 B SCANA FO IMDEX SCAN SUBROUTIEE
1921 9C 92 1099 TA72 939 H¥C 8RTDPC42(3}, POURZR SET TO START BRITE aT CYL. ZERO 1608 167D 1609 995 pc AL2(DELPED) ADDRESS POR SCAB EQUAL
980 160A 160C 160B 996 Dc AL2 (DELET2) ADDRESS POR HEVER SCAE EQUAL
1527 987 READSS BQU) * TO I/G SUBROUTINE TO SEEK 169C 9C O02 1B85 1A51 997 DELET2 MVC ASGO2-12(3),SAVID-1 HOVE ID PROS READARZA TO PRIBP
4527 CD 87 1737 982 B READ TO I/O SUBROUTINE TO READ 1612 CC 87 O24A 958 B PRIBT GO PRIEST
1522 3D FP 759D 943 CLI IPLS@,X°PP* IS THE IPL SSITCH SET? 1616 06 1616 999 Dc XL14°06¢ PLAGS
152F F2 87 11 944 JE WRITE YES, GO TO WRITE ROUTINE 1697 17 1617 1000 pc 1L1*23* LENGTH
1832 3D 92 18 OA7D 945 CLC 20(3,E81),IPLC IS THIS SECTOR THE IPL BOOTSTRAP? 1678 1259 7619 1001 BC AL2 { 8S602) ADDRESS OF LAST PRINT CHARACTER
1537 F2 27 09 986 SNE RITE YES, GO SET IPL S#ITCH 167A F2 87 19 1002 J DELET3 GO TO STEP POLIETER
153A 3C FF 159D 987 BVI IPLSY,z*?P* SET IPL SBITCH 61D 9C O91 TA80 TAUB 1003 DELPND SVC 8 WRTDPC#+2(2),RDDFC*2 SET CYL. TRACK & SECTOR FOR READ
1532 38 03 11 1553 948 S5N 8 =617(, X81) , WRITS SET PIXED/REAOVABLE BIT is .CADER. 1623 CC 87 1737 1004 B READ TO READ DATA
1543 39 05 1592 999 WRITE? CLI WPRCAL,O HAS WRITE SPISDLE BEEB RECALIBRATED? 1627 4c 02 OF 0A78 1005 SVC =©67(3,XR%),OLD BOVE *OLD* INTO WORKAREA
1587 F2 91 CA 959 JHE WRITEB BRANCH IF YES 162C CO 87 1710 1006 B SEEK
IS8A AC FR 71593 951 AVI WTRCAL,X* PFS 80, SET S¥ITCH 163C 1A3Ff . 1637 1007 Dc AL2(W8RTDFC)
15GE 3¢ CO 1841 952 SVI PRESTPS,O SET SWITCH FOR RECALIBRATE 1632 CO €7 175D 1008 B WRITE TO WRITE DATA
1553 953 WRITS? EOD *¢1 1636 35 02 15P2 1009 DELET3 L DELSAV, XB2 LOAD X82 AS INPUT POINTER
1552 3C CO 1898 954 WRITEB NVI DISKTP,*-# SET I/O SUBROUTINE FOR BRITE 163A BD 6B 08 1010 CLI 4%4,2R2),C*,° DOES NEIT ENTRY =A COnNA?
1856 08 CC 1807 159” 955 "ZZ =s- LDPDR¢1,WRITSP SET I/O SUBROUTINE FOR WRITE SPINDLE 163D CC 01 OBSD 1011 BN2 ZDITAA
WSC CC €7 1953 956 B SETSPR 1681 £2 62 08 1012 LA &(,XR2) ,XR2 STEP INPUT POINTER +8
1560 Cf 387 °175D 957 3 WRITE TO I/O SUBROUTINE TO WRITE 1688 CC 87 15P7 1013 8 DELET1-& PREPARE TO DELETE NEXT PROGRAA
1568 CO £7 190C 958 WRITEC B STPFLD TO STEP TO NEXT SECTOR j 1014
1568 1A42 1569 959 pe AL2(RDDPC) CONTROL FIELD ADDRESS ~ : 1015 * THE LIST OPTION HAS EFEE SELECTED
156A Cl £7 190C 960 B STPPLD TO STEP TO NEXT SECTOR 1016 * LIST ALL PROGRANS RESIDING OW THE DISK
156E 1A3E 156P 961 Dc AL2 (@RTDPC) CONTROL FIELD ADDRESS 1917
1579 BD oc 91 962 CLI 1{ ,%R2),0 TEST POR DUP OF CYL. ZERO 1688 NC 91 7848 1487 1018 LIST MYC R2DDPC*2(2),IDICYL SET TO SEEK THE INDEX CYLINDER
1573 cco 61 1480 963 BE COPYA PROCEZD IF YES. 164£ 1019 LSTPND 2QD ®
1577 3D C& 01 964 CLI 1(,X82),4 IS PRESENT ADDRESS LESS THAN CYL. 42. 164E CC 87 1737 1020 3 READ TO READ ONE SECTOR
157A CC 82 1568 965 BL @RITEC STEP AGAIN IPF YES 1652 4) 92 02 taAaC 1021 CLC 2{ 3,XR1),acTCcon
1572 OD 07 1A99 TAUB 966 CLC RDDFC4#2 (2), PASOLD. DOZS PRESEST CYL. aDDR = LISIT? 1657 F2 01 20 1022 JNZ LSTEND
7584 CO 82 TaPn 967 BL COPYA CONTINUE 1658 7C 6C 08 1923 NVI 8(,IR1) ,C*-* SBT A DASH IB SESSAGE |
1589 968 DSKSAY ZOU #41 165D 7c 40 OA 1028 SVI 10(,X81),C°
*1588 3C CO 189E 969 NVI DISKTP,*-* RELOAD ORIGINAL I/O VALUES 1669 8D 02 C7 9478 1025 CLC =7(3,%R1) ,OLD IS THIS EBTRY MARKED OLD?
15a@c C8 90 1801 159A 970 SZZ LDPDE+1,SPEDSY 1665 P2 81 08 1026 JE LSTAGH IP YES, SKIP PRINTING IT
1592 cl 37 1958 971 B SETSPE TO RESTORE SPINDLE AND DISK VALUES 1€63 CO 87 O27A 1927 3 PRIIT GO PRIST
1596 CC 87 CBA1 972 3 AAO? 166C 91 166C 1028 Dc XL7¢O18 PLAGS
1594 0 159A 973 SPNDSV DC XL1*Q¢ 166D 13 1€6D 1029 pc ILw27¢ |
1593 CC 159B 974 WTRCAL DC XL1#08 1662 1379 166F 1030 pc AL2 (WORK+ 31)
1§9¢ 02 159C 975 RDRCAL DC XL1* 08 1679 CO 87 190¢ 1031 LSTAGN B STPFLD TO STEP TO MEXT SECTOR
159D 26 1590 976 IPLSW DC XL1¢O® 1679 1242 1675 1032 pc AL 2(RDDFC) COBTROL FIELD ADDRESS
1592 00 1592 977 READSP DC XL 1°08 1676 CC &7 164F 1033 B LSTF SD
159F C) 159P 978 WRITSP DC XL1°O* 1672 1038 LSTEND EQU
*15a C4Ea 1SA1 979 DUPCON DC cL2*pu* 167A 9% 20 15F3 0A27 1035 2AZ WTOC#(3) ,DZEBO(1)
15a2 D9ICSU34DE2N7ICINS 1586 980 NORDSP DC CL21*BD. SPINDLE ISCORRECT® es 1680 3D OC 1443 1036 VAGN CLI RDDFC+¢1,12
15AAR CULD3C580C9LSC3IDE 980 1688 P2 81 10 1037 JE vo" €
1582 p9D9CSC3B3 980 . 1687 C6 20 1688 0A28 1038 AZ VTOC# (3) , SUNONE (1) .
1537 DSCSCICAUOCRCIE2 15C9 981 NORDDK DC CL19*READ DISK IsCORRECT® 168D CO 87 199C 1039 B STPPLD .
153F D2SCCIESC 3DEDIDY 981 1691 1482 1692 10480 | DC AL2 (RDDFC)
15C7 CSC3P3 981 Z 1693 CO 87 1680 1041 8 VAGE
TSCA FODIEIGBSIE2ZDICI ISDP 982 NOWTSP DC. CL22*WRT. SPINDLE INCORRECT® ‘ 1697 C4 30 V7C7 0A27 1C42 YDS ZAZ = =- SPACE € (&) , DZ ERO(1)
15D2 £5C8r3C530C9D5C3 982 168D ©) 87 1049 1083 B CHKPAaS
ISDA DOLIDICSCIE3 982 1641 9D CO 1A3P 1033 1088 SAGN CLC &RTDPC+1(1), TRACKS
1SP0 F6DICIE3CS4OCS8CI 15P3 983 NOWTDK DC CL20*°@RITE DISK INCORRECT® é 16A7 F2 87 10 1045 JB SDS
ISEB E2D28CC9DSC 3IDEDI 983 : 164A CE 30 17C7 CA2B 1046 AZ SPACE #(8) , RUMONE(1)
1SFO D9C5C3IE3 983 . 16B0 CC 87 190C 1087 B STPFLD
€ 16B4 TARE 1685 1088 pc AL2 (WET DFC)
16B6 CO 87 16A1 1039 8 SAG
16BA CO 87 O2TA 1050 SDN B PRIST
€ +f 1588 07 165E 1051 DC EL 1"078
16BP GA 16BF 1052 - pc IL1*76@
*: € $
DATE Z2MAY7C 21A0G70 010CT70 OVAPR71 17H0971 O1NAR72 1230872 PROG ID Orr6-7 DATE 22SAY70 O1A0G79 010CT70 O1APR71 TTHOVTT O1MART2 1230872 PRoG ID- OFrr6-7
EC WO. 571513 571531 571590 571565 571608 571603 571628 PAGE 9 e @ FC NO. 571513 $71531 571540 571565 571608 571603 571628 PAGE 9A
138 SAINTESANCE DIAGNOSTIC PrOGRa Py, See om page go. 5129661
Ifh BAINTIWANCE DIAGHCSTIC PucGRaA ss cua. $ PART BO. 5129661
‘PAGE
Pace 108
ei
53327
FRE? OD : Sk EDITPCA rrev DISK EDITCER
eae OR OMS ReSEARe appy Sree Souder “searvaner ae | FFe LOC OSJECT cop? ADD? STST SOUPCE STATESENT
1€CO 1707 76C1 1053 pec AL2 (S#S6) « es * SUBROUTINZ TO EXECUTE A SEEK
*vec2 C) 67 CRED ace . EDITAA | | 1710 348 CE 4736 1068 SEexX st SZEELTe3, ARR SAVE RETURN aDDRESS
Ze a 1748 36 OF 1736 196 SPE EKS 1 POT ADDRESS IW RY
bias Sea 16Ee ane VaSG = =BC = CLAW" KO. OF PGR. ESTRIES LEFT IS Ezz* 1778 32 54 1736 TET seee ‘i eEtEt a ty 26 ST2P BXIT aianees PAST PABRASETES
eee Coreiseseaccac es ance TW1E 40 CF TIZR OF ICE SVC SEPKCT(2),17(,IR1} MOVE PARESETER TO SOBEOUTIEE
Sate. Ceaes aE TEIET 1056 3729 Cl 87 I7D2 1063 3 STRTIO TO SEPEK
ODS Meet e nents 1€E8 1057 VeOCe ZOU 8-1 1727 04 “727 4069 nc XL7°9° PONCTIOB CODE, (COPTROL}
TEES GSGOFMICICICSSS FICK FO5a SESS DC CLA3°, SPACE AVAILABLE FOR PGHS. IS EZEXE SECTORS?* 4oos nn es io er ae ee poe ae se eee
VGEL CVESCICIDICIC2D3 1058 | fone ar Fess ‘on . neces Son kekoE
Vers CosOCelen gan 77 vs : 1727 cf a7 1733 1073 3 246 PILLER
16FD DOP2EBLCCOP2ACE? 1058 ssa es ae anne eh oo ears
TICS BVETETGOE2CSC3Z 7958 | 33 ¢2 coee a SEPEKEX 8 -
r. apr ;
WISE PaO Es 1707 seca SPACES BOD e=9 wis s SUBROUTINE TO READ DATA O8 OBZ SECTOR 2
rf a o ee vy =
EST MRS OLEAO EQ, SEQEORESA 1737 34 08 175¢ 1078 READ s? READEX*+3, ABR SAVE BETURE ADDRESS
1738 3¢ CO TA85 2079 VI RDDPC+3,0 SE? TO 2EAD OWE SECTOR
173% Cl 87 1710 1080 5 SEEK
1783 1492 1784 1981 pc AL2 (BDDFC)
1735 Cl 87 17D2 1082 5 STRTIO TO READ OKE SECTOR
1709 91 1789 1083 oC IL1¢CT? PUSCTION CODZ, (3EAD)
179, 9° 1784 1088 DC KL1*08 CONTROL CODE, (DATA)
178B TA32 17Wac 1995 DC AL2(RDDPC) COsTROL PIELD ADDRESS
178D C1 &7 1CD2 1086 8 DSKZER ERROR RETURN
1751 Cl 87 1755 1087 3 23 PILLER
1755 C2 01 1351 19933 La WORK, XR1 LOAD FORKAREA ADDRESS YB xR1
1759 CC 87 9CE¢ 1089 2PADEY B s-2 EETURS
1995
. 19917 * SUBROUTIBZ TC WRITE DATA ON OSE SECTOR
Z - 1992
175) 23 C8 1772 1093 WEITe ST WRITENO3, ARB SAVE RETURE ADDRESS
1761 3¢ C9 1431 1298 SVI BSRTDPC+3,0 SET TO WEITZ OWE SECTOR
“ 1765 Ct 87 9712 1095 3 SEK
1769 TA35 176k 1096 oc AL2 (SRTDPC)
1762 C2 £7 W792 1097 3 STRTIO TO SRITE ORF SECTOR
: 176P 32 1757 1998 rc X1L1°92° PUNCTION CODE, (#2IT3)
1770 73 1779 1999 Dc XL7°0¢ CONTROL CODE, (DATA)
1771 TA3B 1772 1199 dC AL2 (WET DPC) - CGOWTROL FIELD ADDRESS
: 1773 C2 37 Icn2 1101 5 DSE ERB ERROR RETURE
4777 20 87 °«1773 1192 3 soe PILLER
T77B 70 87 cc73 1193 VRITELY 8 z-2 EXIT
g 1128
. 1105
; 1496 * SUSROUTIBE TG SCAN OBE CYLINDER BEGINNING WITH
: 1137 * CYLINDER 93, ASD ESDING WITH CYLISDER 11.
71983
W77P 33 98 W7A|Ar 1199 SCAWA ST BOSCAS¢3, ARR SAVE ADDRESS RECALL REGISTER
. 1783 25 01 1785 1199 L BOSCAE+3, X81 LOAD ARR VALJE INTO rR1
1787 1C 94 «47483 «91 1917 S¥C SCBPED¢3(2),1(,X81) IESZRT ADDRZSS FOR A SCANS FOUND
. 178C 10:01 «17BD 123 1112 SVC SOSCAN4¢3(2),3(,X¥B1) INSERT ADDRESS POR BO SCAN FOUED
x 1113 ’
1797 3C 34 103% 1237 1114 AYC = BDDPC#2(2) ,IDICYL SET CYLINDER 50. TO 09
. . 1115 SECTOR #0. TO 90
: 1797 1116 SBTCYL BQD) Oe
1797 oC 87 1737 1117 B READ
: 1119 * ©
s 1793 39 22 C2 mac 191199 CLO 2(3,X81),ACTCOS
: T7al F2 C10°97 1129 Juz wOSCAS,
P 1783 93 92 C7 1451 1721 CLC 7(3,X81),SAVID-1
TAQ Co at Coon 1122 SCNPSD 32 “2
-47ac Cf 37 197¢ 1123 B STPYLD STEP TO BEIT SECTOR 40.
eae 1739 1432 1724 1128 Dc AL2 (EDDPC) CONTROL PIELD ADDRESS
q 1782 35 OC 1423 1925 CLI 8DDPC41,12 TEST POR LAST INDEX CYL.
17B6 2D 91 1797 1126 85% SETCYL BRANCH TO SEZK IF BOT DORE
. V7Ba CC 87 Cont 1127 SOSCAN 8B s-© EXIT FOR NO SCAN POUsD
a. ‘ ° i
Tate 228AY72 © TVAUG?Z = OTCCT7C, = N4APR71. «= 17NOW71.~—sCTMAR72©—s:1259872 PROG ID Orr6-7 DATE = =»- 228 AYTE T3A9G7C = OTOCTIC =— DT APRTI V7HOV7T = =—- OTBAB72 © =—|- 12 ONT2 pee id
EC WO. S?71&13 571831 5715380 571565 5716048 §71663 571628 i FAGR 10 ¢ EC $C. §71513 871531 571549 571865 571604 571603 571628 : PAGE 10a
Zz
ae ese. ; S . _
I38 AAISTEBABCE DIAGHCSTIC PROGEAS
F967
Et? Loc
173E
17C2
1706
T7CB
17¢®?
—@ 4 4 4 4
wip wow
RPA nn
pA
aYrsex
OBJECT
3a
35
28
“«
s
re
Mot e7 3 OD
WO i Noon
cy
”
fd i wd RD WD Ht
OW 290) pain ats
Seopa TD CP be ty sy Mos
Wa eo ad pn bd
QD
we A?) ND
Ne & 62 Dw DN 44
t2
~~
oe ee
‘s
4
t
‘is tl
a
t
wre)
a a
ye wD
t
iG
Sy MO
‘eis
torte Oyta md
o
?
4-3
ny
oy
J
Re
PISAYTS
571843
ta OV OD we CP ECD A ad OOD ad Od
Errtrtrces
CODE ADDR
1375
1395
Wc
Caza
m
~
1722
4792
a &
BB ah Led
woo iw tg cat ap Eb hs ee ap ie
24
we U2
aa
Ae
Cae)
to
t3
a2
amas
ta
73
-°
ys
>
YrieMeruwmry
eo 1 TY
‘ye Bedid
JIAIGTC
§71531
Stet
4129 ©«
1239-
7731 SFYSe
3132
9433
7434
5138
TIS
7137 @
1738
1739
1783
stat
1932
739
7183
3785
17186
7147
1743
17483
752
41517
1192 *STS2K
1152
9153
T1185
1156 @ArIT
1157 SAvS@
11548
7153
1952
1161
1162
1962
1168 "STPED
1765 TSTSCE
1166
1167
1163 8
1169 2
1172
T1771 SPTAD2
4172
1173
1173
175
1176
1177
1178
1179
1925
VTRQ
11382
W143
31923
1985
1136
17ay
1186
1749
1199
1191
1192
1193
4133
1795
7796
RLIPFCR
9sto
SPTapa
Lastvat
c1ece73
$7193
g =
PART #0. 5129661. <=
Pace 1
*6.
mis:
STATERERT
SEWSE IO SUBROUTIBE
St SETXR2, ARB SAV! ADDEESS RECALL REGISTER.
L SETLZ2, X22 LCAD X22 SITS VALUE PROS ABE.
FEE $85¢1,0(,E82) SOVE IE FPUECTIORN CODE.
SHS STATOS,X°9Ce SEESE Io
2 9( X32) 2xIe
START Iyvd SOBROOTIVZ 7
JSIBS STBTIO,?
LA STATIC, X21 LOAD ¥Et AS BASE
3t SPTIV2(, FE 1} , ARR SAR7Z BIDRESS RECALL REGISTER
L SPTERZ(,ER1} ,-XR2 LOAD KB2 AS PARBRETER POLETES
gvI SRYUSH(, 251) ,1°87* SET SATE SBITCH PO Jump
SRG SIO*W{ ,XR1) ,C(, 582} SET FOSCTIOZ COLE rs SIS
s9- S104¢2¢1, 281) ,1(,Z82 SET COSTRBOL CODE YB So
g¥c DPCR (2, X33} 63 (X22) SET COBTEROL PIELD ADDRESS
LIO DPCE(,XE1} ,CTLPREG LOAD COSTEOL 2PGISTER
SF SI001(, X31} ,X*0 8" SPT Sif POR REEOVASLE DISK.
T2F DISKTP(,X31) -X* OB TEST POR RUB OB RFSOVABLE DISE
a2 TSTSEK JosP IP Yes
Sa5 SIO¢1(,%81), 2°08" SET SIO POR PIXED DISK
<1 2(,XB2) ,09 EST POR SEEK
JE SETADE IF Y2S, GO SET ADDRESS
LI3 DPIE(, X31) -X "as? LCAD DATA RESISTER ADDRESS
3193 X7)0* ,x7a0° START Y/O OPERATION
TID *(,I21),50SY DELaY
29O9 |
3 TSTEER SET TO A SSOP IP A SEEK CONNABD
¥o3 s@4
aqr 3(, X82) ,3-# RESTOR? 8TH BYTE
$2 2(_¢XB2),51 T0238 OFF THE PCRy 82ZY BIT .
229 *¢3 a
La e-2 FE2 EELCAD PASASETER POINTER IN XR2
*I3 8(,%82) ,-ETBDY BRASCH IP EBaRoR : p
®I9 3 (, X82} ,X%a8* BREASCH IP SCAE POUSD 2 .
2 12 (X82) £21?
SUSRDITINE TS SET THE SUSRER CP TRACES AED THE =
DIFZCTION (POSSARD CH EFVYERSE), TO SEEK
#
aye XB20K (2,X81) -32(,%22) SAVY ADDR. OF CYL. FLD. ADDR.
*avC LASTAD(1,%H1),CEDR(,X¥R1) SEY LAST ADDBESS POR DR. 2
T35 SIO¢1(,X21) ,X71C* TEST POR RUB OW DRIVE 2
JP 247 JusP IP sot
avec LASTAD(1,X%231) ,DEZ25£B(,481) SET LAST ASDRESS FOR DB. 2.
CLI ¥(, X82) ,01 IS THIS A BECALIZEATE ?
Ise B26 JISP IP #O
“VI PIStTPS (, IRI) ,c SEY SECALIZSATE 2 2Q02ST
L XR2IWK (,IB1) , XR2 LOAD £22 BSITH COBTROL PLD. adoa.
g7C DPC3SV¥(1,%21) -3(,XR2) SAVE STH BYTZ OF CCWTROL PIZLD
SvI SaWSH(,231),x°8C* SET SAVE SBITCH TO A BOOP
SLI PUSTPS(, XR1) ,0 IS THIS THZ PIRST PASS ?
Js? SPTada SKIP NECALISRATZ IP #0
avr P2STPS(,%5 1) ,C1 SZT PIRST PASS SWITCB
SSP 2(,%82) ,21 SET PUS/REV SIT TC REV.
evr 3(,%22) ,255 S2? SaAXISUS TRACK CROSSIBG
avr LASTAD(, #1) ,0 S2T OLD ADDR. TO ZERO
Sr0 93,Xx*a0* SEZEK REVERS?
avx 3(, X82) ,9 SET BUSEBER OP TKS. TO 0
87 seo -
CLI 1(, X22) ,%-* COSPAREZ S2W ADDRESS WITH PRESZIT s
Jz aDgexr ZQUAL, SEEK IS wOT BECESSARY
Ja PUDSEE WE ADDR. BISHER, DC POESARD SURE .
s3? 2 (,XF2) ,01 SE@ ADDR. LOSER, SET SIT FOR REV.
avc PLACE Last
ISAPI7T1
571565
SC32C8H(1,X81) ,LASTAD(, X21}
I7SOV71
5716948
O1saR72
571603
ADDR IN SCHRKARPA
T2IBETZ
571628
PROG ID
PaGE
OPr6-7
WI
R4
‘
ree
FPr67
ERP Lx
1686C
3374
3373
VATS |
T9378
Vave
79314
1385
78Ra8
7928
yaay
1897
VASE
13¢9
199%
136"
1998
1297
73a1
13R2
1333
348
2
wae c
73AC
iD iD
Oe eh ot
UO tr UP
(od 1 ttt tid iw
td ON ted
wh 14
wa wD
Ann
ted wy ud
V3CF
1302
¥32>Aa
1aDC
Tage
13 B6
VRTY
1983
Tae?
TaAws,
Tavk
V32
1978
39T4
wATE
v2 45.
DIS EE
* aan
ON eon
0
‘2
baw
wns
ab i
ord oo WOOD ty 02
cm ]
oO
Anaaaanrwar
”
ty
tap Ch tag
71 ta
ty) a>
crtyoe.
1a)
ta
iS)
tu
al
>
4
{
‘
,
r
ab) De ee
2 tee typed
.4
ve ae i a FD
’
dtd ehH NED ert
c
Dericsr dere
whe to hy
‘es
22May7
STIET3
3
32
Cy
ti 3
ta
pc 2a
22
(0
in
hd
C2
c3
cy
ZaE7
19327
TARL
wart
SR OCL
70
TRUA
%sr9
Jatt
otSt
i
VaD9 7A23
4333
1332
abr?
IAS
Taz2
TIRT
T3Al
¥9C2
Pama
- ~
1329
Tata
TASk
7R89C
TaSp
18er
Taa 7
1341
TER2
T9A3
a 2 TadG7?
£77831
SATNTESANCE CIAGHCSTIC PROGRAS
3497
1792
1199
120)
1201
1292
12393
1234
1235
1226
1297
1298
1209
1213
4219
1272
1213
1218
T2176
1217
4278
1219
1225
1227
3222
1223
922a
1225
4226
7227
1224
1222
7237
$2314
1232
1233
1234
1235
1236
1237
923a
1239
12aC
1281
4242
1243
1284
12485
92395
1237
272428
1299
1253
1251
1252
1253
72548
4255
9256
1257
ae te .
© r & & & 7 @ ere . ~ 8 @. - 2 sake 8 7 &@ es : ; j i
is ‘. 7 - ee ‘ : F J m Z : by we ey ‘ : * : : .
SOJECE
PUDSEK
S2c8
SETAD3
ADPEIT
S9CE
SPOR
EPPLS .
DISKTP
Tol aK
PESTPS
DSTADB
DREZADE
(> #
[oy
“4
ies]
wy
tn
aeene @ &
AA1S
AA2°?
cs .502
$2
TI8PXt
3TOCTIC
$7158)
$
PART 30.
$129661
PAGE |
Wa
STATESES?
SLC SCRCH(1,¥R2),1(-%82) SOUBSTHACT NE@ ADOR. PROM LAST ADDD.
J SETADB PROCEED
SSN 2 (, ¥R2),91 SPT BIT OW POR PORBBED SEBK
"FC SCRCH(1,E%21),1(,%282) PLACE BEG ADDR. IB BOUKAREA
SLO =—- SC RCH (1,227) -LASTAD(,XR1}) SOUSTRACT LAST ADDR. PROR HEE
22000 Se
#¥I 3(,%R2) ,%=* PLACZ BC. OF TRACKS IB CONTROL FIELD
SVC LA&STAD(1,X21),17(,XH2) SAVZ SEB ADDRESS
TBH 0 -SIO1(,ER1),X°10! TZST POR ROY OB DRIVE 2
JP 910 ; JOaP IP 50
“¥C «- DRZADEL1,XR1),LASTAD(,XR1) SAVE ORIVE 2 ADOBESS
J se7 PROCEED
eVC DRIADR(1,Z21),LASTAD(,X81) SAVE ORIVE 7 ADDRESS
3 LOFoOR (,XB1) LIT
oC AL2 (2-23
c AL2(8OBK)
BC XL1°O8
oc XL1*°CO°
DC XL2"co
*3c IL1°G0°
DC YL1°O#
5 XL 10"
SUBROUTINZ TO CCBPRYSS TXT CARDS
st COMPEYT¢3, ABB STORE SEIT ADDPZSS
La READINGSS, X22 IMITIALIZZ IWDZX REGISTER THO
TEST EACS BYTE IS THE LyvO BUPPZE TO DETZZ4Ive IP TSE BIT
CONPIGURATION BREPSESZEEYS A X°D0', BRHICH SIST BE COBVERTED TO
I'2k* I¥ GROER YC PEZSFRYE TSF OYIQUESZSS OF THE Low CRDBR SIZ
2ITS CP EVERY SYTE TO BY TRANSLATED THEROUGA COSPRESSIONS THO
PUNCH COMBINATIONS AFE FEAD ISTO COMZ aS 11210000 AND BOWE ARE
232A5 IsTO CORE aS XX1012 10.
cL. 2 (,%22) ,X*DO* DOSS THIS BYTE FLPRRSEST 2
CHARACTER POR SEICH THE LOG
ORD2E SIX BITS APE BOT BBIQUE? |
J#2 e+6 HO, COSTIZGZ PROCESSIG
avr 24.722) ,X*2a° YES, SUSSTITOTES A DBIQOL CoyPric.
A B2IS3S1, X22 DZCRERZET IK2 TO POIST TO ELIT
st XR20%,I%RB2 SYTZ TO BE COSPERESSES.
< X520GK (2) ,REZATAV IF ALL T2xIT INPO. HAS SOT
231 BA19 ; B228 COMPHESSZD, RETURE TO THE
oy PPADIN¢87 XB LOAD X81
u 9(oXR1) X82 LOAD XR2
avr 5141,0 IEITIALIZZ L2SSTH PISLD
avc S294 (%) S144
azc ¥( 8-2, £22) 51 (,X%22)
ALe 1(8-*, 222) ,1(,X82)
aLc S¥¢1 (7%) cs? ST2P
c .S$1¢1,8 TZST 93RB & BYTES CCHORESSED €
332 C8LSOE BRasCS IP 80. . : a
avc 1(3,%81) ,3(, 322) RCTZ 3 COSPRESSZD ®YTES
a 42G3,X21
A S2G8,%R?
3 W320K X32 STOs2 SES VaALIe
cL XY320K (2) ,22aDa5 CSPARE BITH Last ADDRESS
392 ah 29 COSTINTDS TILL CARD IS FINISHED
3 S-s exit
SUAPA71 W7IICVT CIS8B72 I2IIF7I2 PROG ID. OFF6-7
=71555 $71608 571603 571628 PAGE TTA
€e
IEA SAINTEMANCE DIAGNOSTIC PROGRAN |
‘PAR? FO.
PAGE 12
FI6T7 DISK j=f€dDrITO0OR
Bar LOC CEIFCT COLE ALOR STST SOURCE STATEMENT
1259 @ SUBROUTISE TO STEP CONTROL PIELD TO THE BEXT SECTOR
*aca 91269 :
190C 35 C8 19aD 3261 STPFLD ST STPEITCI, ARR SAVE BxIt apDRess
1919 35 C2 194aD 1262 L STPEIT+3,XR2 LOAD ER2 AS POINTER TO PARABETER
1978 JE 91 19GD TATR 1263 ALC STPEXT¢3(2) , TRO STEP EXIT ADDRESS
1970 235 92 04 1268 L 1(,. R82) ,XR2 LOAD ADDRESS OF CONTROL FIELD IB XR2
191 SF 01 92 14878 1265 STPPLE ALC 2(2,222),OHESEC STEP TO NEXT SECTOR #0.
1922 Af 60 92 1266 TBN 2(.%22) ,X*60* TEST FOR SECTOR WO. 28.
1925 co Wf 194D 91267 ar STPFLE BRABCH SACK IF Yz2S
39239 CZ 31 1988 $263 LA CYLTEL, ZR} LOAD XR1 AS POISTER TO CYL. TAZi2
192) 9D 39 61°92 9259 CKCYL CLC 1(1, 282), (,XER1) CHECK PRESENT CYLINDER WITH TABLE
99327 92 417 °=05 12709 JBE STPPTR TO STEP POINTZR IP PRESEWT CYL. OK
9930 87 379 CT 9403 1274 ALC 141,282) ,OWE STEP PRESEST CYLYSDER BO. +1.
49399 52-94 C4 4272 STPPTP La 1(,2H1) ,XB? STEP TABLE PGIETER
393C 34 34 TABD. 1273 st SAVIR1,ZR1 STORE PRESENT VALOEZ OF XRi
7949 29 34 TA8D 1957 1278 c SAVIE1(2) ,TBLEND HAS LAST HUBBER BEEN COBPARED?
weogé Cl 11°1392D 1275 BNE CKCYL TO CHECK ASAI£
79843 CO a7 SOC9 ‘1276 STPEXT 8 a8 EiIT
‘4277
1982 92783 CYLTSL EOD
*290? CHCSIE87 1951 1279 oc 1L9°08050687°"
1952 SEQQUANS 7955 1280 pc XL8*88a90A90B? ;
1956 1956 1957 1281 TSLEND DC aL2¢%)
’ 1232
. WEE 1233 DOSING SEBSE,1
1959 323 98 197F 1288 SPETSPN ST SPHEIT¢3, ARB SAVE EXIT aDpRESS
195C C2? CY VISE 1235 LA SEaSE,IR1 LCAD BASZ REGISTER
196C 592 C3 46 43 1286 NZZ SI0+1(, XR 1), LDPDRO1(, B14)
1963 SE TC 39 43 1287 u72 WAIT#1(,281) ,LDFDRO1(,ZR1)
9969 SA 04 £O 2 7289 822 TSTEERST(,X81),LDFDEO1(, X81)
196C 58 29 5C a3 1289 SZZ TSTSCHO1(,XEB1},~LDFDR¢1(, XBT)
1979 $8 CO Ce 83 1292 a7Z 535¢1(,%21), LDPDE+1(, X81)
7978 538 (69 22 a3 1291 "ZZ RLDPCRE1(, 281), LUFDR¢1(, XB 1)
1978 59 C2 99 33 1292 872 RSI1G#1(,X81) -LDPDB*1(,2B1)
W790 cf aTrcice 1293 SPNEXT B a-8 £xItT
1298 ato
1995 35 C8 49n7 1295 IPicep st IPLEIT?#3,aReB SAVE EXIT ADDTESS =u
1982 22 97 oCAeOD 9296 LA PEADIN, IR2Z LOAD READI® ADDRESS IN XR2.
1929 35 c5 06 1297 CLI 0(,X82),c*z* IS TSIS THE EBD CARD?
1988 F2 01 C7 1294 382 <IPLA BRAESCE IP? 50
199% 3C FF TA62 9299 8vI ESDIPL,X*PPF* SET SSITCH TO ISDICATE ERD OF IPL
1992 F2 €7 3P 1300 J IPLEIT TO EXIT
1995 3D 23 00 4301 IPLa CLI 0¢(,%R2),C*r® TEST POR A TEXT CARD
1998 P2 31 39 . 1302 JZ -IPLEXT IGHORE THIS CARD IP BOT
499B 9D 01 1A9F 1A94 1303 cLc WIXTPT (2) ,BORKZ IS THIS THE FIRST TEXT CARD?
VIAT P2 OF CE 9303 | IWE 649 SKIP POINTER ADJUSTSENT IPF BO
19am OF ST TAOE 71239 1305 ALC WTXTPT(2) ,BEG3 ADJOST POINTER BY THREE
7922 2¢ C9 19CP 17 9306 SVC IPLSOVe1(1),234,Z222) SET COUNT IN IPL BOVE INSTRUCTION
T9AF BC CS (16 1307 aVI 22
229aRT7C CIADST7O 210CT79
§71513 571531. 571589
PART 80.
571628
5129669
PAGE 12a
STAT EREST
CLC 89(2,XR2),2UP—&8(,X81)
JE BUPS?T |
CLC 90(3,¥82),IPL (,%81) TS THIS PROGRAS THE IPL LOADER ?
JE IPLSET YES, SET PLAG.
CLC 90(3,%82),LOD(,XB1) IS THIS PROGBAR THE DCP LOADER ?
JE LODS2T YES, SET PLAG.
SVI -TSTPLG(,1R1),1° FRY ASSUSZ TEST SECTION
3 IDEuTE TO EXIT.
SVI - DCPPLG(, X81) ,X° PP* SET DCP FLAG
J IDESTX TG 21I?.
VI BUPPLG(,ZR1) ,X° PF? SET BUP PLAG
3 IDESTX
SVI IPLPLG(,%R1) ,X° PP? SET IPL FLAG
3 IDE UTX TO EXIT.
SSVI LODPLG(,XB1) oX°FP® S2T LOD FLAG
8 s-2 2xIt
DC CL3°Prr®
pC 8C«CyNLAT*a®
pc CL6 * ODO EO P
*pc CL2° PB?
pc 1L7°00°
ac IL1°008
pc XL1°0°
pc XL1*°00¢
DC IL1*°C0°
DC xL1°G9¢
DOLPHIN #ERITZ CONTROL PIEZLD
DC XL1"C0° FLAG BYTE .
re 1L1*008 CYLINDER 0-202
Dc 1L1°G08 HEAD & SECTOR
2c XL1¢°008 SECTOR COUNT
DOLPHIN READ COBLROL PIELD
DC XL1¥*09° FLAG BYTE
BC T7°co* CYLINDER 0-202
ac XL1°¢0* HEAD & SECTOR
Dc XL1°00* SECTOR COUST
pc ILa*coe ;
3c CL3°acr®
DC xL 2°08 ;
Dc ¥L9*00°
pc iL 1°0* DUSSEY
3c IL1°9¢
DC 1L21°0°
200 8 PEEC#1 :
-2QU PHECe3
pc XL1°0
*bc XL1°00° ‘
pc XL7°00° ‘
DC YL1°08
pc IL1°0"
pc XL9°09°
pc XL2*0
*Dc XL 1*90°
pc XL1"0°
Dc IL2° 08°
DC XL2*02
*Bc 1L2°0708°
DC = CL °6
DC sé 3 * PaS
*pc XL2°0B00
*pC =—s- XL. 29.0790"
ac XL1°2¥°
pes XL2* 08008
Ec IL2*PPFD?
Q1APR71 17N0V71 019a872 12350872 PROG ID Orr6-7
571565 571698 571693 Wa
PAGE
i ee ee ee
‘TEN MAINTENANCE DIAGNOSTIC PROGRAG
FF67
ESF LOC
DB
E
A
c
TA8A
1A8C
1A8E
TKO
4490
1491
TA94
1495
1097
7099
TA9B
VASD
1A9F
1AA1
1AA3
THAS
TAAG
TAAS
TAAA
TAAE
TAB2
TABS
TAB6
1ABB8
1aco
1AC8
TABO
TAD1
TADS
TADD
TABS
TAED
TAFS
TAFS
1B01
1809
1BT1
1B79
TBIC
1B24
1B2C
1B34
183¢C
1Bu1
1B49
T
Ez
NO.
DISK
EDITOR
OBJECT CODE ADDR
PPFC 1ABB
0000 1A8D
co iABE
AO 1A8F
BO 7090
600000 1A93
00 1A94
DASA 1AS6
OADS 1A98
1854 TAQ
1¢59 1agC
0000 1A9E
onoo TAAO
0000 TAA2
0000 JARS
00 TAAS
0000 qAAT
c4acs 1AA9
FO6B6R40 1AAD
FPFPFFFP 1AB1
DECS 1AB3
‘DIDS 1AB5
c3c8 1AB7
DSCOEZE2C9DSC74O TACT
CIEIPINBROCICHAB
4OCSDS4OC5DIDIDE 1ADO
pa ‘
E2CSDB84B40CSD9D9 1ADC
D6L96B80
DSCSE7TE340C3C1D9 IAPS
C44 OE2CBDEESD3CY
BOC 2C S40D5SDO4B40
ETETETE?
DIDITEC7TDIC ID44O 1B1B
C9CU4OC5DSD9DE DI
6BYOCICHSOE2CBD6
B4UD3ICE4OC2C540ET
EVE7E? |
DSDEYOEZD7ICIC3C5 1B40
4CC1E5C1C9D3C1C2
D3 C540 E3D640C1C4
C449LSCSE640D7D9
LOCTESCIDA |
SOETETET4SODSD6E3 1850
4OD6D5SR0CKC9E2D2
1851
22HAY7O OTAUG70
571513
571531
STAT SOURCE
REGS
SAVER1
PSTCD
SPN DLA
SPNDLB
OLDADR
MOVCTR
READS
READSS
VORK3
GWOKI94
eTXTPT
WRIPTR
RTXTPT
RRIPTR
WKRICT
SCRACH
DELCON
DATCRD
LASTNO
SECARD
PNKOW
CuGccon
1393
1394
1395
1396
1397
1398
1399
1800
1801
1402
1403
1604
1405
4406
1607
1408
1809
1440
1614
1492
1413
1914
1815
1416
1817
1917
1818
1818
1419
1819
1820
1420
ERROR1
ERROR2
ERRORS
4420
1820
1421
1821
1a21
1821
4821
4422
1822
1422
1822
1422
1423
1823
1428
ERRORS
ERROR6
ASGO02
WORK
ne rn str
Otocr7S
571580
&
ve
532966 |
PAGE Ww
STATESEST
BC IL2* FrFc
*“BC XL2° 0°
BC XL1*008
BC XL17*ag¢
pc XL1*H08
pc XL3*00¢
DC XL13*00
*pc AL2 (READIN #26) SOTE: READS AND RERDSS AUST
DC AL2(RBADIN485) BE KEPT TOGATAER :
pe AL2 (WORK* 3} BOTE: SORK3 ABD 8OR191 HUST :
BC AL2 (8ORK+255) BE KEPT TOGATHER
pc AL2 (*-#)
pc AL2 (#-%)
Dc &L2(¢-*)
pc AL2 (*-#)
pc KL7*00
*pc XL2*0
*pc CL2*DE
*pc CLE*0,,
*DC XL4° PEPPY?
pc CL2*#E* a
pe CE2* put
*DC CL2*cH
*DC CL1I6*SISSING CTL. CD.
*pc CL9* Im ERROR®
pc CL12°SEQ. ERROR,
*DC CL28°HZXT CARD SHOULD BE WO. XXxXx* <
pe CL35*PROGRABS ID ERROR, ID SHOULD BE XXXx
*pec CL37"°HO SPACE AVAILABLE TO ADD WEW PROGRAH® ©
DC CLI6® XZX HOT OB DISKS
EoD oe
€ we
OTaPR7t 780771 OtHART2 123UB72 PROG ID OFP6-7
5715 571608 571603 571628 PAGE 3 —Ct
€e |
oo ts nemradernnenrenena natenmanansmne:
reeyerte bee ere
33789
$
i
q
IBM MAINTENANCE DIAGNOSTIC PROGRAA
FF67
ERR LOC OBIFCT CODE
DISK EDITOR
ADDR STaT
4826
1827
1428
6©e2@e@eoe7e7?eee o@eeee?e@eoes°*e
. By el pe ERs Ge on oma me aes a3 F ay : 2 ne ce PY eas ee ea é ‘ p :
:
PART #0.
PaGE
SOURCE STATEMERT
*
*
THE FOLLOWING TAPE READ ROUTINE RESIDES IN TRE DISK WORK AREA.
IP IT IS TO BE USED, IT IS HOVED INTO THE CARD READ ROGTINE BEFORE
5129661
138
* THE DISK SORK AREA IS USED.
@HES THE DISK WORK AREA iS USED THE
¢
me
a2 * PIRST TINE, THIS ROUTINE IS OBLITERATED.
3630
1231 * - EDITOR TAPE READ ROU®?I EB <= 2
1832
1432
0880 14833 USING RDARE,1
1B5S7 1434 _ -‘OSING HEZTR*S,2
1851 C2 0F 0880 1935 WEXTR LA RDBRE,1 LOAD BASE REGISTERS
1B55 C2 02 0066 1436 LA X°0066*,2
*1859 B& 08 AC 1437 ST BT H+ 3 (,XR2) , ARR STORE RETURE ADDRESS
1B5C B1 10 SP 1438 LIO 8=—« SETOF #41(,2R2),X°10" TOBE OPF TAPE STOP LIGHT
7839
B5P BC 00 51 18GQ0 SETDLY BVI DELAY1¢1(,XR2),0 RESET DELAY COUsTS
1262 BC 00 55 1481 RVI DELAY2¢1(,"R2),0
1865 SP 62 62 62 1882 SLC RDERD{ (99,XR1),RDEND(,XR1) CLEAR THE RERDIN AREA
18483
1683
1444 © --GAP DBPTPECPIOR -=
18485 :
1869 SF 00 00 00 1886 RESET SLC RDARE(1,XR1) ,RDARE(,XR1) RESET COUBTER TO ZERO
1B6D E1 £2 12 1847 COUNT TIO RESET (,1R2),X*E2¢ TEST FOR A BIT
1870 62 00 00 SPF 1848 ALC =RPARE(1,XR1) ,INCR(, XR2) ADD 1 TO COUsTER
1578 SC 02 03 03 1949 MVC =6BLARE*3(3,XR1), RDARE+3(,XR1) DELAY
1B78 Ev 20 16 4250 BRHOL COUNT (,XR2) REPELT TILL OVERFLOW OCCURS ;
1451 * THE ABOVE STEPS GUARANTEE BLANK TAPE FOR ABOUT 8.5 MILLISECONDS TO 2°
1452 * ASSURE READING CANNOT START IM TEE MIDDLE OF A RECORD.
1853
1453
1854 * -- FISD THE FIRST BIF - |=
1855
1B7B EY £2 28 1856 TSTCLK TIO CLK1(¢,XR2),X*E2* TEST FOR 1ST CLOCK BI? .
IB7E £O 87 28 1457 B TSTCLK (,XB2) REPEAT IF BORE 3
1881 BD 00 51 1458 CLK1 CLI DELAY1¢1(,ZR2},0 CHECK FOR 1ST PASS é
7388 £O 0171 50 1459 BYE DELAY1(,ZB2)
1860
1860 =
ae 1861 * --SET VARIABLE DELAT-=--=- mee
1862
1B87 £1 £2 43 1865 TSTOUP TIO ADD(,XR2),X* E2° TEST FOR BIT STILL UP
1BSA F1 P2 68 1468 TSTDN TIC SHIFT(,XR2) -X*E2° TEST FOR BIT STILL DOWN
1B8D AE 00 55 DE 1465 ALC DELAY2¢1(1,X22) ,SIX (,XR2) ADD SIX TO DELAY
1B91 EO 20 33 1866 BOL TSTDN { , XB2) BRANCH BACK IF 80 OVERFLOW
1894 BC FF 55 1867 AVI DELAY2¢1(,XR2),2°PF* ISSERT HAXISUS COUST
1897 EO 87 645 1868 B SHIFT (,XR2)
1B9A Az CO 51 DP 1869 ADD ALC DELAY1¢1(1,XR2) ,NINE(,XR2) ADD BIWE TO DELAY
1B9E EO 20 30 147C BNOL TSTUP(,XR2) BRANCH BACK XP #0 OVERFLOS
1BA1 BC FF 51 1471 MVI DELAY1¢1(,%82),X*FF* SET SAXISUM COUNT
TBA £0 87 30 1472 B TSTOUP (, XR2)
1873
1873
1874 * -- READ THE TAPE -=
1875
1BA? SC CO 62 62 1876 DELAY? SVC RDEMD(*-*,XR1),8DESD(,X81) VARIABLE DELAY (780-1180 8S)
1BAB SC 00 62 62 1877 DELZLY2 AVC = RDEND(*-*, X21), RDEWD(, X21) 4
TBRF 7a 01 62 1878 SBN RDERD(,XR1),X*01° SET THE BIT Of 4
1BB2 21 E2 61 1879 TIO fTSTEND(,XR2) ,X*¥E2* TEST FOR A DATA BIT OF
12BS5 7B 01 62 1880 SETOFP SBF RDEND(,XR1),X*01* ¥O DATA BIT, SET OFF
1BB8 EO AO 6P 1481 TSTEND BOL DONE{ ,XR2) RETORS TO READ THE WEXT BIT
IBBB 5E 62 62 62 1882 SRIPT ALC RDEND(99,XR1) ,RDEND(,XR1) SHIFT THE DATA LEFT
IBBP SC 76 77 77 1483 MVC = BDARE# 729 (139, X81) , RDARE#1719 (, XR1) ADDITIONAL DELAY
18C3 £0 87 28 1989 B TSTCLK (,XR2) LOOK POR THE REXT BIT
15°85
1485
1886 * -- ChHBCK RECORD -- 7
1887
DATE 228AY70 01AUG70 010CT70 O1APR71 17N0V71 O1MAR72 1230N72 PROG ID OPP6-7
EC NO. 571513 5715480 571565 5716068 571603 571628 PAGE 13a
IBA BAINTENANCE DIAGNOSTIC PROGRAS
PART HO. 5129661
PAGE 18
FPO7 «38D ISK EDITOR
PRE LOC OBJFCT CODE ADDR STMT SOURCE STATEMENT
1PC6 BC 81 DC 1883 DON2 MYT CHKGEN(,XR2) ,X*81° INITIALIZE CHECK CHAR. GEEERATOR
IPC9 RC OS 76 1689 AVI ADDCHK¢3(,XR2).0 ZERO THE DISPLACERENT I8 THE aDD
1BCC 9F 00 pc 90 1090 ADDCHK ALC CRKGEN(1,XB2),%-*(,XR1) ADD IW THE CHARACTER
18D0 RE OC 78 SP 1494 ALC = ADDCHK#3(1,XR2),1NCR(,X82) ADD 1 TO DISPLACEKEST
1BD4 BD 61 78 1692 CLI ADDCHK4#+3(,2R2),X°67® TEST POR POINTING TO CHECK CHAR.
TED? FO 01 75 1493 SNE RDDCRK(,ZR2) ADD IR HEXT BYTE
TEDA 9D 00 DC 61 1494 CLC. CHKGEN(1,X%82),RDEND-1(,X21) TEST CHECK CHARACTER
1BDE FO 91 AD 1495 BRE ERSSG(,XR2) BRAECH IP ERROR
1BE1 F2 87 38 1696 RTYTST 2 TESTRN THIS JURP IS FORCED TO BE ALWAYS
1897 * UNCONDITIONAL UNLESS RETRYING A
1498 @ READ THAT PAILED. #8 THIS C&SB,
1899 ¢ IT IS PORCED TO BE A HO-OP.
1500
*1BES EO 87 C14 1504 B TSTREC (,X22} A RETRY IS IN PROGRESS, CHECE
i862 THE RECORD WOABER.
1503
1503
IBE7 9C CO DD 6¢ 1505 SAVE®N MYC RECNUS(1,ZR2),RDEED-2(,X83} SAVE THE RECORD SUSBER
1EFB BC 87 83 1505 AYE RTYTST+1{ ,4R2),2°87° PORCE THE BRANCH TO BE OUSCONDITIORAL
IBFE 74 72 60 1506 LIG RDEWD-2(,XR1),X°12® DISPLAY THE RECORD RORBER
1507 .
1BF1 7D 61 00 1508 CLI RDARE{ ,3%R1),C*/* TEST FOR END OF JUB STEP (/*}, OF
1509 * END OF JOB (/&).
18F4 F207 09 1519 J8E RTE JUSP IF SEITHER
1BP7 7D 61 014 1519 CLI RDARE¢1(,XR1),C%/! CHECK FOR //
TEPA F2 81 C3 1512 Je RTs JUMP IP //
1513
1EPD 81°11 SP 1518 LIO =. SETOPF#1(,XR2),X*11* TURN ON THE TAPE STOP LIGET
1515
1c00 cO 87 Coen 1516 BTN B +-* RETURN TO USING ROUTINE
1517
1517
1518 ® -~- TAPE ERROR --
1519
1c94 RC 2C FR 1520 ERNSG AVI TAPERR¢2(,X82),X'2C* SET HALT CODE
1C07 CO 87 021A 1521 PRTNSG B PRINT PRINT ERROR SESSAGE
1COB 03 IcOB 1522 pc XL4°03° FLAGS
icoc 41 109C 1523 pc IL1*47" LEXGTH
ICCD 2156 Ice 1524 pc AL2 (MSG-HEIT R496) ADDRESS OF HESSAGE
1525
1825
1COF FO 78 09 1526 TAPERR HPL ¢%-*,x*78¢ ERROR HALT
1527
1528 * NOTE - AT THIS POINT, A ERROR IS T#DICATED. THE OPERATOR
1529 * MUST NOW REWIND ENOUGH TO ALLOW THE RECORD TO BE RE-READ.
1530 * AN ABCD245 HALT INDICATES B READ CHECK. AM ABCDIS HALT
1531 * INDICATES A SKIPPED RECORD OR THAT THE WAS HOT REWOUSD
1532 * SUFFICIENTLY BEFORE RETRYIHG A READ CHECK.
1533
1533
1€12 FR 07 88 1538 @ SBF RTYTST+1(,XR2),X°07* FORCE THE RETRY BRANCH TO HO-OP
1015 £9 87 0A 1535 B SETDLY(, X82) RE-READ THE RECORD APTER REWIED
1536
1536
1018 6D 70 60 PD 1537 TSTREC CLC RDEND-2(1,X81),RECHUM(,XR2) TEST FOR CORRECT RECORD
Tc1c £0 08 08 1538 BNE SETDLY(,XR2) WOT THERE YET IF LOW OR EQUAL,
1539 « . READ ANOTHER RECORD.
1clP 6P CO 69 LD 1540 TESTRE SLC &8DEND-2(1,XR1),RECNUM(,XR2) SUBTRACT THE LAST GOOD
1581 * RECORD PROS THE PRESENT ONE.
1€23 79 PE 60 1542 TBP RDEND-2(,XR1),X°PE* TEST POR A DIFFERENCE OF ONE
1¢26 62 CO 60 rD 1543 ALC = RDEND-2(1,%8 1) ,RECWOA(,XR2) RESTORE PRESENT REC. 805.
1C2A £9 10 90 1594 8T SAVERS (,XB2) IF TRUE, WE READ THE RIGHT REC.
1585
1C2D BC 84 BA 1846 NVI TAPERR¢2(,XR2),X°S8* SET THE HALT CODE.
1¢39 £0 e7 BO 1547 B PRTASG(,XR2) GO PRINT ERROR #ESSAGE
1588
1¢33 00 1€33 1589 CHKGEN DC XL 1°08 CHECK CHARACTER GEM. BYTE
1038 70 1038 1550 RECNUM DC XL1°0° RECORD NOMBER SAVE SYTE
DATE 22HAY70 01A0G70 010CT70 OWPET71 1780171 018AR72 1230872 PROG ID OFF6-7
EC NO. 571513 571531 571540 571565 571608 571603 571628 PAGE 18
es .
oy -
533393,
zc 6¢
g 3
f 3
€ é
€ 3
€ 3
€ 2
eg is
4
ISS MAINTENANCE DIAGNOSTIC PROGRAS
PP67
ERP LOC
1¢35
1036
1¢37
1C 37
Ca?
C880
cseo
0881
1051
1051
¥C&2
1053
1¢59
1C5D
1C60
1C64&
1c68
7C6B
IC6E
C72
1c7s
1c79
ic7D
1¢c89
3C83
1c87
CSA
1C8D
ic91
1098
1098
1C9B
ICOF
Ica5
Wcag
tCAR
qCAS
TCAD
ICAF
1CB3
ICE?
TCBA
CBD
CCI
1CCE6
1cCcB
TCcCr
rate
DISK
|
OBJECT CODE
06
99
e3cwp7csHdpecs cs
DELIC4sOCIAC
DZ
C916
0202
P2 10 3P
cacy
022F
E2 02 €3
D2 07 03
Cd 09
F2 OF 15
02 02
7 99 = 04
BA 20 901
88 70 01
C972
F2 87 15
78 10 01
C913
89 90 C1
C92E
FO 38% C3
f92E
COSA
C212
22SAT70 ;
571513
EDIT
cR
ADD
C35
TPRE
iC 36
C87
Bcsc3
CBED
C8E2
1051
C52
C97F
922F
ICA9
ICRA
tcac
ICAE
00
03
ICD2
07AUG70
571531
PART
PAGE
BO. 5129661
waa
STMT SOURCE STATEMENT
1551 SIX pc XL1*06¢
1552 INCR EQU SETOFFe1
1553 WIRE DC XL1*098
1558 MSG DC CLI7*TAPE RECORD CHECK®
1558
1558
1555
4556 OPG x*3880
*1557 RDARE 0S cL
1558 RDEBD DS CLOG
1559
1560 ORG 8ORK4256
1561 DC XL17°O?
1562
1563 ENDROD DC CLie #
1565 HYC 20(21),X*°97F* SET UF PROGEAM RESTART
1565 TBE SPPLGS,BITO BRABCB IF WO ODT ENTEIES
1566 IT LDEED
1567 LA SPUDT , X22 POINT ZEB2 AT SECTION PREPACE uDT
1566 LA OTAB, XR POINT XR AT DCB UBIT TABLE
1569 LB 3 (, X82) X82 ISCRESEMT SPOT POIBTER #3
1570 LA 3 (284) ,XR7 EBCREGENT POINTER BY THREE
1571 CLC 0(14,XB1),0{ (,_X8Z) BRAWCH IF BOT PROPER UDT
1572 JNE UPINDS
1573 MYC 2(1,ZR2) ,2(,XB1) LOAD SECTION PREPACE OPTIOR
1578 SKN =. 1.(, X22), 1(,XR1) BITS
1575 SBN 1(,XB2),BIT2 SET ASSIGNED FLAG
1576 TBR 1(,%R2) ,BIT3 (OPIKD3 CRECK)
1577 BF x*912¢ (UFIND1)IP NOT LAST ENTRY, GO LOAD BEXT
1578 J LDESD OTHERWISE - GO START SECTION
1579 UFINDS TSN 1(,XR1),BIT3 CHECK POR LAST DCP EuTRY
1580 BP x*9198 " «(SPIND2) CONTIBUE IP HOT LAST ENTRY
1581 TBF 1(,%82),BIT1 SKIP ERROR HALT 1F REQUIRED PLAG
1582 8T X°92E¢ (OPIED3) wOT OF
1583 HLT1 HPL 481,8B *ODT CANHOT BE SATISPIED
1588 B K°O2gEe (OPIED3)BSYPASS ERROR IF HALT RESET
1585 LDEND S¥C X*95A*(2),xX°22P¢
1586 8 PRIAT TO PRINT HEADING
1587 Dc XL1*Q78
1588 pc IL1¢ 14°
1589 DC XIL2*900°
1590 pc XL2° PFOO?
1591 TBP SBYTEO,SS§07
1592 TBF Xx*?PD*,x*Qae
1593 JP +06
1594 HLTA HPL #A,8H
1595 L PRTB,X*°03¢ SAVE PIRST ROUTINE PREPIX AND
1596 S¥C =—- BRUM (1) ,0(,XB1) LOAD CURRENT ROUTIBE BUSBER
1597 HVC RPPK(4&),3(,X51)
1598 B TEST CHECK DATA SWITCHES
1599 8 &(.XB1) START DIAGNOSTIC SECTTOR
1600 LENGTH 2QU * |
010CT70 OTAPR71 17HO¥71 O1MART2 1230872 PROG ID OPF6-7
5715480 571565 571608 571603 571628 PAGE WBA
2
%
N
IB" MATETENANCE DIAGNOSTIC PROGRAS
Pré7
EIR LOC OBJECT CODE
rare
‘BC NO.
Oo rs«
Z22HAaT7C
571813
2vrtroeR.
ADDR
¢e91
eCd2
3308
C029
C2948
9272
3216
o298
0294
3226
O2248
1B52
TES4
cag7
3a$9
Ca37
922?
9222
C271
C893
Cal7
CtS3
cca
C020
e035
C334
C203
JA92
CIA2
C2 a6
cosa?
6093
C93?
C332
3100679 —
571531
ST#T source
1602
1603
1698
1605
1656
1697
1608
7699
7699
T6U4
W692
1693
Fos
1615
1676
1697
7615
1619
1€22
3621
1622
1623
1624
1625
1626
1627
1625
1€29
1632
1631
3632
1633
1€34
$635
rat
X22
AR3
PIIAR
SBITCH
TEST
LIK
PRIEST
SYSTER
PACK
LOAD
WORKER
BRADDR
READS
RDADDB
SPOT
UTAS
RALt
2P PX
aN
PRTS
2IT)
BIT
SIT2
3173
$907
SE YTEO
SPPLSS
30SY
CTLRES
STRDY
24
qa
a9
OtocT?O
571589
STATEREST
goo «09
zoo 002
zou g* 0B
290 4x¢20°
Qo 040«-z* 20a
Zoo 40 ¥*2928
rou 0 x° 2768
290 «-x*2ta?
zou. 40512
foo = ¥*226¢
BOG 20 X* 228°
200 SORKS?
200 «-«BORK3
20 0«- READINC23
Po0 «=FEZADIES2S
O53 «= X°a07
*290 °22F¢
zou) 4 -¥*2228
rou 4 «-x* 2978
rQ0 20 ok*a03
*eco | E*RO7
*595 4«= x" 80?
790 «z*808
a0 40-x*# 208
PQ00 0 «ox 0°
2930
E20 -x*2088
290 «-x*a02°
293 x*a2¢
ZO5 2 OK* AG?
290 8«x*aoe
90 x?03
*20 x" 3P°
Foo) «xx* 3B¢
}
OtAPRT7I 1780971
571555 571603
' ADDRESS OF FIRST RTB PREFIX
‘CIBART2
571603
PART 80.
Pack
SECTION PREFACE ONIT TABLE-3
FIRST BYTE OP UDT TABLE-3
SECTION
EQUATE POR B LEVEL
EQUATZ FOR B LEVEL
EQUATE POR B LEVEL
HALT DISPLAY 1
BALT DISPLAY A
HALT DISPLAY 8
I2ZJTBF2
571628
PREPICE2 FLAGS
PROG
PAGE
ID
ante ot
”
ton
5129661
-%5
OPr6-7
15
€
7
es
©
€
G4
IBIS T
tp
a4
2
ee
IE" SAINTENANCE DIAGNOSTIC PROGRAN
Pr67? D
EFe Loc
1CcD2
ICDE
TCDA
ICDE
C83
CET
ICES
IEC
ICEP
ICF2
ICF5
CPS
1c¥rEB
ICPE
7304
1p05
1308
IDNs
poe
IDI2
Dts
1D19
1IDtID
‘9221
1323
1926
ID2a
1028
IN2Ce
ID2E
D320
1D38
ID3€
1539
IDIL
1D37
1047
DaD
1950
1558
D855
1956
TE5A
tm5C
3D69
TD6a
1069
1D6éC
IDS?
19072
D775
tD79
WIC
1D7F
WDE2
TSE
Tres
mec
iD9C
D917
1392
1D98
1598
109¢
Dac
1DA3
Rate
Fc wo.
* f ‘ yi 2 % ge THE Pe 3 : ? i “ = - : - F 7
PAST BO. 5129669
PAGE 45a
TSK PFDITCR
OBJECT CODE ADDE STaT SOTRCE STATEZNERT
33 08 1207 1637 DSKEPR ST DSEKETTe3, ARR SAVE BXIT apoRess
35 02 1207 1638 L DSK EXT*3, X82 LOAD VALUE PRON ARB IE 782
36 02 125? 1639 A SESPIV 282 REDUCE BY FIVE
2¢ 01 1pE3 CC 1689 HVC CTLAD(2),9{ , ZR2) #OVEZ CONTROL PIELD ADDRESS
co 87 Re 1684 3 SEESE TO GET DEVICE stratus
02 1CET 1682 rc —s «ELT 9928 BYTES 0 & 7
C2 01 0823 1683 LA STATUS-1,zR1 LOAD X81 AS POIBTER TO SEBSE Data
78 70 00 1688 T2N 0,381) ,.X°10° TEST POR EQUIPSEET CHECE
72 10 a7 16385 J? = acTs02 JOBP IP o8
76 80 09 1686 TES 9(,281),X°80" TEST POR INTERVENTION REQ.
F2 10 22 1687 5? AC?TS12 JGaP IP of
78 98 CO 1688 TRY 0(, 281) ,X°08* TEST POR BO RECORD PousD
F2 29 $2 1639 JT acTsoa JUBP IP of
78 20 03 4659 3s 0(,338 1) ,X*20° TEST POR SISSING ADDRESS 22K
c3 70 3P 1651 5T ACT HT? PRAECH IP OF
78 02 69 1652 TES O¢,.X¥R 43 ,X*?92* TZST POR TRACK COBDITIO“ cCHEcs
P2 10 6a 1653 JT = aC THOS JOSP I? OB
78 08 CO 1658 T2H 0-49, 322) ,-¥°08° TEST POR DATA CHECK
Co 10 3239 1655 BT ACTH BRANCH IP OF
78 91 CO 1656 TEN O(, XR1),xe018 TEST POR SEEK CBECK
CO 10 1E1P 1657 BT ACTB10 BRAECH EP O8
3¢ CO 1899 1658 DSKSLT "VI BRPLG,6 RESET ERROR FLAG
ct 87 0222 1659 3 HALT TO DCP ERROR HALT
AOFP 1D22 1660 dC 1L2*a0PP* HALT ID
F2 87 21 1661 J STEP TO 2xIT
Co et C248 1662 ACTN12 3 PRIS? TO PRIBT ISTERVENTION REQD.
C6 1D2a 1663 2¢ sR V°Cee PLAGS
08 1D23 1668 DC 8—s«TLV°918 LEucTs
126C 122D 1665 DCs AL 2 (I NVTRQ) ADDRESS OF LAST PRIET CHARACTER
AoPe 1D2P 1666 ac IL2*°a0Fz¢ SESSAGE IDENTIFICATION
CC 87 0222 1667 3 HALT TO DCP ERROR SALT
AOoPz 1535 1668 DC —s EL2"a0rRe SALT YD
¥2 €7 OF 1669 J stzP TO BxIt
3D C9 1259 1670 ACTN92 CLI BETRY,O BAS RETEY COUST BEZE EXHAUSTED?
ct 81 4p10 1671 BE DSKSLT IF YES, GO HALT.
OF CO 1259 CAE? 1672 ALC «=: RETRY (1), 8INUS1 REDUCE COUNTER BY 1.
C2 31 WWC7 17E4 1673 STZP ALc DSK2ExXT¢3(2) , ETULVE DECRESEST RETURB ADDRESS BY 72
P2 €7 38 1674 J DSKEIT TO £XIT
1675
ce 87 Woz 1676 ACTWOS § ST 8TIO TO 22ad ID
94 1054 1677 nc) séEL°098 POUBCTION CODE
31 1355 1678 DCs sXL1°07" CONTEOL CODE
125A 1257 1679 Bc AL 2 (CBKID) READ CONTROL FIELD
co &7 WDSc 1680 3 +8 ERROR OW READ ID
cc 87 169 1681 3 +8
1963 1682 CTLAD BQU 63
c2 02 coc? 1683 LR S38, eR? PLACE CONTROL FIELD ADDEESS Is xR2
2D (9 1258 91 1684 cic CEKID*1(1) ,1 (X82) COMPARE ACTOAL ID ASD EXPECTED ID
F291 9C 1685 JZ = ACTEO7 JOMP IP EQUAL
BD C1 02 1686 CLI 0(,X82),X*01" SOT EQUAL, CHECK POR ALY. TE.
F2 81 18 1687 JZ acrs6s JUSP IP THIS TRACK IS AW ALTERBATE
P2 €7 At 1658 J ACTSO09 TO TEST FOR TRACK COENDITIOS CF.
3© 02 1063 1639 ACTNO6 L CTLAD, XR2 LOAD XB2 WITH CONTROL PIZLD ADDRESS
BD £0 99 1690 CLI 0(,382),9 CHECK PLAG BYTE OF ORIGISAL OPzERAT.
P2 81 OD 1691 JZ actsec JUSP IP THIS TRACK IS GOOD.
BD 01 99 1692 CLI 0(,¥22),x°01° CHECK PLAG BYTE POR ALTERBATE
co 91 1939 1693 BNE AcT#O2 _ BRANCH IP THIS IS NOT AN ALTERNATE
BC CO 00 1698 ACTHSS S¥I 94, ¥R2),0 SET FLAG BYTZ OF ORIGINAL OP TO 0.
F2 &7 33 1695 J ACTH 11 TO ACTION 11. ‘
Co a7 1702 1696 ACTS6C 8 STETIO TO BEAD ID
31 1399 1697 re XL1*07* YGECTIGS CODE
aq D3? 1698 pc XL1*0O1? CONTROL CODE
125, 1D93 1699 2 AL2 (CHKID) READ CONTROL FIELD
ce €7 1098 1700 3 2e8
cO #7 1D9C 1701 3 #28
C2 OF 1258 1702 LA CHKID,x21 LOAD ADDRESS OF ALTERSATE CTL. FLD.
7D 02 09 1703 CLI 9(,X81),02 TEST POR DEFECTIVE TRACK
P2 01 a8 1708 Juz acréc2 JUSP IP BO
228AY70 2120670 otocT70 OVRPR71 1790971 0 18A872 1230572 PROG ID OFF6-7
571513 571531 571580 571555 571603 571628 PAGE 15a
571608
-~
TBA MAINTENANCE DIAGHCSTIC Procaan | eG 3 ee eS . PART HO. $129661 é = TBM MAINTENANCE PDIAGHOSTIC PROGEAS ; PART BO. 5129661
. : 2 es + _ pasR we S Sf | : — | Pack wa ?
Fré?7 DISK EDITOR « PP6E7 DISK BDITOR
FRR LOC OBJECT CODE ADDR STHT SOURCE STATRMERT , ERR LOC OBJECT CODE ADDR STMT SOURCE STATESEUT
IDA6 Fo 01 00 1705 AVI «=: 0(, ER1) ,01 SET SIT POR. ALTERRATE COLTROL PLD. € ¢@ 1EEO 1771 ORG x*1ERO® I/O OVERLAY AREA
IDAO9 CO 87 17D2 1706 B STRTIO — TO SEEK THE ALTERNATE TRACK 1FRO 1228 VEE1 1772 ENTRY@ DC AL2 (IORTR)
IDAD 00 TDAD 1707 pc XL 1*0* FUNCTION CODE (CONTROL) e 1PE2 0000 TEE3 1773 EXIT@ DC AL 2(*-#)
IDAE 00 1IDAE 1708 pc s«sEXZ%L*08 CONTROL CODE (SEBK) = IFES 38 08 020A 1778 IORTN TBN S#ITCH,X*O8
*IDAP TESA IDBO0 1709 pc AL2 (CRKID) CONTROL FIELD ADDRESS TERA F2 90 1A 1775 oF NOTTP
/ IDBI CO 87 DBS 1710 B +4 aa € ‘YEEB F2 07 0B 1776 321-3 32,X*°07* 8O-OP
. 1DBS CO 87: 1DR9 1711 B on $ 1EZE CO 87 022A 1777 B LOAD LOAD OVERLAY
1DB9 35 02 1FC7 1792 L DSKEET¢3, XRF LOAD PARAMETER LIST ADDR. IN ZR2 TEP2 04 1EP2 1778 pc ZL1°08°
_4DBD 36 02 1861 1713 A NTSLVE, XR2 é 1EP3 DPES TERR 1779 pe XL2*DFES
*IDC? 2c 04 IpDC 05 17148 RYC ALTOP(2),5(,XR2) HOVE OPERATION TO USE & 1EFP5 3c 87 EEC 1780, AVI | «.3144,X°878 CBRANGE BO-OP TO UNCONDITOBAL SUB?
, 1DC6 2C 01 IDES OP 1715 MVC 08° NTPND¢3(2) ,X*OP*{ ,XR2) SCAN NOT FOUND @ 1EP9 CO 87 2000 1781 32 B x*2000° BRILNCH TO OVERLAY
-4DCB 35 02 1D63 1716 L CTLAD, XR2 LOAD ADDRESS OF ORGINAL CTL. PLD. 1EPD 8C SF SP O8DP 1782 MYC 95(96,X%R2),X*GDP* MOVE DATA TO INPUT BUPPER
IDCP C2 01 1E5A 9797 LA CHKID,X8R1 LOAD ADDRESS OF ALT. CTL. FLD. € i 1P02 ¥2 8&7 3P 1783 3 XEXT
1DD3 6C 02 03 03 9718 avC 8 =. 3. (3, XR1) , 3 (, XR2) MOVE SECTOR BITS, LENGTH & CYL. #0. 1F05 1784 USING HOTTP, XR1
1719 * FRCM ORG. CTL. FLD. TO ALT. FLD. é ao ¢ 1P05 C2 01 1705 1785 NOTTP LA WOTTP, XEI
1DD7 CO 87 17D2 1720 B STRETIO TO REPEAT OPERATION ON ALT. TK. an E 1709 38 01 020A 1786 TBH 8 SWITCH,1 Sss¥17 on
1DDB 00 IDDB 1721 BC XL1°08 FUNCTION CODE IPOD P2 10 15 1787 JT RTRY
IEDC CO ILC 1722 ALTOP DC XL7*0* CONTROL CODE ‘ 3 1710 38 80 0208 1788 TBN SWITCH+1,x%°80* SS818 ON?
DDD 125A IDE 1723 pc AL2 (CHKID) CONTROL PIELD ADDRESS 1718 72:10 Ad 1789 JT D1442
1DDF CO 87 1DE3 1724 B 4a 1717 38 20 OaoB 1790 TEN SWAPCU,BIT2
IDE? CO 87 IDET 1725 NTPND B +4 1FIB P2 10 55 1791 JT PCO
1DE7 PZ 87 TA co 1726 3 DSK EXT TO EXIT 3 1P1E 38 20 CADE 1792 TBH 8 896$95871, BIT2 5871 ATTACHED? |
1727 1F22 P2 90 9B 1793 JP D1882 IP wot GO TO 1882
IDEA 3C 00 18A1 1728 ACT6C2 SVI PRSTPS,O SET TO CAUSE A RECALIBRATE ‘ 1P25 75 02 42 179% RTRY L XEXT¢3 (, XE 1), XR2
IDEE OC 07 IDFR 1D63 1729 AVC AGCADR(2),CTLAD HOVE ORIGINAL CONTROL FIELD ADDRESS sd 1F28 AC SF SP AO 1795 HVC 95(96,XR2) 96 (, X82)
1DF4 CO 87 17D2 1730 B STRTIO TO I/O SUBROUTINE 1F2C F218 41 1796 SIO x*81°,z°188 CARRIAGE RETORS
1pDPR 00 wre 1731 pc XL1*00* FUNCTION CODE (CONTROL) ‘ z 1P2P 73 10 17 1797 NXTCHR SIO xX°19*,x°109 INPUT CBAR
1DP9 00 1DP9 1732 bc IL 1*00* CONTROL CODE (SBEK) 2 1732 79 11 6D 1798 RESNS SNS DAT(,XR1),X°11°
IDFA C°CO IDPB 1733 AGCADR DC AL2 (*#-#) COSTROL PIELD ADDRESS 1P35 78 40 6D 1799 TBN DAT (,IR1),3%°80* TEST POR END OR CHACEL
1DFC CO 87 TEC0 1738 B toa 1738 P2 90 11 1800 JP TSTDAT
1E00 CO 87 1208 1735 B +8 € 5 1P3R 78 20 6D 1801 TBN 8 8«©DaT (,3B1),x*°20° CUACEL?
1£05 CC 87 0000 1736 DSKEXT B o-¢ EXIT = 1P32 DO 10 20 1802 BT RTRY(,XR1) TES
1737 e 1781 73 10 01 1803 SIO 1,X*108
1208 38 20 0A23 1738 ACTNO7 TAB STATOS-1,x°20° TEST POR MISSING ADDRESS BARKER s 1798 C2 02 OA80 1805 XPIT LA READIN, IR2
TEOC P2 10 30 1739 JT aAcTN11 TO ACTION 11 IP PRESENT 1PG8 35 10 12P3 1805 L EXITSa,T AR
1EOP 38 08 0A23 1780 TBM 8 «©6STATUS-1,x°08° TEST POR DATA CHECK € IPSC 78 08 6D 1806 TSTDAT TBH DAT (,XR1),%°08* DATA ?
1213 P2 10 29 1781 JT acTutt TO ACTION 11 IP PRESEsT $ 1FGP pd 90 2p 1807 BP RESES (,XR1) 20
1216 38 02 0823 1742 ACTSO9 TBN STATUS-1,z°02# TEST POR TRACK CONDITION CHECK 1P52 78 08 6D 1808 TEN DAT (,IR1) ,X°0R* RETURE ?
TE1A CO 10 1D75 1763 BT ACTHOG TO ACTION 06 IP PRESET . e 1755 DO 10 20 1809 BT RTRY(, ZR 1) ae
TE1E OC O01 122B 1D63 1794 ACTN10 AVC ATOADR(2),CTLAD BOVE ORIGINAL CORTROL PIELD ADDRESS eo 4IPSA 9c 00 00 4c 1810 AVC 0(1,X82) ,DaT-1(, 281)
1E28 CO @7 1702 17495 8 STRTIO TO I/O SUBROUTISE 1FS5C 71 98 6D 1814 LIO =—-d DAT: { ¢- XR1) , X°98
*1£28 C9 1228 1786 pc XL 1°00° FUNCTION CODE (CORTROL) e 1PSP #3 18 81 1812 SIO xX*81*,z°188 PRINT CHAR
1229 91 1229 1797 pc XIL9901¢ CONTROL CODE (RECALIBRATE) 8 1P62 22 02 01 1813 LA 1(,XR2) X82
122a 0000 1E2B 1798 ATOADR DC AL2 (#-*) CONTROL FIELD ADDRESS 1765 78 92 6D 1818 ST TSTH(,XR1) oXR2
1E2C CO 87 1230 1749 8B 8 e 1P68 79 FC 6D 1815 CLI fTSTH(,XR1) ,X* £0"
1E30 CO 87 1238 179590 i(‘<i‘ fon 6 IP6b D9 81 3P 1816 BE XExT(, XR)
1238 35 02 1207 1751 L DSK EXT¢3, E82 LOAD PARASETER POINTER Is X82 1P6E DO 87 2A 1817 B BXITCHR(,XR1)
1E39 BD 00 00 1752 CLI 0(,X82) ,0 WAS ORIGINAL ACTION A SEEK 6 1P79 1900 1772 1818 TSTN Dc XL2*0¢
1E3B CO 81 1208 1753 BE DSKEIT TO EXIT IP ves e 1772 1319 DAT £00 «= TSTs
1E3P 35 02 1563 1758 ACTNI1 L CTLAD, XR2 LOAD CONTROL PIELD ADDRESS I8 ER2 1773 D1 FO 86 1829 SPCU) TIO E8R(,XR1),X*° PO TEST FOR WOT READY OR ERROR
1F83 BC 09 03 1755 AVI «3 (,R2) ,0 S&T POR ONE SECTOR OPERATION e 1P76 71 FS 82 182% LIO = KEXT#3(,181) ,X*PS* LCAD DATA RZADI® ADDRESS
1E86 3D FF 189D 1756 CLI @ ERPLG,X*PP® TEST ERROR PFLAG 2 1°79 P3 71:00 1822 SIO x*00°,x*FT® READ CARD INTO I/O AREA.
TESA P2 61 08 1757 Je ACTH13 IPF O8, STEP BRROR COUNTER 1FIC DI PI 77 1823 TIO *(,XR1) ,X°P1° walt
4EQD 3C PP 189D 1758 SVX ERPLG,Z*PPe SET BRROR PFLAG € 1?7P 79 P3 6D 1828 SNS STATOX(,XR1) -X*F3* SENSE DEVICE STATUS
1251 3c 19 1259 1759 AVI RETRY,16 LOAD RETRY COUBTER . € 1°82 79 86 6D 1825 TBF STATUX(,XR1) ,X*°86* TEST FOR READ OR PEAD CEC
1255 CO 67 1D39 1760 aCT#13 8B ACTHO2 TO STEP CouRTER 1P85 DO 1C 37 1826 BT XEXT(,XR1)
1761 1F88 p0 87 62 1827 B NPCU (,XR1)
1259 00 1259 1762 RETRY 0C XL2*9° € ¢ 1P8B 74 08 9C ! 1828 ERR Sst ERX (, 281) ,ARR
125A 00 1E58 1763 CHKID DC ZL1°900" PLAG IPB8E CO 87 O27A 1829 ) PRIUBT TO PRINT SPCU NOT READY OR ERROR
1E5B 00 1E5B 1768 DC IL1*°00¢ ' CYLIGDER 1P92 C6 1P92 1830 pc XL1°c6* FLAGS
1E5C 00 125C 1765 pc XL27°00° TRACK & SECTOR e e 1793 48 1793 1831 pc IL1*30° LENGTH
1E5D 00 1E5SD 1766 pc XL 12° 0° NUSBER OF TRACKS OB SECTORS 1P98 1PSP 1795 1832 DC AL2 (EBRORC) ADDRESS OF LAST PRINT CHARACTER
1E5E FFPB ESP 1767 NEGFIYV DC XL2*PPFB? 1P796 AOEC 1F97 1833 pc XL2*aQEC® SESSAGE IDEWTIFICATION
1260 FFPG 1£61 1768 NTMLVE DC XL 2° PPre? ¢ ¢ 1F9B CO 87 0222 . 1834 B RALT TO DCP Halt
1E62 CODSEIDIESSRAODY 1£6C 1769 INVTRQ DC CLIUIINTRY. REQ. * 1P9C AOEC 1F9D 1835 DC KL2*aQEC* HALT ID
TE6A C5DAuS : 1769 : € 1F9E CO 87 COC? 1836 B- @-#
*| é 1FA1 1837 ERX Frou = #1
IFA2 C3C1D9C840D9CSC1 IFBF 1838 ERRORC DC CL30*°CARD READER HOT READY OR ERROR®
| na 7 € ¢
DATE 22HAY70 01A0G70 010CT70 01APR71 1780971 O18AR72 1230N72 PROG ID OPF6-7 DATE 22MAY70 | 01A0670 010CT70 O1APR71 17NOV71 O1MAR72 1230¥72 PROG ID Orr6-7
BC WO. 571513 571531 = 571580 571565 571608 571603 - §71628 PAGE 16 © «6 EC WO. 571513 571531 . 571580 571565 5716048 571603 571628 “PAGE 16a
€e
e ¢@
none ia Re aa NaS)
©eeeeeeeeeeeeeeeeeeeeeeeeveeeeaeeeeeeeed
e @. e@020 © 0080808088080 0808808 6 @
@ 7 | oe ) yi | | _ . a y Dh =
ao eee Bem yk ‘ : ; : etree 8" gee oy
€ Z | 7 | : | € ) : 7
{ i ie |
¢$ _ of ; i
4 . Lo
IBM MAINTENANCE DIAGROSTIC PROGRAA . | PART HO. 5129661 = IBS SAINTENASCE DIAGNCSTIC PROGEAR PAST HO. 5129667 _
PAGE ws. SS PAGE m 3
PF67 PISK EDITOR = PP67 DISK EDITOR
ERR LOC OBJECT CODE ADDR STMT SOURCE STATESEST CROSS- REFERENCE
IPAA CSCSDOSODSDEE340 1838 SYMBOL T LEX VALUE DEFER REFERENCES
1PB2 DSCSCICUESS ODE DI 1838
1PBA SOCSD9D9DEDY 1838 AAAOS A COZ OAC2 O0C78 0076
1772 1839 STATOX EOU ‘STH AAC? 8&2 608 OBA1 0169 0076* 0077 0178 0229 0924 0972
VFCO 771 5% 8&2 1840 DI&&%2 LIO KEXT+3 { , E2893 ,X*55* AACTX A O08 OAAD 0073 A260 GO72
1PC3 DO 87 DB 1841 5 RDIG82 (, ER1) AAOTVEX A OCS OASP OC70 0066
4FC6 BD &0 4C 1882 CLI 76(,XR2),C* * TEST POR A 96 BITE RECORD BACB = O78 0813 0026 0078 0258 0878 O790
7PC9 DO 81 3F 1883 BE XEET (,XR4} ARI9 x 003 t8AC 1233 4244
VFCC 74 S58 DT. 4888 LIO BUFIN{ ,%R1) -X°58* IP SO TEER BEAD SECOKD A RA20 & 008 W8CP 4288 1256
1PCF DO 87 DB 1885 B 2D1862{ ,ZR1} CARD AED HOVE 20 BYTES ACTCON A 003 TALC 72366 0621 080% 0880 1027 1749
4FD2 OC 713 CADF 2F13 18.46 HVC BEADIN+95 (20) ,X*2F00%s19 20 HARE A 96 BYTE EECORD ACTNO2 A 008 1D39 «7670 1645 7693 1760
TFD8 DC 87 3P 1887 B RERT(,2ZR14j ACTRO® A COU 4D50 1676 1689
1FDB 2F00 FDC 1888 BUFIS& DC XL2°2P008 ACTNO6 & 008 1D75 1689 1653 1783
1889 ACTNO7 A 008 18208 1738 1685
1FDD 74 CB PD 1850 RD18a2 ST X7492 (,2B1) , “BR ss ACTROO A 008 B16 1782 1688
1PEO DI 50 a6 1857 DX18 TIO ERR({ .ER1),E?50° TEST FOR WOT READY OR ERROR ACTH1O A 006 VE4F 4784 1657 |
1FE3 F3 57 CO 1852 SIO. X00, x°5 42 READ CARD INTO I/O AREA. ACTN11 8 COM 4E3P 1756 1657 1655 7695 1739 1781
TFE6 DT 52 £1 7853 TIO *{ ,IR1),X%°S2¢ @art . ACTK12 A COR 1D26 1662 1687
1PE9 79 S3 6D 1858 SNS STATUX(,ZR1) ,£953! SENSE DEVICE STATUS ACTH13 & 008 1255 7760 1757
PEC 79 93 6D 1855 TBP STATUX(,XR1) ,X°93° TEST FOR READ OR PEED CHEC ACTN6B A 003 1D86 1698 1687
1PEP CO 10 C000 1856 BT —# : ACTN6C A 008 4D8C 1696 1691
aoe IFF2 1857 x1482 EQU 4 ACT6C2 A 008 IDEA 1728 1708
1PP3 DO 67 DB 1858 B DX19(, IR 1) ADD A008 1B9A 1869 1963
OAEB 1859 BND SETDSK : ALDCHK A 008% BCC 1890 1989% 1491% 1492 1493
- ADDREP A 008 12CC 0753 0767 “
ADDTST A 001 OBEC 0208 0182
eo ADREXT 2 003 1896 1212 1193
- ADRPLA A 001 ODB3 0385 0278
ADRPLE A 006 0C58 0283 0531 0680
: ADRPLC A 008 103D 0532 0525
- - ADRPLD A 0048 OF83 0879 0498
ADRPLE A 006 O0C6B 0248 0881 0507 0513
; ADRPLP A 006 OFAC 0891 0888
< . ADRPLG A OCS OF39 04860 0251 0847
ADRPLH A 006 OFC2 0896 0298
e 2 ADRPL1 2.001 OCSO 0241 0232
: € - ADRPL2 A005 OFBS 0829 0393 0395
ADRPL3 a CCS’ O0C88 0258 0356 0808 0882
: . ADPPLS A 006 OF3F 0392 0387
< © = ~- apRPLS A 00% OEFF2 ONG 0438 On80 ”
ADRPL6 A 006 OFSO 0396 0333
: ADRPL7 A 001 191B 0521 0343 0425 0853 0859 0503 0510 0516
€ ° ADRPLS A 008% OD8A 0335 0302 0330
ADRPL9 A 008 OEFCB 0433 0497
: ALTOP A001 DDC 1722 17198
€ : ARR C 001 0008 16048 0026 0036 0406 0576 0722 0731 0853 1068 1078 1093 1109 1131
1141 1224 1261 1288 1295 1319 1837 1637 1828 1850
= Z A1TOADR A CO2 1EB2B 37488 17a 4% .
= : AGCADR A C02 IDFB 1733 17298
BAAO7? A 008 081 0229 0198
‘ : PBHALT A 004 OB7D 01548 0151
& 3 BITO C001 0080 1623 1565
BIT] C001 0040 1628 1581 §
2 ; PIT2 C001 0020 1625 1575 1790 1792
“ : BIT3 C001 (C010 1626 1576 1579
BUP14 A002 FDC 1888 1808
g : BUP A006 1435 1386 1323 1325 1327
~ 3 BUPFLG A001 1A3A 1351 0277 0835 0896 1338¢
FUPREC A 008 OFE7 0505 0536
BUPSET 2 003 1019 1338 1328 1326 1328
€ #? BUSY C001 OO0A2 1630 1356
CFASX@ A 001 10D7 0568 0576
e CHAIN A 008 OEFBS 0827 0305 0781
3 CRGCON A 062 ABT 1415 0218
CHKPAS A CO& 1049 0576 0073 0282 0532 0678 069% 0716 1083
CHKGEN A 001 1€33 1589 1488* 1490* 1398
° z CHKID A 001 ESA 1763 1679 1688 1699 1702 1709 1717 1723
CHKREP A 008 OCCE 0282 0258 0276 0278
¢€ 2
DATE 22M AY70 0100670 010CT70 O1APRT1 17NOV71 O1NART72 123072 PROG ID OFF6-7 DATE 22mAY70 91A0G70 010CT70 O1APRT1 17HOW71 O1NAR72 1230472 PROG ID OFF6-7
EC NO. 571513 571531 571540 571565 571604 571603 571628 PAGE 7 ¢ “ EC NO. 571513 571531 571580 571565 571608 571603 571628 PAGE 178
J
f 2 7 my a Ce
Biers ee. 9
€ ¢ . @
IBA AAINTENASCE DIAGNOSTIC PROGRAR | Sete Oe: RNS RSSY:. 2g ay ISS AAINTENABCE DIAGHOSTEC PROGRAS . PagT 80. 5129661 7
| } : - pac 8 po | . PAGE | tea #
. | a | sie pa ee
FP67 «DISK EDITOR OO « e FP67 =DISK EDITOR ;
CROSS-REPERESCE . ; CROSS-REFERERCE
SYMBOL T LEW VALUE DEE REPERENCES : ; { SYMBOL T LEN VALUE DEPS REPERENCES
CHNISG A008 1216 0699 0782 ; D1647 4 003 IFCO 18480 1789 1793
CK a C03 1223 0761 0758* 0778 | < eorT A 001 0200 0008 0089
CKCTL a 008 1192p 1269 1275 =~»
cK A 003 1320 0785 O778¢ . EDITAA A 006 OBBD 0159 0152 0202 0584 0573 0635 0683 0690 0783 0889 0857 1011 1058
CLK1. a 003 1881 7858 1856 ESDIPL A001 1A6E 1378 0161 016% 0261 9506 0509*% 0512 12999
CHLOOP A 006 18D2 1285 1250 : ERDROD a Bot 1¢52 1563 9500 0500¢
CHECOW A C02 OA7P 0048 0216 E !
COMP a 008 1337 0793 0217 = 2 ERPLG & 001 189D 1216 1658* 1756 1758¢
COMPRS A 008 160% 1228 0831 0498 ERNSG A003 1€08 1520 1895 ,
COMPXT A008 1908 1257 1228 : | : eer s co3 Pes 1828 1820 185%
CONPB aA 0C6 12FA 0770 0762
*COPYA A C08 18£0 0928 - 6911 0963 0967 EBROR! a 016 Mact 1817 O19
COUNT A003 %B6D 1887 1850 , 1
CTLAD A COT 1D63 1682 1680* 1689 1716 1729 1788 1758. < ERRORS a 028 ‘are 1420 o38ee o3s2
CTLREG C 001 COAG 1631 11878 OR’ A 02 7 .
CYLTBL A 001 1982 1278 1268 : ‘ ERROR6 A 037 1889 1822 0631
C3A8 =a C08 1156 0637 0622 e& + ERX a C01 1PAl 1837 1828%
C3B3 «A 001 «©1129 «4061920627 : EYIT@ A CO2 1£23 1773 0026 1805
c3ce =A CCT «(1087 «056% = 0572 | | ; FAS A003 1880 1387 0581 0826
C3D2. A OCS «©10CA «20585)~—Sts«é51B. | € - FASCYL A 002 1488 1389 0577 0598 0830 0935
—C3D22, «A C08 «©10F3 «(959302 s(0596 7 PASOLD a 002 ase 2367 0533 0585 0717 0926* 0933 0937¢ 0966
C3D3.— A 008 «1935 «(0628 , |
C3P3 A 00S 17182 0628 0530 0685 | < 3 FIGCON A002 OATA 0096 0210
C3H2. A COT 1123 0676 ~~ 0603 FIGDCP A 00% 1285 0780 0211 0720 0788 0790
C3H3A A 008 1045 0573 m PINISH ACO? 1A6C 1376 0269* 0502* (518* 0528
C3K2 A 006 1108 0605 0602 € < PLAGS A008 OBCB 0189 0188
C#A2 A COS 182D 0858 0856 PLAGS1 A 00& OcaC 0236 0190
DAT A 002 1772 1819 1798* 1799 1801 1806 1808 1810 1811 «23 FEDOLD a coe 1818 o8s3 0793 | 0833
LATACE A 006 OD6C 0326 0272 0308 0319 }
ratcD aCO2 1A7% 1389 90252 0279* 0282* 07532 FPOURZR A 00% 1872 41379 Aeon nese 0392 O886 O8849 O858 0896 0508 0561 0365 926 9933
CATC?D A CO8 AAD 1811 © 0288 '
DATPIN 2905 O0Ca3 0269 0268 «€ $ PRSTPS ACO? 1841 1219 0928* 0952* 1178* 1182 1188¢ 17289
rATHOD A COS ODB1 0232 0270 0327 PRTH c 001 0407 1622 1595
DATS#@ 2001 1A6A 1378 0265 0271 02878
DCP A CO3 132E 1388 0313 0652 1321 €e€ 8 PSTCD A CO1 1A8E 1395 0236* 0255 0262%
DCPPLG A C01 1433 1369 0837 0536 0672* 1336 Fst A 008 1288 0709 0698 0700
DCPGO A001 1A6D 1377 0839 0863¢ ees PEDSEK , 003 1873 1200 ' 198 | _
1A7C 1385 5 671 069 718 0757 |
scecis ; re ae aicc eae . Peter wea: ae . HALT C C01 0222 1619 0106 0119 0138 0196 0200 0227 0358 0385 0802 0582 0633 0876
DELAY? A COS 18A7 1876 1890® 1958 1459 1869% 19770 ee 0890 0905 0919 1659 1667 1838
DELAY? A COS 1BAB 1877 1881% 1865* 1867% | READER . 005 ocr 0290 0285 sest
DELCOW A 002 1A€A9 1810 029 :
Baece A aos 1SP& 0588 a . . « HLTA A CO3 ‘CBA 1598 0756* 0157¢
_DELET1 & 001 1SPB 0990 1013 aLT a 003 teva 1583 01580 0155¢
ad 1 }
Petes : eon acne soos soos IAR c 001 0010 0709 0030® 1805
DELFND A C06 161D 1003 0995 € 2 IDENT A 008 19D8 1318 0329 0830 1317 1318
DELSAY A 201 45P2 0991 0989* 1009 one IDENTX A COS 1428 1383 1319 1334 1337 1339 1381
DEST & 002 OF08 0378 0366* 0382 IDXCYL A 002 1087 1391 0617 1018 11418
DPCR aA 002 189A 1218 1186 1187 € 8 INCR A003 1BR6 1552 1885 «1891
ote one ae . ete ae ae is
DPDR A 02 189C. 1215 1158
DISKTP A091 1892 1217 0109% 0123* 0515 0868 0930% 095%* 0969 7189 e 9 THTTRO a a ’ 1e6c 1769 188° ;
DMY A CO1l 1853 1369.
DONE A CO3 1BC6 1888 1881 | — IPL A001 1A2P 1345 1329
DRIADR A901 18a2 1220 1172 12119 IPLA a 003 1995 1301 1298
DR2ADR ACO? 1843 1221 1175 1209% IPLC A 003 OA7D 0087 0985
DSKDUP A 006 1431 0863 0221 IPLCRD A 008 1980 1295 0505 0511
DSKEPR A008 1CD2 1637 1072 1086 1101 | € #6 IPLEXT A COS 19D 1318 1295* 1300 1302
DSKEXT A 008 1808 1736 1637* 1638 1673® 1678 1712 1726 1751 1753 aires a BOY sed Ee eee o238. a
DSKRLT A 008 1019 1658 1671 PLE e
DSKSA¥Y A001 1589 0968 o868¢ _€ ® IPLREC A 008 1000 0511 053s
DUPCOW A CO2 1541 0979 0220 : IPLSET A
DUPEIT A008 1aps8 0921 0878 0892 0907 | . e ? IPLSW A 001 159D 0976 0865* 0983 0987¢
DXx18. A 003 1FEO «61851 1858 : 31 A003 12EB 1776 1780
*DZPRO A 002 0A27 1060 0159 1035 1082 a : 32 A 008 #4EP9 #1781 1776 |
| : | . a
CATE 22sAY70 01A0G70 010CT70 -OTAPRT1 1790071: 0 18AB72 1230872. PROG ID OFF6-7 DATE 22MAY70 0140670 010CT70 O1APRT71 178071 O1MAR72 0-123 8872. PROG ID OFF6-7
EC #0. 571513 571531 571580 571565 571608 571603 571628 PAGE 18 ¢ 9 EC WO. 571513 571531 571580 571565 571608 571603 571628 PAGE 8:
SCCC CCHS SCHE CCC EHO SSO CSCOCOSCECOSESESCOSECe
©ee2eeeeeeaeeneeoenoenooeoseoenuenenonnenee ee eee eee
sg ee Pal — ie. he's —? “3 . es t
IES MAIVTESABCY DIAGECSTIC FROGRAR 2 Sk SE ee ete tS . Pant BO. 5129661 é — TSS SAINTENANCE DIAGEHOSTIC PROGRAA PAST BO. 5129661
: RS OR Sane ie : : racz 19 — | a. | Pace ta «(f
rr6é7 DISK EFEd9ITOR z ss 7767 DISK 2F2dDIPOR: :
CROSS-REPERERCE - CROSS-REPERERCE
SYP2CL T LEB YALGE DEFS REPEREICES . é * ST#3CL T LES VALUE DEFS REPERENCES
LASTAD A COT Sr 17137 71728 11752 171678 71196 1202 12068 1209 4271 . RDADCDR A TOY 0a9o)| (1616 0861 3853
- LASTWO a CC& asa 1812 0168" 0263 02886 , RDAPE a “9% O980 1557 1833) 1835) «43885 «1806 1aus* 1889 18898 1983 1883" 1508 1511
LDEWD a CCH 6ICOF «61535 1566 1578 epprPc a CO? .7a82 1357 9533* 9573 9578" 0605 0617* 0625 0638 0668* 0671* 0673 0575* 0687
LDPPR aA fO3 7800) 1758 O128% 9133% 0937% 9955% O970% 1212 1286 1287 1288 1289 1290 1294 : oh C695* 3733 9717* 9733 0757* 0768 0770 0782 0797 0805 0806 ocBt7e
; 1292 > ~ C817 C322* C838 0836 0935* 0938¢ 0959 0966 1003 1078*% 1032 1036
LDS203 a ccs CA9B 9067 3062 1080 1979* 1051 1085 11186 1128 1125
LENGTH ACO? IcD2 «1600 0500 0509 0o500¢ | % ROEND a C98 O82 1558 1882 18829 1876 1976% 1377 18779 1978% 1880% 1882 18828 1698 7508 . 7
LISK Cc CO1 0216 1608 0786 - : 1506 1537 15808 1582 15338 “
LIST a COE 688 1978 0215 ; PDPCAL A COT 159C 6975 9928 9276
LEBD aA ‘TO? CBID 0753 0789 . ; RDSRT A O98 1275 0722 0718 0779 .
LOAD CC CO C224 17€72 6063 0067 1777 : BD¥S a2 CSI 129% (729 0722* “
LoD A CO2 4837 1387 9331 RDIS82 &3 093 «IFPDD 19850 1887 «1835
LODPLS a C0? WaA3C 1353 9539 0651 0651* 1320 13320 13aZ2 READ aoa 1737 C78 6565 0579 0696 5620 0677 0696 0723 0760 0783 0798 0800 66818
LODS=T A C3 1225 1282 1332 z 2839 (935 0982 1998 1020 7117
LSTAGW A CCH 1679) «1931 4926 “REATS a 02% YaéC 1373 0805* 0822
LSTEND A C31 67K 1038 1022 é READAD A COT OAR CC28 7280 461255
LST?"D a C31 1682 12319 1933 ; READE a COR 8P5 0939 0925
SACK a Ot 138D 0813 9821 READEXY a C$O® 1759 1089 10789
MPCATD A-CO2 IABZI 1813 0267 : READI®N a COR OFB88 0813 Call 94921
®FcN) 8a CO3) 1F73) «1827 9791 «1827 mS PEACIN A OOT CABG CC5O CC27 0079 0169 3177 C177 0283 0368 0367 0899 06592° 0595 0667
SIWO0ST A CO2 CAE? 2086 1238 1672 9709 0771 1225 1282 1296 1400 1801 1615 1616 1808 18869
=CVCTR a C77 1894 1299 03812 0829* RERDWH A COT CA97) 1615 Neuss 03856 0861
SCVEPP A COS CDAA C292 C280 0289 0298 ¢300 0308 0328 0338 * READSK A 791 1527 0981 0938 :
BSG A C97 cay 7658 9072 9072 CO72s 1528 | ; READSP A “Ot 1597 (C977 C8656* 93792 9931
=SGC2 A CI6 785) 1023 0657* 9661 C°o97* 1009 a. 33 READS? a CO? 1876 0929 Casoe Osges '
QYCCK ACCT 1203 C756 C786 0750. : - RPADS a 5O2 1096 1809 :
WEGPFIV A C92 YE5P 1767 3639 PEADGS a CO2 1498 1899 0288
SPG3) a CO2 1889 1392 7252 1305 : Pt RECEDF a 701 #1€38 1550 1598® 1537 7580 1583
S7GQ ac0O2 tags 1393 91253 ; x < RELOAD A 9C8 CERBC (815 0a132 -
SEIT aCCs CDEC 9372 =9388 : 65 REPCCP a CO6 71C7 0671 0653 C7538
WEITCD A C77 1A75) «1981 0250 3aa5* 98602 . ; £ . PEP2RP a COR CF31 C3E5 C359 6361
B2XTR ACIS E51 1835 0072 0072* 1838 1528 REPETT a 708 1219 0699 0662 -
SINE A COT 1035 1883 7869 No - S2PPDF a °C6& 11D4 CE73 0670
SODTSE A S16 OA62 3683 0117 a : BEPPGE A 006 1196 0657 C656
woonnn a 719 #15¢9 c9Ee1 9888 < * REPPGC a CO1 487 CEE3 O€55
gcEOSP A O21 1586 9980 os7a / : BPFOPGE a CC1 3122 0676 0686
BOSCAW A COB TTEA 9727) 2 ©=619109% 11919 11126 1120 € =< BPoPcA a OCS «61977 «CERD 0299 ee
BCSEWD A219 «CA7S) 0088 0132 os PESPT A COR 1269 1885 14887 :
WOTFIN A OCR’ CCAA 0271 0266 1268 -RESHS a CC? 1732 17928 1807
BOTTP A COB 19C5 1735 1775 1788 1785 € . BETRY a CCI 1259 1762 1670 16728 17590
SOUTIK A 72° «#15739 0963 C917 . BImcY a cCS CrPsé Osage 0a82e
BCWIZSP 2222 I52P C0982 c903 PLDFCR A CC3 WER 4187 12919
STPYD 2098 1923 «1775 1715¢ ; e- 2 ests colt Ca02 1627 15960
STROY CC31 2089 1632 1168 7 ~ - BPPX C394 392131 1629 1597¢
BTULV? A C32 WE1 ° 1768 1673 1713 REIPTR a CCZ WAAR 1897 0286* 0879 ‘cagte
SUSONZ A 722 A239 0033 0311. 39320 9389 0832 1038 1086 10690 - . » Me - BSIO. 2993 #1856 1968 12928
SUSSTX A 79T «YATD 33E€ 9315 , Pe RTS A COs CD 1516 1a37*8 91519 1592
BIICHP 2093 1F2F7 «1797 1917 e Brey a CC3 1725 1798 7787 1892 1899
CL? acc? a7e 3Ca5 06C7 C893 382 2858 1005 1025 . € ETITET A C2 IAAD 1866 Ca72© Ca7e C877 13198 9392
CLDADB A693 «1093 «1398 | € $ RTYTST ACO} TBE1 1896 1595® 153480
ORE a7td?. Caod3 cos 0377 0382 S333 9820 0857 0868 0370 0891 0892 0893 0523 O5S71 FISPLG A 797 FATE 1282 9189 02959 027314
; 9595. 0687 0629 1288 1279 1310 . e R11 a cCs 1229 2596 3705
WESC A COZ 1279 1333 1255 . : . . 8% SASY oA CCH GAT 1088 10389
PACK CC31 7226 16119 9362 9377 . Sava ac02 1215 ¢691 56739 0675
PAUSES a fOS CBE2 9269 9188 e SAVEIN A 5OR 1377 «1508 1588
PLIBS aA COR OFE6 CBCR C337 8 SavID a TCR 4A5S2 1358 3161 0326 €328* 0332 0392 0398 6396 029° G508* 0680 0689° 0657
' PLJER aces Ceag 825 0376 ati . - C#66@ Casae® 69938 0997 1121
FREC A727 E69 1371 O286* 9317° 0639 5665* 06672 1372 1373 e SAVSS €£ 7397 980R 9957 11839 19818
ENKOW ACC2 WES 1898 9299 ¢ SAVI9T A C32 «TABD 1398 00798 Cal2s Ca20s 12730 1278
PRIST C731 C21R 1699 ©9997 39793 0129 391919 0222 0389 0397 0625 0658 0871 0885 0900 S8YT#O ¢C 307% 92Ce8@ 1628 8 1591
19998 39993 14027 12959 1521 1586 1662 14829 e SCAWA A CC® 277" 1159 3594 9653 2855 0998
PRESIT aA TOT 81987 6562 0557 0557 ; . ® SCNCYL a CO? ASS 1399
PaIESG a798 WCF 1521 $87 , : SCKH?ED A TCR) «17A9)~=«1922 ViV19
Pirae ¢.3¢1 C029 1605. a . Ee we e SCPACH A CO2 Yaa? 1809 Cases 05918 C598
BAGH a CC® 61279 «0723029727 . © SCECH A 79% #197P 1208 11958 11978 92018 1202¢
RAGHY ACOS 1268 C719 sts acOS 1682 1€59 1085 -
Care 22saY7) ¥aGG7TO =—- C TOC 70 27aPR7t VIET OVsART2 1250872 PROG ID orr6-7 DATZ 229aY70 91A0G70 010CT70 01aPa71 1780971 O1saR7 2 1230872 _ PROG ID OPrr6-7
BC NOs, 571532 SUISAE SceMASES., “Eee 531608 571603 571628 PAGE 9% 6 2c WO. 571513 571531 §71580 = 571565 571608 571603 571628 PAGE 198
Ge |
eke Bm 8 2 ; ~
IBM SAINTENAWCE DIAGNOSTIC PROGRAS
PF67
SYABCL
SECCT
SEEK
“SPEKCT
SEEKEZ
SELDSK
SENSE
SEQERR
SEQEXT
SEONG
SPTADA
SPTADE
SETADL
SETADR
SETS
SETSTH
SETCHR
SPETCYL
SFTDCP
SETDLY
SETDSK
SETELT
SPT PIT
SETISG
SETIPL
SPTLDR
SFTOFF
SPTPR
SETREP
SPTRP
SPTER
SFISPL
SETSPS
SPTWA
SETHE
SETUP
SPTWOR
SETHER
SPTX
SETXP2
SHIPT
SIO
SIX
Sass
sus
SPAC2¢
SPFLG6S
SPNDLA
SENDLRB
SPNDSV
SPNEXT
SPUDT
SRCP
ssw
sswo7
STATUS
STATOX
STEP
STEPR
STEPRD
STEPY
STEPWR
STEPY
STEP Ya
STPEIT
STPPLD
DATE
FC wo.
PART HO. 5129661
PAGE 20
DISK f8Nrtoer
CROSS- REPERESCE
T LEN VALUE DEFR REPEREUCEQ
A CO1 1A6B 1375 0523¢ 0571" 0592 0681 06508 0681
A CCR 3719 91068 0078 0698 1096 1080 7095
A002 1724 1071 10678
A008 1733 1C78 1C64* 1065 10669
A OCS OAFA 0108 0121
A COM f7BE 1131 0787 1283 1285 16391
4 C06 ODBB 0348 0340
A COB ODD1 0356 0312 0316 0323
a CO’ 7889 1365 0159% 0311% 0315 03208 0339 0381* 0386 0388 0832
ACO? 1859 1190 1183
4003 1872 1205 1198 -
A co’ 0ce8s 0231 0207 9219
A008 «#4181P «1971 1153
A OCS CBSE C138 0728
A008 CRSa 0139 0126
a 0C3 OF6A 0806 0828 0710
A 001 1797 1146 1126
A 90S 1078 (556 0537
A703 (BSP 1080 1535 1538
A 00% OAFB 0101 1859
A COS 0A3B 0089 00368
A 008 0322 0123 0113
A008 OFAS 0828 0306
A 006 1681 0561 0539
A208 1060 0539. 0581
a °03 1BRS 1980 1338 1518 1552
A COS 1866 0879 0870
A003 ODPS 0358 0296
A COS 188D 0898 osss
A CO&® 186A 0880 0868
A 06 0B26 0128 0319 0136
A oC’ 1958 1288 0139 0932 0956 0971
A COS 1891 0895 0882
A COS 1888 0508 0899
aco’ 14DC 0923 90913
A OCS 0A29 0036 0826 0851
A cO8 1888 0909 0897
A COT CEAQ 0823 0806
A CO1 1895 1162 11378 1132 110% 1982
A COB TEER 1982 1468 1068
A C03 18C3 1155 0863 1148* 1145* 1188* 11518 1173 1207 1286¢
ACO? C35 1551 1865
A C83 170F 1058 1053 |
ACC’ 17cBR 1138 1133® 12909
A CC1 1707 1659 1082* 10860
c C21 CAO2 1629 1565
A COl AQF 1396 0128
A201 1199 1397 0138
A CC1 1594 0973 0663 0970 @
A COS 197C 1293 12890
¢ 601 CAO? 1617 1567
A 002 OEFC6 0373 0370
A CO3 OF3F 0399 0307
c 001 @CcO1 1627 1591
A CO2 OA2a 0031 0185 1133° 1693 1738 1780 1782
A CO2 1F72 1839 1828* 1825 1858¢ 1855
A C06 1D47 1673 1661 1669
A COM 1388 6796 0808 0828
A COS 1316 0781 0786
a CO’ 13pD 0835 0883 0850
A COS 1310 0778 0794
A008 1291 0731 0708 0725
ACO 1249 0737 0731
A COS 1982 1276 1261® 1262 1263¢
aA 0C8 190C 1261 0526 0567 0569. 0593 0628 0682 0686 0707 0712 0732 0738 0763
0778 0781 0796 0816 0818 0835 0886 0958 0960 103% 1039 1087
22mAaY70 0180G70 010CT70 OMAPR7t 1790971 Q3HAR72 =: 1230872 proc ID OFP6-7
571513 571531 571580 571563 571608 571603 571628 PACE 20
533417.
as
"4
re
a
4
* Ec
-~
IBS SAINTEWANCE DIAGHOSTIC PROGRAN
rré7
SY#BOL
STPPLE
STPPTR
STPR
STRTIO
STRTHS
SBITCH
SEAFCU
Sa5871
SYSFLG
SYSTES
s1
$2
TAPERE
TBLEND
TEST
TESTFH
THREBK
TRECOKS
TSTCLK
ISTDAT
TSTDCP
ISTDE .
TSTERL
TSTEER
TSTFAS
TSTFLG
TSTHDR
TST"
TSTREC
TSTSCH
TSTSEK
TSTOP
80
TXTSOYV
TYPe
UPINDS
“O?AE
VAGH
VON
VESG
VRON
¥Toc
ytoce
WAIT
WKADIR
@KRICT
WOK191
WORK
BOPKEA
BORK
WORKS
WEIPTR
@ZEITE
WRITES
WRITPA
WRITee
@RITEC
WRITEX
BRITE
WRITSP
QFRITS1
BRTDKFC
DATE
wo.
D
4a
ww te pe be ee be De Be Be pe oe 0) be oe po oe Be oe Dw Be oe te Be Oe pe ww be pe ee pe ee oe) be Be pe fe) 3 me oe 7) DP be te
fe Det ee be
Ge pe ee oe pe De be he
Exvpr?rToae:
Ise
L28 VALUE CEFRE
CC5 191D 1265
903 1939 1272
COT 3FE Oeue
COR I7D2 11460
023 GAS2 C082
CO1 O20A 1606
907 OACB 0626
001 OaAce 9022
COT R358 «4376
001 6200 1610
CC8 1808 12486
Cos 18DC 1287
C02 OF 1526
002 1957 1281
CO 0212 1607
008 ‘%ciP 1580
908 OAE? C080
0014 1033 0528
C03 'S7B 1456
CO3 Fac 1806
9¢S ¢p3c 0313
CC3 TP8A 1468
cC3 wARA 1881
003 1816 1168
907 10D8 ¢590
OOF TA3B 1352
00S Opap 0317
002 4TF72 1818
CO& 1018 1537
CO3 7819 1165
CC3 WPA 1452
CO3 B87 1363
902 ‘AVA 17388
O0C6 OF7T6 C875
cca Cc88 0262
C03 1C8A 44579
001 O22F 1618
0048 16809 1036
C06 1697 1082
031 626 1056
CCS 1473 «0851
004 1388 0826
COY 6FS 1°57
003 1806 1156
091 85a 1618
CCT TAAS 1808
C02 Ta9C 1803
001 41BS1 18624
001 14852 1613
002 1A9A 1302
002 Cz3B C389
CO2 TARO 1805
C08 75D 1093
C27 %TA6AR 1372
C01 7087 0563
COa 11552 0958
C08 71568 0958
CCse 1778 #1103
C08 1583 09a9
C01 S9PF 0978
COT 1553 0953
CO A3E 1356
22BAY70 O01a0G70
571513 571531
SEFERESCES
4123
$267
1270
0852
1968 1082
8108
9070 0110
1790
1792
O167% 03218
0059 9188
T2848 1285
12858
1520* 1546
1278
9108 1598
1896
0337
01498 01478
1457 1888
1800
C310
1466
1879
1158 1288
0535
9538 0669
9291
18188 1895
1501
1289%
7150
1870 1872
1066 1263
0867% 04718
0256
1572
1568
1081
1037
C838 0881
0799 0802
10357 1(38
*12878
Csa6) 0855
0285 0851
0283
9037 0286
0389 Ca07
O771* 0789
0287% 0275
1303
9366
02483% 0483
9522 0566
08715 0831
0795* 0803
0950
0965
193%
0948 0986
0895* 0908
0909* 0923
0075 90527
010CT70
571580
z
PART 5O. 5129661
PAGE 200i‘
CROSS- REPEREBCE
1097 1339 4780 1676 1696 1706 1720 1730 7785
0772 0125 0127 0150 778 1786 1788
12488 1289
0688 1088
1333¢
1819 1839
Ou7KNS °
00658
09930
C2868 0335% 0336 0336" 0382* 0365 0368* 0369% 037798 0333¢
C962* 0899% 0500* 6501*® 0517* 0597* 0637 0668 0679 0726
0810 1020 1088 1215 1802 1803 1560 1613 1618
0850 0863 0968" 0486 0889
0892¢ 7
C599 0670 0682 0678 0703 0711 0728 0772 0787 0809 -
0885 0957 1008
0823* 0827 E
0955
0988
0529 05598 0556* 0561* 0568 0577 0578 0586 0598% 0605
*O1APER71 17"0V71 O18AR72 1230572 PROG ID OPF6-7
571565 571608 571628 PAGE
$71603 20a
é . s . ;
eeeooeeeeede5deeeeess®@
= * sce 8 e : . - ¥ . . pp :
. TBF SAINTESAYCE DIAGHOSTIC PROGRAS
pISEK
Pr67 EDIT CRB
SY#BOL T LEW VALUE DEFS REFERENCES
0699 0638
*0830* 0834
BTRCAL A CO1 1598 0974 0989 0951
BTXTPT 2 CO2 ASE 1998 O865* 045708
TEXT 2&8 COS POR 1808 1783 «1794
XR1 C204 0901 1692 0367* 0370
D816 08168
0858 08778
0585 9586
0668 0697
081% 0812
102% 1025
27182 0 1783
1172 «1472
1196 1196
1272 1282
3286 1287
1792 13188
1336 1338
94076 «1977
1506 1508
27578 1579
1656 1792
1892 1806
182% 1923
1897 1359
¥R2 ©3201 co02 1693 9927* 9029
0208 0219
9286 0288
©3313 0317
9360 0394
0886 0899
C787 0749
C883 0896
1012 10122
1163® 1164
1195 1197
1286 1296
1269 1271
1327 1329
1358 1859
47170 1972
1898 «1495
1583 1584
1581 16398
*1713* 1718
1795 1808
XQ2WK 42 092 «18879 1213 11718 1179
It A001 12DP 0759 0766
X1882 a 601 IPP2 1857
18502
CPROSS-REPERESCE
TOTAL STATESENTS FLAGGED IK THIS ASSESBLY =
LATE
EC RQ.
22mAY79
571513
O1A0G70
571531
O40CT70
571580
0735
0683 O7%3 O7 18
0847 0939% 0961 10032
0471 1303 1305¢ 13032
1816 1827 1826 1880
0375 0378 0380 0o3802
0278 O888* 0449 0250
0478 GC&79*% O880 0982
0591 6607 0621 06374
0068S C701 076% 0785
0880 0882 0937 09485
TO65* 1067 1088 11108
T1488 #91785 «#1786 861797
41973 #41175 «#3175 «9178
T1S7 41207 1202 1202
7235 25% 1252* 1268
12387 1288 1288 1289
7319 9320 1320 1321
1360 1342. 1882 1882
1477 #1878 1880 861882
1514 4537 1580 1582
1536 1597 1599 1693
1793 1705 1717 1718
1807 1898 1809 1810
1828 1825 1826 1827
1851 1853 1858 1855
9029 O0C37* 0038 0039
0272 0218 0216 0218
6290 0293 0295 0297
0318 0321 6322 0328
9498 0810 0918 0829
6523 0597 0626 06489
0758 0765 0798 0827
Gees 3916 0972 9962
14132% 1133 1135 1182%
1165 1966 177 #1176
1200 1201 1205 1206
1287 1287 1251 1283%
1296 1297 1301 1306
1331 1837 1838 1480
1463 1864 1865 1865
1879 2 1887 #1488 1488
1591 1508 1505 15148
1586 1587 1567 1569
1639% 1680 1683* 1688
1715 17162 1718 1751¢%
1810 1813 1813% 1818
1239% 1289 12588 1255
0
OTA PR74 17 N0V71
571565 571608
07702
1007
7309
1843
038%
0451
0883
0639
0795
0988
4442
1788
1179
1206
1269
1289
1323
1886
1882
1543
1688
1788
1811
1828
1858
0039
0220
0299
0332
O8 61%
0652
0828
0968
1188
1179
32250
1258
1307
1844
1866
1889
7520
1569%
1686
1752
1882
O1MAR72
571603
0779 O806
*3098 1088
73108
1887
0381% O807
*0852 0458
0486 0889
0680 96872
C804 0803
6992+ 0993
Tit2 «1979
3389) «4157
7780 8461181
4207 1209
1272) 1272%
1290 1290
1325 1327
1886 «1488
7883 7883
1S68* 1570
7686 1648
1785* 1792
1818 1815
1880 «71881
0181 9183
0263 0267
0301 0303
0337 0339
0863 03865
06388 0709
O837 29888
0385 09388
1185 1186
7180) 0=61185
1233) 41237
1262* 1268
1308 1311
T4487 14488
1867 19868
1890 1891
1538 1535
1571 1573
1689* 1690
1754 1755
I2IUET2
571628
0811s
10948
5508
0855
0490
C&G
0807
4005
41217
1158
1182
7209
1273
1291
13.9
1449
7a90
157 0%
1650
1798
1816
1883
0185
0273
0305
03482
0967
0781
0867
0989
1152
1186
12384
12648
1321
1450
14869
14891
1537
15748
1692
1782
5129661
PART HO.
Pace 24
0819 3823
1096 1100
0513 0815+
0256 0957
0581 0583
0665 0666
0208 08t0¢
2027 1023
19808 1451
14560-1971
1788 1187
12171291
1285* 1286
1291 14292
1331 1333
1699 1876
1498 4508
1571-1573
1652 1658
1799 1801
1817 1820
1888 1685
0187 0206
0283+ 6288
0307 0309.
0386 0358
0869 0872
0783 0785
0869 0881
1009% 1070
7160 1161
1190 «1192
1239 12839
1265 1266
1323 1325
1456 1857
1869 1870
1892 1893
1538 1580
1575 1576
1698 17129
17982 1795
PROG ID CPr6-7
PAGE 21
€
bes
cs
>
i <=
€
s 7
< =
€ 2
€ 3
€ 8
€ @®@
e 38
e 3
e °¢@
e ©
IBS SAINTESAWCE DIAGNOSTIC PROGRAS
FPr6? DISK
THE CRARACTER
CL 1 THROUGH 16
ee ea
T+-¥s*6% £ B>s
, 4-75 4. BS apcsac
- BC BO.
T+-DOS_pDO'ST5e |
TDE,BCR*PDAY=C D
T+-SEEDA & D we
T+-_WADC19H*H=CO
T+-DEPNT /1;2 73
T+-?. BS*4G1Z>Fua
T4-OF@ZA* CORFE PRO
T4-1A GREDSEAE=K
Te-14/0>/+? ¥) 29
Te-27 j--BPT PEARCE
T+-32"4_KaYDsceD
T+-8__~HAN,7E <B
T4+-578-C2 EDPCAZ
I4-6T0T* =CE<ES/Z
T4-7;AT EKEYY. Fa
T$-88 HC /ORBA D
T+-9N HA ) AA -8
T+-2|MtBG /, PHIS
T+-#HU-DOSEa .0a
TATE 22RAY70
571513
2DITOR
CL 17 THROUGH 32
D2; -KE<GHIDCSSaX
*
C5SC7B -C2 Kot: 8
.2 ,BOR*.YEYL
” /ORE3/*BSDCO0H®
FPISH A-APY@Sh
Hpc<ss yuaz pyPo
2EAZN}{ OES*BGBY
EF%;-8<3G SH-8) 8
°69G -JRETETRBI™
GAC3"FY8 sIBZC <
GB/<2 ADSTE (-F,¢
Fe/228-DG] aE) |B
AC@H*6EC2-) P*00C
I8S72/90{ TSE. 28
2a-D<. <FARY? six
$%E7 st $TS (+FOX
RPSE< EBECT?IB §D
OBJECT CARD LISTING
INDICATES A BLAWK COLDAN AND THE CHARACTERS
PART HO. 5129661
PAGE
D © HB IBDICATE BUMERIC SHIFT.
CL 33 THROGGH 88 CL &9 THROOGH 68 CL 65 THROUGH 80
HG>| 3 ~D , E*0CR
Bi ({ E5)R 1<xseuc
52-Di 08 *BH-L~ 48
BHDCOOH®BDTO PI8
Hay sek ERD REECE
6<373 -C2-6Y3a 8
(P0,-B>C -5>/2K%
GPaBG SB-SsEcaa4
" -Je7TEDBE,= -81
Frab*y Ez63"cE
2-G@*"1ZDaYDITED
G8LO FILB -D TE<
2-FB°9 C2-ED'P Cc
RA-& OFUUE~HG/BO
€
Q@Y*ITE(SFY. £9
2-Q&< 1,8FUX /0H
EI +<S$SLO POSES 68
&a>0 0 aipas y
$1) | Z0=| 2% (POEs.
GaaBG SYD7*088 A
B- Biay ~+D BB7B
G /,PDOZSY}. /08
Hay Cayeé}c-*810
"arp7z0D a-p(?8
@ AZ62*0R87242) 5
ETS DBEEG -J6108«
#HL3"F SHC 1DUPZ-
AP, 12 &*a"1Z%a1-
CFD72 JD&ZAzz2633
2-PK*S C2-"a(a0e
HPHU~?) & @YDRAC
5{ D *H 2;GDaesHs
E£15-E=HC?TOR*®BHDC
e@eoenee e
POR*BI-# 78
AC--H C8 PSAH @B GC+3 /0HSY{ 32/20 $8;.S9-SCPVEE*?7H
S$Y+L /OHS¥Y+L /02 D( -*Z<HAFS1SBO0 .3 HETSTOB"RAACO
FYSH @ ACYL /O ~ OR*¢ELBGDA_/QMC C2<GISKOCFYISOR®
O1A0GT7O 010CT70 O1APR71 1780971 0188872
571531 5715380 571565 571608 571603
€e
@0-HSHS3**: 3=070
22) PDS SEPL Is}
Hor 8,636 so*sa8
SECBG /,FD 25146
SY}. /ORB 9 JD
<GI¥a; A261 B5*? &
hOHDBE,S* ~HAPTX
AOHD3) 882 -Z:08D
BPEQUF_B-@%BG SH
em" 1Z508D | +L 7°PY-
P|~SEE?HA>O7Y 45
“PHYS 1D1N7HG_Q8
*_<BACDO( -8+) 28
EKSYY. ESD6*SD7
CPO, TarDeTs (~PUX
TOR*</.5 ~HA8,S
kaYPEC-DS" ¥C-0%
ASQNCOIZKaYE>C <
EPYSS &:]08*BDaH
R6<BGPHEPCAZIBS-
123072
571628
PROG ID
PAGE
21a
CL 81 THROUGH 96
“70” sEqP?670001
T1*S ~LEFF670002
Gpiv 830FP670003
o" “FcerP670008
"0H ~LQPF670005
608* NSTPP670006
oFU0 :E%FP670007
*PxQ Q38PP670008
KZQ2 BESFP670009
“BZ J3IRP?P670010
2-8D 7SHPF67T0O11
A"°C& SDUPP670012
“ACAY * &PF670013
AnS& SLYPP670016
2-0- "88PP670015
2 3* 60 FP670016
"azm :3arr670017
ha-D SY8PP670018
Sry ;, FF670019
A s7@PP670020
**9¥ 7-DFF670021
OPr6-7
2ta
4
IBM AAINTESARCE DIAGNCSTIC PROGRAN
PY67 =DISEK
CL 1 THROUGH 16
aecovesnin said
T+-* ZGOR AZ2L
Te-' 8, e¢SNK8 PSH
Ts-=6 (EDEYXO CK
T+-"1 08 FDHH aB
Tes SF OCFYHE*TO
TesAX/O<PT:* CC
T+/PS9*BGPBLA AY
T#/C)DAS /0>(( -
t+/D0 D Fw? 10
1T¢+/ELOH*PDAY=0n
*T¢/P+B87B J_IC D
T+/G1/1) * DE* 3¥-0
1+/HDIAZ3) 1aP+ 9
T+ /A"EZBGESOEESB
T+/T:DSC /10<FU.
1+/HSE3s /1)) OFM
76/.0-6>(2*< aYD
14/<, *BBD_" /1.
T¢/(W19_JOHDKZ*B
1+/+/FUORT OAFD
T+/|* ADNB-] Je
DATE
Ec. wo.
228AY70
571513
EDITOR
CL 17 THROMGH 32
SORDIS37"PTT2 JKC
* ee
FSi+ Ezpés <p
s es s
C- S8-YC. DSR F
e °@ oe
AFDS® C -84¥E D
es eo
GCAC{ SYSPFX. 68
PW82/1? /1H pra
/REBOR*®<N<BGDED
"1 <EEE] AGCOOAFD
ESOO0AFU E/ OBPUS
<FDSI
D B-} Jc
PPE OAFUSE/@BGE3)
ESAZDLA@~FWV< 0
BENEER*BG /YFE1_
AD/FEI<BGDHUC JZ
GD;G /0>( C /1B
B -D OR*+E%BGES7
KULTEPSG JI90H
*N23 0 DKZS5
*<C HEGAZDCEaSS ,
GDIC /1ES0R*P(10
FJAOAPUEDL DDFS,
i
OBJECT CARD LISTING
CL 33 THROUGH 48
189% @YD<| GHHWC
DDA_< & E*UOR 3_
*
% °7 BBAPZ8 C-D
{ ETMAPDAC BS
HOR*QZ TAFOHHSO1
Ess acr-a71za+ -
< 3zpPus'® 1y¢aYF
Es|HGA-OAFO exp
Ee<BGE3) ( -HE-18
T. DSNEH< JZ PYL
( RELYHAR*BGrE0
Eav0 Baz, OB*PP*5
& @Y} Z0-DSKJ0~FHD
D/P /1#708*PPLT
ZC DEJAZ@OB*P(77
" /VOCPTe 17504"
CEHDDL /10<P5.
ABCI*FXL /1G6C D
~0H*PPE0 D2DK9<B
APWY DG H*RCAZB?60
71)) 0O-DSHIOAFU
CL 89 THROUGH 64
ACHGa"1Z_{ HITS
AL-D BZ)+ & E 44
Ex-¥cc Djsab;.-b
ae ee
A_K@YDIL- FSI
°GE #4L3EP5De°12Z
OX?HEACYEF6. /1)
Hp~OE+ | HAH37"PTX
GE3~ /1)) OH®RCAY
AAMODAADBG DEL-&
" /1)) OH®P~1DEDK<
36, 8< *BBDKI /08
GB84% /ZJAT0 FES
~G EN-U< AZzBY®
EFSG -S18C- EEOY
E |BAGXS* { | BAPGS
SDE0AFUSEL-OAPU.
"/0<PTe 70 On
*EJaza. «9C s1#
GPEOE| SBGPEOEESB
Ma-1,0B*P (4B /Z
DG EV T /1*70H
*(C DEJAZ%C DEE/Z O8*LO<BGBSW< 66 EEYOB /D C DEGAD
OTAUG70
571531
010CT70
571580
O1APR71
571565
17BOV7 1
571608
O1MAR72
571603
PART HO.
5129661
PAGE 22
CL 65 THROUGH 80
=PKE( J_MPX.2-LS
A DRa-GS} £)*8
EY- < s* erbuc
@aaee @
? CODEZ FCCOD
BOY *8GHtR-CT"PIS
}C- BEGTCj7acSTB
2-KM* "7 Yaa YDHOR® »
=OH*RCAZBCO EEOY
* 52 ACBG * JD
< 3% POL /1*7L #
EISHSSHCWOR*BHDC
<AAYAPT6 ( -CE.?8
¢ JZDAC3"PT?2/0Y
COH*RCAY=T6 ADC}
/ HAC<BGES? /18
E~<BGDXP2/3 SBAH
HDS48GA0: 40HDKE, 7
7~& @YDJIOH*ECAZ
GE3)* cC -J<O0On
*<@-B-LGHGBIT -J (
PP*BGPS OES RBGFEO
DOH*PP*BGEAR< 3Z
123072
571628
PROG ID
PAGE
CL 8! THROUGE 96
B JY 0, 8FP676022
BBZ* PHSLFPOTGUZ3
@SEPrre700245
EY ¥ 308PP670025
&S GE<FFOTOCLE
AD* @I8PP6TC027
BHD 5/S%PP670028
cO D 9CSFP670029
Xa 0 "YHFP670030
GBX- JAaPP670031
#OB* AD FF670032
ase 2 -FF670033
< JY 7-4PF67003%
“AD S8SFF670035
JOH® acC&PF670036
SOH* ;HOFP670037
E < $3*PP670038
B?6- QKYPF670039
PPL& @CUFP670080
DC D #8 FF670001
Zi-a spprr670082
FOS S#HPP6700483
OFF6é-7
.22
rita
€
€
&B
>
ry
Say
9
GIB 25
4/53 Na .0> (
T+/T> COBB>*4 /S
IBS MAINTERARCE DIAGNCSTIC PROG HAA
Fr67 DISK
CL 1 THRCUGH 16
T+/EPOH*RCOAZEPEO
TesIK/ p= ( ~AaC 0
T+ /K (OH*BFZORESE
To/LHBAL6}R NXFT
T+/NC/ORE1/EN@=C
Te/h= IJZePIL2 I
T¢/N9 1DNH38 ER?
T+/OMOHANR GAPUE
T+/P20=|R 1*GDE<L
T+/QD6*PCB=HE 36
T¢/RV;CBGET ELSE
T+/E--5T /OHE JS
T¢+/S$CE E}1 3aYD
T¢/*01>( 23,1 G=—
Te/) J (~BARE3ZOE3 /0
T+/2</1) NO-DEM*B
T+/~G Jz* OOAFDE
T+ /-BEBO < HIeB
Te/-*a: YERSaY
*T4//8 CECH 8~EC
rate
EC NO.
228AT70
5971513
wie
EDITOR
CL 17 THEOUGH 32
AB-HDOR*P (GSB /Z
BFYDRs <EGE? 88. 68>
-923BG SE-9"HiG*T2
AA*HAGSTBA"HADOB
DOR*BADCDOn*. YLY
< 3ZDFYL /1976 D
2 &-@"103{ QYLO
ELSBBE* @ aS:B
18_I 2)PCS_XR1*|
PRA@B & G HEME)
GES8S /F=?0"D0 D
$*<BGPECPEXRBGEUB
SAT PAOYYOH*RCAY
XE8CS5@GC1MCA9*G
AE2 YAOR*P&- Cc
G 4BA)=] E6*B
E/@BGE3) ( -HEL|R
G *HAB*IGBD(S D(
A? C>ODRO-H +P
{ a~Di~ Gp>ODB712a
OBJECT CARD LISTING
CL 33 THROUGH 88
<a-DsLEAGBXT -J
(ont © ERYOA 0
OBRS# BAL6?~- POYD
G /pFE/P3¥eX /08
HEHC*® ROt|-DeC D
EL-6< /ZDPXH< /2
“PIGH A-AER™ /1¥
Q JOBOH*RO<BGB:D
T9_XTRACSSAXE1(}
"/1) "B/a0C OBFSE
| PHBACBGE+*< JZ
DHASUBS*®*CAZC@YD
=OH*OY*BG /YGK/
*IbaGBan 1_$RE(~
"/13K08*P<aBG.
GE! E{ %BGE'AB AY
AESBAIZIOND <B
a/3/1 38 $ 3 00
-A+PUB*BGCPOA3- (
C~ B.@: 7? C?E
JS*HGAEO 8876/28
CL &9 THROUGH 68
) OR*PPeBCFSOR,&
” gongxK-CBERaE*r2
} 7-BPSYDLO BS BPSQ
S¥#X2/ 2682 40~+0~
EL/z24 |anXco FAD
"py. 187,888
QO8*PP*BGFSOESSB
eee D9 (XDRAC
ECCXNO* SR6%PCE=$
Ea*BG /YFE1_68Y
*DPY~ /1#7LEHBPD3
EAS 09 YYOR*RCAZ
{ OH*.T) POXSCOWC
G51. &<IS64~X9=)
waar eaenee
=0H**4%BGE7? 0°
GPEOEET&<FO| J:
A2 (12%/#BCI9BC3
* H?ESA 282%
ASYDUA@YE<>ODBP B
% HEA;A 2aZ GPC A_3 c&
-CEDQY YEO HO,<B AB_~K - @ ATRC Q75TR,- A E8 6&D
01A0G70 010CT70. -« OTAPR71 17HOV71 O1HAB72
571531 571580 571565 571608 571603
DP B
PART BO.
PAGE
CL 65 THROUGH 80
< *BaBe7 /14)08
*~ER: '06P2-J6*0-P
Seeecices 8-248
BAS7TBB{ HAG, 798) 5
2 aS;B 0 30;08
*ADHOBE Z‘a-pIt{ a
GPSOE},% *BAE¢B
SSaxH1(| EE<XHO'S
R2;] ES<LI8_I 2)P
RC DESAZDOH*P (40
2 Kaag sas 2( -
*BOH*0- 6020*H1aB
P1°J.&<PNB* XII
” BRPC8* SRETEHE3O
Eexsce*’HA AZBOH
*” C-p7tmazeu® 3;
POH* CSHFASS /-
2p (:BCH* C2-3
*.4$8k ~HA 70 378
_s6@ ,&62/0>: 6&1
HPS?B -,02) aD
+ ATRB-<°AATRO D
1230472
5716 28
PROG ID
PaGE
5129661
22a
CL &1 THROUGH 96
Bue Ezcrrs7008a
2-3< RSYPP670085
GR3Y EXRPFE70ORS
AEC P3 PP670087
RO 4 }ORPFS7008
Gxs- JISFP6700%9
‘a DR YPF670050
R68 2D0FP670051
C5_0 9/8FP670052
BAOY 3R*PP670053
B:18 pTePr670058
GpHO 1¥QFF670055
"yan aBHPF670056
5 3* 5/ FF670057
24% :-HPP670058
|, JO SHDPP670059
ua < aIAPrs70060
1Z<Y SIYFP670061
B3¥0 *Q-FF670062
% 83 4: DPF670063
C?BY 10<PF670068
Q&Su0 BS FF670065
OFF6-7
22%
+
eeoeeoeoavuevdegnevuecunuenenaeneaeneoeneoeeneunueaeeeensee ee 00 6 @
3
ca zs rep)
IBA HAINTENANCE DIAGNOSTIC PROGRAA- PART HO. 65129661 = IBM MAINTENANCE DIAGNCSTIC PROGRAR PART HO. 5129661
PAGE 23 oy ; PAGE 234
ror) . ‘s
FF67 DISK EDITOR ~ © FF67 DISK EDITOR
OBJECT CARD LISTING . OBJECT CARD LISTING
CL 1 TRROUGR 16 CL 17 THRIUGH 32 CL 33 THROUGH 88 CL &9 THROUGH 6& CL 65 THROUGH 80 CL 81 THROUGH 96 t CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 89 TRROUGH 68 CL 65 THRCUGH 80 CL 81 THROUGH 96
© °° es s e ee8 a 2 @ e e é
T+/0Z -D (-DESLO BFYS& /S-CEDQT ¥ 20 HO3ZBG GBAV ((SHRLEQAPSSE;,8 8B QBA f2B8>F BOA RG*H SI&FF670065 Te/BYC D)P=1STOH*® PA- C /18 OR* ;ACBG SH YT3/ Oe -HA"HEHL-BBS } passe D;HISTOH® Pb- SEYFP670088 _—
€
qesVU JV4X6 A [H AAQS SYC&-DA( D ETSSAPYSRH@ AFKT /O A APJG/TKOS RETGHFE"S J;=0 A PES- ; 8bPP670067 TOT & OH*S<<B GGTES /8G?& OHD sACMBGO*® <*"1S JaTDH{ { @QXLOEGVX 149 c¥="" 42)8 EACFF670089
e e ° oe ae a o eo © e s @ e & .
T+/¥~ DYCO ARES- PD(Q 9CO >65- BH} /O ( -R5@H BBYB'IEC2 SFa"12 >aT*"72< B-DICED EX/Y ; BPF670068 TBASEB*XVKACRI)/ « 5S IEFF670090
T+/XEW?HAA-8APZ8 ESKO Pe@P? O.-D EX/*< JXIPZB+ JD ;B-<> JDSEQOOAP)< EyY-0 <BG C B JU NJBEF6TNGES T+/QEG>S C-H -, 2UA,2A0? /OHDA("™ YJH*;#<BGH BCP5@ R7"HG|@HAGONG 6H H@/ H+H BBYHGDL- -B-% EKEFF67009%
Te/YREGEHNSODREO ) VZO@YDZX&ERP~E ANTS AOH72-KF) NY RSYDEZSIEW"HAPRS BOV"2-3/@"6|2/18 2°6 SI-FF670070 res*Na/ANeB HC?7H GHTMBEDI~P6C3FDG 3DAEODOS8SF72UAE 8HF7SDBC3D GB -D (3 387-HS)BS.P- DS) ERSFP670092
ea eessc¢e é baal
Te/ZEGY* I~ tSBY* Ij */BY*C~4 *OOKF <SFISGOI{ ICER<S FO- <GC8O 8Q8PFS70071 T+/=EDBB* AL*I/ _@1SAS-HA) I_~;A _#HD"4H*D CJ@HR 1°8.396CIAP)0B6S S/NTEDC"E/69SBI3 = /0H "E8PF 670093
@eeens eo eooen ¢t eseaneev an eoenonoeaeeowvee ee eeseoeoene eoceeaneoene © @eeeeoeose 8 @e ee es e e e a €
T+/D. A BAOL 6TXGSC- G BAH 4% *7""0 & *PF670972 T4+/". FRO;GE=-8<B G SH-#<BG CCO)X DE(XZO*LEGACHS>( 6*PAT#/ S_V 1)K HS_VIND.5/°S'ED3 = E-La ESDFF670098
eoesn @eeeaeeeeneoen 2 e s £ a
T+/,F Y. BZYHSI_SGE CLESF_ gS """""M1P2H0ST 825.52) PGE<ITSS_ O86 IK PFO70073 THI"S*NLPGHAOCR< A72@LSH*".0AGR47 JNHS3BECJS>EON6S 9067 D SWS RHEFF670095
e eo e e e € “.
T+/SAKSCISNCE6)X 06;.F6D_ 1 IR5_V ,&(PE9I=( OCaGRIDC $2(SU4aI O48 5)R .64~%9=~P6) $G6*G #8&<0 2T<PF670078 ER>/*E7*=-=DC*PHS = ="7HEF] { Cc Fx ASC RA sO Q 05231012710 60172:BO0FP570096
e eo es es e € a
T+/KP1DCES)XO6O_ 243 BXTOI(IDE<. EE+-KG=-NSUCSSAG CINCAI*GIGAGBVON = 8°R O*LDE (PESUC P6)Q 23J0FF670075
oe @ = e e e eeeoe ee oe e ¢ ke
T+/_7T1°XASECX9=) 5) STS (ENE<LIB_. B ES O-H R,6H,-D GPEO BSO HE'SQUI ~ 8;BKS- P50 B O< 8-<PF670076
e e es e e a e € =
T+/>28B O8;HDSH* U?EAT8 EG8;IC8;I U,-AN7> -<#3"8;B GRHS #)°-HCB@"SG -/3A* PISP ASQXY AQ>D PL*PF670077
oe eS 2 a es s e 2s e S 3
T¢/?_8WE# O.-YF* ;QWISPGR7)=BGI.2 A7.0 318 7 B> G/ ~?0E88 ESXEC*Q; A,~HG+=BGORO 70B 3/8% =-%FF670078
eo eo e e@ 2 CJ os ee € =
T+/0Y#JI-70D A-D I-~OLA@YDCSIE~OH* .0%>%BG /YCDEE OaG- >0;.8H*HSEA -7; DBF@ Q{ 59"GA > F :22%FP670079
oe @aee e @e05uu@e ec ev eee 82008600 exeenwoeecoan eaeenoaeneooe@® ee ee € 2
TG/1G7; &U.1D>>B G% A-XTO)~EE(X EO*SR1IDCC2<PCS- 2/<FF670080
e e ee e 2 e e e eee oe ee eo = e es eo eo ee € 3
T+/2. D <EB MBP@® S8- YB@/ "0O-HHAGH A S"S -tK &(_ a-DNX B Z-C SF :H F8D G U UK@Y*® S;A 98SFF670081
, ° e oe @ e e so e e ee e o € 3
T+/3F *BEBIVIE G D U>@CKCOH*I.-0 ABGYB.aBG /ZGC-U "0 9 EHH+E-a"-H & " #438CB-** Y C AO =6EFF670082
e ae @ se . . aims s ae @ = ee € 3
T+/4A OHI @BG /. E/O0E4BA8G(EHZA3Q BGVA% JST <BGE#8 BO-DRH7-& (H6I7/ }HE.X-D |HEBX- - < 22S PF670083
@ =m * °° e a) o oo > wo =~ e e € 3
Te/4aDA8"; A @/A Dz - OA s$7-A < 66/89 AS)OH*BHDC “OY*/OH*BFSQ.GH2 -"ZBS SH-"?7HGCT& GYU “LHFF670088
@e ‘nn -_ e -_ e se oe s es eo sy € 3
T¢/S70HD) P58 GVU H9OSAG-*;Q0HG_<B GE'HA J9EOH*)P<B GGOCB - .& ;00G 2-R2* &C2-JL2/:D 5S /& SEDFP670085
ee << e eo - ee es e a s * ee - se € 3
T+/62084 JHACSS A < AGLWO C2/t] /1~K SD;O%BGGRT /16%0-D;OX8B { AH AJGOA <BGE'H AS EOH* KBYFF670086
e . e e ee e ans e - e & € 3
T+/7_GSP /169 (6H ;A3Q0BGUDE JT*AKO AG3O1(GH)QQHAGYZ % -<COH*PG- GY, /17TOH*)9"°HGFTO FHD E. FF670087
€ ge Re cerpeerar ene ete rs LAST PAGE --~-- 2 9 nn nn nnn nn nnn nen nn rrr
DATE 22MAY70 01AUG70- 010CT70 01APR71 178071 O1MAR72 1230872 PROG ID OFF6-7 -
DATE 228A170 O1ADGTS 010CT70 OVAPR71 1780471 014aR72 1230N72 PROG ID OFF6-7
BC NO. 571513 571531 571580 571565 571608 571603 571628 PAGE 23 £ 5 EC WO. 571513 571531 571540 571565 571608 571603 571628 PAGE 23a
Cs : = =
rsa BAINTPRANCE DIAGCHOSTIC PROGRAN
—B0a0
PART #0.
$138153
PAGE | 4
CYLINDER ZEP0 aecovee PROGRAN
ERR LOC OBIFCT CONE
oaon
oaod
0a02
OA03
0A 04
OaAO06
OA08
OAOA
OaOD
‘ON00
ORO
OP 03
nR05
0n07
oacg
orcn
OBoP
OBI2
OR1S
0819
ORIC
0820
0823:
0827
OB2A
ARID
DATE
tc NO.
B0aR0
09
0G
0000
oReC
0000
agnaere
RBA ICO
DS 87 B1
0000
e700
61900
ocacoros
NOOO
F3 AV 09
FA
C2
71
sce
F3
5c
71
3
D1
50
01
A6
A3
ao
¢3
Ag
Aq
AO
ge
59
O00n
FO
Oc D4
00
oc nA
F2
00
a2
TSHART2
571609
ADDR STAT
OA0T
OA02
OA0DY
0a05
OADT
CAdS9
OaoC
Ca OF
CBOO
OR00
CPOYN
OB06
OB08
oBOoCc
OPO FR
SOURCE STATEMENT |
DECK 8
GETIT START T*OA00
*SKHELESE SE (EKEESESEBEE SES EESSESESESSEERERSESCTSEK SEE SESE KSEE ESEKEKEKS HETEES SHOES SEES
* ;
** SECTION PREFACE .
** s
KSEKESSSELE SHS SSHHSH LSE SES EFE RAS TDES HS EKEAKSSCSESS SST SEHEKEHES HES SEESEDESEES
DC XL2°BOA0
*Dc XL1°00!
pe XL1"°00¢
oe XL2* 90008
pe AL2(PTO1)
te XL2* 00008
pc XL 3*208000
*PC ¥L3*BO1000
*SSARLKEKRKSTSASSESSSSESKSEARERTKHM, CHKEKASE ES SSKKESECKCCESEKKEKECRESHERSESASBPSESSGSKSE
SECTION FLAGS
CURRENT ROUTINE
ADDRESS OP FIRST ROUTINE
ERROR RECORDING
ONIT DEPINITION TABLE
* THIS ROUTINE IS WRITTEN OW CYL/SEC 03DC BY ROUTINE 1 (RTO1)
s
* THIS ROUTINE:
* 4, IS CALLED IN WITH THE 22 BYTE SANUJAL ROUTINE AT *SBPROG*.
* 2. IS CALLED INTO, AWD RUNS AT x*0000*.
* 2. IS WRITTEN ON CYL/SEC 03DC BY ROUTINE 01 (RTO1).
* MANDAL ROUTINE *SMPROG®.
SEKSEKSEKESSSESCSSESCSEKAESK SESE EK SETSESSTSESE ESSEC STKESTSEESEKAEKSKEKSESEESRVEKSTS SHIRES
ORG xX*0800
*BASE 200
*USING BASE,1
B BOVE(,1)
| SNSA2 DC XL2"0000°
SNSAI DC XL2*0000
*SVAPR DC XL2*00008
RCP DC XL4 *900090000
*DREG BC XL2*°0000
*SHEREKESE SHESTHKSESRESKSE SKE AEVS CHEESE KCSESESKSKEESSEKSHKETTSES SERSERESESESESEOTES SHESKS
* THIS PEAD DISK INST OVERLAYS THE INSTRUCTION THAT BRINGS IN
*= THIS SECTOR
*EERSTE SES EEEECEEEE £EES OEE EOE OF ETERS EETES HERES EOE EERE EEOO8OO4EEEOEEOTE
s19 0,RD
SEEREKEAEEEEEEEEESEERES EE OER ECERESES SORES ROEEEEREEEREESOESEEESEEEEEEEEBE
*
** 80D 19 HALT MODEL 6 HALT
** BOOTSTRAP SECTOR HAS s
2 LOADED CORRECTLY FROS
** AR CYL/SEC 93DC.
** “ee 284
** a@ci3)
** eee 8 ees
** g
RECKKECKKSKEKEKSCREKKSSKEKEK KS SEKEKEEKKEEKEKEKSEEETEESEKEESEEEKESEEEKRKESEEKESSESESESSE
APL X*50*,x°S0?
RESTOR LA 0,1
CREREEE HEE AEEEEEEERESES EES EEE OEESEEEE ESE SS EEEEE CHE CEEEEEREEESEEEREE ORES
* NO SOTION SPEK TO SET HEAD 1
*RECEEEEEREKEKEETHER ECS EE EE HERES ES ERESERES EERE EEKEEEERESSEEBREEEESOEEOGS
LIO. =—- REDCP(,1) ,CTRL
MVC PCF (%,1),SRNMH1(,1)
SIO. OO, SK
EEAREKREESEKERESEEHARERESKS SE SEKSEEESE SHREK OE SEERES ESE EESAETESTHEESRESSERKE HOSTED
* READ CYLINDER 3, HEAD 1
*SAKES EKERERERERESEESEEERE SES EEEKTESEERS KE EEEE EEE EE HS NESEEETSEEEEEEESESE
NVC =- RCP. (8, 1) , R3H1(, 1)
LIO = DATADD(,. 1) -DAT
STO 0,RD
TIO. ERP (,1),TSTERR
PROG ID OBOA-0
PAGE 1
#e#atey @ %
a
FR
#5
re
es
_ 4
TRH MAINTENANCE DIAGNOSTIC PROGPAN
goad
FPR LOC ORTFCT
ARI
AR38
0837
ORSA
OR3D
ORSO
ORGy
NRG?
ARBA
ORUP
9251
ARSB
Ans?
OBSB
ons?
AAA?
365
GRAS
AB6B
oRnKP
On}?
ORFS
ARTA
ARIA
on IP
Q RA?
npes
4989
DATE
EC WO.
sc
F3
79
78
Do
5C
P3
Dt
5c
71
v3
D1
Fr?
$c
74
Fr?
Dt
sc
F3
79
nn
&c
93
rt
5c
71
nq
ad
A2
4&0
90
C3
ad
03
aa
A2
‘Ag
nq
Ao
oq
a0
A?
a0
on
03
A2
Ao
92
AS
cODP
0T
(0
O88
A2
oc
|
A2
oc
F2
00
A?
oc
co
cc
PP?
96
A2
c¢
(0
uy
R2
ec
G4
a?
tc
F2
ISMAPT2
571609
DA
DP
NE
=e”
es
Ph
gs
eA
CYLINDEP ZFEFO RECOVERY PROG RAN
ADDR STAT
20
71
72
73
74
75
76
123
124
125
124A
127
12A
1279
135
131
132
133
1348
1386
136
137
PART #0. 5138153.
Pace 1%
SOURCE STATEMENT
SOPSTESES ES LSS SCE S ESSERE CPOE LESESLS COST TESTS ESTE SRS ROMS OR ESET SSeS ee Se
* SERK TO CYLINDER 0, HEAD 1 e
SRO EEEEEE SE EEF ESS ECHEEEET SHS SSESHSE EEESTESEEEEETEEEEESEESEEEEESEEECHEEERESESES
SVC RCP{ 2,1) ,SR3H1(, 1)
SIO. 0, SK
TRESS EKKSSTERKESERE SRT ESS SESSHKERE SS SSESESSSLE SHEE HETESERSEKERSREH SERESS SS
* MAKE SURE ACCESS IS ON CYL O BEFORE WRITING TBE ID
*SSERKSCKEASKERSEKESKSE SETH TSH SHS ESESCEKSEESS SKESVSSESAEESCHSKAIESEKESSESEEEESESSE ES
SNS SNSA2(,1) ,A2
TBN SNSA2(,1),CYLO
BP ERR(,1)
SREKKKSSTKESESSEKESAHETSESKEEKSE SEK SHCEKSESSSKSEASE SSIES SCE SSE SCHL HSSSCHKASES ESS SRASVHES
* WRITP ID ON CYLINDER O, HEAD 1
*EPEEREAEREECEERESEKASEHESERS CEEKEREES SE SIKERSE HESS HEE STE EEORIRESSERESSABSRAT
SVC RCF(&,1),WIDOR1(,1)
SIO. ID, UR
TIO ERR(, 1), TSTERR
SRE SKS EKEKESESESARESESCEE LSE CETESERSS SEEKS SHOE TESSESCSSSHS SSE ST CSHKSHKSESKSEKES
* WRITE ON CYLINDER 0, HEAD 1 s
SEREEETERERENES THEE RTERERS KEKE SS EE ECEHSESHTSEHKS SS ERESEREEROESEESSOSTHEE
MVC = PCF (4, 1) ,WORT(, 1)
LIO = DATADD(,1) -DAT
SIO 0,88
TIO =—- ERR (, 1) p TSTERR
£ SHHEKSESESCHSEKEESESSEKKERSSTE SESE SKTKESTKSERSSSESEKELTSKESTKSK SSH SSSEKSESHKERASESASLSE
* SREK TO CYLINDER 3, HEAD 0 e
SHSHEKKSSEHCKESELECK HSE $6SSEKETSTE SSE SEESSESSES| SKSTSE STE SESS ESE SKESECSSSASCHKIESKSKKSVSLES
MVC =—- RCP (2, 1) SP3H0(,1)
SIO 0, SK
SESSAEEES ESOS SEER EEESETS AES SHEETS SES EEEERERELESSESOKSESHESAASCESSESEHSEE
* READ CYLINDER 3, HEAD O ®
SECS TETSESEHES HSS CHSKE RST SHE ESSERE SES EAEESEKSSHEKESHICS SEH SKESHKESDEHEES
MVC PCP(&,1),8 3H0(,1)
LIO = DATADD{ ,1) ,DAT
SIO 0,RD
TIO FERR{ , 1), TSTERR
SHKSESCSCAKSKSEKECEKEESSTIRE SSE EKSSKPSESHTKES SHSKSSSHESEHSESS ES SESS SESHSCSESESSAESKSSERES
* SPEK TO CYLINDER 0, HEAD 0
*SECC SEESKEEEEEKST ES SSEKEHKSES FOS KKTEKERSES SSEKESESSTEEKESSEEEETESTTSESTESORONSHSERED
MVC = RCP (2,1) ,SR3HO(, 1)
SIO. 0, SK
SVSSCKLESHSLKKSEKKE KE SHESESKS’ SS SKESKKEKSS SE SCESKESKRSS CESSES STSESHSSESESSKES SSS SHSSEES
* MAKE SURE ACCESS IS ON CYL 0 BEFORE WRITING THE ID
*SHKESSESCSEEKSSEESEKSESESESCKEKS SCSHECESRKKKEKE FEES SEESCSTESESTSEKSESEEESEHESESKESES ELSES
SNS SWSA2(,1),A2
TRN SNSA2(,1) ,CYLO
8F ERR(, 1)
SEAKSSSKESSKSSEKEASCSE SHEE SEE SER SSTHEESE SKKSESE SE KESSSE SSSESSSHKSESSEEKEKKE SSS SVSES
* WRITE ID ON CYLINDER 0, HEAD O s
TEKS CCHS SEKEESES TEKEEKE SHE SHESRAH SE REHEEESSE RESERSESHSRSEESEEERS ESSE SESESS
"VC RCP(G,1),WIDORO (, 1)
SIO ID,WR
TIO ERR(,1),TSTERR
KKEKECARTSERKKKSEKKVSE SEKES SES SEK SEEEESE SES TETSSKKTSSLSSEKSCKEESKEKASESEKLSESCSECSES
* WITP CYLINDER 0, HEAD 0
*SRESCKKCSCCESKSEHAKE SI SESSKEKSTSEHK SKE SHEET ESSA EKEAEKESEKTE SES HEKEKREEERESSESESEOESESSCE
MVC RCF(W,1},8OHO(, 1)
LTO = DATADD(,.1) ,DAT
PROG ID OBOA-0
PAGE ia
yas
ys
“ne
TBA MAINTENANCE DIAGNOSTIC PROGRAN . | PART 80. 5930953 & TAM BATNTENANCE PTAGHOSTIC PROGRAM - . PART BO. 5136753
PAGE 2 _PAGE 2a
BOAO ‘CYLINDER ZEPO RECOVERY PROGRAS . * é BORO CYLINDEP ZERO RECOVERY PROGRAN
FRR LOC OBJECT CONE ADDR STMT SOURCE STATENERT FRPP Loc ORJECT CODE | ADDR STHT SOURCE STATEMENT
CB8C F3 A2 00 © 138 Sto 0,9R a 296 *# MOP .10 HALT MODEL 6 HALT
*ORBF D1 AD AZ 139 TIO =—- ERR (1) ,TSTERR 207 * -
140 208 @ SANGAL ROUTINE HAS BEEN
*ISL FEKETE ETERS ARERR RREEREES HES CEES EETERER TERS EEEHESE EEE ESSE KES ETESSOETERE 209 # 88 RESTORED TO 90006 2
142 * VERIPY CYLINDER 0, HEAD O AKD HEAD 1 * 210 * .
TED REKHECEKEEEE ETE CHEESE SEEES BFS SRAESRACSE LESTER TES HEE THKOHTESHEHESKCSZE KE PV @ { A q } TO RESTART HIT SYSTER ®
0292 SC 03 OC Fe 148 NVC) 8 =«- RCP (4, 1), VOROH? { ,1) 212 * eet) Eee AND START .
OBS6 FIAT 03 185 STO VER,RD . : 7413 ®
CROG D1 AO A? 186 ?TO ERR(,1)-TSTERR 7 PUR CHRERKETTKAEE TE AEESEKSE HS OHS OER SERIE SETEERESESTHSERECRESEREEEHBROVEESHED
187 OPRS PO 8% B89 275 ERNYLT? APL K*so*® , Xe&aoé RRR RLT 2 - BOOT YS RESTORED
TUG HERES ASERHES ETERS ERAT SES HHKE STKE ETERS KKH SLE LATHES HVSE SESE TS SHTS HE APRR RC BP RS 216 8 ERELT2(, 1}
189 * $ 247
159 * MOD 10 HALT MODEL 6 HALT & IIR KEHOE RARKEKSEHSHAHRE HOE HS O86 OSSESEE SST OTTHHKSHEAESSSAESHEROHE KES HSREDECESA
354 * % 279 * YF BB3 AAS SPEN RUN BHENR CYLINDER O WAS INTACT, THIS SMALL PPOGRAR #
17 CYLINDER O HAS BEEN e 22% * CAN BE KRYED INTO X*O0000", AND THEN EXECUTED TO RESTORE CYLINDER O
*453 * aa RESTORZD, SRE YF YoU € 221 FRESH ETHERS EEEED ERY OR OEE TEHSESESSEEOETEREOESSS SEH ESSE SOT SEEHE TERETE
154 2 ® ® CAN IPL PROM R17 HOW, & OBPS 222 SHPROG FOU *®
155 * % * { 8 z j ® “RRR 37 AG HOT 223 LIo 7, CTRL 0000 3% AG O00? * LOAD THIS 22 BYTE
456 * % « & OPBP 34 AM CNI2 224 LTO =X*32°, DAT CCOS 74 AS 0O1Z2 * PROGRAM TO RESTORE
VS] KERETESS ETHERS CERES HSERES SRE RGHETESEEHKE ES HS EATHCHOERHESCEKRE SESS OSSHBE ORCI PI AN OF 225 S16 O,SKk G008 F3 RO 00 © A DESTROYED CYL 0
CBIC PO 20 70 156 GOOD HPL xX*20',x*208 OK HALT - CYL © AAS BEEN RFSTORED NAch AIC DC 0018 226 "VF =—- KON THE KDC? OU9AR 3C DC 0018 *€ ON R 5406 CE DIAG
OB9SP DO 87 9c ‘$59 8 Goo Bf, 7) ARCA FRAT NN 227 STO 0,8&D OOOP F3 A7 50 * DISK PACK. PROG
160 ORCD NANIARCY PRO 228 END pec XL4U°090 381038 0012 06028102 ®* 2X32 BUST HAVE BEEN
T6T SPREE EET REESE SES SORES AT ENS OH FOSS EFREIEHHOSSTTISESGOESTOEOHSG 329
167 * ERROR ROUTINE - STORES ERROR INPORMATION STARTING AT X*0003° e PIO SHA SHKKERHRES SH KESTER S SEHK STS ESTTISSE SESE SSCSHHSEKHECS KSSH SHISTSS OHHSSSESSESS
163 # s . 237 * DISK CONTROL PIELD TABLE
*1645 # N000 - 0902 RESTART PRANCH s ; 232 HERR EERTERETEERETHE CHS SHE SHREK STH COHSCHOHTEHHSETEKSSOOHSSHEHLESEROETEES
165 * 0003 - 9004. DISK SENSE BYTES 0 AND 1 ° Napt Aeeraron CPD 233 SRNMAT DC XL4 *00008000
*166 *® 0005 - 0906 DISK SENSE BYTFS 2 AND 3 @ ORNS NN0FARD17 CROR 234 RIAN pc X¥L4*00038017°
167 * 0007 - OOOR ARR - VALUE INDICATES WHICH ROUTINE FAILED e : PEPSI ARNO? CBDA 235 SR3HT DC XL2*8003°
168 * 0013 - PROCESS CHECK - TURN ON I/O OVERLAP SW AND * - ORDE 236 WIDCHT EOS #43
169 * MAKE SURE TRE CARRIAGE IS A*® CYL O WHEN YOU * CRAPS 09008917 OANR 237 WOHT ne XL4& *900080 17
170 * START. * § nanr 1193 OPPO 238 SP3H9 OC XL 2°0103°
a e ART NON ACVWGAT CPREG 239 RIND pec XL9*900 300178
172 * 0030 - NO MOTION SK, OR RD CYLINDER 3, HEAD 1 * is ai ORES 269 SR3IHD NC XL2*00038
173 * 0040 - NOT AT CYLINDER O APTEP SFEK TO CYL 0, HEAD 1 ® PREA 267 WYDOHO EON #43
174 OO4A - WRITE ID ON CYLINDER O, HEAD 1 e HRe7T NCOOCA17T OPFA 282 WORD oc xXEa8*90000017°
175 2 0057 - WRITE DATA ON CYLINDER 0, HEAD 1 e OPER IWWNNOC pF { RFR 202 VOHOH? pc XL8 *NO00002F
*176 « 006B - SEPK TO OR READ CYLINDER 0, HEAD C * 2 Cae Ne CPPO 284 REDCP DC AL2 (RCF-K*B03*)
177. * 0073 - NOT AT CYLINDER 0 APTER S®EK TO CLL O, HEAD O © ee PEED CRP? 285 DATADD DC XL2*0 1008
178 * 0085 ~- WRITE ID ON CYLINDER 0, HEAD 0 s ; 246
179 « 0092 - WRITE DATA ON CYLINDER 0, HEAD 0 s 3 ZO] SESH SEe KS KKEKERTEKE SSS SHOHSSESESTVES SOSESSSEHHSVOSHSSHSHVSSHHSSSSTSSOSES SOSCBSE
1B0 « 009C - READ VERIPY ON CYLINDER OU, HEAD O AND HPAD 1 © 24aR © ROUTINE OF - THIS ROUTINE TRANSPERS CYLO TS CYL3 WHEN THE CF
*181 * 9999 -~ 000C LAST USED DISK CONTROL PIPLD s 249 PACK IS IN GOOD CONDITION, SO THAT THE PACK Can BES
182 * N00D - OOOR DATA REGISTFPR CONTENTS AT TINE OF ERROR e } 250 @# RESTOPED YF CYL 0 ITS DESTROYED AT SOME LATER TIKE.®%
783 « : 2 251 VSHSSHESSCSTKESKSSEHKSSE STE KCSSESHSE SSESOSCSKSSSSSESESESHASHKHHSSSHSCSHSOCHHHSSESHHKOSSSEES
1BU FHERERETES EERSTE EEE EEREEEE SEES ES OFERECEEEEHSOS8OHE8888000599S 008080 OBRFC 25? ORG x*BPc
OBA? 79 aA? O48 185 FRR SNS SNSA2(,1) ,A2 if NAP 4 CRPC 253 eT34 ne XLT" O
DBAS 70 a3 06 186 SNS SNSA3(,1),A3 SAV? STATUS 263 VAFD C4 CRPD 258 pe XL1°00°
ORAS 74 98 03 187 ST SVARR(,1),ARR SAVE ADDRESS RECAL REGISTER AEE DOR OSPF. 255 ne AL 2 (RTO2)
OBAB 79 Aw CE 183 SNS DREG(,1),A4 i 256 . 3
, 189 CCON «6257 SAVEIT 200 *®
19D HERES Re REKEEEEHETEE EEK EHE TES EOEERETESEESEESEEO TESTES EEOC EERO DEORE NSOSESSR nceo 258 SSING SAVEIT,1
191 * e ecen c2 91 ccon 259 LA SAVEIT,1
199 # WIgt HALT AONEL 6 HALT s 260 .
193 « ‘ . : / : ® 261 SSSA SSHKSSESE LSE SHKSKSTEEST ESE HSE KCHEKKTSESHSISSSESSSHSSSSOHSSCHOSHSSESSS SHHSSSSESSVSS
194 & * * DISK BRROPR - CHECK AQR a. 262 * RECALI BRATE s
195 * * * pp TABLE IN USERS GUIDE. 2 2H I TOK HHHEHEHEE HS EHKETHS ETS SEH EEETES ESEAEEEEETESSSOOSEESHSEEHSOSOSEDEEEEE
196 ©. * * s ecCe 74 AGB PA 26a LIO CO4MON(,1) CTRL
197 « * * (AB D124) ® "COT SC NT RE CD CL 265 - 4¥C DCP (2,1) ,RECAL(,1) :
998 «© 3S 86¢¢% , ° OCOB FU AO ON 266 Sto 0,SK
199 «© Py 267
200 Tee eeeed eee es RES CEST EESOEOTESEENS EO EHEROTECES ESO SEK EERO RDO OSEEOEES t 26H SeCee Hee SHEERS EEEEHESESEEH SEES ESHESSSORECSE SESSHOHRESHSSESSESSESeSSESSSSeSS
ORAE FO 6A 68 201 APL X*68", X68" 2769 * RD CYL O, IST 16 SECTORS, UPPER READ s
CP RY 5C 156 45 19 -. 902 NOVR gqyc PESTOR(X*16*,1), END(, 1) RESTORE ORIGINAL 300T STRAP 27D CHHPATEREE CER EEEETESHESEEEEEESESES SEO TEEEOOOEETHSES98O9SS FESO 9OOESESES
293 : CCOE 5c 093 PP Ca 271 svc DCF (9,1) ,ROOOFD (, 1)
204 CHES EREH SEES SE OEEEEE TESS O99 99505F55F OSS 5FS8SS5F85SHS9SSS8SSS8O8ESONSESE C72 77 ABD PS 272 LTO DATA (, 14) , DAT
205 « ° AC1S PU AT AO 273 STO 0,RD
pare | VSSANT2 ae > R , ica gem ig ol
eC NO. 579609 PROG ID OBDA-O DATP. ISMAPR72 PRUG ‘ID ere
PAGE 2 Pr WO. = S7TH09 . PAGE
(AAS SOSH STOO OP DSO EEOT SLOSS 8S 99,88
TSF AATSTEMARCE DIAGNOSTIC PROG RAN oe ster - a . os . PART #0. 5138153 Toh AATHTEWASCE DIAGHOSTIC “Procrag
. > 7 renee Lin ; PART #0. 5138153 é
. PAGE 3 : sats PAGE “3a
BOAC CYLINDEP 22RC RECOVERY PROGRAS - 2 _ é BIOAD | CYLTND2R Zero RECOVER? PROGRAN
- PRR LOC OBJECT conF APNR STMT SOURCE STATERETT FRR “LOC OPIPCT CONF ADDR STNT SOURCE STATESENT
OC18 DI A2 18 . 278 TIO =—- (, 1) BUST . 382
OCIR Dp? AO F3 . 275 TIO ERROR(, 1), TSTEPR VAY HHSCKSEEE ROSES SE RECEEESE SE CESEESESSEEESESESESEES HESS OREES EERE ERESEEOSEEE
; 276 : “. on 38% * WR CYL 3, 3RD 16 SECTORS, LOWER HEAD ®
QZTT FRESE S EEE ESSEEREEESEESE EERECEEEESEEEES OE $046 OO8S8SCEEEEEEEESEES 99 4E8OS8 BUS SOEREEES SY SORE EEEEEEES SERS OEEEEREEESESEESEERSOEE ES SEREERTEERESEROESEESt
278 * SEEK TO CYL 3, UPPER HEAD * Ocet SC 03 RE PO 346. AVC DCF (4, 1) -W3A OFL (, 1)
2ZTD KEREKEKEES CHEER ESEEEEHE ES EEESTEEEEE ES EOS ES SEEEEESOEOEREEEESEEEEEEREEESEES A1C8S 71 Ase FO. Bar LIo DATA(,1) -DAT
OCIE SC 01 PE CE 280 HVC = -_ DCF (2, 1) ,S¥30(, 1) Ooee F3 B2 eG 388 STO 0, WR
0C22 F3 AO 00 281 STO 0,SK : CCBR pt AZ BR 349 TTO *(,%) BUSY
Pie OCBF D1 AO FY 350 ' TIT0 ERROR (, 1) ,TSTERR
283 TEER EEEKEEKS HEEREEEE SEES OFESERE ES HSE SE OE EGEREEE $OOEESEEREEESS OVESSEES EE 351
284 * WR CYL 3, 1ST 16 SECTORS, UPPER HEAD e ISP FECSHSESHEESE SEES EEETE ESS ESS REESE SHES EETERRESESEE SERED EEKE EEE RS EREENAES
285 pee Nene owe are tee tere tee] een eee ene tere Clee CRSP C ete CeCe Se ee Set Se 353 * WR BOOTSTRAP PROGRAM ON SECTOR "DC", CYL 3
*0C?5 SC 03 RE CA 286 myc DCF (4,1) ,W300FU (, 1) 354 FERS ESSER EEAEESEESETERESEESERENESS ESE EEOTE HEEESHE SE SEES SS ERERESEC HOSES
0C29 71 AS FO 287 LTo DATR(,1),DAT (c91 5C 03 PR ER 355 “MYC DCP (4, 1). #9 3DCOL (, 1)
OC2C FI AZ CG 288 SIO 0,8R 9CS95 77 Au PE 356 ‘LIO SAVDAT(, 1) ,DAT
OC2F D1 A2 PP 789 . TI0 *(,1),BUSY C98 FI AZ 00 357 Sto 9,88
0C32 D1 AQ P3 290 ™IO FRROR(, 1) -TSTERR . MCOR DY AZ AR 358 TIO *(,1),BUSY
291 : CCIE DI AO FI 359 TIO ERROR(, 1) , TSTERR
297 SECRERETAEEAEAESEES ERE SHE HEEEEE THESE ETE ES EEEREES ES OOS 9440808 50099894868 360 ,
292 * SFRK TO CYL 0, UPPER HEAD * . FOL SETHE SESS EE EEESESEEES ESS EE TEES EE SEKESEEEHERERS REESE SES SEOEECERERES
294 EHEC E HS OEEEK AES ETE ESTE OEEEES SEREE SE FECEETEE EEESEEOEEEE EOF EEETSEOEEESESED + 362 * NO NOTION SEEK TO SET UPPER HEAD s
0c Sc 01 RE CC 295 sVC DCF (2,1) ,SR30(, 1) 363 FRESH ERES HOKEE SCENE SEESESSESERESESESESESERSEEEREE EEOERLEEEKEERSEREOEREEES
“0039 F3 AO 00 296 STO 0,SK Ncat SC 03 BE EC 364 4MVC DCF (4,1), eon tet)
os 297 OCAS F240 0F 365 SIO 0,SK
Z9Q SERERESEEE EEE ES EEES SEE EES OEE FEREES £E4EE8EEOEEEEESEEERE ESTES 046908008888 366
299 * RD CYL 0, 2ND 6 SECTORS, UPPER HEAD s ; " JOT FHP eee eee eee ee eee SESS EE FEE EHEEEEESEEEEE OSES EESESOOOEESTEEEEREEE CEDRER
JOO FESR EESESESEEEERESEESEES EEE EEEEEE EE SEREEEEESEOEESS$HOEESEEESOSESEEESEEOER 3 368 * VER CYL 3, ALL SECTORS, UPPER AND LOWER HEADS
*ocic 5c 03 BE DO 301 “avC DCF (8,1) ,ROSOFD (, 1) | 369 TP SRESESRRESSERESSSER SSS SEER EERESS SEEEETESERERES SESS E SSE SS RSE EESSOhEOEE
oc40 71 AB FO 302 LIO =DATA(,1), DAT OCAS SC OF RE EG 379 SVC = DCF (8,1) ,V3UL(, 1)
0c83 F3 AT CO 303 STO =O, RD , : _ OCAC PI-A1 03 371 SIO -VER,RD s
0C86 DT AZ 4&6 308 TIO *(,1),BOST OCAP DY A? AP 372 TTO *(,1) »BUST
OC49 D1 AO F3 305 TIO =EPROR(. 1) sp TSTERR 1. OCR2 DY AN FR 373 TYO ERROR (,1),TSTERR
306 & ; OCBS Ch RTF 0216 378 B LINK
JOT SESREEKERET HEE TEERERERSS OEEEEREEE EE EO4ES OSES HEEERESOSEEEEES 69$9O08 908888 375 :
308 * SEEK TO CYL 3, UPPER HEAD e 37H FESR EE EEEEEE EES SSEEEE SEE BES ELESETESEEEEE SEES EEO8EEEEEESEEREEEDRE DODEREES
309 KECERRERHKS SETERESEESEE SEE EEE EESRTES ES CESSES SESE SHESTEOEEEREEESEOEORESSESO 4 oe 377 = >
ecac 5c 01 RE C6 3190 "VC DCP (2,1) ,S¥30 (, 1) 378 * CONTROL WOPDS FOR *SayIT®
*9c50 F3 AO CO 311 sIo 9,Sk ; 3279 ¢
292 - : 380 FEO SEO SEES ESSE ESSE OEEEE EEE CRETE EHS EOESEERES$OE0O3 9040868605 949808E8TE
313 RESET CASESRES SSCS CLES SES OLS SRCSE SEE ERSE SSSR EM ESE SSE E CEE SE SCE S ESSER OSS OCE9 OCRR fCBaA «86381 COMMON DC AL2 (#42)
374 * WR CYL 3, 2ND 16 SECTORS, UPPER HEAD * Bed ocsR OFretcosco OCBE 382 NCP pC XL4* 00000000
315 stetesensesereceneuceseue sasesnanesssesen seen sesasesesnensecensceseoses i é& OCR? COFF CccO 383 RECAL DC XIL2*oO0rP* i
0c53 5c 03 PE pa 316 avec DCF (4, SD g BSN CED TD S6cct engnornr NCCe’ 384 ROOOFD oc XL8*Q000000F
*0C57 71 AG FO 317 LIO DATA(,1),DAT : orcs 3103 0CC6 385 SP3N DC X¥L2°0103°
OCSA P3A2 09 318 STO 0,8R 3 ACCT ACO wNHeS CCCA 386 WID0PD NC XLS *0003000F* é
ocSn DT A? Fn 319 TIO *(,1) BUSY ACCR OFN3 eccc «6387 SR30 pc XL2°0003
*Oc60 D1.a0 F2 320 TIO ERROR(, 1) ,TSTERR occD OnCnarOP . OCPO 388 ROWOFDH DC XLS *O0000800F
*321 CCN1 OAO3INOP OcDa 389 W340FNn DC XL 4*°0003800F
*322 PEEKS SHRESSHHEREEEE TEESE OES EERESEES EE EE SEEREEESEEEEESEEEEEEREEESESE EES OCDS ARNO} OCN6 390 SRIL pc XL2 *8003°
323 * SEFRK TO CYL 0, LOWER HEAD s NCD7 8103 NCNAR 391 SPILL pc X¥L2*8103
*324 SHEA EEEEREEEER EEE SEES ES CEE SHEKES SE EREES EEE HEESESTEOESESEESES9EEEESEE : Ocn9s nnnoaroe OCcDC 392 ROAQAPL nC XL4 *0000A00F®* :
0C63 SC OT RE D6 ‘ 325 avec DCF (2,1) ,SR3IL(, 1) MCPD NONIACOR OCFO 393 W3A0PL DC XL9°0003A00PF¢
0C67 F3 AO 00 326 ' $fo 0,SK OCET 99NINN2P CCPH 394 VIAL pc XLS *0003002F
*: 327 CES Ano3ncen CCPR 8395 W3IDCOL NC XL4*0003DC00
*3Q2Q KESKHAEKEESSEESE SEES EEE SS SEREEAEREES ORES EEE EEEESTET8OEEEEEEEES O48O000BE8 ners ofrnnncgy OCrPC 396 NSKD ne XL¥*90000000° €
329 * RD CYL 0, 38D 16 SECTORS, LOWER HEAD .- ecep OoPNO CCrF 397 SAYDAT DC AL 2 (BASE)
330 HEERSERTENEERSEEREE SES ES OES SEREESES ESSERE ROE ES ERS OESSESESESEEE, CERSERE QCEF OF96 OCF 398 DATA 1C AL2 (WORK) *WORK® MUST BE LESS THAN Z*1000°.
OC6A SC 03 BF NC 331 “vC DCF (4,1) ,PCAOFL(, 1) - ocPt noon CCF2 399 HELP pc XL2°00008# .
OC6E 71 Aa FO 332 LIO DATA(,1),DAT 900
0C71 F2 AT 00 . 333 SIO 0,RD ¢ BOT FEESHSEE EEE EEEE EES EEERSES EEE EEEEEE OE EEEEEEEREE EO EEEEEEOEESEEEEEOOEEEEES
OC7a D1 A2 7H 3348 TIO *(,1), BUSY 802 * ERROR PRINT ROUTINE
*0C77 D1 AO F3 335 TIO ERROR (, 1) p> TSTERR BOW’ FESSESEHES HERE EESET SENSE EES ESEEEE EE EEEES EOEEEEESEEOESEREEESEOEEEEEOEEERD
336 3 NCF3 78 08 F2 404 ERROR ST HELP (, 1), ARR
B37 KARAS STARE ESE RE EEEE SES ESS SEEESE THESE SEES FONE SEOEESEESEEESEETEEEE ERBEER CCFA CO RF O2TF 405 : 8 ONPACK
338 * SEEK TO CYL 3, LOWER HEAD * CCPA 02 OCFA 4806 DC %1L17602°
339 FFP SERONESEREREEREERER SES SOS SSENES ER EEE EE SESE REESE SSE SESE SERESESESESES 3 OCFR 9CFP2 OCcFC 407 pe AL2 (HELP)
OC7A SC C1 BE NB 3an wre DCF (2,1) ,SP3L(, 1) ocrn Onua OcrR 408 oc AL2 (DSK ERR)
OC7TE F3 AO 90 347 sIo O,Sk Hcrr CO 87 O21A 809 B PRINT
. : : : %
DATE I5SSAR72 , PROG ID 0Bp0A-0 : DAT? YSHART2 , 7 PROG ID OBO0A-0
RC RO. 571609 PAGE 3 4 EC NO. 571609 PAGE 3a
4 et
2
YSN MAINTENANCE DTAGNOSTIC PROGRAA =: PART HO. 9138153) g IDS MAINTENANCE DIAGNOSTIC PROGRAT | PART WO. 5138153 4
| : | | _ 8 . eg
PAGE PAGE ea
BOAO CYLINDER 7FPO RECOVFRY PROGRAG & RAAD CYLINDER ZERO REFCOVERY PROGRAA
HRP LOC ORJECT cone ADDR ST#T SOURCP STATERENT PPR LOC ORJECT CODE ADNR STHT SOURCE STAT EN ERT
ONO3 Ccé OPO® 419 pc XL1*C6* OTF7T DAQONSCSPZE 3D6N9 B61
Nnos 33 OD0G 411 pe —sIL4*518 ODFF C5UNC IPAN ICONSCS 664
CNS Ones Onom® 992 ne AL2Z(DSKERR) - O£07 CSDIOPIFO 461
Ono7 ACPO CNOR 813 nc XL2*aoFO® OFNC YOENBOPOPOCFCFOCUO OFF3 862 LINE2 pC CL2a¢ 0000 LYO 37 ~A6é 00078
0nos CO 87 0222 ais R HALT OFIB ENDICINAHOUOP 3P4 862
ONOD ACPO Op0e a5 pc RL2*a0?0* NFIC SOCTEEUOPOCOPCET 462
onor pr 87 906 846 A SAVEIT(,19 NFPH BIBOVIPOFIFOPHUD CFIR 48h2 LINF3 nc CL2&° 000% LIO 37 BS ODT2
*ONI2 FRDSBLKOCKCIESCS OPHR 477 DSKERR DC CLS7° YOO HAVE DISK ERRORS. RUN YOGR DIAG. ARR WAS XERXES OFIC BOHWCHSLOKOP IF I B63
ODTA SOCBCOFZD220C5N9 817 AFIQ ENCTPABTPOPOPYP? . Bh?
ON22 PIOPENSPILRALC AOD Od? NPIC BORMECPOFOFOPRUO OF5S7 468 LIVES pc CL22° 9908 SIO #F3 BO 006°
OD2A ES DSUOFEHEESDSSO 397 OFUH BIFZICIPAK BOCK PY BEE
NMI? CECICICTURSOYOC 3 aq? OFBC BICTFORNFOPS uhG
OD3ZR PIDILOPECTEZRIET at? NP52 UNROUO POPS POC24N OFFS 865 LINES oc CL 248 6008 AVI 3¢ DC 00T8®
IDB? RVEPE? B47 OFSA UPDUESCIENUOPRACT | 865
onus oOna7 ChS6 4818 PINCAD BC AL2 (PONCH} NEE? BOCUCISOPCFOPIUPS 865
OD87 479 PUNCH FOU + NOPAA BNBOUOPIFIPOCKSAN CEIP 866 LINES pC CL225 OOOF SIO PF3 &1 90°
CRY? PIPGEOCTPITPSEOD2 OD66 8270 pe CL32*18 GIO K3- Of H3Y BAR®* © I PL NPI2 BOB2ZCINGHO BNCHPZ BH
POP PIAC HN ICSC HNDUP? 426 CRIA BICIPIEIPOPO 866
ONST 6ISOCHNCIC IC PAN AD 829 OCRO UCHCRIPOPOPFP260 OFOS B67 LIN®7 DC cL 22° 0012 6003 81038
CDSF 294% 780N08000KD 829 NERA BVRONNNCRIBOPOPO 667
NNA7 BOROUOENEONCE BO ONBR 424 pe CL32* # = CARD : ‘i NEQO FC P3PREVFC P3 867
ON6P FOSVENATENENEF EN 821 . OF96 SR WORK EQU
*PO7T7T UlBCEenaneCgnan 821 OF96 1F96 NF97 «64469 rc AL 2 (*4x* 1000°%)
ONTF ECeOKNECRS BQenEN 921 : . ~~ NOAS 4U70 Au FOU Keage
ODA7T TCPRPUTCICESPGETC OCDAG6 4272 CARD ne CL3I2*344aseGa |uuRaa 244394u9° ® PATTERN COAG 471 AG £00 X*A6°
ONRPF SOCICPS FAPAFATCKC 422 , OCAY BIZ AB POD X*a3t
9097 ICFAFUTCKRICANEN 42? € 3 COA2 873 AZ . Fou x*A2¢
ANOP “EXE VCH OSNENAD 822 “NONR 47 APR FOU x* 08?
4623 r0n% w75 VER Fou x*03¢
Q2Q SHEATHS EE ESE SSSEESKEKESET SS SHEKEKETEKRES TERETE TESEEESEESESS EERE TESSESERESEES z z ; Cnn4 476 YN £0U z*owv
425 * ROUTINE O2 - PRINTS OUT MANUAL POUTINE TO RESTORE PACK YP CYL 0 COAP UTT WR eon KX°A2®
826 * IS EVER DESTROYED. s %21© 478 TINPACK EON x*21E°
B27 CHESHHAES EERSTE TASH SRE SSS OSS ERSEEHREs ese eSesesaeeaeEesesssosesesea 6 6£ é C21R 479 PPTNT 20D X*°O2TA®
*CRA? 02 ODA? 828 R792 DC XL 7*°02¢ 9272 RO FRALT FOU x? 222°
CDAS CN ODRG& 429 DC XL7*008 OCA 881 TSTERR POD x*aoe
ODAQ FPP OTAA 830 pc XL2°*PPrPe , a z FCRY) BR? RD eon X° até
831 : JCAO BRI SK Fou x* aoe
ODAB CC RT C2IA 432 FRTSSG 38 PRINT es COAG GRO CTRL Fon X* AG?
ODAP 02 ODAP 422 ne KLI*C2* ; 3 COAG 8RS DAT Fou xeaue
ODRO 25 DBO 434 pc IL1* 378 crOBN 486 CYLO F000 K*aoe
OnB1 OFOR ODB2 4835 pc AL2 (LINE) 1246 UAT LINK FOU x* 216°
OD83 CO ATF OZ1IA 836 8 PRINT 3 MFOA2 .088 BUSY POU X*a2°
ODRT 91 ODB7 4&37 pc XL1°017°¢ , ecrn 4Ra PND SAVEIT
ones 18 OCBS 4838 pc IL1* 249
ODR® 0F23 ODRA 439 pe AL2 -LIWNE2) 3
ODRB cf RT O2TA a4g0 8 PRINT
ODRP 01 Cp3aP 441 pe XYL1¢O18
oncd 18 oncn a2 oc IL17* 2&¢ &
NDC OF IR onc? 442 DC AL2 (LINE3)
Opc3 Cf 87 021A rt) 8 PRINT
ODC7 91 cpc7 =—8a5 pe XLT¢O 18 : x
- ODcB 16. ODC8 4H pc TL1¢22¢
ODCS OF51 ODCA 4887 pc AL2 (LINES)
OQDCR CO R87 0212 aga 8 PRINT = as €
ODCF 91 OpCP 489 pc IL1*0%° ,
OPDO 18 OTD9 859 oc IL 1# 2g¢
ODD? OFS69 Cpp2 451 ne AL2 (LINES) §
9DD3 CO RF O21AK 952 R PRINT
ODD]. 91 ODD7 453 nc. XL1°O1#
ODDR 16 OrD® $6454 pe IL1*22¢ %
OnD9 OFT7F ODDA 455 pe AL2 (LINE6)
ODDB CO 87 027A 856 R PRINT
ONDP 14 Ooppe 457 pc XL1*O1* %
NNEO 16 ‘ ODFO 458 oc IL 1* 22°
ODET OF95 CNE2 859 ne AL2 (LI 827) i
ODER? CC &7 0216 * 460 -B LINK : $
ODET C&CIDSFACIDIBOD7 CECB 4861 LINET pc CL37*°MANUAL PROGRAM TO RESTORE CYLINDER 00°
ODPEF POLT6C7TDN9IC1 N44) FF 461
Rs
DATE ISHART2 : , : Pros ID OBOA-0 ; DAT? ISMARTI2?. , : PROG ID OBOA-0
BC KO. 571609 PAGE 8 . FC NO. 571609 . ae . PAGE SA
- $
eee eoeeoeeeedse@eeng@eeeeeoe@eeeedeeoeee eee ee ee @ 8
TRA MAYNTERA RCE DIAGWOSTIC ean
BOAO
SYRROL
ARP
A?
AB
ag
ab
BASF
BUSY
CARE
COMMOR
CERI,
Cte
TAT
DATA
DATADD
nCF
DRS
DSFF PR
EWD
FRHLT2
FRP
FREOR
" Gert?
Good
RALT
HFLP
Tn
LINP4
LINFZ
LIN?
LINPS
LT®PS
LINes
LINF?
LY WK
ROY
RONG
PPTM SG
praxcaDd
PUNCH
PCr
PD
PECAL
PPEnCP
RESTOR
PTnt
POD
POARO FL
enonryg
PNsery
RIA
PUR
SAVDAT
SAVET?T
SPIO
e3az
SP30
Sk
S@PlOG
Swear
SNSA3
SPYSH4
SRI
SP ig4
Skiy
DATP.
re WO,
PART RO. 5134153
PAGE 5s
CYLINDER ZEFO PECOVERY PROGRAM
T LEN VALUE
c 001 0008
c 00% «n0R?
c 004 00~3
c 90t otas
cont noaé
2.907 oRAD
cf0l faz
R032 ODR6
2002 OCRR
c C04 NRG
c 004 NoKO
COT CORG
A 62 CCFO
A 002 ORFZ
A 08 OCRE
A C02 CBOF
A051) Ones
k 004 ORDO
4903 ORRS
2 CO3 OBA2
2 003 OCF3
A C01 OAND
A 003 OBoC
Cc 961 n2273
A 002 OCP?
c Ant nfo
A O37 COFOR
A 028 P23
BR 0238 AP aA
2022 9F51
4 078 OFGO
A C2? OF7F
R072 9F9S
CAH 0216
A f0S PRI
a C08’ OCFC
C004 O27;
A 00% ODAB.
A 0? OnuE6
A 00% ¢na7
A 68 oOROC
c 01 00a1
a 902 occo
a 90? C8FO
a 10a R15
k 99% fsPFC
ao01 Cpa?
aA oa ocpC
A cee occH
A 04 acpO
A C8 «ORF
afna eCRNR
A092 OcPE
A 09 0CAN
a 02 RFO
A 90? CCDs
A002 oCré
C001 OOAD
a C01 CRRA
A 007 Rha
A702 ORCH
A cOB CSDS
A 002 ORFS
4 0? ORDA
A 002 Acne
158aP72.
571609
DETR
Cuvee
Cays
O87?
Ou7n
Og7i
0028
0888
O“22
O3R4
0484
0885
0885
298
0285
6382
0035
0847
02238
e215
o7as
CBN
0003
0758
C&8o
309
0476
Ob61
84962
GO8E2
0865
0865
ues
0467
ose7
0702
0396
0879
6832
04186
0819
NOI
C882
0383
0249
0054
0283
na28
0399
0388
#368
0239
02738
0397
0257
0238
0391
9385
0863
0222
Ar
0032
0273
0209
0275
0399
CROSS-REPERERCE
REPERERCES
8767
£080
C486
O723R
29239
527%
O255
SES 9%
596 4
C6672
O272
0067
H705%
G 355%
SUSge
308
0262
B214
S69
9275
0459
087148
Oxoge
0098
8335
C839
Oaa3
0587
€851
0a5s
9459
O378
0036
0368
6809
0818
H060e
0084
0265
0059
07n2¢
noj19g
0255
A334
0271
0301
0108
C066
0356
0258
0102
0380
0280
océl
9080e
C1868
0060
0196
oc7s8
6325.
Oeou
8122 07185
0387
0289 6308 6379 0338 0389 0358 6372
022 3%
0123
9095
*9287
on35
OI7Ve
03682
02682
GI89* O137*% O224% O272% O287* C3028
6302 O3917 6332 O387
50 6937
O280* O286% O295% O7FO1F OF10* OF 46% 0325% 03372 O3UDe G3E6%
03768
S3t7* C3322 OFNT* 03562
0442
o08¢ 0097
0305 0320.
$082
6790
947% 0728 0731 01739
0335 0350 0359 9373
OT46
0807
0736
0960
0832 0836 O540 CBG O888 0852 0856
0066% O076* 00978 0056" 01022 0108 01162 0129" 0136* 0184% 0298
00968 07110 0 & 0227 G273 0303 0333 0371
0259 ©0896 asy
0310 =:
0075 0193 0197 C225 0266 0281 0296 0311 0326 0381 0365
0981 01228 0123 0185¢
PRoG ID OBOA-0
PAGE 5
-
ey
fs
4
an
IRM MAINTENARCT PTAGKOSTIC PROG RAZ
BOAS
SYSBOL
span
SVAPR
TST EPR
ONPACK
VEP
VCHOR4
VU
RIDARO
BIDOHA
FORK
gPR
wWOHD
BNF FT
“WUGPL
B3pceL
WINN PH
BIRAEH
CYLINDEP ZEPO RECOVERY PROGRAN
4
» wow ww “Sw we we TO QQ» >
LEN
90?
562
nG
O49
AY
AR:
Oo4
CAH
9449
nay
rag
008
Hs
Ou
08
OO%
VALUE
secre
oaoR
AOR
O21F
n1e3
AaPP
COPS
OR FR
RHE
ORGS
COA?
ORFA
ORDE
nceo
CCPS
ccR
NCHhs
DEPR
O38F
A323
14H 4
oa7E
OR75
0283
C358
5278 4
S236
Aas
O877F
0282
0237
0393
0335
0396
6389
REFSRENCES
82935
Ot87e
"9649
G.35"
Seos
o7a5
346
0476
"429
GORT
O%wSR
£988
0436
9038
3a6
0355
C2856
0316
TOTAL STATEMENTS PLAGGEN IN PHIS
DAT?
- EC wo.
ISHART2
571699
0089
0359
$377
9396
dame te gk ee ee ele a, ly ee ee ee
ee eoeeeeeenaed
PART WO. 5139153 ‘
PAGE 5A
CROSS-REPER ENCE
50°SF
373
D197 GO134 9139 6186 0275 0290 0305 %326 0335
$130 0138 0288 0318 6388 0357
ASSEMBLY = — &
We
«
PROG ID OBOA-0
- PAGE SA
T4+-73 BH: 1
THM BAINTEMANCE PTAGHOSTIC PROcRAS.
BOa0 CYLINDER TEPO PECOVERT PROGRAR
THE CHARACTER
CL 1 TRRONGA 16
seevece
TCOYITS Bm)
74-_SE LEDAT® 93
Seb eeeie Os
7e-2,PASNUIA 6 (3
TA-?20 2 —sODA
T+-06 & (7OHAC A
T+-1128337 Ae 88
T+-2EYECIYXLIY I (
Ts-3VYE{ IYD*IYI |
sep arene
T+-5)5_YSKUA 65L
T+-G60EDA SDA EDA
T+-7TLIGIBADA EDA
T4+-34/09% 104202
T+-9T@ICCADA Sax
T+-2N127( OWA PPA
TN-:PGa.I FDA EDA
LATE
Fc NO.
158 aR72
571609
EC A*F7*=.DC"P HS
CL 17 THROUGH 32
TPIHASEPSP <<7KP
DB:RAW EPSP <C2EP
eo ee 2
GLPW 212 Kas
eso ecvee@evese cea eae eee
12,7% $@ as Ps
BSELIOSD BET FUEC
* $#03: BP *#=8G6P
/OROC.% 1?
ae es
O AGB}. SOR; -2
NE*TO9N(V T<XATG_
GDA SDA EDA EDA
*©NA ED B
1*"0H
*GS /TAE-:RCI*8E L
OE DC IANCA*OCOaTC
F-NCOd|CBEDCHOFYV
2 °
ayCOa"Tial<s¥-
="7NEPE 4 OC
OBJECT CERD LISTING
CL 33 THROUGH 4&8
aseecseaeseeveanesd esd
60-D GFa#aENCC(L
U9?4+S (P-YVOACeC
U]74S (P-YVOCC+S
4(0 Byes C-&<
=1GPUAI+/ (PSP (P
3P P=124- 20C?_J
Ua} +S (PSS*P-a50
reece ys
2CHL /OHEIT<(JHC
SeGREACWO;T 9=>
"SDA EDA EDA GDA
BY-HVC-? /OHE J-
AS; LAGUCP6) $66*6
JEDA @ICO'DA SaX
ELICE<KLCS COG
@aeseeoenenoaceontsane
CL 49 THROUGA 68
ea@eaee ee deena en 8eo8
3¥ a* O30*EL2a:D
3Y A* 030*EL2a:D
3Y6] JYH. ONBCE/91
es eaeoeset s e
a * Fac 8B
eeaeeetennvsvecoeeart
“@50A7SS3Y Ae 08
1Z|C3Y-CIYV7IIT] (
C2>/1Z483Y-CIYZ?
se 2 e
Di (ce c-8<
OOR*BADCOSH* =: (5
1905Ga:R 1°GU6(.
SDA EDA BDA|"IS
¢HaBG /YAP 8s0H®
4&4+4|OE (XEB>| 06*N
OEDCIAACA *DCOBIG
EDCOa{ CPEDCS2) R
.@eosee@eseonanveaeeece
$0 Q
eesecnvvetoao
INDTCATES A BLANK COLUMN AND THY CHARACTERS D E A INDICATE NUMERIC SHIFT.
CL 65 THROUGH 8&6
eeeeotseveeoananoeased
BEBSP D<6?¢- GB
SEBSP D<92¢- GB
OY-JOTORUB /0Z #@
= o2e
eope < £0 C
eeveeeaeneaneeeeoece
H*SL0a:H SEH? LEC
* $#03: P +=7GP
JY} (* ##%a: P+
H 1] +#-CO C Ba
USCTAS*H 1¢2S GUC
3QDR@PDCH@OR F<.
G~{ L9~DAa*t{ LB°G!
BP-DOCVG /OHE J-
O=TL2Z)PD1I)V aja
ZEDR @ICO=DA SRX
£453 ECG IE] COEDA
eseececeoesceav ee soeoee
w2eeee
12580501700
PART 20.
PAGE
PROG ID
PAGE 6
5138153
6
CL 81 THROUGH 96
w2weeone
388 BO AG0001
SAG- £,HBOA00002
SAG- £2: 880800003
OEP- 81680400008
e a
ZO 93680A09005
eeoee es
7 0BOA0000
3P D K-8B0A00007
0a}< OR BOA00008
=91< Q6HBOAD0009
*O Q,<BO0A09010
26) 0 00*B0A000119
ADU 618504800012
=1& ES-B0A00013
*E* O£ ROA0001S
°° ee
&D KYOBOAO00'S
O&D £E.%B0A00016
@} 7C680A00017
e@aoce
KSQBOA00016
80772", NBOA00019
e
td
foe oe
por
Be mALNTERCE BADMOISTIC. RDCRAN
“goa. |
ERR Lac ‘OBJECT CODE
gene |
QADA
pate
ADDR STMT
@A0O 3081 OAD!
- OAGZ 00 OAG2
- - @A03 00 0A03
*- 9404 0000. OA05
‘OAQ6 OAL © OA07
gags CD00. —GA09
A04000 OAOT
- 9400 B01000 © OAGF
. “@AIG O1 oAlc
OA11l 00 OALL
OA12 OA2A 0A13
QAlS OC OF 0824 OAC5
OA1A CO 87 0828
OALE 38 01 020D
OA22 CO 90 OB2C
OA26 CO 87 0216
QA22 02°° ~* OA2A
-OA2B 90 OA2B
OA2C 0AG4 OA2D
OAZE 9C OF OB24
. 0A34 CO BY 0828
~ QA38 38 O8 0200
CA3C CO 90 0B2C
OA4S0 CO 87 0216
0A44 03 OAS4
0A45 00 OAGS
' OAS6 OA67 - OAS?
OAS8 OC OE 0824
OAGE CO 87 0828
OA52 38 01 0200
‘OA56 CO 90 OB2C
- QA5a-38 02 0200
OASE CO 10 0216
OA62 CO B7 O22A
0466 00 OAGS
OAGT 04 OAGT
OA6B8 00 Oa68
OA69 0481 OAGA
15MAR72 1SNOVT72
EC NO. 571609
571626
5444 DISK ADJUSTHENT uTiLity
“SOURCE STATENENT
| DECK ae.
BOB1 START x*a00°
StNeueeEeensensenenanens SeneueseeEneseesEeeeeeesoes seeseceeueaaseeses
. ‘DISK ADJUSTMENT PROGRAM
bd
_ HORSES STRESSES SESS STEED ESESESEDESTSSESSE SS OET ESET SeseteseeoeteTETeS
LO steaeceseeneseesines, setae senenesesesesssenseesesesas senceeseneseeneess
* SECTION PREFACE .
an
ed
oC
oC
oc
DC
. oC
AO oc
60 oc
CHEEERE REESE S ERESEERERESS OEEE OEEEEEEEE SESS EEEREESERE EOSEETE ES ERRESEEES
* ROUTINE 01 - DO CLUTCH ADJUST MEASUREMENTS USING 1 TRACK SEEKS #
CHECLEAEECSEKKE SHES EKSTKESSES SECS EKESSEKEE SSERERESEE SSS HS EHKAEEEKEKEESERERE |
ROUTINE NUMBER
RTO1 oc
oc
oC
BEGIN #VC
B
TBN
BF
8
EREEKEK EEKSEEKSE SS EEERAGKER EEE EKESTERESES EAESESEEKEAKERES SHE OERESRESE EEERESEETO
/* ROUTINE 02 - DO CLUTCH ADJUST MEASUREsENTS USING 2 TRACK SEEKS © 7
CERES EEREEEESES EEE EE EESEE REESE £ESRESEERESES €EEEEERES BE HADES EEO RESR EDO RE
EEENERE SEEKS ATS SEES EKES FEET REESE EEEESSS & £EEEESES SS OE 98 08S ESSREEROEES
* ROUTINE 03 - DO CLUTCH ADJUST MEASUREMENTS USING 3 TRACK SEEKS
*(SERERERESEREEE SESE SEE EERES CEEERREEESES S SESE EEEEEERS OF RERSESR ETERS REESZS
SREVSEHEKERESE SLEEK HES CESK SEKE SASS OK ECAKERE EEESEEES OE OEEEEEKEERESEERESES
= ROUTINE 04 - DO CLUTCH ADJUST MEASUREMENTS USING 4 TRACK SEEKS ©
SESE HES CEES TE FEES KEKE EESECES SESE EESESS EES EERESEED KE $HEEEE TESS 2.29. 68488
RTG2 OC xLitO28
DC —- KL *008
DC = AL 24R 73)
MVC .HIC15.) 812
B BEGIN3 ©
TBN SBYTE5, SSu2F
BF —s- BEGIN
B LINK
RTO3) DC xL1°03°
OC = XL1*00
*DC = AL2(RTO4)
MVC | -HIC159,HI3
5 BEGIN
TBN SBYTES,SSW2F
BF so SEGINI
. TBN - SBYTES»SSW2E
BT LINK
8 LOAD
DC —_ XL1*00°
RTOS DC = XL1*048
pC = KL1°008
DC
S008 EASES FERRE ES EE ESEENE RHEE ESLEOEEED ESSE EE REEEES LECERERERELERRESESE coc
PROGRAM ID AND REVISION LEVEL
SECTION FLAGS _.
CURRENT ROUTINE LEVEL .
XL2*8061°
XL1*°00°
XL1°00
*XL2*0C00
*AL2URTOL?
XL2*0000°
XL3*A04000
*%L3°BO10008
XL1°O1
*XL1*d0
*ALZ2URTO2Z)
© HIAES) ot p.u-
BEGINS
SSYTE5.SSW2F
BEGINi
LINK
AL2(RTOS)
a
ADDRESS OF FIRST ROUTINE.
ERROR RECORDING TABLE |
UNIT DEFINITION TABLE
oe 8
mr
oO.
3
MV IN Soe: PARAMETERS: =o:
GO RUN PROGRAN
TEST NEXT ROUTINE SWITCH (SSW 2F3
BRANCH TF. NO
GO TO NEXT ROUTINE
MOVE IN- ROUTINE 2.PARAMETERS .-.
GO RUN PROGRAM FOR 2 TRACK SEEKS
TEST NEXT ROUTINE SW (SSW 2F)
BRANCY TO REPEAT ROUTINE IF NO
GO TO NEXT ROUTINE IF YES
= + reaseshene nes aM Seem ep ealieatrT meee de ea mae
a Lod 24
©
en
oO
MOVE IN ROUTINE 3 PARAMETERS
GO RUN PROGRAM FOR 3 TRACK SEEKS
TEST NEXT ROUTINE SW (SSW 2F)
BRANCH TO REPEAT ROUTINE IF NO
DO REST OF THE ROUTINES |
GO TO NEXT ROUTINE
TERMINATE PROGRAM OR LOOP ON SECTION
NORMAL TERMINATE
O
OA6B OC OE OB24 OAFS
_ OAT1 CO 87 6828
OATS 38 01 -0200
©A79 CO 90 OB2C
-. QATD CO 87 0216
_ OAB1 05 -
soon ieee decd
OABS OC DE 0824 0805
CO 87 0826
38 01 0200
‘0A93 CO 90 OB2C
0a97 £O 87 0216
GASB 06
OASC 00
OA9D 1085
_OASF OC OE onze 0815 |
. Q&S CO B87 0
me oe ORR S801" O20Bo ts
OAAD CO 90 082C¢
CAB1 CO 87 022A
OAB5 00
SPER EME Eve map tere ee
OAB6 0O
OAB7 0101,
0489 0001
67
c8
FLFOF3 -
F2FOF3
28
09
57
oo
0102
0002
66
LSMART2
571609
ADDR STAT SOURCE STATEMENT ores Ss
0A8l
. OASB
OA9C
OASE
OAB5
CABS
OABB
OABA
DABS
OABS
“OABF
Oac2
O0ac3
OAC4
GAC5
OAC6
OACB
OACA
OACB
i5NOVT2
184 ASA Eaee DiADCSC seaens
76 Pea eees CHEESES ESSE SESE SEERSROREEEDSRSS SOON ETERRS SNEED SEeteERERETeReEEES
" ROUTINE 05 - DO CEESTCH ADJUST MEASUREMENTS USING 5 TRACK SEEKS &
78 Seve tes eer eeen sere es oe seeews Presse seems eteseereesee se sere senere eee ee,
7?
79
5446 DISK ADJUSTMENT uriuity
ERR LOC OBJECT CODE
*
RTO5 .
2.
84
85
86
87
89
' 90
91
92
93.
9%
95
96
97
98.
99
100
101
102
i603
104
1u5
106
107
108
109
110
121
112
113
114
“115
116
117
118
119
120
121
“222
123
124%
125
126
127
128
129
130
131
132
133
134
135
136
137
CREE ERRES HOSES FEST EEERHETES £HESEEEENEEEEEERES OEE ES £O0020880840088E%%
ROUTINE 06 ~ DO CiSsTCH ADJUST MEASUREMENTS USING 6 TRACK SEEKS «
SLE RE HELE SE DOSS eR SNE TS SRS Ses SASS TON ee eee ee ese eee eer eeee ee eeee tener
=
RTO6
re
EE ELEREEERES ESS EES EEE FEBOESE SEER FETED S £4 E6 CE8EEESES EE OE5EESEREREEEESEEE ae:
MVC.
8
TBN
BF
8
oc
#4VC
TBN
BF
8
DC ¥L1°06° -
OC _——sxXL2*900
*OC AL2 BRANCH LF YES
DAES FOFOF? OAEZ 151 CYC203 DC CL2*G67® eae & | 0B60 38 68 O20C 219 oN SOVTESs SSaiz% TEST FOR REVERSE GNLY
GAE3 69 OAE3 152 103 oc XLites? kee F - | 0864, F2 90 08 220 JF START BRANCH IF NO
CAES 09 OAE4 153 VARS DBC XLL*eOye ane § ee OB67 CO 87 162F 221 8 LACER BRANCH TO BACKWARD RECALIBRATE
DAES 95 DAES 154 HI3 DC KLLI954 ee 9 j 086B CO 87 OF5O 222 a -) RVONLY BRANCH TO SKIP FORMARD PORTION
155 , in 223
DAES 00 OAEG 1546 DBC KLE foo? ‘ne a . ROKR SK SLKSEKEKSVESKERERKSSESH SVK SESH AAKES SRS SOKACE SES ee HE SERE PSS HS SLCSH ABE
OAE? 0104 OAES 137 FRDSNG DC KL2'0104? wee | MUST BE TOGETHER IN THIS ORDER 225 % BASIC CLUTCH ADJUSTMENT MEASUREMENT ROUTENE
*OAES 9004 OCAEA 158 REVSN4G DC KL2°*C304? are 2 7 225 SEK SERES SKATES SEES SESHRLYS SAKE MSRVS KS SS HLSE SSS SEKREK GE SEKAESEKRSKSSS AKERS -
CAEB 64 GAE3 159 TRK104 DC XL1*°64? sen 3 OS6F CO 87 16F5 227 STARYL B CLARTBL BR TO CLEAR TABLES
8 CAEC CB OAEC 160 TRK204 DC XL1°Cce* eee & OB73 38 FE LAAA 228 SBF BITSW#,x*#E* RESET BIT SWITCH
OAED FOF2F5 CAEF 161 CYC104 DC CL3*025" ee 5 . OB77 C2 O1 1E00 229 La CYCTBis RRE LO PER CYCLE ADDR IN XRI
OAFO FOFSFO OAF2 162 CYC204 DC CL3°050° oe 6 ~ 0878 C1 AO 1056 236 TI0l TIG CNGOCHK,xX* ape BRANCH ON DISK NOT READYZERROR
OAF3 88 OAF3 163 LOG Dc XL1°s8° eee 7 OB7F CO 87 OB8BA 231 8 CLBCTR GOCD RETURN MUST BE & BYTE SRANCH
OAF4 09 OAFS 164 VAR& DC XLEfO9* eee 8 Bea 8 2 ee 0883 3A 80 1ALA 232 | SBN _BiTSws BITS. SET DISK ERROR BIT ds dknkst(‘“”
OAFS 84 CAFS 165 HI4 pc “ktatspae “She 9 ae Pree es & oso = 9 > OBBT F2°87 FETT OT 93300 a> =" - “PRIRIRO CC See re GO TO-PRINT ROUTINE ©---->- Poe Ee saa
166 OB8A 3C 00 1A55 234 CLBCTR MVI 8BCTR,X*CQ? CLEAR BCTR
OAF6 00 CAF6 167 DC XLL*°O0" * | OB8E 3C FF 1A58 235 MvI ROIDINe X®* FFE SET RD ID CLEARED FLAG
OAF? 0105 OAFS8 168 FRDSNS OC ML2?o1os® *** | MUST BE TOGETHER IN THIS ORDER ~ 03892 06 20 1A62 1A6D 236 Az SIDCV( 3) eDOCS 41) ADO ONE TO CYCLE COUNT
OAF9 COO5 OAFA 169 REVSNS DC KL2*90C5* eee 2 0B98 31 A& 1LASC 237 L101 LiO SKDCAD,x* Ae® iO SEEK OCF ADDR
OAFB 64 OAFB 170 TRKIO5 DBC KLLI6G* eee 3 & 45 OB9C F3 AG OO 2328 S101 SIO = K€ 00", x* ane SIO FOR TEST
OAFC CB OAFL 171 TRKZ205 DC XL1°C8F mae & - OB9F 31 AG 1A6A 239 LiG2 £10 { IDADDR,xX*aet LD READ ID DCF ADDR
CAFD FOF2ZFO OAFF 172 CYC1O5 DC CL3°O20! wea 5 OBA3 F3 Al O01 240 $102 S10 XK*OityxX* ane $10 FOR RD ID
OBOO FOF4FO OB02 1735 CrYC205 OC CL3*O40' eee 6 OBAS CO 8&7 OBAA 241 LOOP OB PPIK “PAD FOR TIMING LOOP { © CYCLES?
O603 a7 oo OB0O3 174 105 oC KLI*AT® eee 7 te . GCBAA CD DA CBA 0846 242 PPIK cic LOOP(115$.8 RCP PAD FOR TIMING LODP 128 CYCLES)
2804 09 0804 275 VARS DC XL1*098 axa 8 | OBBO OE OO 1A55 1A6F 243 ALC = BC TRU19 5 BODE ADD 1 TO SAMPLE COUNTER
0805 03 0805 176 HI5 DC RLUID3Zs wae 9 be ae C866 39 AB LA53 244 SNS2 SNS SNS2A3.X*a3e GET SENSE BYTES 2 & 3
i177 . eae : ae ee OBBA 39 04 1452 245 TBF SNS2A3—-lLyx*M%* IS CROSSING CELL COVERED YET? se
OB06 90 O806 178 DC ‘Xt1°O6O# . te rae eee tert oo" * OBBE F2-90 OF - >> 24% SE STORET TA OT - JUMP IF YES % pense
0807 0106- OB98 179 FWDSN6 DC KL2*0 106° eee MUST BE TOGETHER IN THIS ORDER _ OBC] 30 FD 1A55 247 CLI: BC TR, X*FD® HAS SAMPLING GONE TOD FAR?
CBC9 0006. . OBOA 180 REVSNO6 OC XL2*9006" eae 2, oN OBC5 F2 BL 0% 248 JE EXCAP IF YES, STORE DATA AND GO ON
OBOB 66 ms O0B0B 181 TRK1O6 DC XL2L°66? *e2 3 UBTS8 CO 87 OBAG 24S 8 LooP
oBoc Ce : OBGCC 182 TRKZO6 DC XL1°CS? ake & ; OBCC 3A 02 1AAA 250 EXCAP SBN BITSW»BIFS SET EXCEED CAPACITY BIT
OBOD FOFLF7 © OBOF. 163 -CYC166 DC CL3*"O17# sem 5 CG OBDO OD 02 1462 1463 | 251 STORE CLC SIOCY(3)5MANSID * ESCAPE IF 204 SEEKS OCCUR WITHOUT
0810 FOF3F3 0812 184 CYC206 DC CL3°033° “ae 6 O8C6 F2 81 2F 252 JE . ~PRIRTN ® * REACHING EXPECTED TRACK
0813 C6 0813 185 L106 DC . XLI*CS6? “on 7 0809 D2 01-Ci 253 LA 10, XR1)eRRI INCREMENT PER CYCLE POINTER
0B14 09 0814 186 VAR6~ OC XL1°09° see 8 G ‘. OBDC 4C 00 00 1455 254 MVC = O01 eXR1) eBCTE PUT TaME IN PER CYCLE TABLE
OB15 F2 OB15 187 H16 DC XLLtF2* ark 9 OBE} OC 00 OCBEA 1a55 255 MVC 4 «MVDIST#3€23-BCTR PUT TIME IN DIST CNT INST
186 F#AEKES HELE REREESEESERESS SETHE EREERAEASTAREESETERERKEE 4KEEEREEEAEEREEE RE ss OSE? OF 90 1LFOG LAGE 256 MYNIST ALC DISTBLU1L3.8001 ADD 1 TO DISTRIBUTION COUNT
189 * PROGRAM LIMITS TABLE - EACH ROUTINE LOACS ITS LIMITS HERE e © Ps OBED Ci A2 OBED 257 T1102 TIQ TI02,.xX*a2* WAIT FOR BUSY END FROM RD-1D
190 SU RRHES HERS ERE SEAS EEE EEEEE KEE CERES TE EEEEE ES EERE EES £4ROERETERORRE RROD OBF1i B2 02 00 258 La Oi, XRLI_gRRZ PUT KR1 INTO KR2
0B16 0101 OB17 191 FWOSN DC XL2°0101° see ) MUST BE TOGETHER IN THIS ORDER _ zg OBF4 36 92 1A4A o 259 A BM100 pXRZ » © SUBT.100 FROM XKR2 : “
0818 0601 OB19 192 REVSN OC XL2*6001° eae 2 c- ‘ OBF8 8C OG CO 1457 - - 260 MVC «= OL Le XRZICRDIGINGL PUT RD ID-CYL IN TABLE
OB1A 67 OB1A 193 FRK1OO OC XL1*67* <#e 3 OBFD 3D 00 1457 261 EXPTRK CLI RDI DIN—-I +B 1S RD ID Cyt EQUA TO DEST INATILN -
0818 CB - Q818 194 TRK200 DC Xil*cBt *et & = é OCOl F2 B81 04 262 JE PRIRTN IF YES, GO TO PRINT RCUTINE -
OB IC FIFOF3 OBIE 195 CY6100 OC °Ct3*103° ‘eae 5 ec Spe a ee <8 c es oC06 CO 87 CB7B 263 so Bg “TEOL: AoN. BR YO. TEST FOR ROY ERROR .. ee aE.
OB1LF F2FOF3 OB21 196 CYC200 OC Ci3*203* eae 6 264 pia eka cukiac kc oc ba buenns wiebadsesesnheeesindseceues 640006 sescaccesece
OB22 26 | 6822 197 16 Doc XL1°28% “se 7 ae 265 * PRINT RESULTS OF FHD OR REV PASS - WE GET HERE 4 WAYS. ©
0823 08 0823 198 VAR Dc XL1*°08* **x 8B GO. ¢ . 266 * le EXPECTED CYLINDER IS REACHED.
*0B24 57- - OB24 199 HI oc ML1L°57® . es 9 267 * Ze DESK ERROR (EXCEPT CONDITION CHECK) OR MOT READY ©
0825 FOFOFO OB27 200 RYTCYC DC CiL3*000° oo “ 288 ® WHILE MEASUREMENTS ARE BEING TAKEN. .* ..,
201 G1 ¢ 269 * 3. THERE HAVE BEEN 204 MEASUREMENT CYCLES AND THE zs ~
202 SRSKERS SERRES $ HERE ESELEEEEE EERE THESES EESEEEEESERE SHES TAKERLEESEESERERESS | | 3 270 # EXPECTED CYLINDER HAS NOT BEEN REACHED.
*203 * PROGRAM SETUP AND TEST FOR SWITCH CONTROLLED DPTIONS * Dee ge 271i * &. SENSE SWITCH 2D IS ON eg
204 FE LREEE SERRE EEEEESEEEESS 9966 S484 ONE TEES EEE EREERERS 09909848888 FORRES & oe 272 8HKESERE SHEEEER ES ESTES SSSR SHEE EEERESESEAASAESELESES OF SESLSEKAAAOESESRAROG— ~”
0828 34 68 OFTS5 205 BEGIN3 ST LNKRET#3,ARR STORE RETURN TO LINKAGE ADORESS OCO8 CO 87 1719 273 PRIRIN B UPKSTS GO UNPACK STATUS
:
a Gic¢
DATE L5MART2 1LSNOV72 Sais s see Me Seas PROG 1D “o808-1 Ci DATE 1SMAR72.. | iSNOVTZ °° - aa tae PRUE RE Shh ee et PROG 1D - -, @BO8-1
E@BNDO. 571609 571626 PAGE 2 G ¢ EC NO. 571609 571626 PAGE 2a
_c G&G be
é
ABM MAINTENANCE DIAGNOSTIC PROGRAM
eS
a Ld :
' >
OI
cn
IBM MAINTENANCE DIAGNOSTIC PROGRAM
§1346155
P . PART NO.
oe NO ser? . PaGE 3A
p08) 5444 DISK ADJUSTMENT UTILITY ——we oR TT weit mere ee tte tee ar ee rer wv we vy weet me eee ee et ere 8081 S444 O13 5K ADJUSTMENT. UTILITY... ter ere es ermwee SOE eee er ar ere rt me ee gee eee wee ee ~ meee omy cng aoe Cetera tee ee eer 9
BRR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC DBJECT CODE ADOR STMT SOURCE STATEMENT .
“. OCOC CO 87 OFT6 27% ) ERRTST GO TO TEST FOR ERROR 342 FFREREESESESEE OOFETEOEETHS ESE RESSE ESSE TEES EES ESTED FEENSOESESEEE SEOEE
- 0C10 3C 1F OC3C 275 MMVI «=—- SETUP142—.x"1LF® * SET FOR DISTRIBJTION OCE6 3A 80 002A 343 TRUK SBN PRTL1eBITO MAXE HEADING AN ERROR LINE)
OCl4 OC 01 OCTe OC3D 276 MVC 8 =—- SETUP 2¢302)4¢SETUP143 © PRINT OUT OCEA 3A 80 0DB} 344 SB8N PRTL2,8I1TO MAKE DETAIL AN ERROR LINE
OCIA 3C FF OCT76 277 MVI «=- SETUP 243,Xx'FES * ON THIS RUN OCEE 3A 80 Of4C 345 SBN = PRTL3eB1TO MAKE GRAPH AN ERROR LINE
> QOC1E 38 O1 LAAA 278 SBF BITSW.Xx*01* RESET PER CYCLE SWITCH OCF2 3A 80 1032 346 SBN = PRTLGsBITO MAKE SPACE AN ERROR LINE
> 0C22 38 80 0200 279 TBN SBYTE5,SSw28 * BYPASS PER CYCLE MODE IF OCF6 39 EE LAAA 347 TSF BITSW,X*EE* ARE ANY ERROR BITS SET?
—~ 0C26 F2 10 08 280 JT CLERIT * RUNNING IN SNAPSHOT MODE OCFA F2 90 29 348 JF SIRK JUMP IF NOT
<<" C29 38 80 C20C 281 TEN = SBYTE 4, SSw20 SSW 20 ON? OCFD 36 80 002A 349 SBF 0 PRTL1,BITO MAKE HEADING NON ERROR LINE / oe
-, OC2D F2 90 04 262 JF CLERIT JUMP IF NOT 0001 38 60 0081 350 S8F PRTL2 eBITO MAKE DETAIL NON ERROR LINE ah 2 fe Th
“- @C30 3A O1 LAAA 283. SBN ~BETSWyX2OLPeme TURN ON-PER CYCLECSWITEM nc Cor coee ve xe coe ODOS (3B, BR DEGE ---- -- - 351 = SBE PREG SG BEEO ere ~~. MAKE GRAPH NON ERROR ANE coer ceen mie a
-, 0634 O7 O06 LA5F 1LA5SF 284 CLERIT $2 DCTR1079,0CTR1II7) CLEAR BOTH DECIMAL COUNTERS 00C9 38 BO 1032 352 SBF PRIL4,BITO MAKE SPACE NOM ERROR LINE Bay ue
.~ OC3a C2 01 1F00 285 SETUPL LA DISTBL- KR TBL ADOR TO XR1. PROG CHANGES QO BYT - . ODOD 38 08 0208 353 TBN SBYTEO sSSWO4 IS SSK & ON?
ie 286 Me 0011 F2 90 12 354 JF SERK JUMP IF NO ERRORS
287 SERRE ERSTE SEETESERS CEES ETEREEEST EEE EESEEERATS EERE OS ERD EEEORERERER ERS 0014 C2 01 OFOO 355 "oA “*OFOO*, XR1 SET DELAY VALUE
288 * FIND BINERY & DECIMAL VALUE MINUS 1 OF FIRST ENTRY IN woes GO18 OO FF OCD9 OCD9 356 KRIS cic LOCK{ ( 256) »LOCK DELAY TO SIMULATE PTR DELAY + ‘yh
28S * DISTRIBUTION TABLE . * « ODLE “36 01 1475 357 A BMO1, XR1 DECREMENT LOOP CONTROL = Sad gee
Fine (Bog 290 FEES EREES EEE EE SEREEEEEE SH EERERECESOEEEEEEEEAEEERE SEE £8 OEESOKEEEESEDRERE 0022 CO 61 0018 358 BN2 KRIS GO BACK IF DELAY NOT FINISHED . ons
~OC3E 7D 00 00 291 FNOST CLI O€_KR13,0 THIS TABLE POSITION ZERO? 0026 CO 87 O21A 359 SIRK 8 PRINT PRINT HEADING 2S
OC41 F2 01 21 292 JNE = STSTRT Jump If NOT OD2A 41 OD2A 360 PRTL1 DC KLi*4148 BIT O MAY BE ALTERED BY THE PROGRAM
0C44 D2 01 01 293 LA 1,XR1)_XR1 XR141 OD2B 55 OD2B 361 oc IL1*s85°
*-OC47 06 30 1LASF 1A6D 294 Az DOCTR1(4),000141) DECIMAL CIR «} 2 Od2C 1C5¢ ON2D 362 oc AL 2 (HEAD412)
OC4D OD 02 LASF 1A86 295 CLc DCTR1 (33, TOMUCH TABLE EMPTY? ODZE AOLA OD2F 363 FRSTLN DC XL2"°AOLA® oF
' 6C53 CO O1 OC3E 296 BNE FNOST GO BACK TO FIEND ST ART O0D30 OC 06 1CA3 EFA (3646 - . MVC PRT AB(7),FUD MOVE IN FORWARD MESSAGE
0C57 CO 87 O2Z1A 297 NOSAMP B PRINT PRINT SAMPLE TABLE EMPTY MESSAGE 0D36 38 01 1465 365 TBN SKDCF—1_X*O1* WAS THIS OPERATION FORWARD
Oc5B Cé ocs8 298 oc XL1°C6# . - OD3A F2 10 06 366 JT LRAK JumP IF IT WAS
-OC5C 1C€ Ocsc 299 BC I1kL1*28°* : OD3D OC 06 1CA3 1EF3 367 MVC PRT A+8(7) REV SET REVERSE MESSAGE
0C5D 1¢695 CC5E 300 Dc -AL2(NOSMPL) m8 3 es Kosalmake Bi a ee 0043 OC O02 1CAC. 1462. 348 LRAK MVC .PRTAS17£3),SIOCY... SET @ OF SIO*S MESSAGE | Seuecene 2 2 is
OCSF ADCO oc6éo 301 oc “XL2*a000° — , ~ 0049 08 03 1CB5 1466 36% MNN PRT A+ 26,SKDCF SET # OF TRACKS .
OC61 CO 87 0634 302 ) BGHALT GO TO PROG RESTART OD4F 3A FO 1CB5 3706 SBN PRT A4+26,X*FO?® MAKE PRINTABLE NUMBER
0C65 36 01 1A75 303 STSTRT A BMO1, XR1 XR1-1 0053 OC 04 1CBB 1C9A 371 MVC PRTA#32(5), TRACK MOVE IN THE WORD * TRACK®
OC69 07 30 1LASF 1A60 304 $2 DCTR1i(4),D001(1) DECIMAL CTR-1 0059 OC O01 1CC2 1C07 372 MVC PRT A#39(2) sDISK MOVE IN DRIVE US)
OC6F 34 61 LATD 305 ST BSTART,XR1 STORE 1ST TABLE ENTRY ADDR-1 OO5F OC O8 ICCD ICOF 373 MVC PRTA50193 oS SET MILLESEC MESSAGE
306 ; 0065 CO 87 177D 374 8 CNVBTD GO CONVERT LO TO DECIMAL
207 FF EREEESEREREE REESE SHEETS £EEEEREERES EERE TE RERES EASE EE EEE EEEE ESOS EE ERE OE 0D69 0822 OD6A 375 OC AL2Z2(LO)
3908 * FIND BINERY VALVE +2 OF ENO OF DIST TABLE * OD6B OC O2 ICF4 1A58 376 MVC PRTA#89(3) .OC TR2 STORE DECIMAL LO
: ZOD FEESEESSEEEEE SERED EGET EERKES EEEREEEEES EEEEES EE EEE EE EE OEEEEE £8 EEESE SERRE i 0071 CO 8&7 177D 377 B CNVBTD ‘6D CONVERT VAR TO DECIMAL a
0C73 C2 01 LFFF 310 SETUP2 LA X*1LFFF*,XR1 TBL END ADOR TO x21 PROG ALTERS QO BY ~- /| ~ OD75 0823 OD76 378 oc AL2(VAR) ma
OC77 76 60 60 311 FNDEND CLI O(,XR1},0 IS FHIS ENTRY ZERD OO77 OC O2 1CF7 1A5B6 379 MYC PRTA*S203),DCTR2 STORE DECIMAL VARIATION
OC7A F2 61 CB 312 JNE STEND JUMP IF NO : 0D70 CO 87 1770 380 B CNVBTD GO CONVERT HI TO DECIMAL
OC7D 36 0% 1A75_ 313 A BMO1,XR}- XR 1-1. Skene ae | : 0081 0824 -...- .« 0082 361 DC -AL2¢(H1) : ene”. Silent
0cC81 CO 87 OCTT 314 B “FNDEND ~ GO BACK TO FIND END ne : OD83 OC O2 1CFA 1458 : 382 MVC PRTA#+95(3),0CTR2 STORE DECIMAL HI - : Sia
OC85 36 OFT tAT71 315 STENC A BOO2, XR1 XR142 : OD8B9 OC 12 1CE3 LAA4 383 MVC PRIA+7201939 -EDIT2 BRING IN LIMITS EDIT “oro
‘OC89 34 OL TA80 316 ST BENDsXR1 STORE LAST TBL ADDR #2 OD8F OA 12 1CE3 ICFA 384 ED PRTA+72(19) -PRTAS95 EDIT LIMITS INTO PRINT AREA
OCED CO 87 1768 317 8 CLPRTA CLEAR PRINT AREA OD95 oC OA ICEF 1C66 385 MVC PRTEAt8&¢1123¢STSMSG MOVE IN STATUS
: 318 0098 OB O1 1CD1 1447 386 11c PRT At54(2) -BLNK INSERT BLANKS IN LO LEMIT ae
319 SESFEEEREEEEEE SEER EESEAEESEEES OEREEEEEEESESEESEESRES OE OEEEEREERDEDROROREES ODAi O08 91 1CD6 1A47 ~ 387 1Tc PRTA+59(2) »-BLNK INSERT BLANKS IN VAR LIMIT o
2 320 * SEY &0-+ VAR, HI, ERROR BITS IF NECESSARY * OBA7T 08 91 ICDC 1A47 388 ITc PRT At65(2). BL NK INSERT BLANKS IN HI LIMIT
321 SHRSEEEREREE SS EREES EEEEEEE EEE HEEEEES EERERE TE OS HESS BE OO8809088 2EEROREES Si ODAD CO 87-0214 389 8 PRINT PRINT DETAILS UNDER HEADING 3
0C91 38 78 1AAA 322 SBF BITSW.X* 78" CLEAR ERROR BITS .¢ » OOBi 02 ODB1 3960 PRTL2 OC XL1*O2* BIT O MAY BE ALTERED BY THE PROGRAM aad
GC95 3C 87 OE62 323 mvi UPBR+1,X"87* TURN ON UP BRANCH OD82 54 ODB2 391 DC IL1*84
*0c99 3D 1E OCTS 324 cul SETUP 242, xX*1E* 1S THIS PER CYCLE MODE . - O083 1CEF ODB& 392 Oc AL2CPRTAtB4) ms
oC9D CO 81 0089 325 BE LOIS BRANCH IF TES ; : 0D85 CO BT 1766 393 8 CLPRTA CLEAR PRINT AREA =
OCAl OC 00 1A7E 1A7D 326 MVC = SVBSTR(1),BSTART SAVE TABLE START ADDR FROM 1ST PASS 394
OCAT OF OO LATE 1AT71 327 SLC SVBSTR(1),8002 ADJUST SAVED START ADDRESS tp 395 CPLTESE SEESEETS COOLESS ERE ESSSE SESE SESE SESS SHSETEAEESE FELESESESSESESESSRE ae
GCAD OC 00 LAAS 1480 328 MVC WORK(1),BEND FETCH TABLE END ADDRESS © © 396 * BAR GRAPH SET UP AND PRINT ROUTINE eS
O0€83 OF OO 1AAB 1A71 329 SLC WORK{ 1).B002 CORRECT DIFFERENCE 397 SRHESEERAESEERSE CHERSESESES ESEFLOEKS TEKTHS SS SHERSESRE SH FEBAEESESSSE SSUES SRS
0CB9 OD 00 1AAB 0B24 330 cic WORK(1),H1 LOOK FOR TOO HI Be ; ODB9 35 O01 1A7D 398 LOIS 1 BSTART,XRI POINT ¥R1 TO START OF TABLE
OCBF F2 04 04 33) . JNH ~~ -VARCK BRANCH IF OK = ODBD 1C-. 00 ODEE Of 399 MORPRT MVC PROP*#1024.01.XR1) PUT TRL VALUE IN * MAKE GRAPH*® INST
OCC2 3A 20 1AAA 332 SBN BITSW.BIT2 SET TOO LATE BIT Ooc2 CO 87 1770 400 B CXVBTO CONVERT TABLE VALUE TO DECIMAL
OCC6 OF OO 1A4AB 1A7D 333 VARCK SLC WORK( 1) »sBSTART FIND VARIATION - EARLIEST TO LATEST pon ODCS ODEE ooc? 401 DC AL2(PROP1) ar
OCCC OD OO 0823 1AA8 334 cLCc VAR(1) »WORK TS TIME VARIATION TOO MUCH a ; OOCc8 3D LE OCT5 402 CLi SETUP24¢2,K*°1E* IS THIS PER CYCLE MODE
6002 F2 02 04 335 JNL LocK BRANCH IF OK oocc F2 01 09 403 JNE TUOLNG JUMP IF NOT
OCD5 3A O8 1AAA 336 SBN BITSW.BITS SET TOG MUCH VARIATION BIT 7” OOCF OF 00 ODEE 1aA7E 404 SLC =—«-—~ PROP #1019 SVB5Te SHORTEN GRAPH LINE IF IN PER CYCLE
OCD9 OD OD 1A7D 0822 337 LOCK «6CLC)) OBSTART(1),L0 LGOK FOR TOO LOW TIME M ODD5 F2 82 78 405 JM PASTPR - SKIP GRAPH LINE IF NOTHING TO PRINT
OCDF F2 02 04 338 JNL TRUK BRANCH =F NOT TOO MUCH ODDS 3D 52 ODEE 406 TOOLNG CLI PROP*1 ¢X*52* IS GRAPH LINE TOO LONG FOR PRT AREA
OCE2 3A 40 1AAA 339 SBN BITSwWeBITL SET TOO EARLY BIT a : ODDC F2 04 04 407 JNH GRAPH JUMP IF NOT
340 FERSERE 64SSS4EEESEEEEEESS OSE ES OEREEEE SEEESEESSESRSE OD REKEEREEREEEEEEERe ODDF 3C S2 ODEE 408 MVI PROP*1 »X*52° SET MAXIMUM GRAPH LINE LENGTH aa
341 * PRINT TWO LINE HEADING FOR DISTRIBUTION BAR G APH * ODES 3C 09 OE4D 409 GRAPH MVi - PRTILNG,X*O9" SET PRT LENGTH FOR NUMBERS ONLY
S «
GATE L5MART2 1ISNOVT2 PROG ID 0808-1 DATE 15MAR72 ISNOVT2 PROG ID 0808-1
fC NO. 571609 571626 PAGE ae EC NO. 571609 571626 PAGE ss
c G ~
pm MAINTENANCE DIAGNOSTIC PROGRAM
PART NO. 5134155
2 PAGE &
BOB1 5444 DISK ADJUSTMENT UTILITY bee ne ate} Dee MESES |, Ste aus, e ae
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT
ODE? OE 00 O&4D ODEE 410 ALC PRTLNGE1) PROP+1 ADD GRAPH LENGTH TO PRINT LENGTH
~ ODED OB 00 1CA4 1448 4#i1 PROP ITC PRTAC9(1) oSPLAT PUT GRAPH LINE IN PRINT AREA
-. ODF3 3C 40 1CA4 412 MVI PRI AC9e X*GG* REMOVE EXTRA GRAPH CHARACTER
- ODFT 3@ 08 OE4F 413 ST PRTADD, ARR SET PRINT PARAMETER
ODFB OF O01 OE4F 1A6F 414 SLC = PRTADD{ 2),8001 ADJUST PRINT PRINT PARAMETER
%& LS & SEER KSA HERS KE KKEKEK KCK S CK EKREST REL KEKE KHRKRAKKH KE SASH HAKKEKKERKEBERE
16 * SEY UP PRINT LINE LABELS ,
*& i? PEAKE ARRKAKE TEKS KK AREKREH ERAERAKLAKES SHKESEREHREE LSS CECKERES AKEERERESE HE
OE01 OC O02 ICSE IASF 425 MVC PRTAtO3(3),0CTR1 MY IN LINE VALUE
OEO7 OC 03 1CA3 1495 419 MVC . PRIAHOBUSISEDITA. - SET EDIT WORD 9 --. 0 eee eee ee
OEOD OA G3 1CA3 1A58 420 ED PRTA4+08(4} ,DL TR? EDIT GRAPH VALUE
0E13 OB 02 1C9C 1447 421 - TTC - PRT AFL 032 6B8LNK INSERT BLANKS INTO LINE VALUE
O£19 OB 03 1CA0 1A47 422 ITC) = PRTA#5 £43 -8LNK INSERT BLANKS IN GRAPH LINE
OFLF 30 LE CC3C 423 CLI SETUP142,X"1E? IS THIS PASS PER CYCLE?
GE23 F2 81 22 42% JE ALLSET JUMP IF YES- :
OF26 3C 40 LCAOD "25 MMVI PRTAtO5 »X*40! CLEAR PREV SETUP
CE2A OC 03 1ESF 1A95 “26 MVC = PRTA#04143,EDITL MV IN EDIT wo
OE30 OA O03 1C9F 1Aa5F 427 ED PRTAt04(4},DCTRI EDIT LINE VALUE
0£36 OC O02 1CA3 1458 428 MVC = PRT A#B 03) ,DCTR2 MOVc IN GRAPH VALJE
OE3C O68 O1 1C9C 1A47 429 1¥C = PRT A40112) eBLNK INSERT BLANKS IN LINE VALUE
OCE42 OB O2 1CAl 1A47 430 ITC = PRT A4#643),BLNK INSERT BLANKS IN GRAPH VALUE
0E48 CO 87 O21A 421 ALLSET B PRINT PRINT GRAPH LINE
OE4C O1 OE42 432 PRTL3 OC XL1*°O1¢ BIT O MAY BE ALTERED BY THE PROGRAM
0E4D 00 C£40 433 PRILNG OC XL1*D0° THIS BYTE IS CHANGED BY THE PROGRAM
OE4E 0090 . GCE4F 434 PRTADD DC XL2*90000¢ THESE BYTES ARE CHGED BY THE PROGRAM
OE50 CO B87 1768 435 PASTPR B CLPRTA CLEAR PRINT AREA
436
437 FEKKKEESESKEKRESE AKA HEEKEREAE AKEKKEAKEKSEKESREEKKEEAERER KE OK ESEEEKAEEEREKBESAEEED
435 * CHECK FOR DIPS AND SKIPS ERROR AND SET BIT IF NECESSARY
*439 RAEASEKASALE SK KEKS SKARAELTS SKEK AKERS REHEARSE ERRKSSTHEKE SRKERSEKKKEKAKEACERKRE
OE54 06 30 1ASF 1A6D 440 AZ DLTR1(4),D001 (1) ADD ONE TO LINE VALUE
OE5A 3D LE OCT75 441 CLI SETUP2¢2,X*1E# IS THIS PER CYCLE MODE?
OE5E F2 8i 1D 442 JE —NDCK BRANCH IF YES
OE61 F2 BT OF 443 UPBR J CKuP Q CODE IS ALTERED BY THE PROGRAM
OE 64 5D 00 01 00 4o% CLC 1(1eXR1},00,XR1) CHECK FOR DECREASE IN TIME
GE68 F2 04 13 445 JNH = _ENDCK BRANCH IF DECREASE
OE6B 3A 10 LAAA 446 SBN BITSW,BIT3 SET DIPS BIT
esd a ote 447 J ENDCK
oc 01 00 448 CKUP CLC 1(24XR1),0(,XR1) CHECK FOR INCREASE Tia
OE 7 CO 02 OE7E 449 BNL ENDCK — _ ._ BRANCH IF INCREASE sa aie
OETA 3C O7 OF62 450 MMVI ~UPBR41,X*O7' TURN OFF UP BRANCH
OE7E D2 0: 01 451 ENDCK LA 1€,XR1IeXR1 INCREMENT TABLE POINTER
0£81 34 O} LAST 452 ST SVXR1.XR1 SAVE XR1
OE85 0D 01 1A4C 1A80 453 CLE SVXR1(2) »BEND TBL START = TBL END?”
OE8B CO OT ODpBD 454 BNE MORPRY GO SET UF MORE LINES
OESF CO 87 021A 455 8 PRINT GO TO SPACE ONLY
0£93 11 0E93 “56 oc XLI°11°
457
458 REREEKEEREARHEES ARES RERKEREKEETERELES EKRKEHERERASKEER ES HE EEEEEEAHEEEEREERAKER
459 * CHECK ERROR BITS IN BITSW AND PRINT APPROPRIATE ERROR MESSAGES
*460 HESKERSE ESAT KE ES EE RRAAAH EE EEEK AKERS HAE EEE EREKREEK EEE EE EKEEREKAEEREREREEE
OE94 39 EE 1LAAA 461 TBF BITSw,XtEE® TST FOR ALL ERR EXCEPT DIPS & SKIPS
0E98 F2 10 73 462 JT SPACE SKIP ERROR PAINT IF NONE
CE98 CO 87 O21A 463 B PRINT
OE9F Ci OESF 464 oc XL1°C1
*O£AO Ol OEAD 465 DC IL1*o1
*OEAL 1A47 OEA2 466 oc AL2 { BLNK)
cen aero : OEAS 467 ERRCOD DC XL2*°a000¢
AAA 468 TSTBTO T8N BITSW,BITO TEST FOR ERROR
OEAD F2 90 CB 469 JF TST8T1 GO TO NEXT oa .
CEAC CO B7 O21A “70 8 “PRINT
OE€BO 81- OER) 471 Dc XL1°*B1¢
OEB1 21 OEBL «72 oc IL1¢*33°
bee? aAce : OE3s 473 oc AL2(81T00)
40 1AAA 474 TSTBT1 TBN BITSW,BIT1 TEST FOR ERROR BIT
OEBS F2 90 08 475 JF TSTS8T2 GO TO eae Test :
OEBB CO 87 OZ1LA 476 8 PRINT ”
OEBF 81 OEBF 477 pc XLi*e.e
DATE 1SMART2 15NOVT2 -
EC NO. 571609 571626 etce 7 aeoeae
~
< ”
of
g
x
‘eee
A23407.
on
f
O
IBM MAINTENANCE DIAGNOSTIC PROGRAM
_.8081 5644 DISK ADJUSTMENT UTILITY
ERR LOC OBJECT CODE ADDR STMT
GECO 29 LECa «478
CECI 1LAFS O£C2 479
CEC3 38 20 1ALA 489
O£CT F2 99 08 481
OECA CO 87 0214 482
OECE 81 OECE 463
OECF 2A OECF 48%
OEDO 1B1E OED1l 485
- "- QED2 38 10 LAAA 486
. on. GEOG F2-90 08-0 - 0... 4BT
-GED9 CO 87 O21A 488
GEDD 81 OEDD 489
OEDE 16 OEDE 490
-OEDF 1834 OED 491
OEE] 38 GB 1AAA 492
DEES F2 90 08 493
O£ES CO 87 021A 494
OEEC 81 OEES 495
OEED 2E GEED 496
OEEE 1862 OEEF 497
OEFC 38 04 1AAA 498
DEFS F2 90 08 499
OF? CO B7 O23A 500
OEFB 81 OEFB 501
OEFC 2C€ CEFL 502
OEFD 188E OEFE 503
OEFF 38 02 1AAA 504
OFO3 F290 OB "ss s-=+ $05
OFO6 CO 87 OZ1A 506
OFOA 81 OFOA 507
OF0B 23 CFOB 5CB
OFOC 1881 OFOD 509
OFOE CO 87 021A 510
OF12 14 OF12 511
512
513
514%
515
OF13 38 O01 1AAA 516
OF1L7 38 O1 1LAAA 517
OFIB F2 96 12 518
OFIE 3C 1€ OC3C | 519
OF22 OC 01 OC76 CC3D 520
OF z3 3C CC OC76 521
OF2C CO 87 0034 522
CF20 38 04 020D 523
OF 34 CO 10 B34 524.
OF 38 38 O1-1A65 525
OF3C F2 90 1F 526
OF 3F 38 08 O20C $27
OF43 F2 1C OA 528
OF46 38 10 020¢ 529
OF4A F2 90 03 530
OF4D F2,87 OF - 531
OF50 OC O61 1A66 0819 5 32
OF56 3C GO OBFE 533
OFSA CO 87 OBGF 534
535
OFSE 38 80 0200 536
OF62 F2 90 OD 537
OF 65 OF 00 1A54 1A6F 538
OF6B F2 81 04 539
OF6E CO 87 0849 540
541
542
543
544
545
DATE LSMART2 1SNOVT72
EC NO. 571609 571626
PART sO.
PAGE
SOURCE STATEMENT
oC ILi41°
oc AL2(81TOL)
TSTBT2 TEN BITSW,BITZ TEST FOR ERROR BIT 2
JF TSTBT3 GO TO NEXT TEST
8 PRINT
D KLI*61°
oc 1L1*42
*oC AL2(BIT02}
TSTBT3 TSN BITSW.BIT3 TEST FOR ERROR BIT 3
ME. ce: GURTOTOs Wg. GG TO NEXT TEST —
8 PRINT
DC XL1°821°
oc IL2°22¢
oc AL2(BITO3)
TSTBT4 TEN BITSW,BITS TEST FOR ERROR BIT &
Jf TSTBTS GO YO NEXT TEST
6 PRINT
pC xii*si
*DC 1L1*46°
DC AL2(B1TO4)
YSTBTS TEN BITSW,»BITS TEST FOR ERROR BIT 5
JF TSTBT6 GO TO NEXT TEST
B PRINT ;
oc xLiteie
oc lil "44s
oc AL2(BIT05}
TSTBTE TEN BIYSWeBIT6 TEST FOR ERROR BIT 6
JF SPACE: GO TO SPACE © LINES 2. LV.
8 PRINT
pc KL1°81°
oC 1L1935¢
DC ALZ(81T96)
SPACE 8B PRINT SPACE 4 LINES
oc XL 114
SKETCHES RATA ST SS RKELSSSEKLSS SE KE SLERE SK SKK KT HS HSCREKAESKE CKHKAKTE CES KKTSRETH
* MEASUREMENT AND PRIMFGUT CYCLE CONTROL
*SEATS SEA THS PHRASE SHH VE SSE LESS SS SETS ETATS SSEAE SHE SF VSS TAKS FEES HRES
TBN BIT Sw.x*ol* 1S PER CYCLE Sw ON?
SBF BITSW,x*O1* RESET PER CYCLE SWITCH
JF -NOPRE ¥ : JUMP If Sw WAS NOT GN.
MVI SETUP1¢2 ,X*1E* @ SET FOR PER
MVC SETUP 24362) SETUP 143 * CYCLE PRINTOUT
Vi SETUPZ4¢3eX*CC* * ON THES RUN
8 CLERIT GG TO S&T UP PER CYCLE PRINT OUT
NOPRCY TAN SBYTES,»SSW2D TEST FOR REPEAT PRINT
BT BGHALT ™ GG TO BEGINNING IF ON
TBN SKDCF-1, x*O1* FHD SEEKING JUST COMPLETED?
JF TST28 GO TEST FOR SNAPSHOT MODE
TBN SBY TES »SSN24 TEST FOR REVERSE ONLY
JT RVONLY
TBN SBYTE4,SSW23 TEST FOR FORWARD ONLY
JF RVONLY
J TST28 6G TEST FOR SNAPSHOT MODE
RVONLY MVC SKDCF12).REVSN SET OCF FOR REV SEEKING
MVI. EXPTRK4+1eX*OD* SET EXPECTED END ID FOR REY
8 START "GO BACK TO RUN REVERSE
T$T28 TBN SBYTE5.SSwW28 1S SNAPSHOT MODE IN USE
JF LNKRET GO BACK TO USING ROUTINE
SLC SNPCNT{ 1),.B001 REDUCE SNAPSHOT COUNT
JZ LNKRET GO TO CALLING ROUTINE IF ZERO
B 6a GO DO ANOTHER MEAS UREMENT
EKKAEKEKEKKSERKEES KE SHES SEKVHESE SHEVE HKSKTHREKKKTKEKKKEKSEKEE SCE KEKEKESCKEKAKEKE SKE
* ' LINK RETURN (LNKRET 2 SRANCH ADDRESS COMES FROM THE STORE ARR s
* INSTRUCTION AT *BEGEN3*, SETTING THE LINK BACK TO EACH OF THE *.
* ROUTINES 1 THRU 7.
*PROG 10 OB0B-1
PAGE
on
$126155
aid
ABN MAINTENANCE DIAGNOSTIC PROGRAM
‘BUBL ©5444 DISK ADJUSTMENT UTILITY
ERR LOC OBJECT CODE
-.” OF72 CO 87 C600
- OF T6
- -OFTA
> OFTE
oF B82
OF 66
OF BC
OFF
OF93
OF 99
OFSD
OFAL
OFA2
OF A3
OF A5
OFA7
OF AS
Cat
OF AB
CFAD
OFac
OF AF
OF B3
OFB7
OF BA
OFCO
OFCS
OFCS
OFCE
OF DI
OFD4
OFOT
OFDB
OF OC
OFDE
OF EO
OFE4
CFET
OFED
OF FO
OFFS
OFFS
1000
1003
1006
100A
100D
1010
1014
1016
1016
1018
101¢
DATE
EC NO.
34
34
34
C1
od
“Fe
3A
aD
co
co
c2
Mi
08 1055
OL LAST
O2 1A4E
AO 0F93
O02 0B27
81 BB”
04 LAAA
FE lFFE
81 OC57
87 O21A
1c7S
A300
C2
01 0000
1001
C2
02 0000
1045
3¢
38
F2
oc
34
34
oD
F2
70
F2
co
01
OO 1AA7
O1 1465
1c 06
00 1AAT
01 OFDD
02, OFDF
Ol OFDF
O2 43
FF 00 «
81 3D
87 O21E
0000
0000
38
F2
OF
F2
OE
10
1c
F2
BC
3A
D2
E2
co
C2
O1 1465
10 09
OO 1AA7
87 06
00 1AAT
00 1AA7
09 1AA7
81 07
SC 01
01 1AA9
Ol 01
"02 04
8&7 OFCO
02 0000
1CAl
co
8k
87 O21A
ISMAR72
571669
- ADDR STMT CU TKI CUI SYA EEMERE Ceres coo: con tt BRR-£ GC OBJECT, RPPE -.. -. - ADDR..STAT
5Q6 FSKEERE REESE RE SHKERERESESRE OE OKEREEERES EESEEEEEEESSE SE 20590858 EEEEREEEESEO 101D 42 1010 614
547 LNKRET B 0 RETURN TO CALLING ROUTINE 1O1E 1CDE 1O1F 615
548 a i r 1020 CO 87 1768 616
$49 SRESEEE ESS EEEREEEEEES EEEEE OESEE EEE SES EREREEEESESE ROK EE EEEESERESRE OSS O4OEE , 1024 70 FF 00 617
550 * TEST FOR ERROR WHEN NORMAL PRINT OUT 1S CALLED FOR. * : 1027 F2 81 04 618
551 * THERE ARE TWO CAUSES FOR ADDITIONAL ERROR TABLE PRINT OUT. * _ 102A CO 87 OFCO 619
552 * 1. ANY STATUS ERROR OR NOT READY WHILE MAKING MEASUREMENTS. © 1O2E CO 87 O2Z1A 620
§53 * 2- INCORRECT NUMBER OF SIO CYCLES HAD BEEN TAKE! WHEN THE * 1032 11 1032 621
554 * PRINT OUT ROUTINE WAS CALLED FOR. . . - 1033 CO 87 1752 622
555 = 2s =' 1637 38 01 1LAAS 623
556 = NOTE: CORRECT NUMBER OF SIO CYCLES IS DETERMINED BY THE NUMBER * 1038 F2 90 OC 624
557 * OF TRACKS PER SEEK. (SEE "C¥YLIOO® OR *CYL200%) tc oo0 0 Crome. 7 t° 2O3E-38°G2-28A9 1.2 crt 625.
$59 REKEEEE RARER EDERERERERES EERE EEERESEM EEE EERE ERE OE EREEESSEREKEEEEEERS - 31042 CO B7 O21A &26
559 ERRTST ST EERRTS+43,ARR SET RETURN 1046 42 1046 627
560 = ST SVXR1»eXR1 SAVE XR1 1047 33. 1047 628
561 ST SVXR2—XR2 SAVE XR2 1048 JOFF 1049 629
562 TIOS TIO UNPKID»)X* A0® BR ON ERROR OR NOT READY 104A 35 01 1A4C 630
1A62 $63 CECE RYTCYC(3}3,SIOCY ARE CYCLES TAKEN CORRECT? 104E 35 02 1A4E 631
: / 564 © JE QUK END BR TO END IF EQUAL 1052 CC 87 9006 632
565 SBN BITSW»BITS SET INCORRECT 1/0 CYCLES BIT 633
566 KERREREE ER SHES EEE RERERERS TOR EREES ; 634
567 * PRINT OUT ID TABLE CN ERROR ~ 635
S68 See Eee ENE HEE KES REESE EERE EREED 1056 34 08 1080 (36
LFFF S69gUNPKID CLC DISTBL4254(255).DISTBL4255 ARE ANY MEASUREMENTS RECORDED? 105A 34@ 01 1A4C 537
570 BE NOS AMP BRANCH TO NO SPL ERROR PRINT IF NO ~ 105€ 35 O1 1030 638
571 8 PRINT GG PRINT HEADING 1062 D2 01 04 639
OFAlL 572 DC XL1*C2° 1065 34 O01 1084 640
OFA2 573 DC ILiei7e 1069 35 01 1A4C 641
OFAG 574 Oc -AC2C1LOMSG) 1060 CO 87 1719 642
CFAS 575 DC XxL2*a000° 1071 39 FD 1A59 643
576 LA Os XR LD ID TABLE ADDRESS 1975 39 24 1A51 644
577 ORG *~2 1079 39 80 1A52 645
OFAA 578 DC AL2(10T8L41) 1070 CoO 10 6000 646
579 LA Oe XR2 LD PRINT AREA ADDRESS 1081 CO 8&7 0000 647
580 QRG *=2 648
OFAE 581 DC AL2(PRTA#10) 649
582 MVI OLO,x*00* SET OLD ID TO 00 650
583 TBN = SKDCF-1,x°O1°. LOOK FOR FORWARD DIRECTION 651
584 JT _UNSTRT - 652
LAF 585 MVC OLD(1),TRACK# SET STARTING TRACK 1085 07 1085 653
586 LNSTRT ST PACKED,XR1 SET PACKED ADORESS 1686 00 1086 654
587 ST ‘UNPKED,XR2°° SET UNPACKED ADDRESS L087 -10AB.- 1088 655
1LAAG 588 CLC UNPKED(2) -HIPRT IS THIS END OF PRINT AREA 656
589 JNL PRTALN GO PRINT A LINE OF IDtS 1c89 CO 87 1880 657
590 Cul Ol eXR1)_X* FES LOOK FOR END OF RD ID*S 1080 CO 87 G21A 658
591 JE PRTALN GO PRINT LAST LINE OF ID*S 1041 41 1091 659
592 B UNPACK UNPACK AN ID INTO THE PRINT AREA 1092 01 1092 660
OFDB 593 DCs XL2°O.°8 1093 1LA47 - 109% 661
OFDD 594 PACKED OC XL2*0000°* THIS CONSTANT ALTERED BY PROGRAM 1095 acoo 1096 662
OFDF 595 UNPKED DC XL2 "00008 THIS CONSTANT ALTERED BY PROGRAM 1097 CO 87 1719 663
596 TON SKOCF-1,x*0O1° WAS THIS A FORWARD SEEK? 109B CO 87 173E £64
597 JT FWOYES JUMP IF IT was 109F CO 87 1603 665
LAGE 598 | Sic OLO(1),SKOCF SET OLD ID FOR REVERSE 10a3 CO 87 1752 666
599 J COMPID 4 10A7 CO 87 1089 667
LA66 600 FWDYES ALC OL0(1),SKOCF SET GLO ID FOR FORWARD . s 668
06 601 COMPIO CLC OLD(1),0(,xR1) OLD 1D #/~ LAST SEEK = THIS ID? 669
00 602 MVC GLD(1),04,xR1) MOVE THIS ID TO OLO ID oss 670
603s JE XRINCR Bs 671
604 MVI 19XR2)—X*5C* SET BAD SEEK FLAG 10A4B 08 1OAB =672
665 S8N BITSW1,B1T7 TURN ON FOOTNOTE CONTROL 10AC 00 10AC 673
606 XRINCR LA 1(XR1)eXR1 INCREMENT ID TABLE POINTER 10AD 1195 1OAE 674
607 LA 4(_XR2),XR2 INCREMENT PRINT AREA POINTER LOAF CO 87 164D 8 675
608 B LNSTRT nt : 1083 3C 08 OAO03 : 676
609 PRTALN LA 0 »XR2 RESTART PRINT LINE POINTER La ™ 1118 677
610 ORG *-2 111B 4678
1017 +611 oc AL2(PRTAC6) a 1087 C2 01 1118 679
612 8 PRINT PRINT & LINE OF 1D°S co 1088 5C 01 5E 09 680
101C 4613 oC XL1*e1* 108F 35 O02 1A58 681
Cc e
1S5NOV72 PROG ID 0608-1 DATE 15 MARTZ 15NOV72
571626 PAGE Sk EC NO. 571609 571626
a ~ |
SOURCE STMPEMENT vector cere
wv
; NI
PART NO. 5134155 =
PAGE 5
a8 SOB) 5444 DISK ADJUSTMENT UTILITY
o
a
ry
18M MAINTENANCE DIAGNOSTIC PROGRAM
SOURCE STATEMENT eoecers mene
. pt ere ter tee’
PART NO. 5336155
PAGE - Sk
LAST 1D?
JUMP IF YES
GO SET SCNE MORE ID*S
THIS CAN BE CHANGED BY THE PROG
GO TO PRINT LAST 1D FIELDS
WERE YHERE INCORRECT SEEKS?
JUMP IE NOT
RESET. FOOTNOTE CONTROL eee ee
PRINT ID TABLE * FOOTNOTE ~°**°*°°>
RESTORE XR1i
RESTORE KR2
RETURN
KEKKCERSE ESSERE SKCAKCRESCKKSRKSKSE EK SEKEKTSESEESKSSKKSEKAS EHS ESSERE EE THESES BE
* ALLOW TEST TO CONTINUE WITH CONDITION CHECK IF NO OTHER ERROR
*
KSSKERKES KEKE EEASSESATKSENCKKAKSERSKKS SEEK SSK SE SKKHESERLAGCH HS CSE SKIS SSECESCESESSEKALSKSE
oc TL3 "668
DC = ALC PRTACOT?
8 CLPRTA
cul OGeXR1)X* FFE
JE LASTID
B LNSTRT
LASTIO B PRINT :
PRTL4 OC xKL1°11°
8 PRTID
Ten BITSW1,.BITT
; JF QUKEND
core (SBF -- 2BETSH2eBET7 ec s
8 PRINT
oc XL1i*e2
*Oc IL1*52
*DC ALZ(NOTE)
QUKEND L S¥XR1,_,XR1
L SVXR2 ee XR2
EERRTS B koe
CNOCHK ST ECNOCH+ 3, ARR
ST. SVXR1—eXR1L
L ECNOCH+3, XR]
LA SCUoXRLD CXR
ST EECNDC43,XR1I
L SVXR1,XR1
B UPKSTS |... ..,..
TBF SNSOAI<-1,X*FD
*TBF SNSOA1,X*24
*TBF SNS2A3~-1,.X* 80°
ECNOCH BT *—m.
EECNODC 8 0
STORE RETURN
SAVE XR
GET RETURN ADDRESS
INCREMENT RETURN BY 4
STORE BAD RETURN
RESTORE XR
GO TO..GET & UNPACK STATUS |
@ANY BESICES COND CHK ? : oo ee
ANY BESIDES COND CHK?
@ANY BESIDES COND CHK?
GOOD RETURN
GO TO BAD RETURN
KEKSTCEAKSKEKKEKSE TERE SEKAKRAKS SECTS FVEKKKSK SKS SHTCESSKISESLSE SE KEE SEKSHASKESSSSESEES
* ROUTINE O7 ~ PRENTS OUT STATUS AND READ ID OF CURRENT CARR LOC ®
FREKERE SHS SEESHESESS SEER SH HSE EBES KEKE GESSEKEKESEES ESE OAKES ERASERS SESE OE
RTO7 OC XLL*O7
*BC XL1°00°
oC -ALZ2(RT08)
ROUTIN]T B HALTR GO TO GENERAL ROUTINE HALT
B PRINT PRINT HEADING
oc XL1¢41
*DC ILz*oO1¢
cc AL2(BLNK)
oF KL2*A000* ad
B UPKSTS UNPACK STATUS INTO MESSAGE
B PRISTS PRINT OUT THE. STATUS BYTES
B READID READ CYL 1D OF CURRENT CARR LOCATION
B PRYID PRINT THE 1D FIELD JUST READ
B ROUTNT RETURN TO SYARTY OF ROUTINE
SKETKKKSEEKTKKKKASEKAKSEREREKSKSCKE CKKESAKESEKEAHKKTSESEKETSE HE CESHCKSEACSESHE CESSES
* ROUTINE 8 QUICK SEEK CHECK - SEEK BETWEEN 100 & 101 = CHK EACH
** 10 FOR EXPECTED TRACK
*RKEKKEKSEEKSEKKEKASERKKCE KHHK SEK HKEAESKETRASHEKE SKEKKEH CESS SEOCKESESE SESESSHCSEK SS
RTOB DC XL1°08
*DC XL1*O008
oc AL2(RT09)
OSKCHK B RECAL RECALIBRATE CARRIAGE
MVI X*A03*,X*CB* SET CURRENT ROUTINN TO 06
USING FRSTSK,XR2
USING FRSTSK,»XR2
BASE LA FRSTSKeXRI LGAD BASE REGISTER WITH BASE VALUE
MVC ENOTOK*3(2.XR1),QCHKAD(,XR1} SET ERR RETURN FOR THIS RIN
L RDIDIN, XR] PUT CYL/SEC (‘ROM ID FLO IN XR2
PROG ID 0808-1
PAGE SA
IBM MAINTENANCE DIAGNOSTIC PROGRAM
8081
ERR LOC
1003
10C7
10CA
10CD
1000
10D3
10D6
10DB
1G DF
10E2
10E5
1OES8
LOEB
LOEE
1OF2
10F7
LOFA
10FD
1100
1103
1107
110A
L1L0E
1112
1116
LLIA
hic
LL1E
LiF
1120
Li21
1122
1123
a So 1G
1129
1124
112B
112D
1L2F
1133
1137
1138
113F
1143
1146
114A
11L4eE
L14F
1151
1153
1157
1158
1159
1158
LI5F
1162
1166
1169
116C
i170
1173
1176
117A
1182
DATE
EC NO.
PART NQ. 5134155
PAGE 6
5444 DISK ADJUSTMENT UTILITY
OBJECT CODE ADDR STMT SOURCE STATEMENT acre d cone QInEL fff Sie. OG REEL MLD Coro
38 02 0268 682 SON TBN SBYTEO,BET6 IS SSW O06 ON
F2 10 03 663 JT LUCY SKIP HALT IF IT. IS GN
FO 00 TF 684 HLT8 HPL K* TF*8 40 HALT 18 OR 28 ALTERED BY *SETDA®
79 09 DB 685 LUCY SNS MINSNS(-XR1)50 SENSE CONSOLE SWITCHES
78 FO DT 586 TBN MINSNS=-14—XR19,X°FO"® LGOK FOR HIGH ORDER F IN SWITCHES
F2 10 3¢ 687 JT TEST2 GO TO BRANCH TO TEST OF SWITCHES
#C O01 OF 1115 688 KVC TRACKS(Z.KRLEZFRSTSK SET UP INITIAL SEEK (DIRECTION & TREK
C2 G62 1118 689 LA FRSTSKyXR2 SEY POINTER TO EXPECTED TRACK
760 00 bB 490 JUDY SNS MINSNS(5XR1)49 SENSE CONSOLE SWITCHES :
78 FO D7 691 TSN MINSNS<-2¢,XR13—ex%*FO* LOOK FOR HIGH ORDER F IN SWITCHES
F2 10 2A 692 JT TEST2 GO TO BRANCH TO TEST OF SWITCHES
Vil Ae 92 693 L106 L1G © SKADT PKRLPSCTRE SET CONTRGE REGISTER EFOR-SEEK--- .-
F3 ad 03 534 $106 SIO O35 BG SEEK
CQ 87 1603 6go5 - 8B REAGID GG RE&G iD
20 00 LAST G3 696 Cre RDIDIN-LOL},CHKIDE . XR2}
00 61 OA 697 BRE NOTOK { ,XRi2 : SRANCH IF WRONG 1D
Dil AG OA 698 TIO? Tig NOTOK(,XR1i},TSTERR ARE THERE ANY DISK ERRGRS?
7C OL OQ? 699 Myi TRACKS( A KRID,|L SET NUMBER OF TRACKS TO i
75 02 06 700 i FHDREVE sXR1L}exXR2 PUT DIRECTION xR2
5E 30 06 33 7Ol ALC FHDRE VE ke XRL? gONEG.XR1} REVERSE DIRECTION SIT
7B 82 06- 702 SBF FWORE Vig XR1)e2 REMOVE POSSIBLE CARRY
36 O02 10BA 703 A BASE+3,XR2 SET CYL If POINTER
CO 87 #10ODF 704 8 JUDY REPEAT ROUTINE
CO 87 G212 705 TEST2 8B TEST
Co 87 1603 706 B SON RETURN TO MINIFR HALT
0165 1118 707 FRSTSK DC XL2°0165?
111F 1110 708 SKAOD DC AL2(SKCTRL)
65 111E 7399 CHKID oC XL1°65°
64 LIIF) 6710 SKCTRL DC - KLE6as
00 1120 711 oc XL1i°008
ol 1121 712 FeDREV DC KLito1?
65 Zi22 713 TRACKS OC KXiL1*%E5
*LOAF 1224 714 QCHKAD DC AL2 (QSKCHK)
Ti5
TAS SXHEKEKEEEARR ESSER EERE AER EEK KE HKREKREKS SERS REEL REE
Fly * ERRGR ROUTINE FOR ROUTINE OS AND a9
*T1LQ SRERSES KEE REKERAAAR KEK ARERR SE RRK RHE CELA AREER ES
CO 87 O21A 7i9 NOGTOK 8 PRINT GO PRINT HEADING
C2 1129 = 720 oc MLifCci?
OL 412A) =721 OC XL1°913
1A47 112C 0722 DC AL2 (BLANK)
AOOE . 112E 723 DC “X¥L2* AQOE®
CO 87-1719 724 8B UPKSTS GO UNPACK STATUS
SC 82-1746 725 RVI ERRSTS,xX* 82° MAKE STATUS MSG AN ERROR MSG
CO 87 iT3E£ T26 8 PRISTS GO PRINT OUY STATUS
co 87 1752 727 B PRTID GG PRINT OUT IO
3D 09 GAN3 728 cul X*AC3*,X*O9! 1S THIS ROUTINE 09
F2 81 15 729 JE KIPP SKIP EXPECTED ADDR PRINT IF IT 15S
6C 00 DF 03 730 MVC EXPIC(1sXR1)eCHKID( ¢XR2} MV IN NEXT EXPECTED ID
CO 87 O21E 731 B UNPACK GO UNPACK IG FIELD
o1 L14E 732 ONE DBC XL1°O1°
L1LFA 1150 «6733 oc ALZUEXPID}
1187 1152 «4734 DC ALZCIDEXMS)
CQ 67 O2Z1A 735 8 PRINT PRINT EXPECTED ID MESSAGE
B6 1157 1736 DC XL1*86
*1B 1158 737 DC 1L1°27°
1194 115A 738 oc ALZ2(TEXMS2}
35 O02 1A58 | 739 KieP t RDIDIN, XR2 PUT CYL/SEC FROM ID FLD IN XKR2
7C 7C 5A 740 MMVI HALTS42(,XR1LI2X*7C* SET 5410 ERROR HALT (0E}
30 C4 0200 741 Cuil X*200° »x*C4# IS THIS A 5410
BDO 81 52 742 BE BFORB(,. RL) BRANCH IF IT IS A 5419 :
7-70 SA 743 MVI HALTS4¢2(,.XR1),xX* 708 SET 5406 ERROR HALT { 123 (3
38 G2 0208 744 BFORS TBN SBYTEO, BIT6 1S SSW 06 ON :
F2 10 03 745 JT. ENOTOK SKIP HALT IF SSW 06 IS ON
FO 00 CO 746 HALTB HPL 0.0 ERROR HALT FOR RIN O8 AND RIN O9
CO 87 0000 747 ENOTOK 8B RETURN EITHER TO RTN O8 OR *Tixe 09
C3EBD3CODSC4SC5D9 1187 748 IDEXMS DC CLIS*°CYLINDER ID Xx®
40C9C4460E TET 748
15MAR72 ISNDOVT2 PROG ID 0808-1
571669 571626 PAGE 6
oO
me
0)
2315 .
a
wa
- Ne
aE ie,
184 MAINTENANCE DIAGNOSTIC PROGRAM
6081
1188
1193
2295
1196
1197
-¢ 319 t
yWeD:
1LAl
11A5
11Aa9
1140
1269
12363
1186
1189
118C
11cG
11¢€3
i1C6
11¢c9
11¢€0
1101
1104
1107
110A
1100
LLEO
LlE5
1LE8
LLEB
LLEF
LiF2
LiFe
L1FS
LiF7
LiF s
LFS
LIFA
11F8
L1LFO
LIFE
LIFF
1203
1205
1209
i200
1212
1217
LZiA
121D
1220
1224
1227
122A
122D
1230
1233
DATE
EC NO.
_ ERR. LOC DBJECT CODE —
ADH
SOESCIEZ4SOCSETD? 11594
CS5C3E3CSC
*59
00
L1FD
5C
co
38
F2
FO
70
76
F2
co
70
71
F3
CO
35
70
78
F2
Dl
D1
4E
78
D0
co
DO
o%
O01.
87
O2
10
00
00
FO
10
87
00
As
AQ
a7
02
00
FO
10
Ao
EO
OO
2
87
87
87
GOO
LiFé
OG
00
O6
00
99
1195
Oa
00
1403
co
co
C2
46
4
7C
7
7
5C
71
D0
7
00
F3
71
1SMART2
571609
87
87
o1
01
oo
oc
o7
o7
61
As
a7
87
-87
Ao
Ab
qe ther agheeaees
3°
SE E2
1B8A9
6208
03
5F
Ds
D7
2F
18A9
DE
DA
oc
1603
1A58
D8
07
il
OA
95
65
D0
A&
O212
TE
LIGA
288D
1640
1227
E8 LAT71
19 LAGE
FO
2D
Ol
F2
F4
69
91
oc
00
€E
EC
119°
11%
1198
L1F3
LiFs
11LF6
LIF?
1YFB
11F9
LIFA
LIFC
11FD
LLFE
1200
1227
ISNGV72
571626
5444 DISK ADJUSTMENT UTILITY
STMT
149
749
750
751
752
733
754
755
755
757?
758
759
766
. 61
762
763
764
765
766
767
768
769
770
773
772
773
77%
775
776
777
778
779
780
781
782
783
784
7285
786
787
788
789
790
791
792
793
794
795
196
797
SOURCE STATEMENT
TEXMS2 OC
CL13° was EXPECTES®
PART NO.
PAGE
- poe
RESET KEE SSCSH Sk SS SHB SSE SKS S FSEKSER HSS HSKS KICKS KSSH S EF HECHT SHKEKSR EK EKKBS
* ROUTINE OF — MEWIFRIEND ~ S & N BYTES IN CONS SW - LOOP ON PRT &
* READY. .
*KESKSER SKEET HRS GS PHM ey sky KS SEKE SACKS KS SE KSCSE CH SKSKE KEK AE SCECSESSEKE SKE SASHES
RTO9 = OL XL1°GS=
oC XL1*O@
*oC AL2 (R¥@ae
MINIFR LA -FRSTSHeERI LOAD BASE REGISTER
MVE OR ROR*® Zw TT CSET CURRENT ROUTINA TO.uS 000 oc te
MVC «= ENG ION* 34 Z.XRISeMINIAD(,XR1} SET ERROR RETURN TO MINIFR
8 SETOA. SET DEVICE ADDR aND HALTS
BFORS TBN SBYTEG@eBI Ts 1S SSW 06 ON
JT SCHATZ BRANCH IF SSW 06 1S ON
MLTS HPL X*5F% eS HALT 19 OR 29
SCHATZ SNS MINSNS@eR1),0 SENSE CONSOLE SWITCHES
TAN «-MINSNS—ZE,XR1),X°FC* LOOK FOR HIGH ORDER F IN SWITCHES
JT TESTI GO 10 BR TO TEST SWITCHES
8 SETDA SET DEVICE ADDR AND HALTS
SNS SNBYTS#.RR1550 SET S & N BYTES FROM SWITCHES
LIO8 =LICG MSKADDE + RR1I, CTRL LD CTRL REG FOR SEEK
$108 SIG O»SK SEEK =
B READIB ;
i RDI DIN: M2 SAVE 10 FOR DISPLAY.
SNS - MINSNS4e8R1),0 SENSE CONSOLE SWITC..ES
TBN MINSNS—RdsXR1),X*FO* LOOK FOR HIGH ORDER F IN SWITCHES
JT TESTA Rte GO TO.BR TO TEST SWITCHES .
TIO9) «= TIO, NOTGK Ee MRI),TSTERR CHECK FOR ERROR
TIG HLTIC »RRII,PRTIBSY BRANCH GN PRINTER NOT READY
ALC REVEWIG%_KR1),MINIFR4] REVERSE THE DIRECTION BIT
SBF: REVF@DE a KR1352 RESET POSSIBLE CARRY
8 L108fo MRI) DO ROUTINE AGAIN
TEST1 B TEST GO TO DCP TO TEST SWITCHES |
B MINIFR&eKR1) ‘GO TO INITIAL HALT OF THIS ROUTINE
MINSNS OC xL2*°000D* .
MSKADD DC ALZ(MSE3
MSK oC xL1'co#
oc XL1*°00
*REVFWD OC xL2 700%
SNBYTS OC == XLE OG"
EXPID DC XL2*0e
*MINIAD DC AL 2 (MEREER)
RARREKK SKKAKHAS CAKE HO Se TH SF SKEKE SKE AK SEKKKELEK ARSE SE HE ESKHKSEEKESSKE TIERS
* ROUTINE OA — STAN ALL TRACKS FOR BAD DATA GR COND CHECK.
*KeSTRESS SEER S CAEAVSSHLTHE SERS ES EEE SESKE SEELES SS HF AHSRESEKE BEETLE SSS
RTOA oc
oC
oC
SCAN B
B ’
USING
LA
MVC
MVC
MVE
MV!
MYI
MORSCN MVC
L1010 LID
FIRST 5
Mv1
$1610
11011
$18
L109
Xie *Oa
*XL “OG
AL2 (RFR,
HALTR
RECAL
FIRST. ERi
FIRST, 28S
VOL DCE t2eaR1),B002 RESET VOL ID READ OCF
LIMEIV*#ii3,XR1},TRACKS MV IN HIGHEST POSSIBLE CYLINDER ADD
OCF—2 { oHR1740 RESET CYLINDER TO ZERO
HOSwmeR ee XR1L).X*07° SET SW FOR FIRST TIME
FIRST @EEsKR1),7 NOP FIRST SWITCH
OCF EZ oe MARZ} ,RELOADI(,XR1) SET OCF FOR RESTART
SSKAD Ee RRL CTRL LOAD CONTROL REGISTER
SIBLE .4R1) SKIP SEEK THE FIRST TIME
FIRSEORE eXR1} X*87! RESET FIRST SWITCH
LIGIET RR1) SKIP SEEK
OsSK DO THE SEEK
VOCFAB .XR12,CTRL LO CTRL REG FOR VERIFY
PROG ID OB08-1
PAGE 6A
COCCC CCC CCC OCHO OC ECO H COC OHC ECO OC OOO ESOS
5134155
"Gh
| m3 — --* ae Mee Se
—_
[18M MAINTENANCE DIAGNOSTIC PROGRAM © PART NO. 5134155 oS IBM MAINTENANCE DIAGNOSTIC PROGRAM PART MO. 5134155
8681 5444 DISK ADJUSTMENT UTILITY ERE Rida ECKL AN CACTLO OS VUE FTW ae Flix re ee ree | 5444 DISK ADJUSTMENT UTILITY 2 ares zeecy plat reweeremermr weet ore | gtr: we ee pen Te et
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LUC OBJECT CODE ADDR STMT SOURCE STATEMENT
1236 F3 Al 03 816 SIO11 SEO VERsRD VERIFY INSTRUCTION ; 12F9 1CEF 12FA 884 oc ALZ(PRTA+E4)
1239 Dl A2 12 817 TIOIO TIO %€,XR19,BUSY WAIT FOR VERIFY 12fB CO 87 1768 885 8 CLPRTA GO CLEAR PRINT AREA
123C Dl AO 28 818 TIO1L TIO SCNBAD(,XR1L)I,TSTERR BRANCH IF ERROR . 12FF 4D 00 FO 1LA4aF 886 CLC COMDCF +l sXRL),TRACK® WAS THIS THE LAST TRACK
123F 7D 00 FO B19 LIMIT CLI COMDCF41(,xXR19,0 WAS THIS THE CAST TRACK 1304 F2 81 27 887 JE $CGOOD GO TO END.
1242 CO 81 132E 820 BE SCGCOOD JUMP WHEN SCANS ARE COMPLETE 1307 DO 87 1F 888 B AOCYL ( eXR1) GO READ ANOTHER CYLINDER
1246 4€ 00 FO IAOF 821 ADCYL ALC COMDCF+*L(1,XR1),B001 MAKE NEXT CYLINDER NUMBER. 130A 130C 1308 6889 VOLDAD OC AL2(*02)
1248 CO 87 1220 822 B MORSCN GO TAKE ANOTHER SCAN 130C 90000002 130f 890 VOLOCF DC XL4*00000002
*823 1310 LEFF 1312 691 DATAD OC AL2(DISTBL-1}
B24 ERE EK ESSE SES BOER EEE OESES ORES ESEEE 1312 002F 1313 892 RELOAD OC XL2*OOG2F
*825 * SCAN ERROR PRINT ROUTINE * Loe ph. Wed, arte, Laie Ge é _.. 1324 1316. sends 38 1315 893 VOCFAD BC -AkZ«¢CQMOCF) betr core re veers ot eZ eee: MS are
B26 HERES ERHE SESE ES EEESESERESEEETERERS 1316 894 COMOCF EGU * a soy
124F 827 SCNBAO EQU *# 1316 0000062F 1319 895 DCF DC XL& *OG0000 2F
*124F CO 87 1768 828 °° 8 CLPRTA CLEAR PRINT AREA 131A 131A 1318 896 SSKAD OC AL2(*)
1253 F2 87 15 829 DSW oJ CHARLY Q BYTE CHANGED BY PROGRAM 131C 0101 131D 897 oc XL2*0101?
1256 7C 87 2D 830 - MVE HDSW2(,XR1),X*87° SET FIRST TIME SW TO RUN ; 1Z1lE DS5D6460C4C1E3C140 1329 898 NODAT DC CL12*NO DATA READ®
, , 3259 CO 87 C21A 831 8 PRINT GO PRINT FIRST HEADING ~ 1326 D9GSCIC4e 898
125D CL 1250 832 pC MLL°CL® 132A 132A 1328 899 NOMGAD DC AL2(*)
125E€ 08 125€ 833 DC IL1°08°* 132C 9000 1320 900 oc XL2*0000°*.
125F 1369 1269 834 pe AL2(SCMS) = 90)
1261 A000 1262 835 DC XL2*A0008 G02 €XRREOEE EERSTE SE EREEETERSE SESE ESSE
1263 CO. 87 O2Z1A an 8 PRINT GC PRINT ERROR MSG HEADING aoe : ees aac e ce Se
1267 82 1267 83 oc XLL*82¢* : : ee 7 ae
1268 48 1268 838 DC Screg 132E CO 87 164D 905 SCGOOD 8 RECAL RETURN CARRIAGE TO CYLINDER ZERO
1269 13B4 126A 639 pc AL2(SCMS1A) 1308 906 USING VOLDADsXRi
1C9B 840 USING PRTAyXR2 1332 C2 01 1308 907 LA VOLCAD,XR1 LD BASE REGISTER
1268 C2 02 1C9B 841 CHARLY LA PRTAy XR2 1336 71 ab OC 908 LIOL3 LIG VOLDADE,XAR1I,CTRE SET TO READ VOL LABEL
126F CO 87 1719 842 8 UPKSTS - GO UNPACK STATUS. port} oc ou orrt: 1339 72 A4& 06 | 909 LIO14 LIO ,DATADL,xXR15DAT. SET DATA ADDRESS Bea ee
1273 8C OA 2A 1068 B43 MYC PRTAC42¢L1eXR2),STSMSG SET STATUS EN MSG 133C F3 Al 62 910 SI101i3 $10 OFAGeRD , READ VOL LABEL IN DIAG MODE
1278 CO 87 1603 844 8 READID GO READ ED FLD INTO *RDIDIN® 133F Dl A2 34 911 TIG13 TIO *(€,XR13e5USY WAIT FOR READ
127C CO &€7 1770 845 u CNVBTD 1342 OC O1 2346 1C07 912 MYC SCMSG342) DESK PUT DRIVE AND DISK IN MESSAGE
1280 1317 1281 846 oc AL2(COMDCF4L) 1348 CC 05 13BE 1FO8 913 MVC SCMSG3—-6(6) ;-DISTBL¢8 GET VOLUMN LABEL a
12862 8C 0. 03 1A58 847 MVC =—s- PRT A¥. 3.03 e XRZ2) ,DCTR2 SET EXP CYL IN MSG 134E OC 02 1387 1F02 914 MVC SCMSG3-13(3),D1STBL+2 GET *vOL
*1287 CO 87 177D 848 8 CNVBTD 1354 CO 87 O21A 915 8 PRINT PRINT LOENTIFICATION LINE
1288 LAST 128C 849 oc ALZ(RDIDIN-1) 1358 46 1378 916 DC KL1°46
*1280 8C 02 O08 1A5B 850 MVC PRTA*8(3,XR2) eDCTR2 SET ACT CYL IN MSG 1359 32 1359 917 oc 1t2°50
*1292 CO a7 O21E 851 B UNPACK UNPACK OCF INTO MESSAGE 135A 13£6 1358 918 DC AL2¢(SCMSG4)
1296 04 1295 852 OC - Xt1"04? 135C aooo 135D 919 DC XL2°A000° ee
1297 1319 1298 853 DC AL2(COMDCF 43). 135— CO 87 1201 920 B SCAN GO CHECK ANOTHER P ACK
1299 1CAD 129h 854 ec AL2(PRTA+18) 1362 CSE7D74060C1C3E3 1369 921 SCMS OC CLE*EXP ACT® .
1298 CO 87 021E 855 8 LUNPACK ~ GO UNPACK RO ID FIELD ~ f 136A C3E8DS6060C3E8D3 1394 922 oC CL4&3*CY¥a--CYL—-CTRL FLO--RD ID FLD--STATUS BYTES®
129F 03 129F 856 DC XLE"O3° 1372 6060C 3E3D90340C6 922
1Z2A0 1AS8 >. 12Al 857 oc AL2(RDIDIN} 137A D3C%6060D9C440C9 922
12A2 1€B6- - 12A3 858 oC AL2(PRTA427) 1382 C440C603C46060E2 922 ,
1244 31 A6 1328 859 LIOt9 C10 NOMOAD,CTRL LOAD CONTROL REG 138A E3CLE3E4E240C2E8 922
12A8 F3 AO 00 — 860 SIO17 SIO O*SK . NO MOTICN SEEK TO SET HEAD TO O OR 2 1392 E€3C5E2 922 ia
12AB 71 AS EA 861 LIO15 LEO ODA. ADE, XR1),DAT LOAD DATA REGISTER 1395 6060C6C9NSE2E340 1384 923 SCMSI1A DC CL32*°——FIRST 12 BYTES FROM BAD SECTOR® af
IZAE 71 AO EE 862 LIG16 LIG VOCFADI,xXR1),CTRL LOAD CONTROL REGISTER 139D FIF240CZESE3C5E2 923
12BL 1C OO 1LAAB F2 863 MVC WORKC1),OCE(.XR1) SAVE RESIDUAL SECTOR COUNT ; - 13A5 £0C609D6D440C2C} 923 os
1286 5C O01 F2 EC 864 MVC OCFEC2,XR1)eRELOAD(,XR1) RESET THE DCF “. 13AD C440E2C5C 3E 306D9 923
12BA 4&F OO F2 1AAB 865 SLC OCF(1,*R1) »WORK SET SEG COUNT FOR RD DIAG 13B5 ETETETSOE7ETETE? 1304 924 SCMSG3 DC CLIG® XXX XXKKKX ON KX
12BF F2 02 08 866 JKM = DON 13BD ETET40D60540E TET 924 =
12C2 BC 1B 49 1402 867 MVC = PRTA*73626,XR2) eVDATOK SET DATA GK MESSAGE 13C5 “@B40C5D09D9D6D9E2 1366 925 SCMSG4 DC CL34*~. ERRORS,» IF ANY ARE PRINTED ABOVE? 2
12C7 F2 87 29 868 J GEORGE 13CD 6840C9C64CC1D5E8 925
12€A GS OB LFGB 1329 869 DON MVC OILSTBL#11¢12) eNODAT SET ERROR IF NO READ 13D5 40C109C540D7D9C9 925 ~ |
1200 F3 Al 02 870 SI1014 SIO OLAG,RD READ BAD SECTOR 1300 O5E3C5C440C1C2D06 925
1203 Dl A2 AC 871 T1016 TIG *€,XR1),BUSY WAIT FOR DIAGNOSTIC READ 13€5 €5C5 925 ‘
1206 OD 08 1329 1FOB 872 CLC NODAT(12),DIST@L*¢11 OLD ANYTHING READ? , 23E7 C4C1E3C140060240 1402 926 VOATOK OC CL26®° DATA OK - CHK STATUS FOR ERR®
¥20C F2 81 OF 673—Cit JE FRED SKIP UNPACK IF IT OID NOT 13EF 6040C3C8D240E2E3 926
12DF CO 87 O21E ' B14 8 UNP ACK UNPACK 1ST 12 BYTES OF DATA 13F7 CLE3E4E240C6D609 926
12E3 OC 12€3 875 sy of iL1*12¢ 13FF 40C50909 926 oe
12E€4@ 1FOB F2E5 876 oc ALZ2EDISTELeL1) : a: 927 SEEEEEESSSEEEEAREEREESEESE SHRESESEEESESEEEESESS SEES HS REESE SRAEKASCHEVEREROE
*12E6 1CE0 ' 12€7 B77 oC AL2(PRTAC69) 928 * ROUTINE UB — ADJUST DATA SEPARATOR BY LISTENING TO THE PRINTER ®
12€8 BC SC 47 87s NVI PRT At7T1(,XR2),X%*5C* SET LEFT FLO MARK IN SG 4 : 929 ROR ENS ONEEEEE CESSES 73 4EEEESETEREEDTERERESESESEES SES OF SESESEEESSE SESS SSS ’
12€68 BC 5C 54 879 MVI —-—- PRT AGB4( e XRZ) KSC? SET RIGHT FLD MARK IN. MSG Ne 1403 08 1403 930 RTOB OC xLl*oB* =
1ZEE 8C O08 53 1FOB 880 FRED MVC PRTA463(12-XR2),DISTUL411 SET PACKEG CATA IN MSG 1404 00 | 1404 931 oc xL1°00
*12F3 CO 87 O21A 881 GEORGE 8 PRINT PRINT ACT -— EXP = CTRL - ID — DATA 1405 1448 1406 932 bc ALZ(RTOC?
12F7 82 12F7 882 oc xL1*82° . . 933
12F8 54 . 12F8 883 oc TLI°S4*. 1407 934 USING DATSEP.XR1i
¢
DATE 15MAR72 15NOVT2 @ - PROG 1D 0B06-1 DATE 15MART2 25NOVT72 PROG ID oeoe=1
EC NG. 571669 571626
PAGE 7 EC NO. 571609 571626 PAGE TA
es
om
i
A
im
623423
HRM MAINTENANCE DIAGNOSTIC PROGRAM — | . PART NO. 5134155 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 5134155
BOB1 5444 DISK ADJUSTMENT UTILITY Pies “ate Mae ele tee een th abe Rta, the h ane -B0B1 5444 DISK ADJUSTMENT UTIQETY
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT
1407 C2 O01 1407 935 DATSEP LA DATSEP,XR1 LOAD BASE REGISTER 14D5 DO 10 07 1003 BT ENCO( RED RESTART FF Swi iS AT F
1408 CO 87 188D 936 B HALTR 14D8 BDO 87 17 1004 B PLUSI Es RB) GO MEASURE FORWARD
1460F CO 87 164D 937 Bs REAL | RECALIBRATE THE CARRIAGE : 1408 0000 140C 1005 REVTIM DC = xL2*00G0° REVERSE MEASUREMENT
1413 4€ 00 40 1Aa4F 938 MVC =—- SKOUT(1-XRL)eTRACKM SET CE TRACK IN CONTROL WORD ‘y 2402 1606 RUN EQU = #-1
1418 5C 00 3A 40 939 MVC = DOGDCF-2115XR1),SKCUT(,»xXR1} SET CYLINDER ADDR 14D0 0000 14DE 1007 FRDTIM DC XL2 "S000" FORWARD MEASUREMENT
1410 71 A6.3E 940 LIOL7 LIG CETKADC,XR1),CTRE LOAD CONTROL REGIS TER ; ; 145€ 1008 STRTUP EQU S-i
141F CO 87 0212 941 B TEST ALLOW TEST FOR SWITCH CHANGE . 14DF 0006 14ES 1009 SNSC OC XL2*0060
*1423 F3 AO 00 942 SIOL5 SIO O6,SK - SEEK TO CE TRACK 1010
3426 71 AG 38 943 £1018 Lis ROGAD(SXRLEG CTRL SET CTRL REG FOR READ “3 . TOLL Sesnaeseuceenssesnsceerecs Cues SNS HSReKNENSEEEN EKO SESHeEASEEEaEREREE
1429 4C O1 3C 1313 944 MVC - BGDCFI2-. MRE} -RELOLD RELOAD: CONTROL WORD. =546 464356050 ee eu ca eeans eked nh wt eee ed SROTE PRINT MESSAGE IF HIGH SPEED ACCESS
*142€ F3 Al 03. 945 SIO1é SIG VER,RO VERIFY TRACK TO USE THE DATA SEPAR LOLZ SEEETEOASEHEKREKESREHSEOSS ST HEH ESAKESS SE HKKEKKKESREAKEKE SCARSRKHSSRERESERTR
1431 Dl A2 2a 946 TIO1S TIG %*f£,xXR1}, BUSY WAIL FOR VERIFY 14E1 34 08 14F9 1014 HSTST ST EHSTST#3.4RR SET RETURN
1434 C1 AO 17E3 947 TIQ16 TIO SHORT,TSTERR BRANCH ON ERROR . 14E5 38 04 OAODL 1015 TBN AO. BITS ‘TEST FOR HI SPEED FEATURE
1438 7C O00 40 948 Mv SKOUT( yXR1050 SET CTRL TO NOMO SEEK ; ““ 14£9 £2 90 OA 1016 Jf EHSTSE JUMP Tf NOT HS FEATURE
1438 DO 87 15. , 949 B LEOL7G XR? GO VERIFY AGAIN , - ; 14EC CO 87 O214 1017 8 PRINT
143E 1440 143F 950 RDGAD it AL2(*42) ~ 14FO 46 16FO 1018 DC XL1°467
1446 O00CBI0ZF 1443 $51 DGNOCF cc XLS *OOCBOO2F * 14Fi 22> 14F1 1019 DC IL 1°34"
1444 1444 1445 $52 CETKAD DC AL2(*)} el I4F2 1518 14F3 1020 oc AL2(HSMSG)
1446 01CB - 1447 953 SKOUT DC XL2°01CB* “ 14F4 A000 14F5 1021 DC XL2‘acoa
*QG5G RERERER ESTEE REET EETERERESES TKK THREE ERE REE EG EE SEEKS KE REKEESEEEER REE RES 14F& CO 87 GO00 1022 EHSTST 6 0 RETURN
955 * ROUTINE OC — ADJUST ENCODER BY LISTENING TO THE PRINTER * . 14FA DOC5DO4D6E5C540C% 1518 1023 HSMSG OC CL3“*REMGWE DISK CARD E6 FOR RTN C OR D
*856 Se et or eet et CRON eREtLTe SET ESESETESLES ES Wy SEES EAH ESSER ETERS ~~ 1502 C9E20240C3C1D9CS 1023
1448 OC 1448 957 RTOC DC KLL*OC® s 159A 40C5F540C6D6D940 1023
1449 00 1449 958 pc XL1*OO* = . 1512 D09E3D540C 3490D6D9 1023
144A 151C 1448 959 DC AL2(RTOD) Me 151A 4004 1023
940 1024 FEE SEAS SERAREKE ES SESSA RRS HHH SKERASEKLE SSS SALA SEKKES ES SHAKEEL AAE AR SEEKS
1440 961 USING ENCODE *xXR1 3 Leese sus oa 1025 * ROUTINE OD — ABSUST STEPPER SPEED BY LISTENING TO THE PRINTER ©
144C C2 O1 144C 962 ENCODE LA ENCODE, XR1 LOAD BASE REGISTER ae eva? xe 1026 * ¥RACK CROSSING MUST BE JUMPERED ON ATTACH BOARD
*1450 DO 87 95 963 B HSTST(»XRL? GO TEST FOR HI SPEED 1027 # EF SUMPER IS NOT IN PLACE», JUMPER LOCATION wILl
*1453 CO 87 1680 964 ENCD 8 HALTR 7 1028 # PRIBT CUT.
*1457 CO 87 1BIA 965 ENCOST B JMPTST GO TEST FOR yuMPR 4 oer * LO29 SESE SAEERERS KEKE HEES THEEE KEE SEKEE SERRE SL KERSERKE EE EKA ETEK AEHEEEKSS
1458 CO 87 1463 - 966 8 PLUS1 GOOD RETURN, CONTINUTE ON 1030
145F CO 87 1453 967 B ENCD RESTART ROUTINE : Z 163] 8¥SEESKEEEREREERESEERESERE EEKEEEKEEEEKES KES EERE RAE ES BECKS ERE SESEREKEESE
1463 C2 02 0001 968 PLUS1 LA 1.XR2 PUT 1 IN MEASUREMENT COUNTER a . 1032 *
*1467 3C 64 1A66 969. MVI = SKDCF 100 SET FOR 100 TRACK SEEK 1033 *XR2 FD FE FE 00 CF DO//FF
*1468 31 A6 1LA6C 976 LIG21 LIG SKDCADsCTRE LOAD CCNTROL REGISTER ; 6 1034 *T.C.P. C I 2 3 4 52 53
*146F F3 AG 00 971 S109 SIO ),SK DO MEASUREMENT SEEK Me : , 1935 Beene ne ee nee ee an oe. ee =
1472 70 A3 94 “972 SNSi8 SNS = 5NSC4¢XR19,A3 * LOOK FOR NO JUMPER : 1036 * i 12 | 11 14 bd ti
*1475 78 02 93 _ $73 TEN SNSC-10,XR1),B1T6 * ATTACHED sO bss 2 1037 * ----- eee eee mee] fom ee meme +
*1478 DO 10 08 974 BT ENCOST¢,XR1? RESTART 1F NO JUMPER Mer * 1038 *SNSX 6776666666776666666 8899999990066666667766 666 6688999999900
*147B 70 A3 94 : 975 SNSi2 SNS SNSC,XR1),A3 * LOOK FOR START OF © : 1039 *COUNT CCCCCCCCC _ CCCCCcCcce
*147E 78 02 93 . 976 TBN SNSC~14,XR1), BITS » FIRST MINUS TRK CR PULSE . 1040 *COUNT STGRED IN *STRTUP? *RUN®
*1481 DU 90° 2F 977 | BF SNS12(9XR1) : ‘ 1041 *
*14€4 70 A3-94 $78 SNS13 - SNS SNSCO,XR1},A3 * LOOK FOR END OF . 1042 SEF SES SEEKS KE SE SHAS S HE EECREEEKESESCLESERKSESKEKETEE SE PAKS E EKSRKSATEVESE
1487 79 02 93 . 979 TBF SNSC-1€_XR1),BIT6 * FIRST MINUS TRK CR PULSE . 1043
148A DO 90 38 980 BF SNS13(,_XR1} . 2 i51C OD 151C 1044 RTOD DC XL1*OD
*148D 70 A3 94 $81 SNS14 SNS SNSCC,XR1L)D,A3 * LOOK FOR START 3F 151D 00 151D 1045 cc XL1*oo
*1490 78 02 93 982 TBN = SNSC-1€2XR1), BITS * SECOND MINUS TRK CR PULSE I51E 1526 | 151F 1026 oc AL 2(RTQED |
1493 DO 90 41 983 BF SNS14(4XP1) XM ; 1047 -
1496 70 A394 © 984 SNS15 SNS SNSCt-XR1},A3 * LOOK FOR END, OF 14DC 1048 USING REVTIM@_KR1
1499 79 02 93 985 TBF = SNSC-10,XR1),81T6 * SECOND MINUS TRK CR PULSE ss 1520 C2 01 0000 1049 LA Oy XRE LOAD BASE REGESTER 7
149C DO 90 4A 986 BF SNS1i5{ >XR1) * SECOND MINUS TRK CR PULSE . 1522 1050 ORG *—2
249F 76 02 1A 987 ONEMD A PLUS14¢30,XR1) 2XR2 INCREMENT MEASUREMENT COUNTER 1522 140C 1523 1051 oc AL2(REVTIM:
14A2 70 A3 94 988 SNS16 SNS SNSCUeXR1)2A3 * LOOK FOR START DF . 1524 DO B87 05 1052 B HSYSTi oRRES GO TEST FOR HI SPEED ACCESS
14A5 78 04 93 "989 YBN SNSC-1(,XR1),BIT5 * HEAD SETILING 1527 CO 87 1680 1053 STEPR 8B HALTR
1448 DO 90 53 $90 BF ONEMO(,XR1} GG COUNT AGAIN 152B CO 87 1LBIA 1054 STEPER B JMPTST CHECK FOR JUMPER,
14A8 38 O1 1A65 991 TBN SKOCF-1,B11T7 TEST FOR FORWARD : ; 152F CO 87 1536 1055 B MORED GOOD RETURN, CONTINUE RIN D
14AF F2 90 OA 992 . JF NOTFUD JUMP IF NOT FORWARD : 1533 DO 87 4B 1056 B STEPR EE eRREE RESTART ROUTINE :
1482 74 02 92 993 ST FHDTIM¢sXRLD,XR2 STORE FORWARD MEAS UREMENT 1536 70 87 BS 1057 MGRED MV} STFRST#21-KR1),X°S87" TURN ON FIRST TIME Sw
1485 38 O1 1465 994 SBF SKDCF-1,BIT7 SET REVERSE IN CONTROL WORD 7 1539 C2 62 FFFD 1058 LA X*FEFD* .XR2 SEY COUNT, LOOK FOR TRK CROSS # 2
1489 DO 87 17 995 8 PLUS1(.XR1L) GO MEASURE REVERSE - 153D 1C 01 1A66 ES 1059 MVC SKDCFE23 eSEEK6S(,XR1) SET CTRL FIELD FOR 64 TRACK SEEK
14BC 74.02 90 . 996 NOTFWD ST REVTIM( XR19,XR2 STORE REVERSE MEASUREMENT 1542 31 A6& LAGC 1060 L104 LIQ SKDCAD,.xX*a5* SET SEEK DCF
14BF 5D 01 90 92 997 CLO = REVTEM(2,KRL) gFMDTIM( sXR1} ARE THE TIMES EQUAL Ae 1546 F3 AOD 00 1061 S104 S10 O,x*aQ* SEEK INSTRUCTION
14C3 CO 84 17CC 998 BH LONG RETURN FROM LONG IS ARR+6 ' 1549 70 A3 ET 1062 SNS19 SNS | SNSENEeXRLILAZ * LOOK FOR JUMPER NOT
14C7 CO 62 1TE3 999 BL SHORT ‘RETURN FROM SHORT IS ARR 154C 78 O02 E6 1063 TBN SNSIN—B&eRR1) BITS * ATTACHED
14CB8 3C O01 1a65 1000 SETFWD MVI SKDCF—-1,B1T7 SET FORWARD DIRECTION IN DCF Sue Md 154F CO °10 1528 1064 BT .STEPER GO PRINT JUMPER MSG IF NO JUMPER
14CF 70 00 94 1001 SNS SNSCU,XR1I,0 GET SWITCHES : : 1553 70 a3 ET 1065 SNS6 SNS SNSENE @MR29. KAR! SENSE TRACK CROSSING ‘
1402 78 FO 93 e 1002 TBN SNSC—149 XR1),X* FO? Sw 3 1S F? 1556 79 02 €6 - 1066 TBF SNS IN—2€,RR13,B1T6 LOGK FOR TRACK CRISSING PLUS
DATE ISMAR7T2 = LSNOV72 PROG ID 0808-1 DATE 15MART2 15NOV72 PROG 1D 0808-1
EC NO. 571609 | 571626 3 | | PAGE 8 @c no. 571609 571626 . PAGE BA
.
” s “ “ a A .
fy a - :
oeoeeeeeee ee 0008 0 © 0-080 06 @eeeeeeoeaenede eee
IBM MAINTENANCE DIAGNOSTIC PROGRAN a PART NO. aLse1ss 18M MAINTENANCE DIAGNOSTIC PROGRAM | ore NO 5134155
| 1 PAGE 7 . c a OR,
BOB1 544% DISK ADJUSTMENT UTILITY. Bue eee Site untesee Glgauiits shes
Bee .. weer Sane Seitenssis. 8081 5444 DESK ADJUSTMENT UTILITY |
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT a
1559 DO 90 77 1067 - ~~ BF SNS6(,XR1) LOOK AGAIN IF NOT PLUS 15€F 78 80 5A 1135 TBN SNSE1(,XR19,x*80° IS SCAN DESIRED
155C 36 02 1A6F 1068 A -- 80014,xR2 INCREMENT T.C.P. COUNTER 15F2 F2 90 03 1136 JF RESET DON'T TURN ON SCAN BIT
1560 F2 81 OC 1069 JZ STLP2 GO TO NEXT LGOP : 15F5 7A 02 4F 1137 SBN S1O184109XR1)2eX*02" TURN ON SCAN BIT
1563 70 A3 ET 1070 SNST SNS = SNSIN(GeXR1)eX*A3! SENSE TRACK CROSSING 15FB SC O1 60 5A 1138 RESET MVC RDWDL2~XR19eSNSEL(®XRID SET SEC COUNT AND SECTOR ADDR
1566 78 92 E6 2 1071 TBN SNSIN-1(,XR1) BITS TEST FOR TRACK CROSSING 15FC 78 CO 60 1139 SBF RIWDI,xXRL)D»xK*CO® . RESET UNUSED BIT IN SECTOR COUNT |
1569 DO 90 8T 1072 BF SNS7U_XR1} WAIT FOR TRACK CROSSING TO GO MINUS : ISFF 78 03 SF 1140 SBF RDWD-1(.XR1),x*03° RESET UNUSED BITS IN SEC ASDRESS
156C DO 67 77 1673 B ~ SNS6_XR1) GO TO BYPASS NEXT TRK CROSSING PULSE 1602 70 00 58 1141 SNS -SNSE(4XR1 990 SENSE SW FOR HALT
156F' 1074 STLP2 EQU * 1605 78 FO 57 1142 TBN SNSE-1(,XR19,X"FO® SWo1 IS F?-
156F 70 A3 ET - 1075 SNSB SNS SNSINGsXR12,X"A3! GET TRACK CROSSING 1608 DO 10 04 1143 BT HALTE(,XR19 STOP TO CHANGE SWITCHES ae
1572 78 02 £6 1076 TBN .SNSIN-144XP19.BIT6 LOOK.FOR MINUS TRACK CROSSING. .. .. ... 1608.72 A662. 1144 L109 LID SKEAD(sxXR1)eC TRE LOAD CTRL REG ; Pte i ae
1575 DO 90 93 1077 BF SNS8(_XR1) LOOK AGAIN 160E F3 AO 00 "4945 $1012 S10 -O45K-- “ WOMO SEEK TO SET HEADS -- = ee
1578 70 A3 ET? a 1078 SNS9 SNS SNSIN(,XR19,X*A38 GET TRACK CROSSING 1611 71 AG SC 1146 LIO12 LIG RDWOAD( + XR1) 9 CTRL LO CONTROL REG
' 1578 79 02 E6 1079 TBF SNSIN-1(5XR1) ,BIT6 LOOK FOR PLUS TRACK CROSSING : 1614 31 AG 1311 1147 11020 LIO OATAD,DAT LOAD DATA REG
157E E2 02 01 — ; 1086 LA 1(4XR29,xXR2 INCREMENT COUNT 1618 F3 Al 00 1148 SI1018 SIG ORD Q BYTE CHANGED BY PROG FROM SWITCHES
1581 DO 90 9C 1081 BF SNS9U—XR1) LOOK AGAIN 1618 01 A2 51 1149 TIO8 TIQ = ®( 9 XR1), BUSY WATT FOR READ
1584 70 A3 ET 1082 SNS10 SNS = SNSIN(,XR19,X"A3! GET TRACK CROSSING oS 161E DO 87 2E 1150 B ~ RESET(,XR1) GO DO IT AGAIN
58% 78 02 £6 3083 TEN SNSIN-10—XR1),B1TS LOOK FOR MINUS TRACK CROSSING 1621 0000 1622 1151 SNSE o0C XL2*0000°
- 158A E2 02 O1 1084 LA 1(,XR2)4XKR2 INCREMENT COUNT 1623 0000 1624 1152 SNSE1 DC XL2*0000°
158D DO 90 AB 1085 BF SNS10(,XR1) LOOK AGAIN 1625 1627 1626 1153 ROWDAD OC AL2 (#42)
-1590 F2 87 22 1086 STFRST J STFRTM GO TO STEPPER 1ST TIME 1627 O0000CD00 162A 1154 RDWD OC XL4*00000000
*1593 34 02 140C 1087 ST RUN, XR2 STORE TIMING FROM TRACK 52 1628 1628 162C 1155 SKEAD OC AL2(*)
1597 1D O01 140C c2 1088 CLE =RUN(2},STRTUPE(,XR1L) =ARE TIMES EQUAL : 162D 0000 162E i156 SKWD OC XL2*0000°
159C CO 84 LTCC 1089 BH LONG RETURN FROM LONG IS TO ARR+4 i 1157 EOREEEE RE EERES SHED EE EEROE EERE SEEDS EOEREROR SEER SENS EF ORORS ERS EROSK ENE RE
15A0 CO 82 17E3 1090 BL SHORT RETURN FROM SHORT IS TO ARR oT eae 6 , L158 S¥KSES ERE EEER EA EKE EEERERESKESESE SEKEEEEEKERS EEKEE KEKE EO WAKES EEKSEKEERERESE
15A% 70 00 E7 1091 SNS = SNSIN(»XR1),0 SENSE CONSOLE SWITCHES Sh te 1159 *s SUBROUTINES =
1S5AT7 78 FO E6 / 1092 TBN SNS IN—1€,XR12_x° Fo?! 1s Sw Ll SET To €? lle6c SKKHCKSEASTSE KEK HK SESTASEKEEKES HECK SESRSKSEKKEKKS THE SSE ESE FS EKEKEEEKNSEEKE EEESE
ISAA co 190 1527 1093 BT STEPR m4 RESTART ROUT INE IF YES 1161 ESKKEKESEKE SECS HKEKKEKESK SEK SEKEEKSESAKEAESSS STE SKE SEKRESERSE SKKSTSECSEKSESDERESAVRERK
15AE CO 87 164D 1094 B RECAL RESTORE CARRIAGE ao 1162 : =
15B2 DO 87 5A 1095 B MORED(,XR1) GO MAKE ANOTHER MEASUREMENT 1163 #4ESSESERES ERE SEREESES ERS SEEESERESEEES ELSES EETESE SH OF BEEEEEEEE EREE SEEDY
15B5 74 02 02 1096 STFRIM ST STRTUP(»XR1) yXR2 STORE TRACK 2 TIMING _ 1164 * SEEK TO HIGHEST TRACK FOR NUMBCR OF SEEKS BEING TESTEO.
*1588 7C O07 BS5 1097 MVE «= -STFRST4#1(eXR1)—eX"O7" TURN OFF 1ST TIME SWITCH ~ z 1165 * CARRIAGE MUST BE AT CYLINDER 00 TO ENTER THIS ROUTINE
*1588 ¢2 QO2 FFCF 1098 LA X*FFCE®.xR2 SET COUNT TO GO TO TRACK 52 1166 £#¥4E4EEERETEKEEE SEEKS EESESES EAE SESESEEKESEKKESSEEKER ES EES ESE OES EKA RESEE
158F DO 87 77 1099 8 SNS6U_¢XRLI 162F 34 08 164C 1167 LACER ST EL ACER4+3, ARR STORE RETURN
15C2 0000 15C3 1100 SNSIN OC XL2*90008 1633 OC O00 1A7B 1A4F 1168 MVC RCLOCF(1),TRACKS SET HIGHEST TRACK NUMBER
15C4 0140 15C5 1101 SEEK64 DC XL2°01408 S & N FOR 64 TRACK SEEK 1639 3C O1 LATA 1169 MVI =s- RCLDCF-1,Xx*01* SET FORWARD BIT
1102 FFSEREREAEREEE SERESEEAASEE SERRE EAE EEE EERE SEEES EERE SE HESEEE OE OR EERE EE : 163D CO 87 1640 1170 B RECAL ;
1103 * ROUTINE E ~ SHORT SCOPE ROUTINE FOR READING DISK * 1641 3C EO 1A7B - gy MVI =- RCLDCF, X* E0* RESTORE RECAL DCF -
L1O4 SHEKEEETEREEKER EERE EERE SS SERKEERE ERED ERERDERER EONS $6 SENSES OSES ERE ES 1645 3C CO 1A7A 1172 MvI RCLDCF-1,X*00°* RESTORE RECAL REVERSE
1195 * SWITCH 12 & 2 * SWITCH 3 & 4&4 * 1649 CO 87 C000 1173 ELACER B e-2 RETURN
1106 ¥---—~- Se ree aw a me ne ee ee HE ae a aoe a HE om a ae Sa ae i ee nen a cine cee an mene Se ener eee ae - 1174
‘1107 * oO 1 2 3 4 5 * 6 7*0O *®X* 2 3 4 5 6 7 , 7 ‘ — LL 75 S888 EEE EEEE SE ESSE E SESS SERECERREKEEEEES EERE SS TE SEES AAEETSESESE SEARED
= 1108 *- Sr me eee am a ane ee an SE ene ca a ee ia a ae ine eee If ae a ee eee oes ee 1176 * RECALIBRATE SUBROUTINE ; .
hes 1109 * SECTOR ADDRESS * OPERATION * . S&C TOR COUNT * ~ TLV 7 89299448 EKE HESS KESERHE SS EECKESESERHEREKAESERESE TS SEKE SSE EKEKEERESEESEEKESS
i110 # Fame 8 #-—--* MAY BE 00 THRU 2F * 164D 34 O08 1670 1178 RECAL ST ERECAL43,ARR STORE RETURN
1111 * UPPER HEAD * DATA 0 0 O READtH—~~-~— a es 1651 Cl AG LOTE 1179 T1033 TIS BCALER,X*A0* ERROR TEST BEFORE RECAL
1L12 * 00 THRU 5C * ~~ ID © 1 OO READ*® ON SK SYSTEMS USE ONLY * - 1655 31 A6 LATT 1180 L163. LIO RCLADR»xX*A6? LG CTRL REG FOR RECAL
1113 * _ * DIAG 1 O* O READ* OO FOR SECTOR COUNT * 1659 F3 AO 00 118i S103 SIO O,x*ao® RECALIBRATE
1114 ™ LOWER HEAD * VERIFY 1 1 O | READ* ON READ DATA OPERATIONS * és 165C 30 A2-1A51 1182 SNS3 SNS SNSOA1,X*A2* *LOOK FOR SEEK
1115 ® 80 THRU OC * ~~ EQuU GC OO 1 SCANt*SSeKeESSt CHESS eEEREE ES 8ee 3 : 1660 39 10 1A51 1183 TBF SNSOA1,x*10° *BUSY BIT DROP
1116 *#eeeeeeeeeee% 8 =LOW/EQU 0 1 1 SCANS 1664 CO 90 165C 1184 BF SNS3 BR IF STILL BUSY
1117 * * HIGH/EQU 1 #O 1 SCANS 1668 38 O1 1ATA 1185 TEN RCLDCF-1.x'01°. DON'T CHK FOR ZERO ON FORWARD SEEK
1lls * * NOT USED 1 2 1 SCAN® ; ; 166C F210 07 1186 JT TI04 7
1119 * FEKOEADRESEES EERE EEEEESES ORERD 166F 38 40 1A51 1187 TBN SNSOA1,X*"40!* ACCESS AT CYL O00
15€6 OE : 15C6 1120 RTOE oC XL1L°OE® 2s 1673 F2 90 35 1188 JF RCALER BR TO RECAL ERROR PRINT
15C7 00 15C7? 1121 DC XL1*00° : 1676 Cl AO 16AB 1189 TI04 TIG RCALER,X*A0* ERROR TEST AFTER RECAL 2
15C8 FFFF 15C9 1122 oc XL2°FFFFS 167A CO 87 0000 1190 ERECAL B +2 RETRUN BRANCH
1123 167E CO 87 1719 1191 BCALER B UPKSTS GET PRESENT STATUS .
15CA 1124s USING SCOPE, XR1 1682 39 40 1A50 1192 TBF SNSOA1-1+X*40° INTERVENTION REQUIRED? om
15CA C2 01 1SCA 1125 SCOPE LA SCOPE, XR1 LOAD BASE REGISTER 1686 39 80 1452 1193 TBF SNS2A3-1.X*80* UNSAFE?
1SCE CO 87 188D 1126 HALTE 8B HALTR L68A F2 90 04 1194 JF LNT PRT BR TO INTERVENTION REQ PRINT IF EITHE
1502 70 00 5A 1127 SNS SNSE1L1,XR19,0 SENSE SW FOR PROG LOAD _ oo 168D CO 87 1655 1195 B 1103 RETURN TO REACL ROJTINE -
1505 CO'87 16D3 . 1128 8. READID GO GET ID FROM DISK 1196
1509 4C O1 SE 1a57 1123 “vc ROWO-2(2,XR1)eROIDIN-1 SET F & C BYTE IN CTRL WORD Pe. = LIOT S824 98S 6S CSREES SE SKEKEEEESE SECKEESECES EH ES EEERKEREEES EF ESSEKECEREKES EES EE
ISDE 5C 00 50 59 1130 MVC =—- S101842(1+XR1),SNSE1-10,XR1) GET CONTROL @YTE KS 1198 * RECALIBRATE ERROR PRINT OUT IF NOT READY AT START * -
15E2 7B FC 50 1131 SBF S$1018420,XR1) »X*FS* SET TYPE OF REAU 1199 £049 24699S488E42EH E44 F4EEE SEEKERS EESES EEREREERES ERS RE KEEKEEEERESREKES EE
15E5 5C 00 63 59 1132 MVC] =—- SKWO-1019XR1) oSNSEI-1(,XR1) PUT HD BIT IN SEEK WORD : 1691 CO 87 021A 1209 INTPRT B PRINT GO PRINT RECAL ERROR
1SE9 78 TF 63 1133 SBF = SKWuU-10,XR19,X° TES TURN OFF EXTRA BITS ; 1695 C2 1695 1201 oc XL1°C2° me
1SEC 7B 02 4F 1134 SBF S1018410exXR1)eX*02* TURN OFF SCAN BIT 1696 20 1696 1202 oc 1n1°32¢
DATE 15MART2 _1SNOVT2 | PROG ID os0e-1 DATE 15MAR72 15NOVT2 PROG ID tall
EC NO. 571609 571626
PAGE 5. EC NO. 571609 571626 PAGE 9A
HasnSt
[BM MAINTENANCE DIAGNOSTIC PROGRAM . - PART NO 5134155
IBM MAINTENANCE DIAGNOST R
STIC PROGRAM oe NO. ee ee PAGE 104
BOBL 5444 OISK ADJUSTMENT UTILITY stokes Gases ekdda Nopehs peat ote te x. ad ede Wa Seaoss ee, BOBl 5444 DISK ADJUSTMENT UTILITY 1s
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT
1697 1LEEC 1698 1203 DC AL2 (CENTVRQ) 1742 CO &7 O21A 1271 8 PRINT GO PRINT STATUS LINE:
1699 AOFE 169A 1204 oc XL2°AOFE® 1746 06 1746 1272 ERRSTS OC XL1*06* THIS BYTE ALTERED BY PROG
169B CO 87 1719 1205 8 UPKSTS GO TO UNPACK STATUS 1747 18 L747 1273 oc IL1*"24°
L6OSF 3C 86 1746 1206 MMVI =—- ERRSTS_X*86° MAKE PRT STATUS AN ERROR MSG ; : 1748 1068 1749 1274 DC AL2(STSMSG)
1643 CO 87 173E 1207 8 PRTSTS GO TO PRINT STATUS 174A 3C 06 1746 1275 MVI - ERRSTS 26 MAKE PRY STATUS NON ERROR MODE
1647 CO 87 16C9 1208 8 EHALT GO TO ERROR HALT 7 174E CO 87 G00O 1276 EPRTST B o—* RETURN
1209 ia 1277 ,
1210 REE HAKKAR ES CKEAKREKLEKS KEKS KKK SEE RECA ESET HERS OE SEEEREKE AER SESRR RES 1278 ee ee ne Rose RR rey, ero ge
1211 * ERROR OCCURRED DURING RECA R R x. 1z79 * PRINT OUT THE LAST READ 1D FIELD
Are ; L212 maUdus Gus Cseheuesseesses 00c1s ocaccesscnesic eee ee ee L280 BHHKRESE SESE ES EETERSESEKSESTHKE SHES GF SEKHAGSERETSHASKTSKSHS HS ORO GST SETI ESSERE
1643 CO 87 O21A 1213 RCALER B PRINT PRINT RECAL ERROR MESSAGE . 1752 34 68 176A ‘1281 PRTIO ST CEPRTIDESS ARR. « SAVE RETURN ADDRESS
LOAF C2 AGAF 1214 DC = XL *C2° 1756 CO a7 O21E 1282 B UNP ACK GO UNPACK RD ID INPUT AREA
16BG 15 x 1680 1215 DC TLL®2}°2 . 1754 03 175A 1283 pC XL1*O3
*16Bi 1BFC 1682 1216 DC AL2(CALMSG} 1758 1A58 i75C 1284 DC AL2Z(&DIDIN)
1683 AOFE 1684 1217 oc XL2"AOFE® 1750 18C3 175E 1285 oc AL2¢IDERMS)
1685 CO 87 1719 1218 8 UPKSTS GO UNPACK STATUS 175F CO 87 O21A 1286 B PRINT
16B9 3C 86 1746 1219 MVI ERRSTS_X* 868 MAKE PRT STATUS AN ERROR MSG . 1763 86* 1763 1287 DC XL1°66°
168D CO 87 173E 1220 B PRTSTS GO PRINT STATUS 1764 36 1764 1288 oc TLie5ae
16C1 CO 87 1603 1221 B READIO GO READ ID 1765 1BE7 1766 1289 oc AL2Z(I CALL)
16C5 CO 87 1752 1222 8 PRTID 1767 CO 87 9000 1290 EPRTID B 0 RETURN TO CALLING ROUTINE
16C9 CO 87 0222 1223 EHALT 8B HALT GO PRINT SEEK ERROR MESSAGE 1291 ;
16C3 AOFE 46CE 1224 oc XLZ"AOFE® L292 SHEARS EER SEEKEESKERSE ARES DESKS D TEESE SEEKER ERASERS SORES SERRA EES
1oCF CO &7 i8s, 1225 8 T103 GO TRY AGAIN 1293 * CLEAR PRINT AREA er
*1226 FRERKEE REESE ERE EERE EEE REE EE ESSE EEE EEERERESERERREEEEERE HHEEEEEES ERR ORES 1294 S8SSHEEREE REESE RAERSSSESESS SKKE SERS STKE LKEK SEEKS SEKE KE OERERARR ASAE KERRERE
1227 * READ ID FIELD INTO *RDIDIN® * -~ 1768 34 0&8 177C 1295 CLPRTA ST ECL PRT +43 ,ARR SET RETURN
1228 BHERERERRE ERE CHERESERRS ES EE ER EREEEES SOE OD HEE ES OSES EE EKERE SEEKER RE ER EES 176F 3C 40 ICFA 1296 MVI PRT AtS5.X540" SET CLEAR CHARACTER
1603 34 08 16FO 1229 READID ST EREADI 43, ARR SAVE RETURN ADDRESS 1773 OC 5E 1CFS 1ICFA 1297 MVC = PRTA4#941955,PRTA4S5 CLEAR PRINT AREA
1607 31 A6 16F2 1230 LI022 LIG RIDCAD,CTRL LOAD CTRL REG FOR SEEK ~ 1779 CO 87 0009 1298 ECLPRT B eee, Vee ee RETURN see
1608 F3 AO O00 1231 SIG019 SiO 0+SK SEEK TO SET HEAD L299 SSCS SEREAEARHESE SHKEKASESEERES EEE ECEEFESEES SEKE SKEET KT HE CEKKSKESESKEKEESESEAG
16DE 3C FF 1A58 1232 MVI =—- RDIOIN, X*FFS RESET 1D FIELD 1300 * CONVERT 1 BYTE OF BINARY TO DECIMAL. ARR] POINTS TO.
*16E2 31 A6 LAA 1233 L105 LIO ITDADDRSCTRL LOAD ADDR OF ID OCF es 130i * ALZ2{ ADDRESS OF BYTE TO BE CCNVERTED)
*16E6 F3 Al 92 12346 $105 Sia 10,20 , DO READ ID L302 SHE SERSERE HAE REEEKSKERAKEASEESERSST ESR ESARFL SESREREKE KE SKEATE RES SSESEE SSIES
16ES Cl A2 16E9 1235 TIG12 TIO *,BUSY ; WAIT FOR READ ID 177D 34 08 i7ac 1303 CNVBTD ST POINT*#5, ARR SAVE ARR
L6éf> CC 87 0000 1236 EREADI B 0 RETURN 1781 O£ O1 178C AGF i304 ALC POINT#5(2),8001 SET PARAMETER POINTER
1OFi LOFL A6F2 1237 RIODAD DC AL2(*) 1787 OC 01 1792 CoCS 2305 POINT MVC GETBYT4#5123,0 GET BYTE POINTER
16F3 0000 16F4 1238 RIDDCF DC X¥LZ2'GO900° SSW 27 CONTROLS bHICH HEAD 1780 OC SO 1468 0900 1306 GETBYT MVC BCTR2¢1440 GET BYTE TO BE CONVERTED
1239 1793 OC O1 17CB 178C 1307 MVC E€CNVBT4312}),POINT*5 MOVE POINTER TO RETURN
1240 FRSA ESE ES ERESS SEEKS SER ERES SERS TERT ERE SE KESE ERE RS CERES SE TSERESEEEAEROERE EEE 1799 O€ OL LTCB 1A6F 1308 ALC ECNVBT#3(23,8001 SET RETURN POINTER
1241 * CLEAR TABLES USED WITH ROUTINES 1 THRU 7 * 179F O7 O2 1858 1A5B 1369 Sz DCTR2133 ,DCTR213} CLEAR DECIMAL COUNTER 2
1242 REXARESESREEEE SASK RE RETAE RAT EHR AEKE SESE EET SES ERE EERE EERERS ORD AROSE 17A5 34 O01 1A4C 1310 ST S¥XR1—eXRI SAVE XR1
16F5 34 08 1718 1243 CLRTBL ST ECLRTB+3,ARR STORE RETURN ADGRESS . L749 35 O1 1A68 1311 L BCTR2,XR1 - SET XR1 TO BINARY VALUE
16F9 OF FF LFFF LEFF 1244 SiC DISTBL 42554256), 01STBL4+255 CLEAR DISTRIBUTION TABLE L7AD C6 20 1LA5B 1440 1312 MORCNV AZ DCTR2(33,0001 (1) ADD 1 TO DECIMAL VALUE
16FF OT O2 1A62 1462 1245 $2 S1OCY(3},S1GCYi3) CLEAR SIO COUNTER ; 1783 36 O1 1A75 1313 A BMO1.XR1 SUBT 1 FROM BINARY VALUE
1705 OF CC LECC 1LECC 1246 SLC = CYC TBL#204(205) -CYCTHL4#204 CLEAR PER CYCLE TABLE 1767 CG 84 1LTAD 1314 BP MORCNY TAKE ANOTHER CYCLE
1768 3¢ FF 1DCC 1247 MVI IOTBL4+204,X" FE AV IN CLEAR CHARACTER 176B F2 81 06 1315 JE ASTL
I7OF OC CB 10CB 1DCC 1248 MVC =—s- 1. BL #2034204 3,10TBi+204 CLEAR 1D STORAGE TABLE 17BE O7 O02 156 1ASB 1316 $2 DCTR2{ 3},DCTR2(3)} SET OCTR TO ZERO IF BVALUE WAS ZERG
1715 CO 87 C060 1249 ECLRTB B *—2 RETURN TO MAIN PROGRAM A7C4 35 O1 1ASC 1317 ASIL OL SV¥XR1sXR1 RESTORE XR1_
1250 17C8 CO 87 COCcS 1318 ECNVBT & ° RETURN TO ARR}2 -
L251] 8#RRERSEERENE SHEER REE SEE EE REEE SEE EEES SEER EEE EE ORE EEE OOO8 04K EOEEEEEEES . 1319 ;
1252 * UNPACK STATUS — INTG FORMAT XX XX XX XX AND PUT IT INTO * 1320 FORESEES EREKE SH EKEEE SEES SEES EEERERERERES REESE SSEREE SE EERE RIESE SSE SEEKERS
1253 * *STSMSG* (11 BYTES). . | 1321 * ACCGUSTICAL PRINT ROUTINE - PRINTS & LONG OR SHORT LINE OF #°S @
1254 * ALSO PUTS THE @ STATUS BYTES IN *"SNSOAIt» AND * | 1322 * DEPENDING ON THE ENTRY POINT. RETURN FROM ENTRY TO LONG IS
*1255 * *SNSZ2A3°. * 1323 * ARR+4,_, AND RETURN FROM ENTRY INTG SHORT IS ARR.
*1256 FERRERS SESEEEERESH EEE ESE $HEEE ESSERE EES OE8EEEE ERED OE EEREEEEE DEE SERERE OD 1324 S¥SSRER HEED HES EHRERESERAKSHESES CARELESS CHASE SEESEE ASSES SS EHAKE GY SESEE SE ESHED
1719 34 08 173D 1257 UPKSTS ST EUPKST43,ARR SET RETURN 17CC 3C 50 180F 1325 LONG Vi NOISLN, BO Q BYTE JS CHANGED BY THE PROGRAM .
171D 30 A2 1A51 1258 SNS4 SNS SNSOAL)X*A2® SENSE STATUS BYTES 0 & 1 1700 OF O1 146DC 14DE 1326 SLO -REVTIM(2),FHDTIM CALC DIFFERENCE
1721 30 A3 1A53 1259 SNSS SNS SNS2A34X°A3* SENSE STATUS BYTES 2 & 3 1706 34 08 18195 1327 ST ESHLO+3,ARR STORE RETURN ADDRESS
1725 CO 87 O21E 1260s 8 UNP ACK GO UNPACK SENSE 17D4 OF O1 1819 1A73 1328 ALC ESHLO+ 312) -B004 MAKE RETURN ARR
1729 04 1729 1261 oc XL1°04* 1TEO F2 87 16 1329 J NGI SE GO YO PRINT NOISY LINE
172A 1A53 1728 1262 DC ALZ2(SNS2A3) 17E3 3C 0% 18OF 1350 SHORT Mvi NOISLNS SET LINE LENGTH FIR QUIET LINE
172C iCFA 172D 1263 pc AL2(PRTAC95} 17E7 OF O1 L4DE 14DC 1331 SiC -FHWOTE#{ 2),REVTIM CALC DIFFERENCE
172E OC’ OA 1C68 1A93 1264 MVC «= STSMSG(11) sEDIT3 MOVE IN STATUS EDIT WORD) 17ED OC 01 140C 14DE 1332 MVC = - REVTIM(2).FWDTIM SET DIFFERENCE
1734 OA OA 1068 ICFA 1265 ED STSMSG(1L1),PRTAS95 EDIT STATUS BYTES 17F3 34 08 1819 1333 ST E SHLG43,5 ARR SET RETURN ADDRESS
1734 CO 8&7 0000 1266 EUPKST 8 *—* RETURN 17FT 3C 5C 1CEB 1334 NOISE MVI . PRTAtBO,A°5SC® SET NOISY CHARACTER
: L267 F#SEESESEES SHS OESEEEEEEESEESES HE48 08 448 S 08ST EEEEEE EE 84909008080 EE EE 17FB OC 4E 1CEA 1CEB 1335 MVC PRTA*7T9179),PRTA+8O MAKE MANY NOISY CHARACTERS
1268 * PRINT STATUS - | 1801 CO- 87 O21E 1336 8 UNP ACK GO UN PACK COUNTERS
Ne 1269 8484446980648 8409E8O8S OSES SSeS EOE OE 2988 TS EREREESE ES RARER REREEREEEREEE * 1895 02 1805 1337 oC XL1*°O2* ,
A73E 34 08 1751 1270 PRTSTS ST EPRTST4#3,ARR SET RETURN 1806 14DC 1607 1338 DC AL2(REVTINI
DATE A5MART ISNOVT2 PROG 1D 0808-1 DATE 15MAR72 15NOV72 PROG ID 0808-1
EC NO. 57160 571626 PAGE 10; . EC NO. 571609 571626 PAGE 10A
: - wer
Xen
eS eCeCCHCCCHCC HCH CCC HOHE HCC HHO OOOOH OOOO.
es
IBM MAY
BOB1
ERR LOC
1808
180A
18GE
18 OF
1810
1812
1816
TE1A
i8leE
1822
1328
18 2C
18 2F
1833
1837
1838
153F
1843
1847
1848
184F
1853
1854
1855
1857
1859
185F
1863
1867
1° 6F
1877
18 7F
1887
1885
1891
1895
18 9B
189F
18Al
1B A5
18A9
i8aD
1881
18 B5
1889
188D
18C1
18C5
1869
18CC
1800
1804
DATE
EC NO.
NTENANCE DIAGNOSTIC PROGRAM PART NO. 5134155
' PAGE il
IBM MAINTENANCE DIAGNOSTIC PROGRAM
sage
5444 DISK ADJUSTMENT UTILITY Bea, .aaede! eualee Shoo B0B1
5444 DISK ADJUSTMENT UTILITY
OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT
1CEB 1809 1339 DC AL2(PRTA+480) 1808 3C C7 1870 1403 MVI JUMPars—-15,C0°G
*CO B87 O214 1340 8 PRINT PRINT NOISY LINE 18DC 30 A3 1A53 1406 LISA SNS = SNS2M3.A3
01 180E 1341 oc KL1°O1® 1BEO 38 O1 1A52 1405 TON SNS27@3-1,B1T7
O12 180F 1342 NOISiN OC 1L*O1® CHANGED BY THE PRIGRANM 18E4 F2 9C 1E 1406 JF KURE
1CEB 1811 1343 DC AL2(PRTA480) 1BET 3C 14 17CD 1407 MVI LONGe2.20
CO 87 1768 1344 8 CLPRTA CLEAR PRINT AREA 18EB 3C 48 1182 1408 MVI HLUTSe2. X*48°
co 87 cocD 1345 ESHLO 8B 9 RETURN TO EITHER ARR GR ARR I8EF 3C 40 10CC 1409 aVI HL Ge2,x*40
*1346 18F3 3D 03 1181 1410 C.l HLT We}, x* 03°
134647 SRERHEKAEEERERET ES EREESETA EEE KERSEERKS EAEKEKE KEES EES OE $REEEEE REESE RERERE 1SsF7? F2 81 O7 14611 JE KARE
1348 * JUMPER TEST ROUTINE FOR ROUTINE OCs AND OD. ©... _* _18FA 3C 10 1181 1412 AVI HEF S2,x*10°
1349 SERS ERR EEKEKE ESSE EERE OS REKS CAESAR TRAE KKERERAKSEKE EEKEREEKAGT EE ETHER ISFE F2 BY 06 | 1413 J MRR
34 08 1866 1350 JMPTST ST EJMPTS43.,ARKR SET RETURN 1901 3c 08 118) 1414 KARL AVI HL FG@ek, x’ oe?
CO &7 164D 1352 B REC AL ES 1905 OC 6O 16CB 1181 1415 KURT MVC Hi TeeR 11) HLT OO
OC O1 1A66 OATS 1382 MVC SKOCF (2) sEWDSN2 SET SEEK TO FWD 2 TRACKS * 190B 3C BA 192C¢ 1416 MVI SEY ERS. SBN
31 A6 1A6C 1353 1107 41193 SKOCAD,CTRL LOAD CTRL REG FOR SEEK 190F 3C C6 1006 1417 MVI DESM—3,C°RF®
F3 AG 00 1354 SIO? SIC 0, 5K 0G THE SEEK 1913 38 60 O20A 1418 TAN SBY¥ FE2.SSW10
30 AB 14E0 1355 SNS12 SNS SNSC,A3 SNS TRACK CROSSING 1917 F2 ¢C O8 1419 JF SEF
38 G2 14DF 1356 TBN SNSC-1,58116 IS JUMPER ON? 191A 3C BB 192C 1420 wy SEW Em?., SBF
CO 160 184F 1357 BT CHK yMP GO PRINT JUMPER MESSAGE IDLE 3C O9 1006 1421 Mvi DiSK-32,C*R
*30 ABS 14EC 1358 SNS17 SNS SNSC,A3 SNS TRACK CROSSING 1922 35 Gi 19AE 1422 SET L DATRAD, XR1
38 02 14DF 1359 ~ BN SNSC-1,B1TS6 LGOK FOR TRACK CROSSING MINUS 1926 75 02 00 1423 LDADOR t O€_e MRL), xXR2
CO 10 185F 1360 BT PEEK BRANCH IF JUMPER IS ON e 1929 BE 10 00 1426 SETINS SBF OG se KR29,X*10°
38 04 i4DF 136) TBN SNSC-1,B1T5 HEAD SETTLING YET? 192C 8B 08 OO 1625 SETINZ SBF Ote MRZ),X*'O8
*CO 90 1838 1362 BF SNS17 GG SENSE AGAIN 192F 02 01 02 1426 LA 2 eKR4A),XR1
CO 87 O2Z1A 1363 CHYIMP B PRINT PRINT JUMPER MESSAGE 1932 1D 01 1LAT5 CO 1427 crc BM@EG@2).O0%,xXR1)
46 1853 1364 BC XL1*46° 1937 CO Of 1926 1428 BNE LDABDR
26 1854 1365 oC ILi*t3st ; 1938 O08 01 0B439 1C07 1429 W7N Hi FED, DISK
18é6c 1856 1366 DC AL2(JUMPMS} ~ 1941 08 53 9339 OAD3 1430 MANN HUT ERD, X*A03°
AQ00 1858 1367 DC XL2*A000* 1947 OC 00 OD2F CB39 1431 MVC FRSFEN(1LI,HLTCOD
OE O1 1866 1AT3 1368 ALC EJMPTS43(23,B004 SET BAD RETURN 1940 OC 00 DEA 0839 1432 MVC ERMOBD(1)»HL™COD
CO 87 164D 1369 PEEK 8 REC AL RESTORE CARRIAGE ~ 195, OC 00 LEEC 1CO7 1433 MVC INF WROQI1),0°SK
Co 87 OC00 1370 EJ#HPTS 8B 0 RETURN 1959 OC OO IBFC 1C97 1434 MVC ChE mMSE(1) DISK
CIOSEZE3C1030340 188C 1371 JUMPHS DC CL38* INSTALL JUMPER FROM W3G2G04 TO w3R2P1LO8 195F OC OO LA4SF OBLA 1435 MVC TRAERKHI1),TRK1O0
OLESD407C5 094666 1371 1965 OC 02 0827 OBLE 1436 MVC RYE (3),.CYC100
DSD6ED440E SF 3CTE2 4137) 196B 30 A2 LASSI 1437 SNS1 SNS SNSGAI,X*A2
*CTFOF440E30640E6 1371 196F 38 08 A521 1438 TBN SNS@AI,X*O8"
F3DOF2D7F1LFO 1371 1973 F2 10 OC 1439 JT TS¥27
1372 1976 OC OO LASF OB1LB 1446 MYC TRAERH#(1)3,TRK200
L372 FHHR SERRE ERAS ERE AEE RET ERE EE ERE KE EEE ES EAEE ES REESE EREE TS OO KEREE 197C OC 92 0827 0821 1441 MYC RV WOR (3).CYC200
1374 * MASTER HALT FOR ROUTINES G7 AND OA THRU OE * 1982 3B 80 OB16 1442 TST2T SBF F BSN], BITO
1375 MR A a a aa a HE OEE EE EE EEE EES REE SERRE EEE 1986 38 8&0 0818 1443 SBF REWSR-] ,BITO
34 08,.18A8 1376 HALTR ST EWHALTR#3,ARR STORE RETURN 198A 3B 80 16F3 1444 SBF RIGMCF~1,51T0
CO 8? 18A9 1377 B SETCA SET HALCOD 198E 38 01 O290C 1445 TBN SBYFEG,SSu27
OC OC 18A0 0839 i378 MVC HLTROL)HLTCOC SET THIS HALT 1992 F2 90 OC 1446 JF PREEAD
CO 87 G222 1379 8 HALT 1995 3A 80 OB16 1447 SBN FHuOSN-—1,B1T0O
A000 18AO 1380 HLTR oc XLZ*A000? 1999 3A 80 OB18 1448 SBN REWSN-1,B1TO
CO 87 18A9 1381 B SETOA SET DISK AND SPINDLE 1990 3A 80 16F3 1449 SBN RISC -1,B1 TO
CoO 87 Ooo00 1382 EHALTR 6 0 RETURN 19A1 35 01. 1A4C 1450 PREEND L S VRRRe KRI
1383 S8HT REESE TEESE EEE EEE ORE SEEK EERERETEEEREERESS SEREKE EKER TEKEREEERNE EEX 19A5 35 O2 1LASE 1451 i S WAR» XRZ
1384 * SET FIXED OR REMVBL», ORIVE 1 OR 2, RTN # IN PROG AND HALTS * 1949 CO 87 O000 1452 ESETDA 6 ee
1385 * * 19AD 1980 19AE 1453 DATBAD DC AL2ZEDAT St )
1386 * TO ACD ANY DISK I/O INSTRUCTION ANYWHERE IN THE PROGRAM * 19AF OB99 1980 1454 DATBL DC ALZELINI+1)
1387 * ADD A CONSTANT IN THE FOLLOWING FORMAT TO THE TABLE BELOW. * 19Bl OBAD 19B2 1455 oc AL. 2848 10241)
1388 * * 1983 1656 1984 1456 oc ALZELI03¢1)
1389 * AL2¢*LABEL OF INSTRUCTION‘ 41) * 1985 1543 19B6 1457 oc AL2@4 304+15
1390 SEEKER ECAEES ERS ELE RSTS SEHK SERS HE SAESHRAREEE RES HE KERKEERARETR ES ERE EE 1987 16E3 1988 1458 oC AL2Z@L 70541}
34 O08 LOAC 1391 SETDA ST ESETDA4#3,ARR SET RETURN 19B9 1lOE9 19BA 1459 oc AG 2ELID6+1)
34 O1 LAST 1392 ° ST SVXR1.XR1 SAVE XR1 19BB 182¢ 19BC 1460 oc AL2Z@ULI07+1)
34 02 LASE 1393 St SVXR2_XR2 SAVE XR2 19BD 114 i9BE 1461 oc AL? €@ 30813
3C BA 1929 1394 MVI SET INS, SBN CAUSE BIT3 IN DA TO TURN ON 19BF 160C 19CO0 1462 oc ALZ #30941)
3C 76 L1iBi 1395 MVI HLT941,X* 76* SET HALT IN RTN 9 FOR ORIVE 2 - 19C1 1225 19C2 1463 oc AL 28470101)
3C F2 1C07 1396 MVI DISK,C*2' SET MSG FOR ORIVE 2 19C3 1234 19C4% 1464 oc AL2ZEE701141)
3C Cé 18670 1397 AVI JUMPMS~15,C°F® SET JUMPER LOCATION FOR DRIVE 2 19C5 1612 19C6 1465 oc AL ZOE 10124+1)
38 10 O20A 1398 TBN SBYTEZ»SSu13 CHECK FOR ORIVE 2. 19C7 1337 19C8 1466 Dc AL# 4 101341)
F2 10 10 1399 JT LISA BR TRUE TO CHK FOR 35406 19C9 133A 19CA 1467 oc ALZS64.101441)
3C 8B 1929 1400 MVI SETINSs» SBF CAUSE BIT3 IN DA TO TURN OFF 19CB 12AC 19CC 1468 oc ALPE IO1L5+1)
3C 03 1181 14901 MVI HLT941,X*03* z SET HALT IN RTN 9 FOR ORIVE 1 1S9CD 12AF 19CE 1469 OC ACZ EL 101641).
3C Fi 1C07 1402 MVI DISK,C*l1* SET DISK MESSAGE TO DRIVE 1 OCF 1410 19D0 1470 oc 4X 206 101741)
e
15MAR72 L5NOV72 PROG ID OB08-1 DATE 15MART2 15NOV7 2
571669 571626 PAGE 1I & EC NO. 5716C9 571626
om
Cc
NN LLL LS
PuaRT NO. 5134155.
PAGE ; LIA
SET JUMPER LOCATION FOR DRIVE 1
LOOK FOR CPU MODE
IS THIS A 5406
JUMP IF IT 1S A 5410
SHORTEN NOISY PRINT LINES FOR 5406
SET RTN 9 HALT TO 5406 HLT ID
SET RIN® HALT TO 5406 HLT 1D
IS ORIVE 1 SET IN RTN HALT
BRANCH IF IT IS SET FOR DRIVE 1
MV IN 5406 ORIVE 2 HALT IN RTN 9
GO SET RIN 6 HALT te .
MV IN 5406 ORIVE 1 HALT IN RIN 9
SET DREVE NUMBER IN RTN B HALT
CAUSE BITS EN Q BYTE TG TURN ON
SET DISK MESSAGE FOR FIXED
TEST FOR REMOVABLE PACK
JUMP IF NOT REMOVABLE
CAUSE BITS IN Q BYTE 3G TURN OFF
SET MSG FOR REMOVABLE DISK
SET TABLE POINTER IN XR2
PUT Q@ CODE ADDR IN XR2
SET DEVICE ADOR { CAN BE SBN)
SET DISK (CAN BE SBN}
INCREMENT KR1L BY 2
LOOK FOR END OF TABLE
CHANGE START HALT
MOVE ROUTINE NUMBER TO HALT ID
CHANGE 1ST LINE PRINT
SET ERPOR PRINT IDENTEFICATION
SET ERROR MSG
SET ERROR MESSAGE
MV EN SMALL MODEL HIEST ID
MV IN SMALL MODEL EXPECTED # OF SIG
GET SENSE 8SYTE O AND 1
LOOK FOR 100 TRACK
JUMP IF MODEL 1
MV IN BIG MODEL HIEST ID
MV IN BIG MODEL EXPECTED # OF SIO
SET UPPER HEAD FIR FORWARD
SET UPPER HEAD FOR REVERSE
SET READ 10 FOR UPPER HEAD
USE LOWER READ HEAO? =
GO TO NEXT Sw TEST IF NOT
SET LOWER HEAD ON FORWARD
SET LOWER HEAD ON REVERSE
SET READ IO RTN FOR LOWER HEAD
RESTORE XR1
RESTORE XR2 =
RETURN
ww?
PROG 10 0808-1
PAGE LIA
523499.
IBM MAINTENANCE DIAGNOSTIC PROGRAM : PART NO. 5134155 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO = 5134155
PAGE 12 z PAGE 124A
BOBl 5444 DISK ADJUSTMENT UTILITY Geen setae: chee eheat eed eek. oie ata vee ee eee eee 2. BOBL 5444 DISK ADJUSTMENT UTILITY z
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT
19D1 1427 1902 1471 oC AL2(L101641) 1448 0000 LA4C 1539 SVKR1 OC XL2°O° STORAGE FOR XR1
*19D3 12A5 19D4 1472 oc AL2(L101941) 1A4D 0000 LASE 15460 SVXR2 OC XL2*O* STORAGE FOR XR2 r
1905 1615 19D6 1473 DC AL2(L10201) LASF 00 1ASF 1541 TRACK# CC xXLi*o" CE TRACK # ~- DETERMINED BY SNS Ac
19D7 146C 19D8 1474 oC AL2(L1021413 : 1A50 0000 1A51 1542 SNSOAl DC XL2*O* STORAGE FOR DISK STATUS BYTES O £ 1
19D9 16D8 1LSDA 1475 Dc AL2(L 102241) 1452 0000 1453 1543 SNS2A3 DC XL2°O* STORAGE FOR DISK STATUS BYTES 2 £ 3
1908 OB9D 19DC 1476 DC AL2(SIO1O1) 1454 00 1A54 1544 SNPCNT DC XL1*00* CONTROLS NUMBER OF RUNS ON SNAPSHOT
19DD OBAS% LODE 1477 oc AL2(S10241) *. 1455 00 1A55 1545 BCTR DC XL1°O° BINARY COUNTER @ 1
19DF 165A 19EO 1478 ot AL2(S103¢1) 1A56 000000 1A58 1546 RDIDIN DC XL3*O* READ 10 INPUT AREA
19E1 2547 19E2 1479 oc AL2(S104¢1) a 1A59 FOFGFOFOFOFOFO LASF 1547 DCTR1 OC CL7*0000000"* DECIMAL COUNTER # 1
19E3 16E7 19E4 1480 DC = - AL2{ S10541) sf * ay Habis aie weed Rae Soke ee as 1A58 1548 DCTR2 EOU OCTRI-4 _. DECIMAL COUNTER 8 2
L9E5 1OEC 1966 1481 oc AL2($10641) 1A60 FOFOFO 1A62 1549 SIOCY DC CL3*000°* NUMBER OF SEEKS IM MEASUREMENT
19£7 1820 19E8 1482 pc AL2USIOTe1) Ag A 1A63 CO000C000 1A66 1550 SKDCF OC XL4*9* SEEK DISK CONTROL FIELD
19E9 11C7 19EA 1483 oc AL2(S108¢1) ~ 1A67 0000 1A68 1551 BCTR2 -DC XL2*0* BINARY COUNTER # 2
19E8 1470 19EC 1484 BC ALZ(S10941} 1A69 1A56 1A6A 1552 IDADDR OC ALZ2ERDIDIN-2) ADDR OF START OF 1D INPUT AREA
19ED 1231 IGEE 1485 DC AL2(S1Ui0¢1) 1A68 1A63 LA6GC 1553 SKOCAD OC AL2Z (SKDC .‘-3) ADDR OF START OF SEEK OCF
19EF 1237 19FO 1486 oc AL2Z(SIGL1413 ~ 1a6D Fl 1A6D 1554 0001 OC XL1*FA¢ DECIMAL ONE
19F1 i60F 19F2 1487 DC AL2(S1012¢1) ‘ 1A6E 0001 LAG6F 1555 BOO1l CC KL2*01° BINARY ONE
19F3 133D 19F4 1486 oc AL2(S1013¢1) ; 1A70 0002 1A71 1556 8002 DC XL2°2° BINARY TWO
19F5 1201 19F6 1489 oc Al 248101441) ~ 1A72 0004 1A73 1557 8004 DC XL2*0004
*19FT 1424 19FB 1490 Dt AL2(S1015¢1) 1A74 FREE. 1A75 1558 BMO1l OC KL2*FFFF? BINARY MINUS ONE ;
19F9 142F 19FA 1491 CC AL2(S 101641) 1A76 1A78 1A77T 1559 RCLADR OC ALZERCLOCF-3)} ADDR OF RECAL DISK CTRL FIELD.
19F8 12A9 19FL 1492 | oc AL2(S101 741) ~ 1A78 OBOOOD0EO LA7TB 1560 RCLDOC§& DC XL 4 *OO0COO00E0* RECALIBRATE OISK CTRL FIELD
_ 19FD 1619 19FE 1493 — DC AL2(S101841) 1A7C 0000 1A7D 1561 BSTART OC KL290° STORAGE FOR START OF TABLE ENTRIES
19FF 1606 1AGO 1494 pc AL2(S101941) ds : 1ATE 00 TATE 1562 SVBSTR DL XL1*OG# S¥ AREA FOR TABLE START ON 1ST PASS
1A01 196C 1A02 1495 DC AL2Z(SNSi¢1) ~ = 1AT7F 0000 1AB80 1563 BEND OC KL2°C* STORAGE FOR END GF TABLE ENTRIES
1A03 0BB7 1A04 1496 DC AL2USNS241) 1A8) F2FOF4 1A83 1564 MAXSIO DC CL3* 204" MAX POSSIBLE S10 CYCLES
1A05 165D 1A06 1497 pc AL2¢(SNS341) “ 1AB4 F2F5F5 1A86 1566 TOMUCH DC Ci.3*255
*1AO7 171E 1A08 1498 DC AL2(SNS441) 1AB7 2020%*02020402026 1A91 1566 EDIT3 DC -KL12* 202060202040 2020402020"
LAO9 1722 1ADA 1499 oC AL2(SNS541) 1A8F 402020 1566
1AOB 1554 1A0C 15900 DC AL2(SNS641) 1A92 202048204020204B 1AA% 1567 EDIT2 OC XL19* 20 204B 20 402026482 04 04020 204820404 Be B4B
*LAOD 1564 1A0E 1501 DC AL2(SNS741) : 149A 2040402020482040 1567
LAOF 1570 1A10 1592 DC AL2(SNS841) 1AA2 484848 1567
1A1l1 1579 1A12 1503 DC AL2(SNS941) é 1a95 1568 EDIT1 EQU EDIT344
1A13 1585 1A14 1504 OC AL2(SNS10+41) . ; 1AAS 1CEi LAAS 1569 HIPRT OC ALZUPRTA+70)
1A15 1830 1Al6 1505 oc AL2 (SNS1141) LAAT 00 1AA7 1570 OLD DC XL3*00°
LALT 147C 1A18 15066 oC AL2(SNS12¢1) ; 1AA8 00 1AAB 1571 WORK OC XL1*°00".- ,
1A19 1485 1ALA 1507 DC AL2(SNS1341) ‘ = 1572 a
1A1B 148€ LAIC 1505 OC ALZ(SNS1441) 1573 SEEKERS SERS HES EESSE EAE SKSEERERS SEKEOCASS ET KE EF OOESEEESSESEESEOTS
LALO 1497 MALE 1509 oc AL20SNS1541) 1574 * BIT OF CONTROLS PRINTING IO TABLE FOOTNOTE
*LAIF 14A3 1A20 1516 cc AL2Z(SNSi64)1) 1575 SHS SHEEEEKEEEEEREEESEEAEREESED EKESESREEESSDOSSEES SES HE EEEKETEE SERS HES ES
1A21 183C€ 1A22 1511 oc ALZ(SNS1741) : 1AA9 90 1AA9 1576 BITSW1 DC KL1790° BIT SWITCH NUMBER 1
$A23 1473. 1A24 1512 Dc AL2(SNS1841) 1577
1A25 154A ~ 1A26 1513 oc AL2Z21{ SNS1941) 15 7R 8E8894 8G SREEET TEREKES KEES S EFSF SPEEKSECESESE SERS VK SHE TEES ESD ESESESEEESE
1A27 OBTC - 1A28 1514 oC AL2¢TIGLO1) 1579 © BIT SWITCH DEFINITIONS AND MESSAGES
*1A29 OBEE: ; JA2a 1515 BC AL2(7T10241) ; LSS BHF4S58 S994 KES SEHSEESAESS EASE KSRERESS OEES EERE SESS ST SE EHKERERSESESECE AAS SS
1A2B 1652 1A2C 1516 OC AL2(TI0341) . : 1AAA 00 1AAA 15601 BITSW DC xL1°O* ' BIT SW - CONTROLS PER CYCLE OPTION
1A2D 1677 1A2E 1517 oc AL2(T1I0401) 1582
1A2F OF 83 1A30 1518 oC AL2{ T1i05¢)) 1AAB C4CSE2D240C509D9 14£CB 1583 BITOC DC CL33*°DISK ERROR DURING MEASUREMENT RUNS
1519 * oC AL2(T10641) é 1AB3 D60940C4E4D9C 905 1583 .
—21A31 «10F8 1A32 1526 oc ALZ(TIO7#1) LABB C74004C5C1E2ZE4D9 1583
1A33 161C 1A34 1521 oc AL2(T108¢1) 1AC3 C5D4C5D5E340D9E4 1583
1A35 1108 1436 1522 OC AL2(T10961) 1ACB DS 1583 :
1A37 123A 1438 1523 DC AL2Z(TIG1O#1) LACC E2ZD604C540D4C5C1 1AFS 1584 BITO1 OC CL41*SOME MEASUREMENTS ARE BELOW THE LOW LIMIT®
1A39 123D 1A3A 1524 oc AL2iTIOLL 1) 1AD4 E2€4D9C5D4C5D05E3 1584
1A3B 16EA 1A3C 1525 pc AL2(TIO12¢1) LADC €240C1D9C540C2C5 1584
LA3D 1340 1A3E 1526 pc AL2(T101361) LAE4 D3D6E64S0E3C8C540 1584 ‘ '
IA3F 1204 1A40 1527 oc AL2(T1014¢1) 1AEC D3D6E64003C9D4C9 1584 .
1A41 1432 1A42 1528 5 DC AL2(T1G1541) LAFS £3 1584 |
1A43 1435 1A44 1529 oc AL2(T101641) LAF5 £206D4C540D4C5C1 181£ 1585 BITC2 DC CL42"*SOME MEASUREMENTS ARE ASOVE THE HIGH LIMIT®
1A45 FFFE 1A46 1536 DC XL2*FREFe r 1AFD E2E409C504C505E3 1585 -
. L531 8FESERS SSE SERS OESEEESEERES EEERRERES EEEEEES EER CEES SEE SEEREEEESSEOE SSE ES | 1805 £240C109C540C 1C2 1585 :
1532 SESESEESHERESS SEES SES ESEES £994 $085 E45 EEEEEEEEESEEE EE £0994 $408 4994 4RE SE 1B0D D6E5C540E3C8C540 1585
1533 «* CONSTANTS ae 1815 C8C9C7C840D03C9D4 1585
1536 S88S OES SUES EESEEES SEES ES EHS EETESS £8EERESESESOEEE SD OEENS EL EEREREEEERES OF . 18150 C9E3 1585
; 1535 *866498 eR OS O44 SEES OES OEERE $088 8 5EEEEEKS EEE SEREREREES Hb £4OKEESREEEEREDEEKE 1B1F C4C907E240060940 1834 1586 BITO3 oC CL22*O1IPS OR SKIPS IN GRAPH®
1A47 40 1A47 1536 BLNK DC cere *¢ 2 1B27 €202C9D7E240C9D5 1586
1A48 5C 1A48 1537 SPLAT OC CLitee 4 - 1B2F 4CC7D9C107C8 1586
1A49 FFOO ‘ 1A4A 1538 BM100 OC XL2*FFOO® BINARY MINUS 100 1835 ESCLOSCOCLE3C9D6 1862 1587 BITO4 DC CL46*VARIATION FROM LOWEST TO HIGHEST EXCEEDS LIMIT® .
Cc € .
DATE L5MART2 I5NOV72 PROG 1D 0808-1 DATE 15MART2 15NOV72 PROG ID 0808-1
EC NO. 571609 571626 3 PAGE 12. «. EC NO. 571609 571626 2 PAGE _ 22a
ic ‘
omy
. + 2 . ee
Re hs OF,
: =
- 3 a oS 3
18M MAINTENANCE DIAGNOSTIC PROGRAM
BOB1
ERR LOC
18 3D
1B45
184D
1835
1652
1863
1868
1A73
1876
1883
iB6B
1B8F
L597
LBOF
1847
LBAF
c
OOS
TT Nm mm oO
“Ty
Bet feet fet fet pat Neo pt fet nee
OW oH Om ww ep
Qa
Pan ep ao 3 op
PART NO.
PAGE 13
5444 DESK ADJUSTMENT UTILITY
OBJECT CODE
£540C6D9D6B440D3
OGEOCSE2ZE 340E306 |
4O0C8CSC7CBCSE2ZE3
40C5E7TC3C5C5C4E2—
SOD3COD4C9E3
CSO5C3D46D9N9C5T3
E3400° €4046C2C 509
40D6Cé40F 265C502
E24¢0E6CSE3C 84005
D64 (C4 C9E2D2Z40C5
b9psosDs
C3C1L DYDD MN SCICTCS
40C4C9C440D506E3
400406 E5SC540C4E4
DSC SRST ISOCISOEZ
C5C5D2
C9C4649C6C SC S03Ce
OCSEZSOETETETE?
ETE?
“OO S0604GE TETETEF
C6Ch4G04C5C105E2
£00 SC440C $C 44625
OSE S4¢RT SD604D702
CSESCECS
O9C SC 301834600509
DS D6RS404G4604D5
CSESCS40E7
454848400 65054904
E2
ETE?
CéCOOSCSCSERSC IDS
D56B4¢CE2C 9064003
ESC3D3CSE26840E2Z
C5C5024003C505C7
E3C BG B4OC4C9F 202
GO 404B48484003C gh4
CSE3E24065040D3L5
£64 0460E5C 10940
490 BC 9C FC 8404848
4B40 —
E2E SC LESESE 240C2
EBE3CS5E240E TE 740
EVE PSOE TE T&0E TET
C3E8D3C9D5C4C559
40090 4405£3C10203
cs
D50640DSC5C1C4C9
OSCTEZ40E3CiD2C5
0540065946 D5D6E3
S0D9C4E8
E3D9CiC302
4£940464040404049
4040404040404040
4040404040404040
4040 4040404040460
4040 404040404046
4040404040464040
4040494040 404040
4040404040404040
$040 404040404040 |
4040404040404040
4040404040404040
4040 404040404040
15MART2
571609
ADDR
2BSE
EBBi
1059
1063
iC 35
RESA
1098
LOFA
ISNOV72
571626
STMT
i587
1587
1587
1587
1587
1588
i588
1588
1588
1588
1588
1589
i589
1589
i589
L585
1596
i541
2592
1593
2594
1594
1594
1595
1595
1395
1595
1595
2 STSMSG
SOURCE STATEMENT ~ 77 . FS ae a
BITOS DC CL44° INCORRECT NUMBER OF SEEKS WETH NO DESK ERROR?
BIyoe CC CLA5*CARRIAGE DID NOT HOVE DURING A SEEK
** Sit 7 = PER CYCLE S#iTCH
BRAC KKRERRRALKE KRM R YE eRe Tee KAS we ME RA a aE aR Se Sr oe oe ae a a oe MK
TDERRS DE Cli
(a
EG FLELE ARKA
re
gs
TDALL BE CLZ&* ~~ ZXRK EF MEANS ROD ROT
tent
oo
wd
m
o
0
COMPLE?
CALRSG i KF
RS BC Clot. ee ER |
CESK CL2Z*KXF
CLS2*DERECTICN, SIO CYCLES, SEEK LENG?
Bo CL3L* TH. DISK wee LIMITS - LOH VAR #
HEAD oc CLIGS HIGH ese
*oe CL26*STATUS SYTES XK KK XK KK?
TDMSG
Le]
ey
CLIPFCYLINDER ID TABLE®
NOSMPL OC CiZE NO READINGS TAKEN GR NOT RDY®
TRACK
PRTA
oC CLS*TRACKE a
EQU
*oc cigé*® & PRINT AREA
PROG ID
PAGE
OB08-2
5134155
rs
os
NI
om
BOB1
ERR LOC OBJECT CODE -- ---
iCFe 9005
1D00
1G06
IDCO
LODS
iDDD
iBESs
1DED
iDFS
1DFO
SC4O6OCiTC SC3ACSES
Cee
FéRI06O5C 740RSE
Dsc2C5D960NECESD
FSCSCUCSDe2E 24908
DS540E SCROQEP SOE?
CS5C5D2
CSOSESCSDSESCS HS
E3C806O54009C S04
F4C9D9C SC 460046ps
4OLe@ SGC SESIS4O£7
DIC SESCEOSELTS
C&G6D9F4SCO 1o3C4
fet pet gee eS Bet
ri
oe
Tm rr mM en eon ft
Swnmnadgo ama
GOhUW oO Uo ©
fet pee et
pee
vn
&
oO
a
DATE
EC NO.
LSMART2
57160S
15NOV7
£71626
&D0R
iCFrs
LEFC
fee te
moo
“ST £2
mT GP
pee
eyy
rvny
pert pet
ery ft
wre ts ro
ee
fet eet
tr it
"?
Ln
OOF D OO be toe tee
“tr
mt
c
Oa n cao 0) © NER AS POA Ro fo oN ROA CTE pon
¢
Mima, RP PO mR rt
oo
oO OO OO OO ee ee ee ee TE OH
ow oy
€
oF
$0 Ob oe fy >
Qeew OOD
ODBDoeanoegooar moan
a
&
GO20
O610
oocs
GOo4
C02
OOG1
coso
0040
0620
0010
0008
0004
9002
0001
2
16M MAINTENANCE DIAGNOSTIC PROGRAM
5444 DISK ADJUSTMENT UTILITY
STMT
1608
i669
1610
lii
112
1613
l6i4
1615
1616
L617
i¢ie
16i¢
L620
2621
162z
1623
i526
is24
L@S%
ides
Lsz¢
thos
pee
1
oa
iy
oe ne,
sd oa OF OT
Peet pat feat fad fam fined
9 GO vad sad
©
oto O on os Pp te ab ER ee op oe Ge hth
tit Ua) te ed ud AM OP Ah a Ud Ps op Pe te Pap Bu Bs
OG as O un Gi he me
Bot feed pact et pad fuer Boo fan fet Band
1649
PART NOG. 5134155
ae PAGE 13A
SQURCE STATEMENT © «ee crue. Co CTEt © im Cesc ece
SSVSKHKAKSKRSESSKSEKRSCEASKSERSE AS HSS SES SSCSSKSECSTRSESLS SSE SAS GR SKSEKSEESPSEEESSAKKESSE
SSPISEKSCSSAERHKS SEKSSSEREASREAS SS SESE CHKTTSHSKSSS SS SECAGCT SSS STKE CKSEKLSK HSER SL SS
ae xe
ee NOTE: THE ACDRESS OF *HERE* MUST BE LESS THAN xf®ipog? ee
hE oe
R&ASSHAESKSKAKELASARAEKESSASCHS EHS SL ASPSEKASKEAKRRKESVVCSSCE KA LSEeK Se eesese ESSASKRIORSH
FHVRKEKRRSEKARS SSS RKSEKEMHK ROK STR AHSESRHKBTETCR GLEAE SSEREERSSE ESS CLK KKKKSHKEBREKAG
HERE FOU * ‘HERE? MUST BE LESS THAN x* 7009?
oc ALZ(TDV8L-MERE?
% FROM *HERE® TH X*ibooG® FS URUSED
GRG X* poof
TOTBL £Qu % 1DT8L BUST BE AY x¥* 10008
DS Ci 2Ge
RGTE OL CLEfs -ACCESS MOVED WRONG NURGER OF TRECKS On THIS SEEK®
CYCTBL Eg & OvVCTSt MUST BE AY FP®7&9R
*BS CizZo5
PNT YRO BC CLACt INTERVENTION RESUZRED CN ORIVE xt
REY oc CLT tREVERSEF
e RD Oc CLYFUFORWARDE
ORG KP EEoG?
DESTSBL Edu * ®OFRSTBL* MUST BE AT Bt LFGO®
pe Ci 255
END Ed %
HALT cou Xi 222%
LinK Eau Xf216
*{ GAB EOU KF 228?
BRINT Eg yep TA®
FEST £Ou RPEist
UNPACK EOL Xi27LE
*ee TES EOuU ®* 266°"
YTES EOL X?2GR
*a Eau X* 25688
SBYTES EOuU £2 zor
*SRYTES EGU ¥* 200%
85456 FOU y?#ga8
SSEKEES EGY x °sa?
S8¥#3i EQu Xt age
SSH1zF EOL K2 20?
SS$8i3B EGU X®4Q7
SSeizt EGgY K°o1e
SSw2G EGL ¥*agrt PER CYCLE PRINT MOGE
SSw2i EOU K°eO?
$Sw22 EOU X°20
*S$¥23 EGU xX®194 CHECK fFHD CLUTCH'‘ONLY
SSe24 EQU x?*O8¢ CHECK REY CLUTCH ONLY
$$¥25 EGU x?*04
*SS¥#Z6 EGU KFg2ét
SS#2F EQU K®Gi? USE LOWER READ HEAD
SSW2E EQU Kk? sot SNAPSHOT MODE
SSNZ29 EQU X%42G?
SSHW¥2A EQU X°20
*SS#2B EQU x*198
S$W2C EQU x*988
SS¥2D €QU X*04° REPEAT LAST PRINTOUT
SSW2E EQU x*o2* OG ROUTINES 1 THRU 6 IF SSW2F IS ON
SSwW2F EQU x*O]1* DO ROUTINES 1 THRY 3 ETF SSW2E IS OFF
PROG ID 0808-1
PaGE 13A
Ra3447.
18M MAINTENANCE DIAGNOSTIC PROGRAM | : | PART NO. 5136155 1BM MAINTENANCE DIAGNOSTIC PROGRAM . a PART NO. 5134155
: PAGE we Pace ere
BOB1 5444 DISK ADJUSTMENT UTILITY -BOBL 5444 DISK ADJUSTMENT UTILITY
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT CRCSS-REF ERENCE
CO80 1667 BITO EQU x*8O8 “ SYMBOL T LEN VALUE OEFN REFERENCES
00460 1668 BIT1 EQU x*40# .
O0C20 1669 BIT2 EQU x*20° . a: ADCYL A005 1246 0821 0888 “
0010 1670 BIT3 EQU x*1lO* : , = ALLSET A 004 O&48 0431 0424
0008 1671 BITS EOQU x*CBe ARR C001 o0008 1677 0205 0413 0559 0636 10146 2167 #%1178 #%41229 #%1243 1257 #%1270 1281
0004 1672 BITS EQU xX*04* 2 1295 1363 1327 1333 42350 1376 1391
0002 1673 BIT6 €EQU x*O028 hy, _ ASIL A 004 1704 1317 1315
0001 1674 BIT? €QU x01" AO A 003 OACC 0019 1015
OOA2 1675 A2 EQU _xK*a2® fo A2 C 001 OOA2 1675
OCA3 1676 A3 EQU Xx*A3® Beat htt wk aX any ee a A3 € 001 OOA3 1676 0972 0975 O978 ©O981 0984 0988 1062 1355 1358 1404
0008 1.77 ARR EQU x *0a* BASE A 00% 1087 0679 0703 ; cue 2 a wee fee
OOA2 1678 BUSY EQU x*A2* ; BCALER A 004 167E 1191 1179 :
= OOA6 1679 CTRL EQU XK*AG# a a BOTR A OOk 1458 1545 0234* 0243¢ 0247 6254 6255
O0A4 1680 DAT EQU X*AGE i BCTR2 A 002 1A68 1551 1306* 1311
2002 1681 DIAG EQU X*02! BEGIN A 006 OA1L4 0029 1704
0010 1682 rar EQU) xX*10" ‘ BEGINI A 004 O82C 0206 0032 0045 0058 C074 6086 92099
COO1 1683 ID fou x*Ol* j BEGIN3 A 004 0828 0205 0030 0043 O0CS& OC72 0084 0097 :
OOED 1684 PRTBSY EQU xX*EO® BEND A002 1480 1563 0316* 0328 6453
OCOAD 1685 Sk €OU xK*ao* soe: BFORS A004 116C 0744 0742
OOAL 1686 RD EQU so xx*al® : BFORO A004 1149 0763
OOBA 1687 SBN FOU xXxX*BA? 4 BGHALT A 004 0834 0208 0302 0524
® 32088 1688 SBF EQU x*BB* ee BLTSW A OOl AAA 1581 0228* 0232* 0250* 0278* 6283* 0322* 0332% 0336*% 0339% 9347 6446* 04661
OOAD 1689 TSTERR EQU xX*AOD® | 0468 0474 0480 0486 0492 0498 0504 06516 0517% 0565
*0003 1690 VER EQU x*O38 : BITSW1 A OOL AAS 1576 0605* 0623 0625* : a :
0001 1691 xXR1i FQU _xX*O1* 2} BITO € 001 COBO 1667 0232 0343 0344 0345 ©0346 0349 0350 0352 0352 0468 les2 1443
0002 1692 XR2 EQU = X*02¢ i 1444 1447 1448 1469
1693 TREP BITOO A O33 ACK 1583 0473
1694 TREP eee BITOl A 041 LAFS 1584 0479
1695 TREP BITO2 A042 1B1E 1585 0485
1696 TREP BITO3 A022 1834 1586 0491 »
16$7 TREP BIT9¢ A046 1862 1587 0497
1698 TREP BITOS A 044 1B8E 1588 0503
1699 TREP BITO6 AO35 1881 1589 0509
1700 TREP ‘ BIT1 C 002 0040 1668 0339 0474
1701 TREP BIT2 C€ 001 6020 1669 0332 0480
‘ 1702 TREP BIT3 C001 0010 1670 0446 0486
: 1703 TREP = BIT4 C 002 oOCO8 1671 0336 0492 me
OA14 1704 END BEGIN . BITS C 001 0004 1672 0498 0565 0989 1015 1361 ; _
= BIT&6 C 001 0002 1673 0250 0564 0682 0744 0763 0973 0976 0979 0982 0985 1063 1066
: 1071 1C76 1079 #1083 1356 1359
- BIT? C 001 0001 1674 0605 0623 0625 OS91 v994 1000 1405
=. BLNK A OOl 1A47 1536 0386 0387 0388 0421 0422 0429 0430 0466 0661 0722
ee BMOL A002 LATS 1558 ©6303 0313 0357 1313 1427
: : BM100 A002 1A4A 1538 0259
BSTART A 002 1A70 1561 0305* 0326 0333 0337 0398
BUSY C 001 OOA2 1678 0817 O871 C911 0946 1149 1235
80 A 003 OAOF 0020 =
: BOB1 A 001 OACO 0003
: BOC) A 002 1A6F 1555 0243 0256 0414 0538 0821 1068 1304 1308 =
BOO2 AGO2 IATL 1556 0315 0327 0329 0804
800% A002 1A73 1557 1328 1368
CALMSG A 621 ILBFC 159€ 1216 1434
CETKAD A 002 1445 0952 0940
i me CHARLY A 004 1268 0841 0829
hl CHKID A OO1 117E O09 0696 6730 4
CHKJMP A 004 184F 1363 1357 ;
; : CKUP A 00% OET2 0448 0443
° CLBCTR A 004 OBBA 0234 C231
CLERIT A 006 0C34 0284 0280 0282 6522
CLPRTA A 004 1768 1295 0210 0317 0393 0435 0616 0828 G885 1344
CLRTBL A 00% I16F5 1243 0227
CNDCHK A 004 1056 0636 0230
2 CNVBTD A 004 1770 1303 0374 0377 0380 0400 0845 06848
q ic COMDCF A 001 13136 0894 0619 0821 0846 ©0853 G885 6893
COMPID A 005 OFF6 0602 0599
: CTRL C001 O0A6 1679 0693* O771* 0816* 0815* 90859% 0862% 0908* 0940* 0943* 0970 11448 1146
*: A ‘ 1230* 1233* 13538
CYCTBL A 001 1E00 1625 0229 1246 1246
ihe ; : Cc 6
DATE 15MART2 L5NOV72 PROG 1D 0808-1 DATE 15MAR72 LSNOV72 PROG ID 0806-1
NO. 571609 571626 PAGE ae EC NG. 571609 571626 PAGE sa
© &
) ee eoeveon0enne0e00e00e00
COCCCHCHC CCC HCCC CECH CCC ESOC CEC OBO OO ECE OOS
as
Lr ’
<—
IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 5134155 io 18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 51236155.
: PAGE 15 ~ v AGE 1SA
B0B1 5444 DI SK ADJUSTMENT UTILITY i See Se a Oe Oe PPE RISE PER Re Re! Be - bo = 2 BOB81 5444 -DESK ADJUSTMENT. UTILITY... mS nt pewrer |g CTT RE TOTES TR TTT ee se etc v or = r =|
CROSSREF ERENCE CROSS-REF ERENCE
SYMBOL T LEN VALUE OEFN REFERENCES SYMBOL T LEN VALUE DEFN REFERENSES
CvC100 A003 OBIE 0195 1436 FRSTLN A 002 OD2F 0363 14319
CYC1i01 A003 OABF 0128 FRSTSK A 002 1118 C707 0677 C678 0679 0686 C689 O75¢
CYC102 A 003 OACF 0139 FwD A OO7 ILEFA 1629 0364
CYC103 A 003 OADF 0150 FWOREV A GOl 1121 O712 0700 070i 0702
CYC104 A 003 OAEF 0161 3 FWOSN AOO2 O817 0191 0215 131442" 14478
CvC105 A 003 OAFF 0172 FWOSN] A 002 OABB 0124
CYCIGG A 003 OBOF 0183 FWOSN2 A 002 OAC8 O135 1352
CYC200 A 003 0821 0196 1441 hans Ad ‘ - ree : wat -- --FWDSN3 A 002 O9ADB 0146 rote nes
CYC201 A003 GAC2 0129 ° FWOSN4 A 002 OAESB O157
CYC202 A 003 OAD2 0140 FWDSNS A 002 OAFB O168
CYC203 A 003 OAE2 0151 = FWDSN6 A O02 0808 0179
CYC204 A 003 OAF2 0162 . FWDTIM A OG2 14DF 1007 0993% 0997 1326 13343* 1332
CYC205 A 003 OBO2 0173 FHOYES A 006 OFFO 0606 0597
CYC206 A 003 OB12 0184 GEORGE A 004 12F3 0881 9868
DAT € 001 OO0AS. 1680 0861* 0909% 1147* . GETBYT A 006 178D 130606 1305
*CATAD A O0O2 1311 0891 0861 0999 1147 GG A 004 O0B49 0214 0540
DATBAD A 002 L9OAE 1453 1422 GRAPH A004 OGDE3 93409 0407
DATBL A 002 1980 1454 1453 , HALT C001 0222 1634 9208 1223 1379
CATSEP A 004 1407 0935. 0934 0935 HALTE A004 I15CE 1126 1143
OcF A 004 1319 ©0895 0806* 0809* 0863 0864* 0865* ® HALTR AOO4& 188D 1376 G&57 O80G 0936 O9@4 1053 1126
DCTRL A OO? LASF 1547 0284 0284* 0294* 9295 0304* 0418 0427 0440 1548 HALTS A O03 1173 0746 0740* 0743
DCTR2 A OO? 1A5B 1548 0376 0379 0382 0420 0428 0847 O850 1309 1309" 1312 1316 1316 HOSWw A 003 1253 0829 C807* 0830
*DGDCF A004 14463 0951 0939% CS44" HEAD AOlO 1C€50 1601 0362
DIAG C901 C062 1681 es70 0910 HERE A OOL ICFB 1616 1617
DISK A OO2 1CO07 1598 0372 ©0912 1396* 1402® 1417*% 14218 1429 1433 1434 HI. A OOl 0824 0199 0029* 0042* 0C55* CO73I* 0C83* OC96* 0330 0381
DISTBL A OOL 1FOC 1631 0256* 0285 0569 0569 C869* 0872 OB76 O880 0891 0913 0914 1244 : HIPRT A 302 LAAG 1569 0588
1244* HI1l A OOL OAC5 0132 0029
OON A006 12CA 0869 0 866 HI2 AOOl OAD5 0143 0042
0001 A001 1A6D 1554 0236 0294 03C4& 0440 1312 HES A001 OAES5 0154 0055
ECLPRT 4 004 1779 1298 1295* HI4 A O0O1 OAF5 0165 ooT1
ECLATB A 00% 1715 1249 1243* HIS A GOl oOBC5 0176 0083
FCNOCH A 004 107D 0646 0636* 0638 HI6 A 001 0815 0187 C096
ECNVBT A 00% 17€8 1318 1307* 1308 HLTCOD A 002 B39 0209 1378 1429* 1430® 1431 1432
EDIT? AOllL 1LA95 1568 0419 0426 4 HLTR A002 18A0 1386 1378
EDIT2 A O19 LAA& 1567 0383 HLT8 A 003 10CA 0684 1409* 1415
EDITS A OllL LADL 1566 1264 1568 HLT9 A 003 1180 o765 O779 1395* 1401* 14628% 1410 1412* 14148 1415
EECNDC A 004 1081 0647 0646 HSMSG A 034 1518 1023 1020
EERRTS A 004 1052 0632 0539*% HSTST A004 124F1 1014 C963 1052
EWALT A 00% 16C€9 1223 1208 " TAR C 001 O010 1682
EHALTR A 004. 18A5 1382 1376 10 C 001 0001 1683 1234
EHSTST A 004 “14F6 1022 1014* 1016 / IDADOR A 002 AGA 1552 0239 1233
EYMPTS A 004 ‘1863 1370 1350* 1368 IOALL A 036 1BE7 1595 1289
ELACER A 004° 1649 1173 1167% IDERMS A O18 18C3 1594 1285
ENCD A004 1453 0964 0967 1003 IGEXMS A O14 1187 0748 073%
ENCDST A 004 1457 9965 0974 IDMSG A O17 1C79 1603 057%
ENCODE A 004 144€ 0962 0961 0962 IOTBL A OOL 1000 1622 O578 12478 1248 1248 1617
END A OO!L FFF 1633 IEXMS2 A 013 1194 6749 0738 ¢
ENDCK A 003 OETE 0451 0442 0445 0447 0449 INTPRT A004 1691 1200 1194
ENOTOK A 004 1176 0747 0680* 0745 0761* INTVRQ A 032 LEEC 1627 1203 1433
EPRTID A 00% 1767 1290 1281 JMPTST A004 181A 1350 0965 1054
EPRTST A 004 174E 1276 1270 JUDY &4 003 LODF 0690 0704
EREADI A 004 16ED 1236 1229 JUMPMS A 038 188C 1371 1366 1397 1403% ”
ERECAL A 004 167A 1190 1176% KARL A004 i901 1414 14il
ERRCOD A 002 OEAS 0467 1432 KIPP A004 1158 0739 0729 :
ERRSTS A OOl 1746 1272 0725* 1206® 1219% 1275 KRIS A 006 O0D18 0356 0358
ERRTST A004 OFT6 0559 0274 - : KURT A006 1905 1415 1406 1413
ESETDA A 004 1989 1452 1391 LACER A004 162F 1167 022i
ESHLO AOO0& 1816 1345. 1327*% 1328¢ 1333 LASTID A 004 102E 0626 0618
EUPKST A 004 173A 1266 1257*# LOADDR A 003 1926 1423 1428
EXCAP A004 OBCC 0250 0248 LIMIT A OO3 123F 0819 0 805
*EXPID A OOL LIFA O791 0730¢ 0733 LINK C 001 0216 1635 0033 0046 006C GO&?3 0087
EXPTRK A 064 OBFD 0261 0216* 0533 LIGl A 004 OB98 0237 1454
FIRST A003 1227 O61) 0802 0803 0o808* Osi2s L1010 A003 1224 0810 1463
FNDEND A 003 OC77 0311 0314 — LIOllL A 003 1233 0815 0813 1464
FNOST A 003 OC3E 9291 0296 : LI1012 AOO3 1611 1146 1465
FRED A005 12EE 0880 0873 11013 A OO3 1336 0908 1466
” pate 15MART2 15NOV72
PR 1D 0808-1 DATE 15MART2? 15NOV72 PRoG ID 0608~1
EC NO.w 571669 571626
PA 3s EC NO. 5716C9 571626 PAGE ISA
‘
‘
A2d455
IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 5134155 18M MAINTENANCE DIAGNOSTIC PROGRAM PART NOe 51234155.
PAGE 16 ae PAGE 16A.
6081 5444 DISK ADJUSTMENT UTILITY Sey . 5 ee Oe < BY ieee a iam ati ee : 8081 5444 DISK ADJUSTMENT UTILITY ; ae Bein ae ARS Sai: aR Sites Sao Gh ctreean a eee pan ee
CROSS~REF ERENCE CROSS~REFERENCE
SYMBOL T LEN VALUE DEFN REFERENCES SYMBOL T LEN VALUE OD&7N REFERENCES
LIG14¢ A003 1335 0909 1467 . 3 PRINT C001 O21A 1637 0297 0359 0389 0632 0455 0463 0470 0476 0482 0488 0494 0500
LI1015 A003 12AB 0861 1468 : 0506 ©0510 0571 OGR2 0620 0626 0658 O719 6735 0831 0836 0881
£1016 A O03 12AE 06862 1469 €915 1017 1200 1283 1271 1286 1340 1363
L101? AOO3 161C 6940 C949 1470 - PROP ACS ODED 0411 0399% 0461 0404* 0406 0408* 0416
11018 AOO3 1426 2943 1471 PRTA AOli 198 1606 ©364% 0367 0368% 62698 0370" O371% 0372* 0373*% 0376% 0379% 03828 0383%
L1019 AO04 1284 ©G859 1472 0384 0384* 0385% O3462 03878 0388* 0392 0411% 0412 0418% 0419% 6426%
L102 A004 OBS9F 6239 1455 S234 a 0421* 0422% 0425% 06268 0427* 0428* 0429% 04308 0581 O611 0615 0840 tte ae
L1020 A904 1614 1147 14723 0841 086437 08478 9850 0854 0858 O867" O877 O878* O879% O880* 0864 aS
trO21 A004 14668 0970 1474 1263 1265 1296* 1297 1297% 1336* 1335 1335% 1339 1343 £569
Li022 A006 11607 1236 14675 . PRTADD & 002 O£4F 0434 04138 0414»
L103 46006 1655 1180 1195 1456 al PRTALN A004 10134 06609 0589 0591
L104 AGO4 1542 1060 1457 PRIBSY C 001 OGEO 1684 O779
L105 A004 I16E2 1233 1458 PRTID AOGOOS 1752 1281 C622 0666 G727 1222
L106 & 003 10€8 6693 1459 PRTENG A O00] OF4D 0433 0409* 0410%
LioT AOO4 1828 1353 146 PRTLi & 001 OD2A 6360 0343* 0349%
Lro8 & 003 11€3 o771 O782 1481 PRTIL2 AOOlL ODB1 0396 03448 0350%
L109 AOO3 1608 1144 1462 ; ‘s PRTL3 A OOlL OESC 0432 0345* 0351
LISA AGO& 18DC 1404 1399 PRTLG AOOlL 1032 06621 0346 03528
LNKRET AOO& OFT2 0547 0205* 0537 0539 : PRIRTN A 004 OCO8 96273 212 0233 0252 G262
LNSTRT A 00% OFCO 90586 9584 0668 0619 ® a: PRTSIS A004 173€ 1270 0664 ©0726 1207 L220
LS &001 O822 06197 0337 0375 QCHKAD A 002 1124 0714 0660
LOAD <2 O0OL 022A 1636 0061 0100 QSKCHK A 004 10AF 0675 O714
LOCK A006 OCD9 6337 G335 0356 0356 ~ QUKEND A 004 104A 0630 0564 0624
LOIS 4 004 o0089 C398 9325 RCALER A O04 16A4B 1213 1188 1189
LONG AOQO4 I7CC 1325 6998 1089 1407% ; RCLADR A O02 1AT? 1559 1180 ae
Loop A004 OBA6 G24] 0242 G242 0249 ke . RCLDOCF AOO% ILA78B 1560 1163* 1169 11719 LEV2es 1185 1559
Lol ACOl OAC3 06130 RD C 901 OOAl 1686 0816 G8&70 C910 GS645 1148 1234
L02 A001 OAD3 0141 ; RDGAD A OO2 143F 05950 6543 :
L63 A OOl OAE3 0152 : ee RDIDIN A 003 JLA5S8 1546 0235* 0260 6261 G@682 0656 6739 O77& 0849 O857T i129 12327 1284
LO4 AOOl OAF3 O163 1552
105 A 00) 0BG3 0174 : RDWD A OOS 1624 1154 1129* 1138* 1139% 2349
106 AOOl 0813 0185 -- RDWDAD A 002 1626 1153 1146
LRAK A006 OD43 0368 0366 sa READID A 094 1603 1229 0665 9695 0773 C&ee 1128 1221
LUCY A003 10CD ¢é&é&5 0683 ae RECAL A004 1646 1178 0214 O675 O801 ©9095 0937 1094 1170 1351 1369
MAXSIO AOQO3 1483 1554 0251 t 4 RELOAD A O02 1333 0892 0809 C864 0944 “ ~
MINIAD A002 11FC 0792 0761 RESET AOOS ILS5FB 1138 1136 11350
MINIFR A 004 11996 0759 O786 O784 0792 . REV AGO? LEF3 1628 0367
MINSNS A O02 1L11F3 O785 0685* 0686 O69C* 0691 O766* 0767 07758 0776 ; - REVFWO A OOl 42LLFS 96789 0780* 07813
MORCNV A O06 17AD 1312 1314 REVYSN A002 OB19 0192 0532 14437 14488
MORED A 003.1536 1657 1055 1095 REVSNI A 302 OABA 0125
MORPRT A O05: .008D 6399 0454 REVSN2 A 002 OACA 0136
MORSCN A 004. 1226 ©6809 0822 REVSN3 A G02 OADA 0147
MS A009 1C05 1557 0373 : REVSNS A G02 OSAEA 0158
MSK A OOl 1LI1F6 06787 0786 REVSNS A 002 OAFA 0169
MSKADD A 002 11F5 06786 o771 REVSN6 A OO0O2 OBCA 0186
MVDIST A 006 OBEY 0256 0255% REVTIM A 002 140C 1005 0996* 0997 1048 951 1326 1331 1332 1338 =
NODAT AO1l2 1329 0898 0869 0872 . RIDDAD A O02 16F2 1237 1230
NOISE A 004 I17F7 1334 1329 RIDDCF A 002 16F4 1238 1444% 1449%
NOISLN A OOL I180F 1342 1325* 1330 ROUTN7T A 004 1889 0657 0867
NCMOAD A002 1328 0899 0859 RTOA AO] 1LIFD 0796 0757
NOPRCY A GO4 OF3C 0523 0518. Ros A 301 1403 0930 O796
NOSAMP A004 OCS7 0297 6570 , RTOC A 001i 1448 0957 0932
NOSMPL A O28 1C€95 1604 03006 RTGO AoOOl] 151C 1944 0953 ,
NOTE AO51 1DFF 1624 0629 RICE A 061 15C6 1120 1046
NOTFWD AOO3 14BC 0956 0992 : RTO} A 001 OAIC 060625 0017
NOTOK AOO% 1125 O719 0697 0698 O778 RI02 AOol OAZ2A 6038 0527
OLO A001 LAAT 1570 0582* 0585* O5S66* 0600* 0601 602% RT™O3 A G81 GASG 0651 0640
ONE . A001 L16E 0732 0701 : ~ RTO4 A 00OL QA67? 0067 0053
CNEMO AOO3 149F 0987 0990 . . , RTO5 A001 0881 0079 0069
PACKED A 002 OFDD 0594 05868 RT06 A O01 OA9B 0092 0081
PASTPR A004 O€50 0435 0405 . is RTO? A001 1085 90653 0094
PEEK AGQ4 185F 1369 1360 “, : > RT08 A001 10AB 0672 0655
PLUS] AOO4 1463 C768 0966 0987 0995 1004 : RTOS A OGL 1195 06755 O&T4
POINT AOO6 1787 1305 1303* 13048 1307 RUN AOO1 14DC 1006 1087* 1088 ;
PPIK & 006 OBAA 0242 0241 = - RVONLY A 006 OF5O 0532 0222 0528 0530 ~
PREEND A004 19Al 1450 1446 RYTCYC A 003 O827 0200 0563 14368 14419 .
. jG : :
DATE 15MAR72 15NOV72 PROG 10@% 0808-1 DATE 15MAR72 —-LSNOV72Z eee 12. eG Oeeet
EC NO. 571609 571626 ; PAGE 16 EC NO. 5716C9 §71626 . PAGE 16a
oC .
ae
- io
a s ; “,
~ ; ;
IBM MAINTENANCE DIAGNOSTIC PROGRAM
8081
SYMBOL
SBF
SBN
SBYTEO
SBYTE2
SBYTE3
SBYTE4
SBYTES
SCAN
$cGooD
SCHATZ
SCMS
SCMSG3
SCMSG4
SCMSLA
SCNBAD
SCOPE.
SEEK64
SET
SETDA
SETFWD
SETINS
SETIN2
SETUP 1
SETUP 2
SHORT
SIOCY
$101
$1010
SI011
$1012
$1013
S1014
S'0i5
SI016
S1017
$1018
$1019
S102
$103
S104
£105
S106
S107
S108
$109
SIRK
SK
SKAD
SKCTRL
SKDCAD
SKDCF
x
SKEAD
SKOUT
SKWD
SNBYTS
SNPCNT
SNSC
SNSE
SNSE1
SNSIN
SNSOAL
SNS1
SNS10
DATE
eC NO.
5444 DISK ADJUSTMENT UTILITY
>Pp PPP PPPPPPrP PPPEPOPP PP PP PrP PP PP PPP PPP PP PrP PPrPPPP PPP PP PrP PRPON|AMAMA a4
LEN VALUE
001
001
001
001
001
001
001
004
004
003
008
016
034
032
001
004.
902
004
004
004
003
003
004
004
004
003
003
003
003
003
003
003
003
003
003
003
003
003
003
003-
003 ~
003
003
003
003
004
001
002
001
002
004
002
002
002
001
001
002
002
002
002
002
C04
003
008B
OOBA
0208
O20A
0208
020C
0200
1201
132€E
1183
1369
13C4
13€6
13B4
124F
15CA
15C5
1922
18A9
14CB
1929
192C
OC3A
oc73
17E3
1A62
0B89C
1230
1236
160E
133¢C
1200
1423
142E
12A8
1618
1608
GBA3
1659
1546
L6E6
“10L8
182C
11C6
146F
OD26
OOAG
1110
LIF
LA6C
1A66
262C
1447
162E
11F9
1A54
14E0
1622
1624
15C3
1A51
1968
1584
15MART2
571609 |
DEFN
1688
1687
1640
1641
1642
1643
1644
0800
0905
0766
0921
0924
0925
0923
0827
- 1425
1101
1422
1391
1000
1424
1425
0285
0310
1330
1549
0238
0814
C816
1145
0910
0870
0942
0945
0860
1148
1231
0240
1161
1061
1234
0694
1354
0772
0971
0359
1685
0708
0710
1553
1550
1155
0953
1156
0790
1544
1009 ©
1151
1152
11600
1542
1437
1082
15NOV72
571626
REFERENCES
1400 1420
1394 1416
0353 0682
1398 1418
0217 0219
0031 0044
0920
0820 0887
C764
0834
9912* 0913
*cols
0839
0818
1124 1125
1059
1419
0206 0213
1394* 1400%
1416* 1420%
0275* 0276
0276* 0277
0947 0999
0236" 0252
1476
0811 1485
1486
1487
1488
1489
1490
1491
1492
1130* 1131+
1494
1477
1478
1479
1480
1481
1482
1483
1484
0348 0354
0694 0772
0693
0708
0237 0970
9215* 0365
1000* 1059
*1144
0938* 0939
1132*% 1133
*O770* =
O02C7* 0538«
0972% 0973
1001* 1002
LiGi* 1142
1127* 1130
1062* 1063
1091* 1092
0643 0644
1495
1085 1504
5334155
PART NO,
PAGE 17
CROSS-REFERENCE biehe pete ee og
0744 0763
0281 6527 0529 1445
0C57 0059 0073 0085 0098 0211 0279 0523 0536
0914"
O762 0769 1377 1381
0423 0519* 0520
0324 0402 0441 0520* 0521
*1090
0368 0563 1245 1245
*1134* 1137® 1493
0814 0860 0942 0971 1145 1231 1356
1060 1353
0369 0525 0532* 0583 0596 0598 0600 0969% 0991 0996
1352% 1553
0948 =
0975* 0976 09798* 0979 0981* 0982 0984* 0985 0988 0989
1355* 1356 1358* 1359. 136}
1132 1135 1138
1065* 1066 1070* 1071 1075* 1076 1078* 1079 1082* 1083
1182* 1183 1187 1192 1258* 1437 1438
PROG ID 0808-1
PAGE 17
te
wt
my
e,
cro
NI
cc
re
«IBM MAINTENANCE DIAGNOSTIC PROGRAM :
5444 DISK ADJUSTMENT UTILITY
8081
oi fa CRCSS—REF ERENCE ede
SYMBOL T LEN VALUE DEFN REFERENCES
SNS11 A O0M4 182F 1355 1505
SNS12 A003 1478 0S75 0977 1506
SNS13. A003 1484 0978 0980 1507
SNS14 A003 1480 0981 0983 1508
SNS15 A003 1496 0986 0986 1509
SNS16 A003 1442 0988 1510
SNSIT7 A004 1838 1358 1362 1511
SNS1B & 003 1472 0972 1512
SNS19 A003 1549 1062 1513
SNS2 & 004 OBB6 0244 1496__ Sika --u ouput - wes be 2, cee! nH ee es he, ee
SNS2A3 A 002 1453 1543 0244* 0245 0645 1293 12598 1262 14048.1405 ~ PPS gree a eee ee ae
SNS3 A004 165C 1182 1184 1497 ae Se ;
SNSS6 A004 171D 1258 1498
SNSS A&£ 004 1721 1259 1499
SNS6 A003 1553 1065 1067 1073 1069 1500
SNS? A003 1563 1070 1072 1501 . ;
SNSB8 A003 156F 1075 1077 1502 . S .
SNS9 A003 1578 1078 1081 1503 SN SS yaaa
SON A004 10€3 0682 0706 - an gg Pe ae ee Se
SPACE A004 OFGE 0510 0462 0505 Ree ek es
SPLAT AOOl 1A48 1537 0411 : a
SSKAD A 002 %31B 0856 0810
SSWO4 C001 0008 1645 0353
SSW10 C 001 0080 1646 1418 iO Boaee
SSW1l C001 0040 1647
SSW12 C 0Ci 0020 1648
SSWi3 C 001 0010 1649 1398 bs :
SSW17 € 001 0001 1650 . ws Se:
SSW2A C 001 06020 1661 ve 2. =
SSW2B C001 0010 1662 : 5 | |
SSW2C C 001 CO08 1663 . beh fe
SSW2D C001 ©6004 1664 0211 0523 . ae
SSW2E C 001 0002 1665 0059 baits, o
SSW2F C O01 0001 16€5 0031 0044 OOS? sa73 0085 0098 a ty
SSW20 C001 0080 1651 0281 a re | Tae
SSW21 C 001 0040 1652 ie = .
$SW22 C001 0020 1653 .
SSW23. C 001 0010 1654 0217 0529 Sema
SSWo% C€ 001 0008 1655 0219 0527 “a. ee A
SSW25 C001 0004 1656 -
SSW26 C OO1 0002 1657
SSW27 € 001 0001 1658 1445 . nani
SSW28 C 001 COBO 1659 0279 0536 Be nr ee
S$SW29. C001 0040 166¢ eae
START1L A 004 GB6F 0227 0216 0220 0534 -
STEND A 00% _0C85 0315 0312 -
STEPER A004 1528 1054 1064 om
STEPR A004 1527 1953 1056 1093
STFRST A093 1590 1.086 1057* 1097%
STFRTM A 003 1585 10696 1086
STLP2 AOOl 156F 107% 1069
STORE A O06 OBDO 0251 0246
STRTUP A 061 14DE 1098 1088 1096* .
STSMSG A024 1C68 1€02 0385 0843 1264* 1265* 1274 a ‘
STSTRT A 004 O0C65 0303 0292
SVBSTR A001 LATE 1562 0326* 0327* 0404 : es a
SVXR1 A 002 1A4C 1539 0452* 0453 0560* 6630 0637" 0641 1310* 1317 1392* 1450
SVXR2 A002 1A4E 1540 9561* 0631: 13638 345]
TEST C001 0212 1638 0705 0783 094%
TEST2 A004 11EB 0783 0768 C777
TEST2 A904 1112 0705 0687 0692
TIOl A G04 OB7B 0230 0263 1514
T1010 A003 1239 6817 1523
TIO1L A OD3 123C 0818 1524 . ee
TI012 A004 16€9 1235 1525
T1013. A003 133F 0911 1526
DATE ISMART2 | 15NOVT2 PROG ID oBca-1
EC NO. 571609 571626 PAGE 17A
to
— ’
Do, de: . PART NOw 5134155
18M MAINTENANCE DIAGNOSTIC PROGRAN oe NOD. oe um IBM MAINTENANCE DIAGNOSTIC PROGRAN PASE. 189A
S0B1 5444 DISK ADJUSTMENT UTILITY a BOB1 «= 5444 DISK ADJUSTMENT UTILITY
CROSS-REF ERENCE | CROSS-REFERENCE |
SYMBOL T LEN VALUE DEEN REFERENCES . SYMBOL TFT LEN VALUE DEFN REFERENCES =
0776 ©0778 O779 C78 0781 O782 0784 0802 0803* 0804 0805 0806
aie : es ar aire aoe. é ce : 9807 O8C8 O8C9 OB869 0810 O811 O8l2 0813 0825 0817 0518 an
TIOVE. A MOR. dada 087 aeoG D821 C830 C861 GB62Z 0863 C864 086% 0665 oa7t osee gees one
Seas Ma OOR. GREG. TOSeT near els a. oe 0907% 0908 C909 S9ER 0934 0935* 0938 0939 0 ae ey Se eo
Figs. kcbee Sane ide ioa6 Tate CG . 0966 0948 0949 O96% 0962* 0963 0972 0973 09 ore ogre
T104 A004 1676 12189 1386 1517 0978 0979 0986 0982 0962 0983 098% 0585 Oke eee 1048 1069
T105 A 094 OFB2 0562 1518 x “ ee 0990 0993 0995 0996 0997 0997 1001 1002 ae 1070 1072 1672
Siar ona ee eeee teea cot 2 1052. 1056 1057 3059 1062 1063 1065 1066 106 pore: 107 Ab
SOs. Aa 6S dete TERS tek . . 1973 1075 i076 i10TF 1078 1079 1081 1082 1083 eee, Soest ae
Tras A&A 0903 11DA CT7a 1522 e 1092 10°5 1666 1097 1099 1124 11258 1127 ee 166 liek 1442
TOWUCU A. ODS LAB6 1 R6s nae a : 1132 13132 1233 123% 21235 1137 3138 1138 | th ae ee
TEAL HELA OGls “AnD a. Bebe rope * 1143. 1144 1146 1149 11560 1310 i3118 13134 1317* 2
poo ae, de rar ee oo XR2 C001 0002 1692 aosee asad nee oe 0579% G587 060% 0607 0607* 0609% 063i% 0677
<€ Pa &, ‘a ss
Tracks A 001 AGr L5e1 0216 OF85 0805 Coes OSIR 1168 L4a5# 164m Seals Geese Goss ofoar 9103+ 0730, O7S9" 0774s Os40 Ossie D863, O87
recsse 4061 Jeni k cnees ee ; 0850 0867 0878 CBS Ce8O 0968 0987 0993 0996 1056 bose
(eis AOS S6kpn One c 1080* 1084 1084* 1087 1096 1098 1393 1423* 142
roces i ai ae nice . TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = o
TRK104 A 001 OAEB O159 =
TRK105 A 001 OAFB 0270 3
TRKIO6 A OOl OB6B 0182 r
TRK200 A 001 0818 0196 1440 =
TRK201 A 001 OABC 0127
TRK202 A OO1l OACC 0138 gC
TRK203 A C01 OADC O149 ~
TRK204 A 001 OAEC 0160 .
TRK205 A OC1 OAFC O1T] <i ae
TRK206 A OC1l OBCC 0182 . os
TRUK A004 OCE6 0343 0338
TSTBTO A 004 OCEAS 0468 |
TSTBT1 A 004 OEB4 047% 0469 -
TSiB72 A 00% OFC3 O80 0475
TSTBT3 A 0046 OFD2 0486 0481 S ties. os
TSTBT4 A 006 CEEL 0492 0487 Se ee Se
TSTBTS A 004 OEFO 0498 0493
TSTBTS A 004 OEFF 050% 9499 ee ae
TSTERR C 001 00a0 1689 0698 0778 0818 0947 oct :
TST27 A&A 004 1982 14462 1439
TST28 A 004. OFSE C536 0526 0531 yo
UNPACK © 001 “OZ1E 163¢ 0592 O731 C851 C855 C874 1260 1282 1336 see .
UNPKED A 002 -OFDF 0595 0587% 0588 :
UNPKID A 006° OF93 0569 0562 am |
UPBR A003 O£61 6443 0323* 0450+ ‘. ” : :
UPKSTS A 004 1719 1257 0273 0642 0663 O72% 03862 1191 1205 1218
VAR A 001 0823 0198 0334 0378 im -
VARCK & 006 OCC6 0333 0331 ~ i
VARI A OOL OAC4 0131
VAR2 A OOL OAD4 O142 ieee ok :
VARS AO0l OAES 0155 al
VARG A OOlL OAF4 0164
VARS” A OOL OB04 0175 ee
VARG A001 OB14 0186 i . ‘
VDATOK A 028 1402 0926 0867
VDCFAD A 002 1315 0893 0815 0862 Go
VER C 001 0003 18699 0816 0945 nti Te
VOLDAD A 002 1308 0889 0906 OS9C7 0908
VOLDCF A 904 130F 0890 08042 aoc
WORK A001 1AA8 1571 0328% 0329% 0330 0333* 0334 0863* 0865 . = OS
XRINCR A003 100A 0606 0603
XR1 C 001 0001 1691: 0229% 0253 0253* 0254 0258 0285* 0291 0293 0293% 03038 0305 03109 Gf
0311 0313* 0315* 0316 0355* 0357% 0398* 0399 0444 044% 0448 0448 a oe
0451 0451 0452 0560 0576* 0586 0590 0601 0602 0606 06067 0617 . .
0630* 0637 0638* 0639 ©0639* 0640 9641* 0678 0679% 0680 0680 0685 a. a
0686 0688 0690 0691 0693 0697 0698 0699 0700 0701 0701 0702
0730 0740 6742 0743 O759* 0761 0761 0766 O767 O770 OTTL O775
c c ; :
PROG ID 0808-}
DATE 1SMAR7T2 1S5NOV72 PROG 10 0808-1 DATE =(15MAR72 0 LSNOVT2 PAGE 18h
EC NO. 571609 © 571626 PAGE @is | EC NO. 571609 571626 . 7
*, Cc
eeeeeevevoeenenvnen0ea0e000ee0e0002802008008080888088 88 8 @
$
{ AM MAINTENANCE DIAGNOSTIC PROGRAM
23467
PART NO. 5134152
PART NO. 5134155
PAGE 19
16M MAINTENANCE DIAGNOSTIC PROGRAM
; . PAE - DA
BCB4 5444 DISK ADJUSTMENT UTILITY
6081 5444 DISK ADJUSTMENT UTILITY
THe CHARACTER °
OBJECT CARD LISTING
€L. { 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48
T—Y:%D af
-
T+-25C*BEB23 /0H
7#-DO EH(OL ..<B
T+, .OH*BH- ED
T+~ZwW21C2°-C SaH—
T+~_ /ACEHCTP VIS
T+->8 -32U T 1G
T+-7PY 1Z/ZDa:D
oe e@e
Tt-OK.*HA MO AZ
Teil] OACGQ<IL3
T+-2H /Z-FY$ £9
T+-3C( DE-<BGE62
eieaeee antes
T+-49CKYE- 6148.
T+-54a/ FC OFYLE
T#-67B2<€ /37FV?
T+-7DF-IMG*" S15
eo
Te-8VC38. A2UFU-
T+-9-1D *Y¥ OCGla
* @
Te-s$aveere A IH
T+-#0 /OHEOEDES:
OATE
EC NO.
LSMART2
571609
ee. ©f © se e
HA . & OD BSY
>» 7. -
GO C HROO+B2 EHO*B
G /QE DSC 8.1 &
ee
D~. aC 387C 2HOV
IL AAG ER<KTO@?C
ZI <EN<BG SH- <B
20H* | M<BGE? ME" /D
AOH®.D-4HB:Q.7-8
NC .2/2ZNC- = AZ
“CGQ# JOD+H BCH
=GH*BFZ0*GIO-— <B
@#5AD01H*40T43CGP
ee e
( STFDT2 -E:B4D
*LC> DCH8B HHaZ
3C H*,AZSB <*_JZ
°
f19"B2EC /33F VE
+(EDEWJO C38 OH
@EA2UT ~*+LO SACUS
EVEYCG! a PO OBGH<
DD3VEFD»2/01)
* »
+H ED?HEB<BG /D
I5NOVT2
571626
<C-ZUBIP /OLV+ D
GB2-8 EHO!
e * oJ
EOH*.HC-A -7 U
P OB IW27?C5a—~G
ee
O*'{ BxB)< EQ Aws
GE6284 Hla/CCOHs
DO-0; <F-DES$ /0>
FVMES3BTFV<9AATZ
20EH.#)HB CQBFUD
ee e
&B3S -32U &: JD
GB3E6 JZ5A3 EPLZ
~£69C
E5/2Z*CO
DCE EnE2Sa-HD+U
oe
KO-pi = 7*CIL<eLe
W4? *_E£0DG.%*W-0
<D/3TECEHD/3TG IY
PAET> | J8<) HABE
-* —_ a
£ $0086 1 BEPOOCGH<
EOOZAG 10E JOZBGHD
O He TCGCW.K ED
Pe ee
AtHJ».+D ED? HEB<B
‘eet
CL 49 THROUGH 64
e e
BC*BEB623 /OHO -
B -7. GU HOOH*BH-
Z0H*BE-~O DHMCC—-%
od e e
OarvIi- AO CREX
FalG7ai1{ 31-x2 &D
e
QD*BGEUS< JzWwB1
*Pee
*H+Y ED? KGATO FVM
KaZ [I-4ENSHAACB
< EN34 FY32-EL
DAOQEP12+0-D~ G4
_( DEweHAG™E® ¢
Es/Z1C EDAD CO
— —* ° °
EDTC CKYS- 6147
AFXP &4Q0H *BFUE
AG< HAC OHG< 44246
<B/37GF-. J3JFU
*C3BEN?PHBSCSKCS &@
EVEYCGH<EQOZBGIO
EJ@BG /YA OH
*4 JZ<CEDELAD O D
*
G&G /CAHJ.44+5
Come
ED?7H
INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT.
CL 65 THROUGH 69
e
HJ 0+826H5*8GB2-
ee ° e
D ODAC 8.1 .50He
« e
UBIP /OZ3Y+ DBCS
2@
CO"LO*?7)Z2BRM EE
Da. éxC 3a 70 3HO/
ee e «
< 2=FUa8O -H<ay
@"1Z0AS EQ/2_<EQ
GB:Q: /DDCEHEQ/D
/0_ #0H*PF*BGC 7Q
}HAHIHA EQOF Va
2 @-6 JZ50H*< 939
EDAZICE ED Sua-e
#LCD DCH9#/DDaz
NGE2~F—-OF GH<;=T-
GE74.H-0BGILEO@B
e J30FU*. J3*FUr
2A EaM-7>] U+L&8
EJOSCGH £434sCC3
PEOQOFV@ESL43CGP
(2*BG /¥9438ED7H
e se
EB<BG /DAH/35¢A
PROG ID
PAGE 19
CL 81 THROUGH 96
8 €H 62UB0B 10001
eHC- 32880810002 ~
6820 RH4B0B10003
« e
AFE P1V¥80B 10004
Pal 0480810005
i¢ - 50380810006
E$}< 90DB80B10007
CavO @.-80810008
#600 "Z 80B10009
ESE4 ET4B0B10010
AFXOD O/-B60B10011
D+S 38%80810012
Z+8 RA*B0B 10013
AFWM OV@80B 10914
GE74 $/<B0B810015
4OH RC B8OB10016
CUS 0QUB0B810017
2-KH 9,2%80610018
e
2-34 OTYH0B10019
€*e@ 12Y80B10020
ED?H 30880810021
OBOB-1
ey
c)
aa
x
my
‘
?
c
»
teen ere eeaetne fe ORONO se Soe
CL 2 THROUGH 16
oe 68
T+-aJU T /OHE-JO
T¢-"CEC-AFDY# JD
T4-sGaYseC -DER-Z
TH-=D82*EQ 7HAD3Y
e aeeaoaoee
TAE=>GEGB -
T+—"XGHM@ ADX+ BD
Tel P ADXFWS2/00
T*#/AEGHG /OHKE-MH
20
T+/B.L2BG 4B AB
T*#/CFT*BG /ZA J2
T+/DAa/s Ca A™* €
e e
T+/D@AVE AT(# -G
J*/ETESH® BEYCA@YD
¥es/F2 CCtC 547i
T4#/G_* CQsiCPa/
T?e/HYD_BG=—- 0-0
T¢/ITBP2G )BGCIs
14#/H3 /OHE-USL_<H
Te/.R 12Q6.012/<
¥4#/<MGO?2-E" /OH
Te/(E- BaLF-D
T4#/4HD##~ { BG /Z
DATE
EC NO.
L5MART2
571609
CL 17 THROUGH 32
® o
$(C-HFD,2U T OH
Daz KIAB<}] OACGO
Ri <"Z8GBeas- H
DFDY("/ magne —¢)
eecenoeaev Be seeavnevee
ER~HGEA-O FD*EL3E
® « e
+ ADXFWQ) ADX AO
*7ZBGE6_ *"0C2-EL
oe @ 2
{ DELCMADHCK &E
GY C /1L*¥ROW*P] ZB
QsicPa/s al DGDS?
6 /B:OH*®ETABG /.
® e e
NS C~ @BG /BAD-Y
E6MCI110CX94CWO 51
2OH*QDP «-TXFWO?+
AFRB- M 2B
~ GFHw#?4/ *FSD_F
BGI? /1®RT YDGFT
va:
ee
*ELD*E $56
sCA@. G+BaPDsaPEK
AS)R 1<GTOMCR1I*G
F</IWY C /1HALG—
ISNOV72
571626
OBJECT Camp LISTING
CL 33 THROUGH 42
E-K8SQT-DFDe2w 1
-
<IL3<CG$ /OGee £&
(aZ (CO ENAZR@YD.
a
POH*BFZHS. Ge <H
eeeez ee 2S OC 48 OO
AC*44 ~-"~CEEE710
FD* aYDG?7EGme—D
/O* OH*BF SE 71)
4 JBDLECEt<E@eElY
GEL} 4/1}€OH@ESL-
* 2 e
B /D$* COsi<Fay
J1CC C#IJGGM CF
J/aBG /DEFIEMmEEH
1;-Pls{ TIER AG
e = °
- <BGE_<5 42%
GFH7T /1240-Gm140
-HG4 @<BAD2Z2Ge |
SL SLOH SPST H
EDLI*® ~.4L0C7#DT
<85<~BaBG sEmMAZ
ese ~~
DD2Y <BGEU™S J<
PECCAC= 1€=4 €—Gx j
CL 49 THROUGH 64
/OHE-KOSTT-BFD;
e * : e
BC* &B368 JzVaZ
DOH*.K#BG = 4BAA.
@esa@eaenvene 296880808
A
eereoeeeeaonavneevesteé
Wa-IC-—~-8 SYD*OH
*EDIHA ;HBA<BGCAC
K+ DED~HECCRAFDX
e
9 JZE¢KEEMLW FV.
° e 2 ®
DRP /iRIE -H aH
D*EQBa: 0H*0424
VOH" /OHEOEDEJ:
*
E0G1L@0T70 -CE-NE
*O-DJF3Z01B-(* N#
® -_
Qs 1CPa/s J4E Has 8B
AsaZiL RFUTAa JA
ES@BGOSC /1),av
*CFV? SLOFFVS< --
2 -S<FGUM ?2HGHED
2OH*PES4 aAZIaYD
-*EQ *EtFa:CB4EH
V46A-—O0= IRG4C Fea
CL 65 THROUGH 8)
e 8¢
2U T /OHE~K<S 248
e
*=¢ -BCIHEBT-E -3
e e
NO. DELCEBFUBAY = __.
@©ee¢88 008288880 8 06
2%
ft
e@oeeoeee eee 208 © 60
BG-D
eo a
+ DER~t
eo ¢0809°2968888066 88
8 -
/OHE~T<)"3,,AFUD
» eee
o OHu
** DH?
ADJ_* NSI(EHEOC-
e © = w%— ©
FV®C& DHGE H~ D
+O H*PFL2ZBE4S /1%
@*EY8 ~-HHa/ Ca
/OH*QDL-B -120 |
NL-C)ORZE _TES/2T
~~
BAZ5aAOE* a. TSES
N~'4#_ OH*BF ZOHD6W
E0aBG /8D01U*,*8
eGOSLit-e/ LFSs &
X4H*~D00 BG7a
4C DLIAOGGC ML ?/a
CL 81 THROUGH 96
G /V¥ 1/ BOB10022
2U < ~+,080810023
9 ave
{ CEH EESBOBICO24 ©
eee00
13£8068 10625
eoven
$$-B0B10026
86a £8280B810027
eeves
9$080810028
5 /¥ 8#4%B89B 10029
/1- 9Z*80810030
® e
8 -- 0 480810031
GIEH 3T&80B810032
* wo
2O0H* #7£80810033
é
OH* 49U80B 1003
O Ea RR 80810035
/OH C,YBOB10036
44H* $KUBO0B10037
- < *,Q@80810038
oe ew
G /8 *H-80B10039°
eD2U 3HMBO0B10040
21< £/480810061
HC H 1CDB0B 10042
®
~Q(XDECXDE<SLIFA -8>< 8Y480810043
PROG ID 0808-1
OW AGE 19A
PART NO.
10H MAINTENANCE DIAGNOSTIC PROGRAN
ee, mek re PAGE
$134155
20
BObi 5444 DISK ADJUSTMENT UTILITY
Ct 1 THROUGH 16
T¢/ fE03 |UBUCB:¢]
&
T#/6 S<PRONSREW,
T*¢/E#61U. AJHO-D
Te/JO/1MME C. B88
T+/K1LU* EBTBT VG:
T4/LZ) HK+ODERIS
1 /MT/OHESSHNE £
Te/NY¥E(3E/0P 7/158
T+/OP /129YO<*H]
T+/PK JL® ZBDEGS
T+/Qt_ E, /1$tL E
oe
T+/RHat *ERS<EE
T+/ECOH® CEHEXT
~
®
4 z “@
9-AZKaZ
~
T+/EeFV
e
T+/S9E3# /1SLOHS
qoyeteineeeae
T+/)2B/1¥G1_ /0”
T+/ sDEA32CE8tey3
T4/.VEW-FHAZ SF WS
T#/=-COaAE( BMT 0
T#//SLEO0AFWQH2CF
T¢/SOR/ Z30H*OL ¥8
DATE
EC NO.
15MART2
571609
CL 17 THROUGH 32
ESWUA-1ZXRE>{ oI
° 2»
2*R OF PVECGRIMC
e ®
MAQBGFHT JIRIL A
« °
M3 6.C NGCHAED3
BU" BE. TBTVGUBU SB
GETEBUESAUT: An
e
OHe (XES(SVIMC
(ON*OF ZBGELSE/4_
Kz oW418G64H)7#H]
e
‘-f/-T® CXSICWOA
= e
sFVI% EARS"1EP A
LD-4/ (FSM) BG.-
AYAR=<EQE)"¢— CB
. eo
DON*ONSBG / BHAT
PMZBG SH-"ZBGEVD
SF WH [3A #<G208°17
( -PM*BG /VYFFAL
oe ®
sOH* CEHEBOF Js
» —
6 JZ5CH EP p~HAA-
*AE LOMTT EHFAUSPA3
WFW33Y OYLL-+ H
G CI5Ss.TOILEIG
1SNOVT2
ST16Z6
OBJECT CARD. LISTING
CL 33 THROUGH 48
e e
O>TT131 Lxosoc
P6* XNBAPDE<EB 5>P
2 © w
Futs €Z *&Q=0Hs
a |
&/9P /1SCOHSQFSB
€+G8TVG-BU* BEEPB
<OHHPO2O0AF NNO IJ
D253 KEC PASTY 14K
° eo =
@/8PB T"*G DERSDU
Xz eWSIBLEHIXs60
NI@BGEUTE/524 -I
TOP_*"Q7ZBL7S O7H
aese @eeen0n
o10
e
OHO
SFVYD9BAZJOI OPC-
TVI# /14#R [HOP IZB
4BASOCEUOS?+— C3
K<C<BIZITICOH*® «CE
VY} QPu238G 04 BA)
<FWA< JZK € AZ
- oS * “=
BFVZEQ3#AFU3 70
2eCD8t2 /3,0H*86-H
° °
M7a GFOaOYIt-<¢ &
US(-~+EGMCFE) SMECS$
CL 49 THROUGH 64
60*5 BEPC E* $R9=~
EL<GTOMCOGUA-E< }
° :
B80724+—~ GFweDOALA<
® ee
GEF] /1JLO-H LA
TVGUBU* BEKXQBEXB
eonse
bail&O -&/19
1_SRECXT5MCCE(S
ee oe e
UZ/2ZZsz FHI XS
°
WS-HAGIB*#HiXs .
@A#PB 7" 44H)7
& TYBLSOAQEZ#0OFA
e *® e @
{ -GL DO FXZEL30
AFX,2D *8&AZ Jaz
GE3# /1810H*BERH
“FV-12/1Da: LAOEH
HE340¥/ ZU<HCEM@B
DON*BG-<EOA7COH
*eee ®
Y < Js.E£BO0+ J~
® e
1E QCO@AE(OM7TTE
M7A3,0H*BF-CAGt?
MTa EFES6AAL-~O1
“®
31°.GalJs 8°R 97]
€i GS THROUGH 8
XLE~X9=—X94CO50C
H4UCSBAGTO+I 18
— - m®
La: OC&EHDOE P8&TD
UFWQIZ/ZZa: = *He
TVG-DU *BEM3~AF
eeeeo ®
-- &BAL9e CHC ht
RE<E( APFO-D
WOA NH78T97UB9_8
W8-HA4SIBYaV*S( H
oe ®e
AB 8 "BR JPHOHS
# 5°O E/8a@E~E0 J
AFX, /1IR(4*¢ E330
a Oi ae ‘ee 2
50E OD83G C /il
*NF"2~-"ZBGE1UG//)
0:*56G Oat (-
G /8DFV<*=-OHGF-
BFYQ6F=— /O ( -
eFWaG /ZSFVZ4 JZ
HFAUt J-RFX(2/16
/11,0H8 CEHFFS
Q¢a88G /ZFI/S<¥
R@_~1LBCEHFHT /1S
CL 81 FHROUGH 96
®
X94% Q3¥B0810044
RECM 6.880810045
° °
&€ #@R0B0810046
43-H ~H*BOB10047
* ®
2u ¥ Q:HBOB10048
G
i?)
Q
e
£BX =S480810049.
eeees
1/<808 10050
€)30 4#6808 20051
M7A4 EYM80B10052
ee
QTP €.U80B10053
1ZWH °14.808 1005%
e e
FXY 48060810055
se
R¢M O02<80810056
_FOH® #1960810057
PF a 3K48CB 10058
EUEY 07980810059
: |
P~CO 3-480810060
<¢€&0 10<BOB10061
@AA- NR*EB0B 10062
e 2
7iQ RQYBOB 10063
+ J~- KZYBOB10064
2c = &E<80B10065
PROG 10 OB0B-1
PAGE 20
0)
oO
m"
~ 3
ran)
IBM MAINTENANCE DIAGNOSTIC PROGRAM |
BOB] 5444 DISK ADJUSTMENT UTILITY
?-
‘PART NOs
‘5136158
PAGE eS
Ce 12 THROUGH 16
-® ° «=
Te/TJFH .¢*8G SH
¥4/U<D$08d506 | <
*e
Te/ VGFKOA1 /OF +H
Te/WB 4&2783U< 3
° ie
T+/u*= 2048 .FC>
Ts/X8 LAQ<OSMK( AQ
T+/Y3EBAKDSQRE_O
Tesp2 & B L812
T#¢/2>GAGSDTYK 158
w~ © & 68
s e
Te/oU <LIB_T 1X
Te/T-~SOR BATECE I
Tes_E2daSE08REs.
‘
Te/ON1¢2 43xn231
To/7E 1mMCO245 538
T#70.0)PSECXDECX
Te/LFO=1IS_NsEts
e
T#/ 2AECT LAs Ke,
Te/2a58~SE* { A4zP
® e
Te/37E0A EDA EDA
a2e2eo @8¢o
TAA3@E0R OM
T</T*PDA-O0F1C156
TeJ#S2UPTLIXVIIP
DATE L5MART2
EC ND. 57126CS
Ct LY THROUGH 32
e = @ os @
- <BGFHX 4/0 { -
Q-LBTFV<S JZKGZ
@87HEBCZEFK0a6J0
UB3U< ASZG *< A?
e
E7<8 E&tH<az
KD3*L */HZODSNGIE
=
RS >TEV4PG/*SENE
DOS KSAEZEC Pm KA
eee 2286089 68
8 8 a7C
RS_V LeLR2Z)PGELL
O9UCLZIL1 8= .05<N
K2INSECKNECAROIs
°
15*{ O6)XEOe 53h
TELLOGEN 1¢LR29P
DEL POBSCC5_LP4aP
I5UCCSCILIEITk4.
2f4. 703 JUSUCB: 4]
NE(SRELPOSGCRIT
ECA ECA £DA EDA
evens 220808 88 ee
1
SE(LOSe PDEs $RS_P
T2ZSSNE(CXES*L160P
15NOV72
572626
®eeeoeeoeeeoeedsdeoedeeeoeeeeed6ee0e800e@
<ey¥
OBJECT CARD LISTING
Ck 33 THROUGH <8
s
R»CEAFUOK 1/241.
3 JAGP3LIHOSHAEAC
e
s
FILOR, XNB SE of
° ®
*
aG #< AZIBIY< -2
wa?
eETO B1-2-A831ED
_XQDMOEJUZE_~. xE>
_ NRANOEPUNS J-OEGC
eee ene saves e
x20
4a2PSHBA HBA HBA
£0: .USSPMLIPTECX.
S<PABDLRIILESS |
HO*GR2*G6T2)SNE<S$
MOZPRELSFE*.E1).
GE<E SIPESZKDE<S
TI*LR1® [AGGCEG)X
. -
ELIT GaPNI=]HESC
E BUCXS4CXG4CX96C0
TéeGCeUA ECA EDA
es 2
€0A ECA ECA
gCa
eeeeeovaesesose ced
GEtPUS< -E6NCOLUC
DEL SNECLR2; PEE tn
CL 49 THROUGH 64
RHL16080aa/061<0
<16<54MAAZCEDSS
s° * 2 e
H THA /40TEN OD
Pg
x8180¥/ZN¢
as ° oo 8
ELCMBFUS 70. FS
VEVYNS18X0400. UG
M/IKAE TOMY 1-REGC<
- eoalcoaic
@ » es
HB ~-HDZ-€8 ~K2A
e
U5s .C5S<CN S<PABSL
SECGRIMCAG_ SVIMC
R5_J3 4* 3013 The}
SE4+$18a/ SIR 1<K
EL) 1 sE<xXS£4—x9=~
COMA-ECLR23PEE+)
D2z -KED_ oK4Ck29L
X99 1[YSAXN1<PRECKX
EDA E04 EDA ECA
° * ° »
ECA EDA ECA EDA
eeosxee ese enenune
> a
T6*G6C4>51 5N 8aT
RIS PEGS -0EL_SRIZG
a
CL 65 THROUGH 69
*
e
QxL~-& <.2DA a>luU
: we
2/08RBAFIC 621F
RI-~AB3U*40-C 83U
€C 0 Fua.FOOBB 2+
oWE>-EVONELST DU
e
GEG K<JSH7E-aL lJ.
NK-_3B=80M7R7C EX
9920000 %,,
oai EN/Z
£8 ~K2A
RIILESSISECGRIMC
T2QN 24xXG20CL 20
O&<TI1aTEB>( Les
S4UCE6 XO64] AG IX
X94A~QDCX9=—9X1%
. ° /
oK4_ 25N 54X99
~
e .
18=1 QDCL5>R be?
s
DEtPAO_LTE5IR GMP
€DA ECA ECA ETA
e ° ; . »
ECA ECA EDA EDA
HVvseeeoeveseoen vase
eeeevese .
T8ucs 1*PK
eee oeoeee eee os
RE
#7<868 10085
eee / ‘~
2Ca80810086
ceees 7 es ead
92MB0B10087 -
PROG 1D 0808-2
PAGE ees 20a
ci 81 THROUGH 96 ~
os ®
zi < 3,a80810068
°
11.¥ 86080810067
—_> @
# 00
sHLE 3/UB0810069 —
ae e oe
QHJD 41-B0810070
° =
JE8E EE-8081C071
°
£=10 <#-80810072
Ta& 21 B0B10073
_ eev0e
K4_.6¢D
@%B081C07
° oA
B1l)< 1A6B0B10075
en ‘3 Pe
1836 2HHBCB10076 |
: Cm
Cl*m ELYBOB10077
10** ;y-8081C078
5<m $
e
1694 6$UB0810080
eos aw
A6M 80660510081
»
Al<u &
&0
* eo
sD ~1u808100864.
@
eae . : : he 7 e seen emi a
2 : . tae
. 2 ‘ : : . maven 2 Te ay
sH*s0B10066
B0810079
£B80810082 —
LZUBOB 10083 —
PART NO. 5134155
PAGE 21
1BM MAINTENANCE OILAGNOSTIC PROGRAM
BOB1l 5444 DISK ADJUSTMENT UTILITY
Ct 1 THROUGH 16
ere eres ener nme eee wn HEH IKK
* PROGRAM *1-6-
eee
*ROUTINE t<<S—
*FUNCTIONS * B-D
mom EKERE
Fo www
eeseseoseons
* *10-R
@eeoee
* SENSE t-s-—
*SWITCH *23-F
*OPTIONS *--—-
@eeeseen eee
* *2D-R
Fe ee we KE KEK
EB/ J*E7*=-~DC" PHS
CL 17 THROUGH 32
SEKE REECE ESEKKS
&0J CLUCH® 7-PRT
ee en ewe ee -o Bae ern ae
ATA SEPAP® C-ENC
RERERKENSEEER YE ZTEEE
EMOVABLE *1L1-FIX
re me oe em we Bee tee oe we
WD ONLY ¥*24-REV
ee ee ee ee oe
EPT PRINT*2E-RTN
EEKESCKEKKERSE EEKED
="7MEFL - j Cc
OPES ower
“op
OBJECT CARD LISTING
CL 33 THROUGH 48
REKKEESKESAKE + ES
STATUS*® 8-QUK S
ew ae er ae eee ae
ere
OCE AOJ* C-FD BK
SECKEK KK SKK EK SE EE
eeoece
ED *12-DRIVE
oe nace en Fanaa mme
ONLY *25-NOT U
ee ee eH He ee eee
4~-672F*2F-RTN 1
SRKSKKASCKERKES EE
ee een eee e
Fz ASC RA
CL 49 THROUGH 64
SKKEKKKSKKEK EEKEK
K CHK* §-MINIFRI
oe ee Rw ee eee ee eee
e e e e
DLY * E--SCOPE L
SECSKRKKKRRSES HHKEK
1 *13-DRIVE 2
eon eh eww ww em wwe
SED *27-i0 HD U
ma HK ESERE SERRE
eee @eeocneeene 06
-3
*@ensenoes eed
*£K¢E%
eee @eeeeeoeseesn
- $0 Q
.
Ct 65 THROUGH 839
FECEKTEKKSE KEES E SE
END® A-SKAN Pack
www RESHL GS EAES SS
@eeoneoeee eee
GOPs
ERESPKESES DES BE
oeee e
*20-PER CYCLE
we eee Bw ae eo even co ai eee
SED*28-SNAPSHOT
SAESSEEE EES SEE
@ee@eeeonoeceseeae one ete
eeeseeeaeseese eee 888
eeoee
102860804710
Ci 81 THROUGH 96
eee,
*“* €8U80810088
e 228
* 912880810089
*“* tL BOB1O090
@eeceastee
5C080810091
** §— EK<B0B10092
* iC BOB10093
~* M,*BOB 10094
> @e8@
* 2AUBCB1C095
oe
= "-QB0B8 10096
@L0B80810C0S7
eenee.,
EKUBOB10098
102734DHB0B10099
DATE 15MART2
EC NO. 572609
1SNOVT2
571626
PROG ID OB0B-1
PAGE 21
o Keer
janes APE gia eed oe
diy ere ee sine a
